bomb ID

[dominikkk26]

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]

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]

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

[dominikkk26]

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

[[SIRS]Foxconn^^2012]

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

[Stuffy]

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

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

[Swompie]

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.

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]

The Rules do not have such a ban!

[croat1gamer]

Common sense disagrees on that,

[Blacksheepboy]

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]

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

[dominikkk26]

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]

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]

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]

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

Common sense disagrees on that,

So, we really need jrgp here...

[Gizd]

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]

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]

Ok edited the now fits!?

[[SIRS]Foxconn^^2012]

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

@low: Danke.

[EnEsCe]

This script has been removed from Soldat Central.