Ttamdy1's gratz script on *:TEXT:!gratz*:#: { if ($chan == #bnc) { /halt } msg $chan 4,1Congratulations4,1 11,12 $nick 11,121,4 for getting $2 $3- $+ !1,4 1,0 } on *:TEXT:!grats*:#: { if ($chan == #bnc) { /halt } msg $chan 4,1Congratulations4,1 11,12 $nick 11,121,4 for getting $2 $3- $+ !1,4 1,0 } on *:TEXT:!lol:#: { if ($chan == #bnc) { /halt } /set %lol $rand(1,7) if (1 isin %lol) { /describe $chan 3L9aughing 3O9ut 3L9oud } if (2 isin %lol) { /describe $chan 7L8aughing 7O8ut 7L8oud } if (3 isin %lol) { /describe $chan 12L10aughing 12O10ut 12L10oud } if (4 isin %lol) { /describe $chan 5L4aughing 5O4ut 5L4oud } if (5 isin %lol) { /describe $chan 10L11aughing 10O11ut 10L11oud } if (6 isin %lol) { /describe $chan 14L15aughing 14O15ut 14L15oud } if (7 isin %lol) { /describe $chan 6L13aughing 6O13ut 6L13oud } } alias big { if ($bigtext.unsupp($1-)) { echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-) return } var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/ var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text) while (%i <= $len(%text)) { if ($mid(%text, %i, 1) == $chr(3)) { var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3)) if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) { var %m $regml(mtcol, 1) var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m inc %i $len(%m) } } else { tokenize 32 $bigtext.char($mid(%text, %i, 1)) var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5) ; if ($bigtext.kern($mid(%text, %i, 2))) { var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .) ; } } inc %i } say $bigtext.format(%lia) say $bigtext.format(%lib) say $bigtext.format(%lic) say $bigtext.format(%lid) say $bigtext.format(%lie) } ; You may customize this alias however you want to. ; It is Big Text's font, used above. ; The return value consists of dots and X's, to denote ; unlit and lit points in the font, respectively; ; there are 5 tokens of the same length, each ; corresponding to a line in the 5-line output. ; Note how the . and X's look like the characters; ; you can use this to your advantage! alias -l bigtext.char { if ($1 === $chr(32)) || ($1 === $null) return $& ... $& ... $& ... $& ... $& ... if ($1 === $chr(160)) return $& ..... $& ..... $& ..... $& ..... $& ..... elseif ($1 == 0) return $& .XXXX. $& XX..XX $& XX.XXX $& XXX.XX $& .XXXX. elseif ($1 == 1) return $& .XXXX $& XX.XX $& ...XX $& ...XX $& ...XX elseif ($1 == 2) return $& XXXXX. $& ....XX $& ..XX.. $& XX.... $& XXXXXX elseif ($1 == 3) return $& XXXXX. $& ....XX $& .XXXX. $& ....XX $& XXXXX. elseif ($1 == 4) return $& .....XXX. $& ...XX.XX. $& .XX...XX. $& XXXXXXXXX $& ......XX. elseif ($1 == 5) return $& XXXXX $& XX... $& XXXX. $& ...XX $& XXXX. elseif ($1 == 6) return $& .XXXX. $& XX.... $& XXXXX. $& XX..XX $& .XXXX. elseif ($1 == 7) return $& XXXXXX $& ...XX. $& ..XX.. $& .XX... $& XX.... elseif ($1 == 8) return $& .XXXX. $& XX..XX $& .XXXX. $& XX..XX $& .XXXX. elseif ($1 == 9) return $& .XXXX. $& XX..XX $& .XXXXX $& ....XX $& .XXXX. elseif ($1 == A) return $& .XXXX. $& XX..XX $& XXXXXX $& XX..XX $& XX..XX elseif ($1 == B) return $& XXXXX. $& XX..XX $& XXXXX. $& XX..XX $& XXXXX. elseif ($1 == C) return $& .XXXX. $& XX..XX $& XX.... $& XX..XX $& .XXXX. elseif ($1 == D) return $& XXXX.. $& XX.XX. $& XX..XX $& XX..XX $& XXXXX. elseif ($1 == E) return $& XXXXX $& XX... $& XXXX. $& XX... $& XXXXX elseif ($1 == F) return $& XXXXX $& XX... $& XXXX. $& XX... $& XX... elseif ($1 == G) return $& .XXXX. $& XX.... $& XX.XXX $& XX..XX $& .XXXXX elseif ($1 == H) return $& XX...XX $& XX...XX $& XXXXXXX $& XX...XX $& XX...XX elseif ($1 == I) return $& XXXX $& .XX. $& .XX. $& .XX. $& XXXX elseif ($1 == J) return $& ....XX $& ....XX $& ....XX $& XX..XX $& .XXXX. elseif ($1 == K) return $& XX..XX $& XX.XX. $& XXXX.. $& XX.XX. $& XX..XX elseif ($1 == L) return $& XX... $& XX... $& XX... $& XX... $& XXXXX elseif ($1 == M) return $& XX....XX $& XXX..XXX $& XXXXXXXX $& XX.XX.XX $& XX....XX elseif ($1 == N) return $& XX..XX $& XXX.XX $& XXXXXX $& XX.XXX $& XX..XX elseif ($1 == O) return $& .XXXX. $& XX..XX $& XX..XX $& XX..XX $& .XXXX. elseif ($1 == P) return $& XXXXX. $& XX..XX $& XXXXX. $& XX.... $& XX.... elseif ($1 == Q) return $& .XXXX.. $& XX..XX. $& XX..XX. $& XX..XX. $& .XXXXXX elseif ($1 == R) return $& XXXXX. $& XX..XX $& XXXXX. $& XX..XX $& XX..XX elseif ($1 == S) return $& .XXXX. $& XX.... $& .XXXX. $& ....XX $& XXXXX. elseif ($1 == T) return $& XXXXXX $& ..XX.. $& ..XX.. $& ..XX.. $& ..XX.. elseif ($1 == U) return $& XX..XX $& XX..XX $& XX..XX $& XX..XX $& .XXXX. elseif ($1 == V) return $& XX....XX $& XX....XX $& .XX..XX. $& ..XXXX.. $& ...XX... elseif ($1 == W) return $& XX...XX $& XX...XX $& XX.X.XX $& XXXXXXX $& .XX.XX. elseif ($1 == X) return $& XX...XX $& .XX.XX. $& ..XXX.. $& .XX.XX. $& XX...XX elseif ($1 == Y) return $& XX..XX $& XX..XX $& .XXXX. $& ..XX.. $& ..XX.. elseif ($1 == Z) return $& XXXXXX $& ...XX. $& ..XX.. $& .XX... $& XXXXXX elseif ($1 == $chr(35)) return $& .XX..XX. $& XXXXXXXX $& .XX..XX. $& XXXXXXXX $& .XX..XX. elseif ($1 == ') return $& .XX $& XX. $& ... $& ... $& ... elseif ($1 == ") return $& XX..XX $& XX..XX $& ...... $& ...... $& ...... elseif ($1 == +) return $& ...... $& ..XX.. $& XXXXXX $& ..XX.. $& ...... elseif ($1 == =) return $& ...... $& XXXXXX $& ...... $& XXXXXX $& ...... elseif ($1 == -) return $& ...... $& ...... $& XXXXXX $& ...... $& ...... elseif ($1 == _) return $& ...... $& ...... $& ...... $& ...... $& XXXXXX elseif ($1 == ?) return $& XXXXXX $& ...... $& ...... $& ...... $& ...... elseif ($1 == ?) return $& .XXX. $& XX.XX $& .XXX. $& ..... $& ..... elseif ($1 == :) return $& .. $& XX $& .. $& XX $& .. elseif ($1 == !) return $& XX $& XX $& XX $& .. $& XX elseif ($1 == ?) return $& XXX. $& ..XX $& .XX. $& .... $& .XX. elseif ($1 == .) return $& .. $& .. $& .. $& .. $& XX elseif ($1 == /) return $& ....XX $& ...XX. $& ..XX.. $& .XX... $& XX.... elseif ($1 == \) return $& XX.... $& .XX... $& ..XX.. $& ...XX. $& ....XX elseif ($1 == $chr(40)) return $& ...XX $& .XX.. $& XX... $& .XX.. $& ...XX elseif ($1 == $chr(41)) return $& XX... $& ..XX. $& ...XX $& ..XX. $& XX... elseif ($1 == $chr(37)) return $& XX..XX $& ...XX. $& ..XX.. $& .XX... $& XX..XX elseif ($1 == [) return $& XXXXX $& XX... $& XX... $& XX... $& XXXXX elseif ($1 == ]) return $& XXXXX $& ...XX $& ...XX $& ...XX $& XXXXX elseif ($1 == |) return $& .XX. $& .XX. $& .XX. $& .XX. $& .XX. elseif ($1 == <) return $& ....XX $& ..XX.. $& XX.... $& ..XX.. $& ....XX elseif ($1 == >) return $& XX.... $& ..XX.. $& ....XX $& ..XX.. $& XX.... elseif ($1 == ?) return $& .... $& .... $& .XX. $& ..XX $& XXX. elseif ($1 == ,) return $& ... $& ... $& XXX $& .XX $& XX. } ; Returns all unsupported characters within a Big Text message ; Supported characters are a-z, space, digits, #'"+=?:!?./\()%-[]<>|?, alias bigtext.unsupp { var %res, %dummy = $regsub($1-, /[]a-z 0-9# $+ $chr(44) $+ '+=?:!?./\\()%[|<>_?"?-]/igS, $null, %res) return %res } ; Returns $true if a space should be added between two characters, ; or $false if not. ; Note: This is here only for aesthetic purposes. :) alias bigtext.kern { var %res $true if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]?|?[J/]|L'|\/\/|\\\\|?J|[_?]?|[?T_]_|>\.|\.<)$/i)) %res = $false return %res } ; Takes an input string of the form: ; .XX..XX....XX.XX.XXXXX ; And formats it for display. alias bigtext.format { var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/ while (%i <= $len($1-)) { if ($mid($1-, %i, 1) == $chr(3)) { if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) { if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) { %curcolor = $gettok($regml(mtcol, 1), 1, 44) if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15) } inc %i $len($regml(mtcol, 1)) } elseif (%curcolor) { %curcolor = if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15) } } else { %current = $iif($mid($1-, %i, 1) == ., 0, 1) if (%previous != %current) { %previous = %current if (%curcolor) { if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor else %res = %res $+ $chr(3) } else %res = %res $+ $chr(22) } %res = %res $+ $chr(160) } inc %i } return %res alias tchrt { var %y = $len($1-) var %x = 1 set %chr $left($1,1) while %y { set %chr %chr $left($remove($1,$left($1,%x)),1) inc %x dec %y } } alias chrise { var %y = 1 var %x = $numtok(%chr,32) while %x { set %asc %asc "4 $+ $gettok(%chr,%y,32) $+ ":2 $asc($gettok(%chr,%y,32)) inc %y dec %x } echo -a %asc unset %chr unset %asc } alias convert { tchrt $1- | chrise } on $*:text:/^[`!](esword)/Si:#: { if ($chan == #bnc) { /halt } var %sword $rand(1,9999999) if ($2 == $me) || ($2 == ) { msg $chan I will not kill myself! | halt } if ($2 !ison $chan) { msg $chan Cant seem to find them, $nick $+ . | halt } else { .timer 1 3 describe $chan rushes at $2 with an Energy Sword drawn! .timer 1 5 describe $chan connects with $2 $+ , causing %sword damage! } if (%sword > 9000) { inc %pwned .timer 1 8 describe $chan watches $2 die drowning in his own blood. ( $+ %pwned people pwned.) } if (%sword < 9000) { inc %unpwned .timer 1 8 describe $chan watches $2 get up, barely alive! ( $+ %unpwned unpwned people.) } } ;on $*:TEXT:/^[!@]oldworld/Si:#:{ msg #chan 7 the old world is: %oldworld } alias setoldw { set %oldworld $1 } on *:TEXT:!setoldw *:#chan:{ set %oldworld $2 } on *:text:!dmcommands*:#:{ if ($chan == #bnc) { /halt } if (%chandm != $chan) { notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing! HALT } if (%commandhalt2 [ $+ [ $nick ] ] != $null) { HALT } if (%commandhalt != $null) { notice $nick 06I am currently sending commands to somebody else.05 Please wait. set %commandhalt2 [ $+ [ $nick ] ] yes HALT } unset %commandhalt2* set %commandhalt yes timer 01 10 unset %commandhalt msg $chan %dmlogo Sending $nick DMCommands. msg $chan %dmlogo Please wait 15-20 seconds before using another command. msg $nick %dmlogo DM RULES. msg $nick %dmlogo You start with 100% Special Attack meter. It is suggested you use this. msg $nick %dmlogo Every turn, your Special Attack meter raises 5%. msg $nick %dmlogo DM SPECIAL COMMANDS. msg $nick %dmlogo Syntax: Command :: Percent special uses :: Max hit :: Effect msg $nick %dmlogo !dds :: 25% :: 46 (double 23) :: Hits twice. msg $nick %dmlogo !dmace :: 25% :: 50 :: Double the chance to hit below 25. msg $nick %dmlogo !anchor :: 50% :: 40 :: Double the chance to hit above 15. msg $nick %dmlogo !dscim :: 60% :: 35 :: 5% chance of earning 100% special meter. 10% chance of earning 40% special meter. 50% chance of STEALING 10% special meter. msg $nick %dmlogo !whip :: 55% :: 35 (40. See special) :: If hits below 10, do 1 extra damage. If hits above 11, do 2 extra damage, if hits above 25, do 3 extra damage, if hits 35, do 5 extra damage and steal 20% special meter. msg $nick %dmlogo !daxe :: 60% :: Either hits 0 or 45 :: Low chance to hit 45. msg $nick %dmlogo DM NORMAL COMMANDS. msg $nick %dmlogo Syntax: Command :: Max hit :: Effect msg $nick %dmlogo !Nwhip :: 30 :: None. msg $nick %dmlogo !Nmaul :: 25 :: Slightly high chance to hit higher. msg $nick %dmlogo !Nanchor :: 35 :: Slightly high chance to hit lower. msg $nick %dmlogo !Ndscim :: 25 :: Regenerate 5% extra special meter this turn. msg $nick %dmlogo OTHER COMMANDS. msg $nick %dmlogo Syntax: Command :: Effect msg $nick %dmlogo !dmstop :: Stops DM. Requires two people to initiate. msg $nick %dmlogo !dmcommands :: Display all commands. This that you are reading IS !dmcommands msg $nick %dmlogo !dmcheck :: Display current Win/Lose record, K/D ratio, gold, items. msg $nick %dmlogo !dmadmin :: For ADMINS. Displays admin commands. msg $nick %dmlogo !dmbuy :: If buying mod is enabled, lets you buy/check items to buy. msg $nick %dmlogo !dmmods :: Checks what mods are currently enabled. } on *:text:!dds*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } dec %dmspec [ $+ [ $nick ] ] 25 set %dmhit1 $rand(0,28) set %dmhit2 $rand(0,28) if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } if (%dmhit2 < 0) { set %dmhit2 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his DDS Special and hits a %dmhit1 and %dmhit2 $+ ! set %dmhit $calc( %dmhit1 + %dmhit2 ) dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!dmace*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } dec %dmspec [ $+ [ $nick ] ] 25 set %dmhit $rand(0,50) if (%dmhit > 25) { set %dmhit $rand(0,55) } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his DMace Special and hits a %dmhit $+ ! dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!anchor*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmspec [ $+ [ $nick ] ] < 50) { notice $nick %dmlogo You do not have enough special meter! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } dec %dmspec [ $+ [ $nick ] ] 50 set %dmhit $rand(0,35) if (%dmhit < 15) { set %dmhit $rand(0,45) } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his Anchor Special and hits a %dmhit $+ ! dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!dscim*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %dmlogo You do not have enough special meter! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } dec %dmspec [ $+ [ $nick ] ] 60 set %dmhit $rand(0,37) set %dmrand1 $rand(1,20) if (%dmrand1 == 1) { set %dmscima yes } set %dmrand2 $rand(1,10) if (%dmrand2 == 1) { set %dmscimb yes } set %dmrand3 $rand(1,2) if (%dmrand3 == 1) { set %dmscimc yes } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his Dscim Special and hits a %dmhit $+ ! if (%dmscima == yes) { msg $chan %dmlogo $nick Also gains an extra _100%_ worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 100 } if (%dmscimb == yes) { msg $chan %dmlogo $nick Also gains an extra _40%_ worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 40 } if (%dmscimc == yes) { msg $chan %dmlogo $nick Also STEALS _10%_ special meter from %dmotherperson $+ ! | inc %dmspec [ $+ [ $nick ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 } dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!whip*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick %dmlogo You do not have enough special meter! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } dec %dmspec [ $+ [ $nick ] ] 55 set %dmhit $rand(0,42) if (%dmhit < 11) { inc %dmhit 1 | set %dmwhip 1 } if (%dmhit > 10) && (%dmhit < 35) { inc %dmhit 2 | set %dmwhip 2 } if (%dmhit == 35) { inc %dmhit 5 | set %dmwhip 5 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his Whip Special and hits a %dmhit $+ , which includes a + $+ %dmwhip bonus! if (%dmwhip == 5) { msg $chan %dmlogo $nick Also steals _20%_ special meter from %dmotherperson $+ ! inc %dmspec [ $+ [ $nick ] ] 20 dec %dmspec [ $+ [ %dmotherperson ] ] 20 } dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!daxe*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %dmlogo You do not have enough special meter! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } dec %dmspec [ $+ [ $nick ] ] 60 set %dmhit $rand(1,5) if (%dmhit < 2) { set %dmhit 0 } if (%dmhit > 3) { set %dmhit 65 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his Daxe Special and hits a %dmhit $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!nwhip*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } set %dmhit $rand(0,42) if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his Whip and hits a %dmhit $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!nmaul*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } set %dmhit $rand(0,4) if (%dmhit != 4) { set %dmhit $rand(0,30) } if (%dmhit == 4) { set %dmhit $rand(15,25) } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his maul and hits a %dmhit $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!nanchor*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } set %dmhit $rand(0,4) if (%dmhit != 4) { set %dmhit $rand(0,40) } if (%dmhit == 4) { set %dmhit $rand(0,21) } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his anchor and hits a %dmhit $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } on *:text:!ndscim*:#:{ if (%otherdmbot == yes) { HALT } if ($nick == %dmnick1) { set %dmotherperson %dmnick2 } if ($nick == %dmnick2) { set %dmotherperson %dmnick1 } if (%chandm != $chan) { HALT } if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT } if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT } if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT } if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT } set %dmhit $rand(0,30) if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) } if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 } } if (%dmhit < 0) { set %dmhit 0 } if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 } msg $chan %dmlogo $nick uses his dscim and hits a %dmhit $+ , and also regenerates an extra 5% special meter! inc %dmspec [ $+ [ $nick ] ] 5 dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $nick %dmotherperson notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar. } alias dmregen { if (%otherdmbot == yes) { HALT } inc %dmspec [ $+ [ $1 ] ] 5 if (%dmspec [ $+ [ $1 ] ] > 100) { set %dmspec [ $+ [ $1 ] ] 100 } set %dmturn $2 msg %chandm %dmlogo It is now $2 $+ 's turn! if (%dmhealth [ $+ [ %dmnick1 ] ] > 99) { set %dmhealth [ $+ [ %dmnick1 ] ] 99 } if (%dmhealth [ $+ [ %dmnick2 ] ] > 99) { set %dmhealth [ $+ [ %dmnick2 ] ] 99 } if (%dmturn != $me) { timer 01 02 msg %chandm %dmlogo Health: %dmnick1 $+ (05 $+ %dmhealth [ $+ [ %dmnick1 ] ] $+ ) %dmnick2 $+ (05 $+ %dmhealth [ $+ [ %dmnick2 ] ] $+ ) timer 01 02 unset %dmwait } set %dmwait on dmcheck } alias dmcheck { if (%otherdmbot == yes) { HALT } if (%dmhealth [ $+ [ %dmnick1 ] ] < 1) { msg %chandm %dmlogo %dmnick1 has fallen to the ground, while %dmnick2 celebrates a glorious win! %dmnick2 wins! inc %losedm [ $+ [ %dmnick1 ] ] inc %winsdm [ $+ [ %dmnick2 ] ] set %golddm1 $rand(150,500) set %golddm2 $rand(50,150) set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick2 ] ] - %dmhealth [ $+ [ %dmnick1 ] ] + %dmspec [ $+ [ %dmnick2 ] ] - %dmspec [ $+ [ %dmnick1 ] ]) if (%dmnick2 != $me) { notice %dmnick2 You win04 %golddm1 Gold! } if (%dmnick1 != $me) { notice %dmnick1 You win04 %golddm2 Gold! } inc %golddm [ $+ [ %dmnick1 ] ] %golddm2 inc %golddm [ $+ [ %dmnick2 ] ] %golddm1 inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm2 inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm1 if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] } if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] } unset %listdm2* unset %dm* halt } if (%dmhealth [ $+ [ %dmnick2 ] ] < 1) { msg %chandm %dmlogo %dmnick2 has fallen to the ground, while %dmnick1 celebrates a glorious win! %dmnick1 wins! inc %losedm [ $+ [ %dmnick2 ] ] inc %winsdm [ $+ [ %dmnick1 ] ] set %golddm1 $rand(150,500) set %golddm2 $rand(50,150) set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick1 ] ] - %dmhealth [ $+ [ %dmnick2 ] ] + %dmspec [ $+ [ %dmnick1 ] ] - %dmspec [ $+ [ %dmnick2 ] ]) if (%dmnick1 != $me) { notice %dmnick1 You win04 %golddm1 Gold! } if (%dmnick2 != $me) { notice %dmnick2 You win04 %golddm2 Gold! } inc %golddm [ $+ [ %dmnick1 ] ] %golddm1 inc %golddm [ $+ [ %dmnick2 ] ] %golddm2 inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm1 inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm2 if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] } if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] } unset %listdm2* unset %dm* halt } dmaiturn } on *:load:{ set %dmlogo 04[05DM04] unset %dm* :genderdm set %genderdm $?="Are you a guy or girl? Please type GUY or GIRL." if (%genderdm == guy) { set %genderdm his } if (%genderdm == girl) { set %genderdm her } if (%genderdm != her) && (%genderdm != his) { goto genderdm } set %buydmmod $?="Do you want Buy Mod enabled? (Lets people buy items with gold they earn, recommended.) $+ $crlf $+ Answer Y/N." if (%admindm == y) || (%admindm == yes) { set %buydmmod yes } if (%admindm == n) || (%admindm == no) { set %buydmmod no } :admindm set %admindm $?="Do you want any Admins? (They can edit basically anything, even during a game. Only aliases of course. $+ $crlf $+ Answer Y/N." if (%admindm == y) || (%admindm == yes) { set %admindm yes set %adminsdm $?="What are the nicks of what Admins you want? Type a comma inbetween each. No spaces." } if (%admindm == n) || (%admindm == no) { set %admindm no } if (%admindm != yes) && (%admindm != no) && (%admindm != y) && (%admindm != n) { goto admindm } set %chandm $?="What channel do you want your DM script to be in? (Default: #chatdm )" set %copymod $?="Do you want CopyMod Beta on? (While fighting the bot, it imitates your items. (YES/NO, Y/N)" if (%copymod == n) { set %copymod no } if (%copymod == y) { set %copymod yes } } alias dmadmins { if (%otherdmbot == yes) { HALT } if ($1 == $null) { set %adminsdm $?="What are the nicks of people you want as admins?" halt } set %adminsdm $1- halt } on *:text:!dmadmin*:#: { if (%otherdmbot == yes) { HALT } if ($nick !isin %adminsdm) { notice $nick %dmlogo You are not an admin! | HALT } if ($2 == commands) || ($2 == $null) { msg $nick %dmlogo ADMIN COMMANDS msg $nick %dmlogo An underlined line means YOU put that info in. msg $nick %dmlogo If something is bold underlined, it means it is optional. msg $nick %dmlogo Syntax: Command - What it does msg $nick %dmlogo !dmadmin edit type amount other - Edits type to amount. msg $nick %dmlogo EDIT COMMANDS (type) msg $nick %dmlogo !dmadmin edit hp amount person - Edits person's Health to amount msg $nick %dmlogo !dmadmin edit wins amount person - Edits person's Win amount to amount msg $nick %dmlogo !dmadmin edit loses amount person - Edits person's Lose amount to amount msg $nick %dmlogo !dmadmin edit special amount person - Edits person's Special Meter to amount msg $nick %dmlogo !dmadmin edit vote amount - Edits the current amount of votes to end the game to amount msg $nick %dmlogo !dmadmin edit gold amount person - Edits person's gold amount to amount msg $nick %dmlogo !dmadmin edit person number person - Changes number's game position to person's. If person is unspecified, it's you. msg $nick %dmlogo !dmadmin edit copymod on/off - Changed Copy Mod to On or Off msg $nick %dmlogo !dmadmin edit buydmmod on/off - Changed Buying Mod to On or Off msg $nick %dmlogo DM NUMBER SYNTAX FOR ABOVE COMMAND: number 1: person who first said !DM. number 2: person who accepted DM by typing !DM second. msg $nick %dmlogo More commmands to be coming. Admin in beta mode currently. halt } if ($2 == edit) { if ($3 == gold) { set %golddm [ $+ [ $5 ] ] $4 notice $nick %dmlogo $5 $+ 's Gold set to $4 $+ . halt } if ($3 == hp) { set %dmhealth [ $+ [ $5 ] ] $4 notice $nick %dmlogo $5 $+ 's Health set to $4 $+ . halt } if ($3 == wins) { set %winsdm [ $+ [ $5 ] ] $4 notice $nick %dmlogo $5 $+ 's Wins set to $4 $+ . halt } if ($3 == loses) { set %losedm [ $+ [ $5 ] ] $4 notice $nick %dmlogo $5 $+ 's Loses set to $4 $+ . halt } if ($3 == special) { set %dmspec [ $+ [ $5 ] ] $4 notice $nick %dmlogo $5 $+ 's Special Meter set to $4 $+ . halt } if ($3 == vote) { set %dmstopcount $4 notice $nick %dmlogo Votes to end the game now $4 $+ . halt } if ($3 == copymod) { if ($4 != on) && ($4 != off) { notice $nick %dmlogo Please type !dmadmin edit copymod on/off halt } set %copymod $4 notice $nick %dmlogo CopyMod now $4 halt } if ($3 == buydmmod) { if ($4 != on) && ($4 != off) { notice $nick %dmlogo Please type !dmadmin edit buydmmod on/off halt } set %copymod $4 notice $nick %dmlogo Buying Mod now $4 halt } } if ($3 == person) { if ($5 == $null) { if ($4 == 1) { if (%dmturn == %dmnick1) { set %dmturn $nick } set %dmhealth [ $+ [ $nick ] ] %dmhealth [ $+ [ %dmnick1 ] ] set %dmspec [ $+ [ $nick ] ] %dmspec [ $+ [ %dmnick1 ] ] notice $nick %dmlogo You are now in the place of %dmnick1 $+ . msg %dmchan %dmlogo $nick is now in the place of %dmnick1 $+ . set %dmnick1 $nick halt } if ($4 == 2) { if (%dmturn == %dmnick2) { set %dmturn $nick } set %dmhealth [ $+ [ $nick ] ] %dmhealth [ $+ [ %dmnick2 ] ] set %dmspec [ $+ [ $nick ] ] %dmspec [ $+ [ %dmnick2 ] ] notice $nick %dmlogo You are now in the place of %dmnick2 $+ . msg %dmchan %dmlogo $nick is now in the place of %dmnick2 $+ . set %dmnick1 $nick halt } } if ($5 != $null) { if ($4 == 1) { if (%dmturn == %dmnick1) { set %dmturn $5 } set %dmhealth [ $+ [ $5 ] ] %dmhealth [ $+ [ %dmnick1 ] ] set %dmspec [ $+ [ $5 ] ] %dmspec [ $+ [ %dmnick1 ] ] notice $nick %dmlogo $5 is now in the place of %dmnick1 $+ . msg %dmchan %dmlogo $5 is now in the place of %dmnick1 $+ . set %dmnick1 $nick halt } if ($4 == 2) { if (%dmturn == %dmnick2) { set %dmturn $5 } set %dmhealth [ $+ [ $5 ] ] %dmhealth [ $+ [ %dmnick2 ] ] set %dmspec [ $+ [ $5 ] ] %dmspec [ $+ [ %dmnick2 ] ] notice $nick %dmlogo $5 is now in the place of %dmnick2 $+ . msg %dmchan %dmlogo $5 is now in the place of %dmnick2 $+ . set %dmnick1 $nick halt } } } } alias chandm { if ($1 == $null) { echo -a %dmlogo Setting ( $+ %chandm $+ ) to $active set %chandm $active halt } echo -a %dmlogo Setting ( $+ %chandm $+ ) to $1- set %chandm $1- halt } alias dmend { if (%otherdmbot == yes) { HALT } if (%dmnick2 == $null) { msg %chandm %dmlogo Nobody has replied to %dmnick1 $+ 's DM request within 15 seconds! I will face you! if (%copymod == yes) { set %listdm2 [ $+ [ $me ] ] %listdm [ $+ [ $me ] ] set %listdm [ $+ [ $me ] ] %listdm [ $+ [ %dmnick1 ] ] } set %dmai on set %dmnick2 $me set %dm on set %dmrand $rand(1,2) if (%dmrand == 1) { set %dmturn %dmnick1 } if (%dmrand == 2) { set %dmturn %dmnick2 } msg %chandm %dmlogo DM started between %dmnick1 and %dmnick2 $+ ! msg %chandm %dmlogo To see commands, type !dmcommands $+ ! msg %chandm %dmlogo Random pick... %dmturn goes first! msg %chandm %dmlogo For current mods running, type !dmmods! set %dmspec [ $+ [ %dmnick1 ] ] 100 set %dmspec [ $+ [ %dmnick2 ] ] 100 set %dmhealth [ $+ [ %dmnick1 ] ] 99 set %dmhealth [ $+ [ %dmnick2 ] ] 99 dmaiturn } } on *:text:!dmmods*:#: { if (%dmcommands == on) { notice $nick %dmlogo Currently sending somebody else the mods. notice $nick %dmlogo Please try again in 10 seconds. halt } set %dmcommands on timer 01 10 unset %dmcommands if (%copymod == yes) { notice $nick %dmlogo CopyMod Beta is enabled! When you face the bot, it will copy your items! } if (%buydmmod == yes) { notice $nick %dmlogo BuyingMod Beta is enabled! You can buy items for initial use all the time. Type !dmbuy for more info. } if (%admindm == yes) { notice $nick %dmlogo AdminDM Beta is enabled! Certain people get to use admin commands! notice $nick %dmlogo AdminDM Beta is enabled! Admins: %adminsdm } } on *:text:!dmbuy*:#: { if (%otherdmbot == yes) { HALT } if (%buydmmod != yes) { msg nick %dmlogo This bot has DM Buying Mod turned OFF. | HALT } if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 } if ($2 == $null) || ($2 == list) { if (%dmcommands == on) { notice $nick %dmlogo Currently sending somebody else the commands. notice $nick %dmlogo Please try again in 15 seconds. halt } set %dmcommands on timer 01 20 unset %dmcommands msg $chan %dmlogo Sending $nick DM Items To Buy List. msg $chan %dmlogo Please wait 15-20 seconds before using another command. msg $nick %dmlogo ITEMS TO BUY LIST msg $nick %dmlogo TO BUY: !dmbuy buy item msg $nick %dmlogo Syntax: Item - Price - Effect msg $nick %dmlogo Health_Boost1 - 1500 - Increases your health by 1 hp each turn. msg $nick %dmlogo Health_Boost5 - 5000 - Increases your health by 5 hp each turn. msg $nick %dmlogo Health_Boost10 - 9500 - Increases your health by 10 hp each turn. msg $nick %dmlogo Special_Boost100 - 20000 - Infinite special meter. msg $nick %dmlogo Special_Boost50 - 12000 - Increases your special meter by 50 each turn. msg $nick %dmlogo Special_Boost15 - 7000 - Increases your special meter by 15 each turn. msg $nick %dmlogo Special_Boost10 - 5000 - Increases your special meter by 10 each turn. msg $nick %dmlogo Special_Boost5 - 2500 - Increases your special meter by 5 each turn. msg $nick %dmlogo Extra_Damage - 10000 - Hits an extra 5 damage every hit. msg $nick %dmlogo Weak_Armor - 1500 - Get inflicted with 1 less damage every hit. msg $nick %dmlogo Med_Armor - 2500 - Get inflicted with 2 less damage every hit. msg $nick %dmlogo Strong_Armor - 10000 - Get inflicted with 5 less damage every hit. msg $nick %dmlogo Inc_Wins1 - 4000 - Increase your wins by 1 win. msg $nick %dmlogo Inc_Wins5 - 15000 - Increase your wins by 5 wins. msg $nick %dmlogo Dec_Loses1 - 5000 - Decrease your loses by 1 lose. msg $nick %dmlogo Dec_Loses5 - 20000 - Decrease your loses by 5 loses. msg $nick %dmlogo Dm Beta Buying Mod } if ($2 == buy) { if ($3 isin %listdm [ $+ [ $nick ] ]) { notice $nick You already have $3 $+ ! halt } if ($3 == dec_lose1) { if (%golddm [ $+ [ $nick ] ] < 5000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 5000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] dec %losedm [ $+ [ $nick ] ] 1 } if ($3 == dec_lose5) { if (%golddm [ $+ [ $nick ] ] < 20000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 20000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] dec %losedm [ $+ [ $nick ] ] 5 } if ($3 == inc_wins5) { if (%golddm [ $+ [ $nick ] ] < 15000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 15000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] inc %winsdm [ $+ [ $nick ] ] 5 } if ($3 == inc_wins1) { if (%golddm [ $+ [ $nick ] ] < 4000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 4000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] inc %winsdm [ $+ [ $nick ] ] 1 } if ($3 == strong_armor) { if (%golddm [ $+ [ $nick ] ] < 10000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 10000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == med_armor) { if (%golddm [ $+ [ $nick ] ] < 2500) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 2500 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == weak_armor) { if (%golddm [ $+ [ $nick ] ] < 1500) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 1500 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == extra_damage) { if (%golddm [ $+ [ $nick ] ] < 10000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 10000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == special_boost5) { if (%golddm [ $+ [ $nick ] ] < 2500) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 2500 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == special_boost10) { if (%golddm [ $+ [ $nick ] ] < 5000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 5000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == special_boost15) { if (%golddm [ $+ [ $nick ] ] < 7000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 7000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == special_boost50) { if (%golddm [ $+ [ $nick ] ] < 12000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 12000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == special_boost100) { if (%golddm [ $+ [ $nick ] ] < 20000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 20000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == health_boost1) { if (%golddm [ $+ [ $nick ] ] < 1500) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 1500 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == health_boost5) { if (%golddm [ $+ [ $nick ] ] < 5000) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 5000 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } if ($3 == health_boost10) { if (%golddm [ $+ [ $nick ] ] < 9500) { notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold! halt } if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 } if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 } dec %golddm [ $+ [ $nick ] ] 9500 msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ] msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ] } } } alias dmaiturn { if (%otherdmbot == yes) { HALT } if (%dmai == on) { if (%dmturn == $me) { if (%dmspec [ $+ [ $me ] ] > 59) { set %dmrand $rand(1,6) goto %dmrand } if (%dmspec [ $+ [ $me ] ] > 54) && (%dmspec < 60) { set %dmrand $rand(1,4) goto %dmrand } if (%dmspec [ $+ [ $me ] ] > 49) && (%dmspec < 55) { set %dmrand $rand(1,3) goto %dmrand } if (%dmspec [ $+ [ $me ] ] > 24) && (%dmspec < 50) { set %dmrand $rand(1,2) goto %dmrand } if (%dmspec [ $+ [ $me ] ] < 25) { set %dmrand $rand(7,10) goto %dmrand } :10 if (%dmrand == 10) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !ndscim set %dmhit1 $rand(0,25) if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Dscim and hits a %dmhit1 $+ , and also regenerates an extra 5% special meter! inc %dmspec [ $+ [ $me ] ] 5 dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :9 if (%dmrand == 9) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !nanchor set %dmhit1 $rand(0,4) if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%dmhit1 != 4) { set %dmhit1 $rand(0,35) } if (%dmhit1 == 4) { set %dmhit1 $rand(0,21) } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Anchor and hits a %dmhit1 $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :8 if (%dmrand == 8) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !nmaul set %dmhit1 $rand(0,4) if (%dmhit1 != 4) { set %dmhit1 $rand(0,25) } if (%dmhit1 == 4) { set %dmhit1 $rand(15,25) } if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Maul and hits a %dmhit1 $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :7 if (%dmrand == 7) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !nwhip set %dmhit1 $rand(0,30) if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Whip and hits a %dmhit1 $+ . dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :6 if (%dmrand == 6) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !daxe dec %dmspec [ $+ [ $me ] ] 60 set %dmhit1 $rand(1,5) if (%dmhit < 2) { set %dmhit 0 } if (%dmhit > 3) { set %dmhit 45 } if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Daxe Special and hits a %dmhit1 $+ ! dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :5 if (%dmrand == 5) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !dscim dec %dmspec [ $+ [ $me ] ] 60 set %dmhit1 $rand(0,35) set %dmrand1 $rand(1,20) if (%dmrand1 == 1) { set %dmscima yes } set %dmrand2 $rand(1,10) if (%dmrand2 == 1) { set %dmscimb yes } set %dmrand3 $rand(1,2) if (%dmrand3 == 1) { set %dmscimc yes } if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm DScim Special and hits a %dmhit1 $+ ! if (%dmscima == yes) { msg %chandm %dmlogo $me Also gains an extra _100%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 100 } if (%dmscimb == yes) { msg %chandm %dmlogo $me Also gains an extra _40%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 40 } if (%dmscimc == yes) { msg %chandm %dmlogo $me Also STEALS _10%_ special meter from %dmotherperson $+ ! | inc %dmspec [ $+ [ $me ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 } dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :4 if (%dmrand == 4) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !whip dec %dmspec [ $+ [ $me ] ] 55 set %dmhit1 $rand(0,35) if (%dmhit1 < 11) { inc %dmhit1 1 | set %dmwhip 1 } if (%dmhit1 > 10) && (%dmhit1 < 35) { inc %dmhit1 2 | set %dmwhip 2 } if (%dmhit1 == 35) { inc %dmhit1 5 | set %dmwhip 5 } if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Whip Special and hits a %dmhit1 $+ , which includes a + $+ %dmwhip bonus! if (%dmwhip == 5) { msg %chandm %dmlogo $me Also steals _20%_ special meter from %dmotherperson $+ ! inc %dmspec [ $+ [ $me ] ] 20 dec %dmspec [ $+ [ %dmotherperson ] ] 20 } dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :3 if (%dmrand == 3) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !anchor dec %dmspec [ $+ [ $me ] ] 50 set %dmhit1 $rand(0,35) if (%dmhit1 < 15) { set %dmhit1 $rand(0,40) } if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm Anchor Special and hits a %dmhit1 $+ ! dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :2 if (%dmrand == 2) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !dmace dec %dmspec [ $+ [ $me ] ] 25 set %dmhit1 $rand(0,50) if (%dmhit1 > 25) { set %dmhit1 $rand(0,50) } if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } msg %chandm %dmlogo $me uses %genderdm DMace Special and hits a %dmhit1 $+ ! dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1 dmregen $me %dmotherperson } } } :1 if (%dmrand == 1) { if (%dmai == on) { if (%dmturn == $me) { if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } msg %chandm !dds dec %dmspec [ $+ [ $me ] ] 25 set %dmhit1 $rand(0,23) set %dmhit2 $rand(0,23) if ($me == %dmnick1) { set %dmotherperson %dmnick2 } if ($me == %dmnick2) { set %dmotherperson %dmnick1 } if (%buydmmod == yes) { if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) } if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) } if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) } if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) } if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 } if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 } if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 } if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 } if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 } if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 } if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 } if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 } } if (%dmhit1 < 0) { set %dmhit1 0 } if (%dmhit2 < 0) { set %dmhit2 0 } msg %chandm %dmlogo $me uses %genderdm DDS Special and hits a %dmhit1 and %dmhit2 $+ ! set %dmhit $calc( %dmhit1 + %dmhit2 ) dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit dmregen $me %dmotherperson } } } } } } on *:text:!dmcheck*:#:{ if (%chandm != $chan) { notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing! HALT } if (%otherdmbot == yes) { HALT } if ($2 == $null) { if (%winsdm [ $+ [ $nick ] ] == $null) { set %winsdm [ $+ [ $nick ] ] 0 } if (%losedm [ $+ [ $nick ] ] == $null) { set %losedm [ $+ [ $nick ] ] 0 } if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 } notice $nick %dmlogo You have ( $+ %golddm [ $+ [ $nick ] ] $+ ) Gold. notice $nick %dmlogo Gold earned to date: ( $+ %allgolddm [ $+ [ $nick ] ] $+ ) $+ . if (%buydmmod == yes) { notice $nick %dmlogo You're Item List: %listdm [ $+ [ $nick ] ] } notice $nick %dmlogo Wins: ( $+ %winsdm [ $+ [ $nick ] ] $+ ) notice $nick %dmlogo Loses: ( $+ %losedm [ $+ [ $nick ] ] $+ ) if (%losedm [ $+ [ $nick ] ] != 0) { notice $nick %dmlogo Win Ratio: Everytime you lose, you average ( $+ $calc( %winsdm [ $+ [ $nick ] ] / %losedm [ $+ [ $nick ] ] ) $+ ) wins. } if (%losedm [ $+ [ $nick ] ] == 0) { notice $nick %dmlogo Win Ratio: Everytime you lose, you average ( $+ %winsdm [ $+ [ $nick ] ] $+ ) wins. } halt } if (%winsdm [ $+ [ $2 ] ] == $null) { set %winsdm [ $+ [ $2 ] ] 0 } if (%losedm [ $+ [ $2 ] ] == $null) { set %losedm [ $+ [ $2 ] ] 0 } if (%golddm [ $+ [ $2 ] ] == $null) { set %golddm [ $+ [ $2 ] ] 0 } notice $nick %dmlogo $2 has ( $+ %golddm [ $+ [ $2 ] ] $+ ) Gold. notice $nick %dmlogo $2 $+ 's Gold earned to date: ( $+ %allgolddm [ $+ [ $2 ] ] $+ ) $+ . if (%buydmmod == yes) { notice $nick %dmlogo $2 $+ 's Item List: %listdm [ $+ [ $2 ] ] } notice $nick %dmlogo $2 $+ 's Wins: ( $+ %winsdm [ $+ [ $2 ] ] $+ ) notice $nick %dmlogo $2 $+ 's Loses: ( $+ %losedm [ $+ [ $2 ] ] $+ ) if (%losedm [ $+ [ $2 ] ] == 0) { notice $nick %dmlogo $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ %winsdm [ $+ [ $2 ] ] $+ ) wins. } if (%losedm [ $+ [ $2 ] ] != 0) { notice $nick %dmlogo $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ $calc( %winsdm [ $+ [ $2 ] ] / %losedm [ $+ [ $2 ] ] ) $+ ) wins. } halt } on *:text:!dmstop*:#:{ if (%chandm != $chan) { notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing! HALT } if (%otherdmbot == yes) { HALT } if (%dm != on) { notice $Nick %dmlogo No game is currently running! halt } if (%dmstopcount == $null) { set %dmstopcount 1 msg %chandm %dmlogo There is now 1 vote to end the game! halt } if (%dmstopcount == 1) { msg %chandm %dmlogo Ending game! unset %dm* halt } } on *:text:!stopdm*:#:{ if (%chandm != $chan) { notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing! HALT } if (%otherdmbot == yes) { HALT } if (%dm != on) { notice $Nick %dmlogo No game is currently running! halt } if (%dmstopcount == $null) { set %dmstopcount 1 msg %chandm %dmlogo There is now 1 vote to end the game! halt } if (%dmstopcount == 1) { msg %chandm %dmlogo Ending game! unset %dm* halt } } on *:text:!dm*:#:{ if (%chandm != $chan) { notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing! HALT } if (%otherdmbot == yes) { HALT } if ($chan == %chandm) { if (%dmfixing == yes) { msg %chandm %dmlogo DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly. halt } } if (%dmfixing == yes) { notice $nick %dmlogo DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly. halt } if ($1 == !dm) { if (%dm == on) { notice $Nick %dmlogo A dm is already running! Have 2 people type !dmstop to stop it! halt } if ($chan != %chandm) { notice $nick %dmlogo This is the wrong channel for DMing! Please goto %chandm to DM! halt } if (%dmstart == $null) { msg %chandm %dmlogo A DM request has been opened! One more person needs to type !DM to join! timer 01 15 dmend unset %dm* set %dmnick1 $nick set %dmstart yes halt } if (%dmstart == yes) { if (%dmnick1 != $nick) { set %dmnick2 $nick set %dm on msg %chandm %dmlogo DM started between %dmnick1 and %dmnick2 $+ ! msg %chandm %dmlogo To see commands, type !dmcommands $+ ! set %dmrand $rand(1,2) if (%dmrand == 1) { set %dmturn %dmnick1 } if (%dmrand == 2) { set %dmturn %dmnick2 } set %dmspec [ $+ [ %dmnick1 ] ] 100 set %dmspec [ $+ [ %dmnick2 ] ] 100 set %dmhealth [ $+ [ %dmnick1 ] ] 99 set %dmhealth [ $+ [ %dmnick2 ] ] 99 msg %chandm %dmlogo Random pick... %dmturn goes first! } } } menu channel { .Default Settings:/default .Set Away:/a $$?="Enter an away reason:" .Set Back:/back .Auto-reply On:/set %nickmsg on .Auto-reply Off:/set %nickmsg off .Away Tag:/set %tag $$?="Enter your away tag:" } alias default { set %a off set %tag [A] set %nickmsg on set %name $me echo -ta Settings has been set to default! } alias a { away $1- set %a on ame is now away! Reason: $1- nick $me $+ %tag } alias back { away set %a off nick $remove($me,%tag) ame is no longer away! Away Time: $duration($awaytime,23) } on *:TEXT:%name:#: { if ( %a == on ) && ( %nickmsg == on ) && ( %chan.flood != 1 ) { set -u90 %chan.flood 1 msg $chan I'm currently away from IRC. Awaymsg: $awaymsg } elseif ( %nickmsg == off ) { halt } else { halt } } on *:TEXT:*:?: { if ( %a == on ) && ( %nickmsg == on ) && ( %query.flood != 1 ) { set -u60 %query.flood 1 msg $nick I'm currently away from IRC. Awaymsg: $awaymsg } elseif ( %nickmsg == off ) { halt } else { halt } } alias amsg { var %a $comchan($me,0) while (%a) { if (!$istok($blockchans,$comchan($me,%a),32)) { msg $comchan($me,%a) $1- } dec %a } } alias blockchans return #BNC #mSL #IRChelp #help #support #metal #mafia #nutz #nutz-lobby #chat alias chspy { dialog -dm spy spy } dialog spy { title "Ttamdy1 Channel Spy" size -1 -1 120 110 option dbu tab "Spy",1, 5 5 110 95 tab "Receiver",2 tab "Setup",26 tab "About",3 button "Done",4,6 110 40 10, OK button "Cancel",5,75 110 40 10, Cancel box "Channel to Spy",20, 10 23 100 70,tab 1 edit "",6, 15 35 90 11,AutoHs,tab 1 text "Current Spying Channel",21",30 50 70 10,tab 1 edit "",22, 15 60 90 11,AutoHs read,tab 1 button "Add",8, 15 80 20 10,tab 1 button "Remove",9, 75 80 30 10,tab 1 box "Channel to report Spy",10, 10 23 100 70,tab 2 edit "",11, 15 35 90 11,AutoHs,tab 2 text "Current Spying Channel",12",30 50 70 10,tab 2 edit "",13, 15 60 90 11,AutoHs read,tab 2 button "Add",23, 15 80 20 10,tab 2 button "Remove",24, 75 80 30 10,tab 2 text "Ace Channel Spy",14,17 25 90 10,tab 3 text "Written by ttamdy1 ",15,17 35 90 10,tab 3 text "Email: ttamdy1@hotmail.com",16,17 45 90 10,tab 3 text "Homepage:None",17,17 55 90 10,tab 3 text "Channel: #Outlaw_Bar",18,17 65 90 10,tab 3 text "Enjoy Spying On Others",19,17 75 97 10,tab 3 check "Texts",31,10 25 35 10,tab 26 check "Actions",27,10 35 35 10,tab 26 check "Joins",28,10 45 35 10,tab 26 check "Parts",29,10 55 35 10,tab 26 check "Quits",30,10 65 35 10,tab 26 check "Nicks",32,10 75 35 10,tab 26 check "Kicks",33,10 85 35 9,tab 26 check "Ops",34,75 26 35 10,tab 26 check "Deops",35,75 36 35 10,tab 26 check "Voices",36,75 46 35 10,tab 26 check "Devoices",37,75 56 35 10,tab 26 check "Bans",38,75 66 35 10,tab 26 check "Unbans",39,75 76 35 10,tab 26 check "Topics",40,75 86 35 10,tab 26 check "Modes",41,10 95 35 9,tab 26 text "S",43,50 29 5 7,tab 26 text "E",44,50 40 5 7,tab 26 text "T",45,50 51 5 7,tab 26 text "U",46,50 62 5 7,tab 26 text "P",47,50 73 5 7,tab 26 text "Setup Events to Spy",48,50 97 60 7,tab 26 } on 1:DIALOG:spy:init:*: { did -a spy 22 %spy1 did -a spy 13 %spy2 did -a spy 6 %spy1 did -a spy 11 %spy2 if (%chtext == ON) { did -c spy 31 } if (%chjoin == ON) { did -c spy 28 } if (%chaction == ON) { did -c spy 27 } if (%chpart == ON) { did -c spy 29 } if (%chquit == ON) { did -c spy 30 } if (%chnick == ON) { did -c spy 32 } if (%chkick == ON) { did -c spy 33 } if (%chops == ON) { did -c spy 34 } if (%chdeops == ON) { did -c spy 35 } if (%chvoice == ON) { did -c spy 36 } if (%chdevoice == ON) { did -c spy 37 } if (%chban == ON) { did -c spy 38 } if (%chunban == ON) { did -c spy 39 } if (%chtopic == ON) { did -c spy 40 } if (%chmode == ON) { did -c spy 41 } } on 1:DIALOG:spy:sclick:8: { set %spy1 $did(6) did -a spy 22 %spy1 enable #chspy } on 1:DIALOG:spy:sclick:9: { did -r spy 22 did -r spy 6 unset %spy1 disable #chspy } on 1:DIALOG:spy:sclick:23: { set %spy2 $did(11) did -a spy 13 %spy2 enable #chspy } on 1:DIALOG:spy:sclick:24: { did -r spy 13 did -r spy 11 unset %spy2 disable #chspy } on 1:DIALOG:spy:sclick:*: { if ($did(31).state == 1) { set %chtext ON } else { unset %chtext } if ($did(28).state == 1) { set %chjoin ON } else { unset %chjoin } if ($did(27).state == 1) { set %chaction ON } else { unset %chaction } if ($did(29).state == 1) { set %chpart ON } else { unset %chpart } if ($did(30).state == 1) { set %chquit ON } else { unset %chquit } if ($did(32).state == 1) { set %chnick ON } else { unset %chnick } if ($did(33).state == 1) { set %chkick ON } else { unset %chkick } if ($did(34).state == 1) { set %chops ON } else { unset %chops } if ($did(35).state == 1) { set %chdeops ON } else { unset %chdeops } if ($did(36).state == 1) { set %chvoice ON } else { unset %chvoice } if ($did(37).state == 1) { set %chdevoice ON } else { unset %chdevoice } if ($did(38).state == 1) { set %chban ON } else { unset %chban } if ($did(39).state == 1) { set %chunban ON } else { unset %chunban } if ($did(40).state == 1) { set %chtopic ON } else { unset %chtopic } if ($did(41).state == 1) { set %chmode ON } else { unset %chmode } } #chspy off on *:TEXT:*:%spy1: { if (%chtext == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3?4 $$+ $nick $$+ 3?14 $1- } else { halt } } on *:ACTION:*:%spy1: { if (%chaction == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 6?4 $nick 14 $1- } else { halt } } on *:JOIN:%spy1: { if (%chjoin == ON) { msg %spy2 3*** $nick ( $+ $mask($address,3) $+ ) has joined %spy1 } else { halt } } on *:PART:%spy1: { if (%chpart == ON) { msg %spy2 3*** $nick ( $+ $mask($address,3) $+ ) has left %spy1 } else { halt } } on *:QUIT: { if (%chquit == ON) { if ( $nick ison %spy1 ) { msg %spy2 14(3 $+ %spy1 $+ 14) 4*** $nick has quit IRC 3( $+ $1- $+ ) } else { halt } } } on *:NICK: { if (%chnick == ON) { if ($comchan($newnick,1) == %spy1) { msg %spy2 3*** $nick is known as $newnick } else { halt } } } on *:KICK:%spy1: { if (%chkick == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $knick was kicked by $nick ( $+ $2- $+ ) } else { halt } } on *:OP:%spy1: { if (%chops == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick sets +o $opnick } else { halt } } on *:DEOP:%spy1: { if (%chdeops == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick sets -o $opnick } else { halt } } on *:VOICE:%spy1: { if (%chvoice == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick sets +v $vnick } else { halt } } on *:DEVOICE:%spy1: { if (%chdevoice == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick sets -v $vnick } else { halt } } on *:BAN:%spy1: { if (%chban == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick sets +b $bnick } else { halt } } on *:UNBAN:%spy1: { if (%chunban == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick sets -b $1- } else { halt } } on *:TOPIC:%spy1: { if (%chtopic == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick changes topic to ' $+ $chan(%spy1).topic ' } else { halt } } on *:MODE:%spy1: { if (%chmode == ON) { msg %spy2 14(3 $+ %spy1 $+ 14) 3*** $nick set mode $1- } else { halt } } on $*:TEXT:/^[!@]team/Si:#soul-reapers:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { notice $nick 3 the team is: %team 12, do not loaf, afk, leak, or anything else against the rules. Also be sure you help out and work as a team! Thanks, Matt. (Ttamdy1) } on *:INPUT:#: { if ($1 == +eI) && (!$2) { mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2) | Halt } if ($2) && ($1 == .eI) { mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2) | Halt } if ($1 == .add) || ($1 == .del) || ($1 == .list) { cs access $chan $remove($1,.) $2- } if ($1 == .add) && ($3 isnum) { mode $chan $iif($3 == 3,+v) $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5) } if ($left($1,1) == +) || ($left($1,1) == -) { $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2)) } if ($1 == .mode) && (!$2) { mode $chan $2- | halt } } on *:START:{ timestamp -f 4(14h:nn:ssTT4) color background 1 color editbox 1 color editbox text 0 color treebar 1 color treebar text 14 color listbox 1 color listbox text 4 color whois 4 color topic 4 color notice 5 color inactive 1 color normal 0 color own 0 font verdana 9 } menu channel,menubar,nicklist { Address Tracking .$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: { var %status = $iif($group(#Addtrack) == on,Disable,Enable) $+(.,%status) #Addtrack echo 7 -at * 14Users previous nicks will —4› $iif(%status == Disable,no longer,now) 14be shown when they join. } .- .$iif($1,Check nicks for $1):CheckNicks $1 .Check nicks for an address: { CheckNicks $+(*!,$$?="14Enter the hostmask you want to check in the format Nick!Ident@Host*") } } on *:start: { hmake Addtrack 100 if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh } on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh #Addtrack on on *:join:#:{ if ($wildsite iswm $address($me,5)) return var %mask = $mask($fulladdress,3) if ($hget(Addtrack,%mask)) { var %usednicks = $ifmatch if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan 4- 14[4Nick tracking14]4 $nick 14has also used the nicks:4 $remtok(%usednicks,$nick,1,44) if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44) if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44) } else { hadd -m Addtrack %mask $nick } } on *:nick:{ if ($wildsite iswm $address($me,5)) return var %mask = $mask($fulladdress,3) if ($hget(Addtrack,%mask)) { var %usednicks = $ifmatch if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44) if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44) } else { hadd -m Addtrack %mask $newnick } } #addtrack end alias CheckNicks { if (*!*@* iswm $1) { var %mask = $mask($1,3) if (!$hget(Addtrack,%mask)) echo 3 -ta No entry found for $1 else echo 10 -ta 14Address14 $1 has used the nicks —4› $hget(Addtrack,$1) } elseif (!$hget(Addtrack,$address($1,3))) echo 3 -ta 14No Entry found for —4› $1 $+ 14. elseif ($hget(Addtrack,$address($1,3)) != $1) { var %usednicks = $ifmatch echo 3 -ta 4 $1 14has also used the nicks —4› $remtok(%usednicks,$1,1,43) $+ 14. } else echo 3 -ta —4› $1 14has not been seen on any other nicks. } on *:INPUT:#:{ if (/ == $left($1,1)) && (/say !== $1) { return } if ($me isop $chan) { var %nick = 0-={ 4@ $+ $me $+ 0 }=- } elseif ($me ishop $chan) { var %nick = 0-={ 7% $+ $me $+ 0 }=- } elseif ($me isvoice $chan) { var %nick = 0-={ 12+ $+ $me $+ 0 }=- } else { var %nick 0=-{ 10 $+ $me $+ 0 }=- } if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) { echo $chan 0 $+ %nick $iif($1 == /say,$2-,$1-) } elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) { echo $chan 0 $+ $timestamp %nick $iif($1 == /say,$2-,$1-) } .msg $chan $iif($1 == /say,$2-,$1-) halt } alias amsg { if (!$isid && $server) { var %x = $comchan($me,0) while (%x) { if (!$istok(#mSL #IRChelp #Help, $comchan($me,%x), 32)) { msg $comchan($me, %x) $1- } dec %x } } on *:TEXT:*!rteam*:#soul-reapers:{ if ($nick ishop $chan) msg $chan the random number is: $rand(1,1000) , where 12blue is 12even numbers and 4red is 4odd numbers else { if ($nick isop $chan) msg $chan the random number is: $rand(1,1000) , where 12blue is even numbers and 4red is odd numbers } on *:ACTION:*slaps*:#:{ if ($chan == #bnc) { /halt } if ($2 == $me) { describe $chan deflects the slap and deals $rand(58,9999999999) damage to $nick } } alias sdebug { debug -pt @Debug } on *:TEXT:*!rape*:#:{ if ($chan == #bnc) { /halt } describe $chan calls George Bush and has him rape $2 hard!!!!!!!!! then Al Gore comes in to rape what remains of $2 1. alias amsg { 2. if (!$isid) { 3. ;Checks if it is a /command 4. var %x = $comchan($me,0) 5. ;sets %x to the number of chans you are in 6. while (%x) { 7. ;As long as there is a %x do this 8. if (!$istok(#mSl #irchelp #help #support #SwiftKit #XBNC #BNC, $comchan($me,%x), 32)) { 9. ;makes sure that it doesn't message to any chans you don't want to 10. msg $comchan($me, %x) [Amsg] $1- 11. ;msgs the chans 12. } 13. ;lowers %x to make the while loop work 14. dec %x 15. } 16. } 17. haltdef 18. ;This part stops the normal /amsg from working 19. } on *:TEXT:*!setteam*:#:{ if ($nick != house-) { halt } msg $chan $1- alias setteam { set %team $1- /msg #soul-reapers 13A new team has been set!12 type !team to see the team,3 team has been set %count times. } on *:TEXT:!setteam *:#soul_reapers:{ if ($nick isop $chan) || ($nick ishop $chan) { set %team $2- inc %count msg $chan 4A new team has been set!12 type !team to see the team,3 team has been set %count times. } on *:TEXT:!register*:#soul-reapers:{ msg $chan here is how to register: to your nick with swiftIRC Please type /ns register password password again your@email your@email again. } msg $chan password is one you make up yourself, NOT your rs password, but one you will remember } msg $chan your@email is to be replaced with your email address } msg $chan so an example of what i would do is /ns register crackers crackers ttamdy1@hotmail.com ttamdy1@hotmail.com } msg $chan if crackers were my password and ttamdy1@hotmail.com were my email. } alias red { /setteam Red /msg #soul_reapers !z } alias blue { /setteam Blue /msg #soul_reapers !s on *:TEXT:*!s*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { if ($1 != !s) { halt } set %team Blue /msg #soul-reapers 13A new team has been set!12 type !team to see the team,3 team has been set %count times. } } on *:TEXT:*!z*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { if ($1 != !z) { halt } set %team Red /msg #soul-reapers 13A new team has been set!12 type !team to see the team,3 team has been set %count times. } }