Author Topic: IRC-Bomb v.1.0  (Read 4179 times)

0 Members and 1 Guest are viewing this topic.

Offline Dr.Thrax

  • Major
  • *
  • Posts: 70
    • Lostgalaxy.de
IRC-Bomb v.1.0
« 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.
Quote
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.
« Last Edit: August 14, 2008, 12:37:31 pm by Dr.Thrax »

Offline UnknownSniper

  • Camper
  • ***
  • Posts: 428
  • Southern by the Grace of God
Re: IRC-Bomb v.1.0
« Reply #1 on: August 14, 2008, 01:44:52 pm »
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]
I had a job and a piece of land
My sweet wife was my best friend
But I traded that for Cocaine and a whore
-Jamey Johnson


Offline shantec

  • Soldier
  • **
  • Posts: 140
  • Get ANGREH!!
Re: IRC-Bomb v.1.0
« Reply #2 on: August 14, 2008, 02:45:57 pm »
Flame flame your scripting language ain't that good but it'll do the job [retard]
Actually good script :)
Also Known As REIMA


Lol Happles (happy apples)

Offline Dr.Thrax

  • Major
  • *
  • Posts: 70
    • Lostgalaxy.de
Re: IRC-Bomb v.1.0
« Reply #3 on: August 14, 2008, 03:48:00 pm »
I don't know much about Pascal .. i just learned from the enesce-tutorial and some help from friends.. thats all but it works :)

Offline zop

  • Major
  • *
  • Posts: 81
Re: IRC-Bomb v.1.0
« Reply #4 on: August 15, 2008, 10:15:16 am »
Can I use this in my mod?
It's a cool idea ~

http://122.116.167.31:23238:23238/galavela/?inc=player&name=%5BTomato+Bird%5D+Cibo[/size=1]

Offline Dr.Thrax

  • Major
  • *
  • Posts: 70
    • Lostgalaxy.de
Re: IRC-Bomb v.1.0
« Reply #5 on: August 15, 2008, 10:28:15 am »
be free to use

Offline Mr

  • Inactive Soldat Developer
  • Soldier
  • ******
  • Posts: 166
Re: IRC-Bomb v.1.0
« Reply #6 on: August 19, 2008, 12:20:57 am »
Kicking someone if it makes Boom > * :D

Offline pinOi32

  • Camper
  • ***
  • Posts: 339
  • "Bravo kid's bad day"
    • Newgrounds
Re: IRC-Bomb v.1.0
« Reply #7 on: August 23, 2008, 02:13:08 pm »
this is a pretty cool script :)
Pls use my amazing interface:
http://forums.soldat.pl/index.php?topic=27584


I WIN!!

WHY MY KARMA SUCK??