IRC-Bomb v.1.0

[Dr.Thrax]

Hey.
Again i checked all posts if this is already posted but i guess its not!
This is more or less something that was done because i got bored.
It's a translation of the irc-bomb into soldat.

Script Name: IRC-Bomb
Script Description: Use "bomb [id]" to stick a Bomb at the player with the -> [id]. The victim is able to defuse the bomb by trying out three wires ("green" , "red" and "yellow") before the 5 seconds of time remaining .A bomb can only be placed when no one else has a bomb yet and if a new maps starts , the bomb-mode for the chosen player is turned of (so if the map changes in 2 seconds and the bomb has still 4 seconds) An admin can deactivate or activate this feature by using the command "/bomb" (A message will be shown to the admin , whether the bomb-feature is available to the user or not)
Original Author(s): I don't know the original inventor.. but it's me who coded it for soldat.
Core Version: the newest
Code:

Here a short snippet of the whole code: ca. 200 lines.

for a := 1 to 32 do
   begin
         if (bombmod[a] = 1) and (bomb = 1 ) then
            begin
                 bomb := 2
                 bombmod[a] := 2
                 WriteConsole(0, idtoname(bomb_owner)+' gives '+idtoname(a)+' a bomb!', $DFDF39);
                 WriteConsole(0, 'Use "green" , "red" or "yellow" to defuse!', $DFDF39);
                 bombmod[a] := 2
                 bomb_time := timeleft
                 color := random(0,3) // creates a random "color" on which the bomb does explode
                 end;

         end;

[...]

                            if color = 0 then
                                    begin
                                  if (LowerCase(Text) = 'green') or (LowerCase(Text) = 'yellow') then
                                                    begin
                                                         WriteConsole(0, 'BOOOM!!!!!', RGB(255,0,0));
                                                    DoDamage(a,15000)
                                                   bomb_time := 0
                                                   bombmod[a] := 0
                                                   bomb := 0
                                                         end;
                                                  if LowerCase(Text) = 'red' then
                                                    begin
                                                         WriteConsole(0, 'Bomb succesfully defused!', RGB(0,255,0));
                                                         bomb_time := 0
                                                         bombmod[a] := 0
                                                         bomb := 0
                                                         end;
                                           end;  // checks if the chosen color lets the bomb explode or not

[...]

Download


Have fun!
DrThrax.

[UnknownSniper]

I enjoyed playing this in IRC a few years ago, it is pretty fun.
Nice to see some old IRC scripts being integrated into Soldat.

[shantec]

Flame flame your scripting language ain't that good but it'll do the job
Actually good script

[Dr.Thrax]

I don't know much about Pascal .. i just learned from the enesce-tutorial and some help from friends.. thats all but it works

[zop]

Can I use this in my mod?
It's a cool idea ~

[Dr.Thrax]

be free to use

[Mr]

Kicking someone if it makes Boom > *

[pinOi32]

this is a pretty cool script