Author Topic: bomb ID (Read 4945 times)

dominikkk26 · « **on:** April 04, 2010, 10:13:52 am »

Script Name: bombID
Script Version: 1.0.1
Script Description
Author: jrgp Improved the dominikk26
Compile Test: Passed
Core Version: 2.7.6
Full Description:
The command to blow up the guy /asg ID
The command to stop blowing up the guy /noasg ID
Commands run only for admins.
Separates the player from time to blow up 5 seconds. You can change at the beginning of the script.

Changelog:
-Changed the type of bombs instead of grenades, a M79 bullet
-Modified commands are now only for admins
-Modified blowing only you can give yourself or another
-Changed command / asg ID / ID noasg

Swompie · « **Reply #1 on:** April 04, 2010, 10:38:07 am »

This script is made by jrgp. You only modified it abit
Atleast you had been mentoin that this script is orginally by jrgp.
Why do you say it's yours? It' orginally by jrgp: http://soldatcentral.com/index.php?page=script&f=32
[edit]Heres the release on SF: http://forums.soldat.pl/index.php?topic=28503.0
jrgps Code:

Code: [Select]

//config
const Seconds = 5;
const TextColor = $ffff00001;
const armCMD = '/arm';
const disarmCMD = '/disarm';
const NadeSpeed = 5;

//no touchy
var PlayerX,PlayerY: Single;
var PlayersPending: array[1..32] of integer;
var PlayersIteration: integer;

//explode playa
//"mother do you think they'll drop da bomb?"
procedure BlowMe (PlayerID: Integer);
var i: integer;
begin
	//mock me
	WriteConsole(PlayerID,'Ignition!', TextColor);
	//where I am
	GetPlayerXY(PlayerID,PlayerX,PlayerY);
	//kill me first
	//"Cannot the kindgome of salvation take me home?"
	DoDamage(PlayerID, 4000);
	//shoot nades in all directions, credits for iDante for making this
	for i := 1 to 360 do
		CreateBullet(PlayerX, PlayerY, NadeSpeed*cos(i), NadeSpeed*sin(i),100, 2, PlayerID);
	//be a pussy and s**t 100 grenades out
	{
		for i := 1 to 100 do
		CreateBullet(PlayerX, PlayerY, 0, 0,100, 2, PlayerID);	
	}
end;

//every second...
procedure AppOnIdle(Ticks: integer);
begin
	for PlayersIteration := 1 to 32 do
	begin
		//is this person's time over?
		if PlayersPending[PlayersIteration] = 1 then
		begin
			BlowMe(PlayersIteration);
			dec(PlayersPending[PlayersIteration],1);
			Continue;
		end;
		
		//ok, is it almost over?
		if PlayersPending[PlayersIteration] > 1 then
		begin
			dec(PlayersPending[PlayersIteration],1);
			WriteConsole(PlayersIteration,'You have '+inttostr(PlayersPending[PlayersIteration])+' seconds of life out of hell left', TextColor);
		end;		
	end;	
end;

function OnPlayerCommand(PlayerID: Byte; PlayerCMD: String): boolean;
begin
	//do we want to arm the bomb?
	if PlayerCMD = armCMD then
	begin
		//set timer to the number of seconds..
		PlayersPending[PlayerID] := Seconds;
		//tell me how to abort
		WriteConsole(PlayerID,'You have '+inttostr(Seconds)+' seconds to live. Press '+disarmCMD+' to cancel.', TextColor);
	end;
	
	//ah f**k it. I'd rather live than be blown to bits. Wait, I'd like to be blown...
	if PlayerCMD = disarmCMD then
	begin
		//save me!
		if PlayersPending[PlayerID] > 0 then
		begin
			//take away my countdown
			PlayersPending[PlayerID] := 0;
			//tell me
			WriteConsole(PlayerID,'Bomb disarmed.', TextColor);
		end;
	end;
end;

And heres dominikk26's:

Code: [Select]

//config
const Seconds = 5;
const TextColor = $ffff00001;
const armCMD = '/asg';
const disarmCMD = '/noasg';
const BombSpeed = 5 ;

//no touchy
var PlayerX,PlayerY: Single;
var PlayersPending: array[1..32] of integer;
var PlayersIteration: integer;

//explode playa
//"mother do you think they'll drop da bomb?"
procedure BlowMe (PlayerID: Integer);
var i: integer;
begin
  //mock me
  WriteConsole(PlayerID,'Ignition!', TextColor);
  //where I am
  GetPlayerXY(PlayerID,PlayerX,PlayerY);
  //kill me first
  //"Cannot the kindgome of salvation take me home?"
  DoDamage(PlayerID, 4000);
  //shoot nades in all directions, credits for iDante for making this
  for i := 1 to 360 do
    CreateBullet(PlayerX, PlayerY, BombSpeed*cos(i), BombSpeed*sin(i),100, 4, PlayerID);
  //be a pussy and s**t 100 grenades out
  {
    for i := 1 to 100 do
    CreateBullet(PlayerX, PlayerY, 0, 0,100, 2, PlayerID);  
  }
end;

//every second...
procedure AppOnIdle(Ticks: integer);
begin
  for PlayersIteration := 1 to 32 do
  begin
    //is this person's time over?
    if PlayersPending[PlayersIteration] = 1 then
    begin
      BlowMe(PlayersIteration);
      dec(PlayersPending[PlayersIteration],1);
      Continue;
    end;
    
    //ok, is it almost over?
    if PlayersPending[PlayersIteration] > 1 then
    begin
      dec(PlayersPending[PlayersIteration],1);
      WriteConsole(PlayersIteration,'You have '+inttostr(PlayersPending[PlayersIteration])+' seconds of life out of hell left', TextColor);
    end;    
  end;  
end;
function OnCommand(PlayerID: Byte; PlayerCMD: String): boolean;
var who: byte;
begin
  //do we want to arm the bomb?
  if GetPiece(PlayerCMD, ' ', 0) = armCMD then
  begin
    //set timer to the number of seconds..
    if Length(PlayerCMD) <> Length(armCMD) then who := strtoint(GetPiece(PlayerCMD, ' ', 1)) else who := PlayerID;
    PlayersPending[who] := Seconds;
    //tell me how to abort
    WriteConsole(who,'You have '+inttostr(Seconds)+' seconds to live. Press '+disarmCMD+' to cancel.', TextColor);
  end;
  
  //ah f**k it. I'd rather live than be blown to bits. Wait, I'd like to be blown...
  if GetPiece(PlayerCMD, ' ', 0) = disarmCMD then
  begin
    //save me!
    if Length(PlayerCMD) <> Length(armCMD) then who := strtoint(GetPiece(PlayerCMD, ' ', 1)) else who := PlayerID;
    if PlayersPending[who] > 0 then
    begin
      //take away my countdown
      PlayersPending[who] := 0;
      //tell me
      WriteConsole(who,'Bomb disarmed.', TextColor);
    end;
  end;
end;

[SIRS]Foxconn^^2012 · « **Reply #2 on:** April 04, 2010, 11:06:38 am »

Hmmm...technically it's credit theft...reporting and disapproving

dominikkk26 · « **Reply #3 on:** April 04, 2010, 11:09:43 am »

Was changed
1st Type of Missile
2nd Added another bombs
3rd The commands only work for admin
4th Other commands

[SIRS]Foxconn^^2012 · « **Reply #4 on:** April 04, 2010, 11:12:12 am »

It still don't mean it's your script. You just took ALL the credits.

Stuffy · « **Reply #5 on:** April 04, 2010, 11:12:31 am »

just looked into his "forum", full of stolen scripts...

@dominikkk26 and btw, you should edit your sig, its too big.

Swompie · « **Reply #6 on:** April 04, 2010, 11:17:14 am »

Quote from: dominikkk26 on April 04, 2010, 11:09:43 am

Was changed
1st Type of Missile
2nd Added another bombs
3rd The commands only work for admin
4th Other commands

Changing a few things in another peoples script doesn't mean you made it.

Quote from: Stuffy on April 04, 2010, 11:12:31 am

just looked into his "forum", full of stolen scripts...

@dominikkk26 and btw, you should edit your sig, its too big.

Yeah, true. Did too after you said that.. I think it's time for a warning.

dominikkk26 · « **Reply #7 on:** April 04, 2010, 11:41:07 am »

The Rules do not have such a ban!

croat1gamer · « **Reply #8 on:** April 04, 2010, 11:49:01 am »

Common sense disagrees on that,

Blacksheepboy · « **Reply #9 on:** April 04, 2010, 12:36:57 pm »

you just dug yourself a hole mister. ouch. but I think we should all play nice and stop berating dominikkk26 and instead have this thread locked and the op edited or who knows what. or MAYBE we should keep milking this thread for entertainment LIKE JERKS :C

[SIRS]Foxconn^^2012 · « **Reply #10 on:** April 04, 2010, 12:45:48 pm »

We should restrict dominikkk26 from posting on Scripting and Modding forums...

dominikkk26 · « **Reply #11 on:** April 04, 2010, 12:59:12 pm »

As usual foxuś is against me because I took him to the admin on my part.
But for 80-90% of this script is better, although he was being tested >>??<< Probably not and besides, there is nothing in the rules and not once was such a thing!

Swompie · « **Reply #12 on:** April 04, 2010, 01:09:21 pm »

What do you mean with although he was beeing tested?

Stealing/Modifing a script and not even mentoin the orginal author can't be compared on how better a script is for the people.

This thread should be locked by a Mod and tell us his opinion.

DarkCrusade · « **Reply #13 on:** April 04, 2010, 11:12:08 pm »

As it is jrgps intellectual property normal low will do the trick here. Believe it or not, but ...

... THIS FORUM IS NOT A COUNTRY THAT HAS ITS OWN LAWS.

[SIRS]Foxconn^^2012 · « **Reply #14 on:** April 05, 2010, 03:38:27 am »

Quote from: dominikkk26 on April 04, 2010, 12:59:12 pm

Probably not and besides, there is nothing in the rules and not once was such a thing!

Quote from: croat1gamer on April 04, 2010, 11:49:01 am

Common sense disagrees on that,

So, we really need jrgp here...

Gizd · « **Reply #15 on:** April 05, 2010, 04:04:57 am »

Why do you care so much, just don't download that crap, it's his problem if he edits 1 word in a script and says it's his...

Swompie · « **Reply #16 on:** April 05, 2010, 05:39:22 am »

Because he may steals scripts of yours and takes credits for and you don't want that..
I don't think jrgp cares much about this script, but dominik still stole a script..

dominikkk26 · « **Reply #17 on:** April 05, 2010, 07:25:38 am »

Ok edited the now fits!? $:-\$

[SIRS]Foxconn^^2012 · « **Reply #18 on:** April 05, 2010, 07:26:50 am »

~~The soldat central one is still not edited.~~ Screw this s**t, it got deleted.

@low: Danke.

EnEsCe · « **Reply #19 on:** April 05, 2010, 07:32:12 am »

This script has been removed from Soldat Central.

News:

Author Topic: bomb ID (Read 4945 times)

DarkCrusade