Official Soldat Forums
Server Talk => Scripting Releases => Topic started by: Dr.Thrax on August 14, 2008, 12:26:35 pm
-
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 (http://fabianlentz.fa.funpic.de/Scripts/irc-bomb.rar)
Have fun!
DrThrax.
-
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. [retard]
-
Flame flame your scripting language ain't that good but it'll do the job [retard]
Actually good script :)
-
I don't know much about Pascal .. i just learned from the enesce-tutorial and some help from friends.. thats all but it works :)
-
Can I use this in my mod?
It's a cool idea ~
-
be free to use
-
Kicking someone if it makes Boom > * :D
-
this is a pretty cool script :)