rendered paste bodyTtamdy1'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 == <splitshadow>) {
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.
}
}