rendered paste bodyalias -l c1 { return $+($chr(3),$hget(DM,col1),$1-) }
alias -l c2 { return $+($chr(3),$hget(DM,col2),$1-) }
alias -l CheckPlayer2 { if (!$hget(DM,p2)) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2(30) $c1(secs are up and still not a player 2! Game will now reset.) | .reset } }
alias -l sort { .var %a $gettok($1,1,32),%b $gettok($2,1,32) | .return $iif(%a == %b,0,$iif(%a > %b,-1,1)) }
alias -l cash {
if ($numtok($bytes($1,db),44) isnum 2) { .return $+($left($bytes($1,b),-2),K) }
elseif ($numtok($bytes($1,db),44) isnum 3) { .return $+($left($bytes($1,b),-6),M) }
elseif ($numtok($bytes($1,db),44) >= 4) { .return $+($left($bytes($1,b),-10),B) }
else { return $+($1,gp) }
}
alias -l hiscore {
.var %x = 1
while ($read(money.txt,%x)) {
.write -a money1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
.filter -cffa money1.txt money2.txt sort * | .var %b = 1, %a
while (%b < 11) { .var %a = %a $+($c2,%b,:) $c1($gettok($read(money2.txt,%b),2,32)) $+($c2,$chr(91),$c1,$cash($gettok($read(money2.txt,%b),1,32)),$c2,$chr(93)) | .inc %b }
.remove money1.txt | .remove money2.txt | .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(hiscores),$c1,$chr(41),:) %a $c1($chr(124),Total played:) $c2($bytes($readini(DMsave.ini,Games,Total),db)) $c1(Total players:) $c2($bytes($calc(%x - 1),db)) | .timer 1 $r(1,15) .reset
}
alias -l reward {
if (!$ini(DMprices.ini,0)) { .return $c1(Nothing!) | .halt }
.var %x = 1
while (%x <= 3) {
.var %r = $r(1,$ini(DMprices.ini,prices,0)), %reward = %reward $c1($replace($ini(DMprices.ini,prices,%r),$chr(95),$chr(32))) $+($c2,$chr(91),$c1,$cash($readini(DMprices.ini,prices,$ini(DMprices.ini,prices,%r))),$c2,$chr(93)), %total = $calc(%total + $readini(DMprices.ini,prices,$ini(DMprices.ini,prices,%r)))
.write $+(-s,$1) money.txt $1 $calc($read(money.txt,s,$1) + $readini(DMprices.ini,prices,$ini(DMprices.ini,prices,%r)))
.inc %x
}
.return %reward $c1(Total:) $c2($cash(%total)) $+($c2,$chr(91),$c1,zybez.net,$c2,$chr(93))
}
alias reset {
.mode $hget(DM,channel) -mvv $hget(DM,p1) $hget(DM,p2)
if ($hget(DM,p1)) { .hdel DM p1 }
if ($hget(DM,p2)) { .hdel DM p2 }
if ($hget(DM,turn)) { .hdel DM turn }
if ($hget(price,price)) { .hdel price price }
if ($hget(price,name)) { .hdel price name }
if ($hget(DM,p1.food)) { .hdel DM p1.food }
if ($hget(DM,p1.spec)) { .hdel DM p1.spec }
if ($hget(DM,p1.hp)) { .hdel DM p1.hp }
if ($hget(DM,p2.food)) { .hdel DM p2.food }
if ($hget(DM,p2.spec)) { .hdel DM p2.spec }
if ($hget(DM,p2.hp)) { .hdel DM p2.hp }
if ($hget(DM,hit)) { .hdel DM hit }
if ($hget(DM,hit1)) { .hdel DM hit1 }
if ($hget(DM,p1.frozen)) { .hdel DM p1.frozen }
if ($hget(DM,p2.frozen)) { .hdel DM p2.frozen }
if ($hget(DM,p2.msbspec)) { .hdel DM p2.msbspec }
if ($hget(DM,p1.msbspec)) { .hdel DM p1.msbspec }
if ($hget(DM,heal)) { .hdel DM heal }
if ($hget(DM,p1.gspec)) { .hdel DM p1.gspec }
if ($hget(DM,p2.gspec)) { .hdel DM p2.gspec }
.timers off
}
alias dh {
if ($1 >= 99) { return $r(0,15) }
elseif ($1 >= 50) { return $r(0,35) }
elseif ($1 >= 25) { return $r(0,40) }
elseif ($1 >= 1) { return $r(1,45) }
}
alias hp {
if ($1 >= 99) { return 14l9,9..........1,09999,9...........14,0l }
elseif ($1 >= 94) { return 14l9,9..........1,09 $+ $1 $+ 9,9........4,4...14,0l }
elseif ($1 >= 90) { return 14l9,9..........1,09 $+ $1 $+ 9,9.......4,4....14,0l }
elseif ($1 >= 85) { return 14l9,9..........1,09 $+ $1 $+ 9,9......4,4.....14,0l }
elseif ($1 >= 81) { return 14l9,9..........1,09 $+ $1 $+ 9,9.....4,4......14,0l }
elseif ($1 >= 76) { return 14l9,9..........1,09 $+ $1 $+ 9,9....4,4.......14,0l }
elseif ($1 >= 72) { return 14l9,9..........1,09 $+ $1 $+ 9,9...4,4........14,0l }
elseif ($1 >= 67) { return 14l9,9..........1,09 $+ $1 $+ 9,9..4,4.........14,0l }
elseif ($1 >= 62) { return 14l9,9..........1,09 $+ $1 $+ 9,9.4,4..........14,0l }
elseif ($1 >= 58) { return 14l9,9..........1,09 $+ $1 $+ 9,9.4,4..........14,0l }
elseif ($1 >= 54) { return 14l9,9..........1,09 $+ $1 $+ 4,4..........14,0l }
elseif ($1 >= 50) { return 14l9,9..........1,09 $+ $left($1,1) $+ 1,04 $+ $right($1,1) $+ 4,4..........14,0l }
elseif ($1 >= 44) { return 14l9,9..........1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 40) { return 14l9,9.........4,4.1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 35) { return 14l9,9........4,4..1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 31) { return 14l9,9.......4,4...1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 26) { return 14l9,9......4,4....1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 22) { return 14l9,9.....4,4.....1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 17) { return 14l9,9....4,4......1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 12) { return 14l9,9...4,4.......1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 8) { return 14l9,9..4,4.........1,04 $+ $1 $+ 4,4............14,0l }
elseif ($1 >= 1) { return 14l9,9.4,4..........1,04 $+ $1 $+ 4,4............14,0l }
elseif ($1 == 0) { return 14l4,4...........1,0404,4............14,0l }
}
alias -l winned {
if ($hget(DM,p1) == $1 && $hget(DM,p2.hp) isnum 0) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($1) $hp($hget(DM,p1.hp)) $c1(defeated) $c2($hget(DM,p2)) $hp($hget(DM,p2.hp)) $c1(in a death match!) $c2($chr(124)) $c1(Reward:) $reward($hget(DM,p1)) | .timer 1 1 .hiscore }
elseif ($hget(DM,p2) == $1 && $hget(DM,p1.hp) isnum 0) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($1) $c1(defeated) $c2($hget(DM,p1)) $c1(in a death match!) $c2($chr(124)) $c1(Reward:) $reward($hget(DM,p2)) | .timer 1 1 .hiscore }
}
on *:SOCKOPEN:DM.findprices.*:{
.hinc -m DM getprice
if ($hget(DM,getprice) isnum 22) { .sockclose $sockname | .hdel DM getprice | .halt }
.sockwrite -nt $sockname GET $+(/priceguide.php?search_terms=&search_area=1&price_low=&price_high=&all_prices=true&member=1&ppage=75&page=,$hget(DM,getprice)) HTTP/1.1
.sockwrite -nt $sockname Host: www.zybez.net
.sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DM.findprices.*:{
.var %ID = $gettok($sockname,3,46)
if ($sockerr) { .msg $hget(DM,Administrator) $c1(**) $+($c1,$chr(40),$c2,$upper(sockerr),$c1,$chr(41),:) $c1(Price list from zybez could noit be downloaded.) | .sockclose $sockname | .halt }
else { .var %sockreader | .sockread %sockreader
if $regex(%sockreader,/search_term=(.*)" title="More information/) { .hadd -m price name $replace($regml(1),$chr(32),$chr(95)) }
if $regex(%sockreader,/<td>(.*gp)</td>/) { .hadd -m price price $remove($regml(1),$chr(44),gp,$chr(45)) | .writeini -n DMprices.ini Prices $hget(price,name) $iif($gettok($hget(price,price),2,32) == $chr(45),$calc($gettok($hget(price,price),1,32) - ($gettok($hget(price,price),1,32) + $gettok($hget(price,price),3,32))),$gettok($hget(price,price),1,32)) }
if $regex(%sockreader,/<!-- Search Results: End -->/) {
.sockclose $sockname
.inc %ID
.sockopen $+(DM.findprices.,%ID) www.zybez.net 80
}
}
}
on $*:TEXT:*:$($hget(DM,channel),2):{
if $regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]dm$/Si) {
if ($regex($2,/off$/Si) && $istok($hget(DM,p1) $hget(DM,p2) $hget(DM,administrator),$nick,32)) {
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(Death match is now turned) $c2(OFF) $c1(in) $+($c2,$hget(DM,channel),$c1,.)
.reset | .halt
}
if ($istok($hget(DM,p1) $hget(DM,p2),$nick,32)) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),:) $c1(You are already in a DM fight.) }
elseif ($hget(DM,p1) && $hget(DM,p2)) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),:) $c1(There is already a death match going on.) }
elseif (!$hget(DM,p1)) { .hadd -m DM p1 $nick | .hadd -m DM p1.food 20 | .hadd -m DM p1.dbowspec 1 | .hadd -m DM p1.gspec 1 | .hadd -m DM p1.msbspec 2 | .hadd -m DM p1.spec 4 | .hadd -m DM p1.hp 99 | .mode $hget(DM,channel) +v $nick
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(has initiated a death match! Type) $c2(!dm) $c1(to fight him.)
.timer 1 30 .CheckPlayer2
}
elseif (!$hget(DM,p2)) { .writeini -n DMsave.ini Games Total $calc($readini(DMsave.ini,Games,Total) + 1) | .hadd -m DM p2 $nick | .hadd -m DM p2.food 20 | .hadd -m DM p2.dbowspec 1 | .hadd -m DM p2.gspec 1 | .hadd -m DM p2.msbspec 2 | .hadd -m DM p2.spec 4 | .hadd -m DM p2.hp 99 | .hadd -m DM turn $hget(DM,$+(p,$r(1,2))) | .mode $hget(DM,channel) +mv $nick
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(has challanged) $c2($hget(DM,p1)) $c1(in a death match!) $c2($hget(DM,turn)) $c1(goes first!)
.notice $hget(DM,p1) $c1(**) $+($c1,$chr(40),$c2,$upper(info),$c1,$chr(41),:) $c1(You have) $+($c2,99 hitpoints,$c1,$chr(44)) $+($c2,20 sharks,$c1,$chr(44)) $c2(2 mage shortbow special attacks) $c1(and) $c2(4 special attacks) $c1(on your dragon dagger poisoned.) | .notice $hget(DM,p2) $c1(**) $+($c1,$chr(40),$c2,$upper(info),$c1,$chr(41),:) $c1(You have) $+($c2,99 hitpoints,$c1,$chr(44)) $+($c2,20 sharks,$c1,$chr(44)) $c2(2 mage shortbow special attacks) $c1(and) $c2(4 special attacks) $c1(on your dragon dagger poisoned.) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]status$/Si) && $istok($hget(DM,p1) $hget(DM,p2),$nick,32)) {
if ($istok($hget(DM,p1),$nick,32)) { $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(status),$c1,$chr(41),:) $c1(Hitpoints:) $c2($hget(DM,p1.hp)) $c1($chr(124),Sharks left:) $c2($hget(DM,p1.food)) $c1($chr(124),DDS specials left:) $c2($hget(DM,p1.spec)) $c1($chr(124),MSB specials left:) $c2($hget(DM,p1.msbspec)) $c1($chr(124),Gmaul specials left:) $c2($hget(DM,p1.gspec)) $c1($chr(124),Cbow specials left:) $c2($hget(DM,p1.dbowspec)) }
elseif ($istok($hget(DM,p2),$nick,32)) { $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(status),$c1,$chr(41),:) $c1(Hitpoints:) $c2($hget(DM,p2.hp)) $c1($chr(124),Sharks left:) $c2($hget(DM,p2.food)) $c1($chr(124),DDS specials left:) $c2($hget(DM,p2.spec)) $c1($chr(124),MSB specials left:) $c2($hget(DM,p2.msbspec)) $c1($chr(124),Gmaul specials left:) $c2($hget(DM,p2.gspec)) $c1($chr(124),Cbow specials left:) $c2($hget(DM,p2.dbowspec)) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]add(cash|money)$/Si) && $nick == $hget(DM,administrator)) {
.write $+(-s,$2) money.txt $2 $calc($read(money.txt,s,$2) + $replace($3,k,000,m,000000,b,000000000)) | .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(cash),$c1,$chr(41),:) $+($c2,$bytes($replace($3,k,000,m,000000,b,000000000),db),$c1,gp) $c1(added to) $+($c2,$2,$c1,'s) $c1(account.)
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]del(cash|money)$/Si) && $nick == $hget(DM,administrator)) {
.write $+(-s,$2) money.txt $2 $calc($read(money.txt,s,$2) - $replace($3,k,000,m,000000,b,000000000)) | .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(cash),$c1,$chr(41),:) $+($c2,$bytes($replace($3,k,000,m,000000,b,000000000),db),$c1,gp) $c1(removed from) $+($c2,$2,$c1,'s) $c1(account.)
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]turn$/Si) && $hget(DM,p2)) {
$iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(turn),$c1,$chr(41),:) $c1(It's now) $+($c2,$hget(DM,turn),$c1,'s) $c1(turn.)
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](dm)?hi(score|ghscore)[sz]?$/Si)) { .var %x = 1
while ($read(money.txt,%x)) {
.write -a money1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
.filter -cffa money1.txt money2.txt sort * | .var %b = 1, %a
while (%b < 11) { .var %a = %a $+($c2,%b,:) $c1($gettok($read(money2.txt,%b),2,32)) $+($c2,$chr(91),$c1,$cash($gettok($read(money2.txt,%b),1,32)),$c2,$chr(93)) | .inc %b }
.remove money1.txt | .remove money2.txt | $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(hiscores),$c1,$chr(41),:) %a $c1($chr(124),Total played:) $c2($bytes($hget(DM,total),db)) $c1(Total players:) $c2($bytes($calc(%x - 1),db))
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](cash|money)[sz]?$/Si)) {
if (!$read(money.txt,s,$iif($2,$v1,$nick))) { $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),:) $c2($iif($2,$v1,$nick)) $c1(is not ranked in our death match database,) | .halt }
.var %x = 1
while ($read(money.txt,%x)) {
.write -a money1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
.filter -cffa money1.txt money2.txt sort * | .var %a, %b = 1
while ($read(money2.txt,%b)) {
if ($iif($2,$v1,$nick) isin $read(money2.txt,%b)) {
$iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(Cash),$c1,$chr(41),:) $c1(Name:) $c2($iif($2,$v1,$nick)) $c1(Rank:) $c2($bytes(%b,db)) $c1(Cash:) $c2($bytes($read(money2.txt,%b),db)) $+($c2,$chr(91),$c1,$cash($read(money2.txt,%b)),$c2,$chr(93))
.remove money1.txt | .remove money2.txt | .halt
}
.inc %b
}
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](abyssal)?whip$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
.hadd -m DM hit1 $r(0,27) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(hits a) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]d(ds|ragondagger)$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.spec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
.hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.spec)
.hadd -m DM hit $iif($r(0,17) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.hadd -m DM hit1 $iif($r(0,17) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(uses his special attack hitting) $c2($hget(DM,hit)) $c1(then followed by) $c2($hget(DM,hit1)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]d(harok(s)?|h)$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
.hadd -m DM hit1 $dh($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp))) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1($iif($r(1,2) == 1,strikes,swings) his great axe hittin a) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](shark|eat)$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.food)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any sharks left!) | .halt }
.hadd -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.hp)) $iif($calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + 20) > 99,99,$v1) | .hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.food))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(eats a shark!) $c1(This heals him 20 hp.) $c2($nick) $c1(now has) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)),$c2,/,$c1,99) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp))) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]blood(barrage)?$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
.hadd -m DM hit1 $r(0,30) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1))
.hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.hadd -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.hp) $iif($calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + $hget(DM,hit)) > 99,99,$calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + $hget(DM,hit)))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(strikes with a blood barrage hitting) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
.hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]ice(barrage)?$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
.hadd -m DM hit1 $r(0,30) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1))
.hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.frozen) $iif($r(1,2) == 2,frozen)
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(strikes with a ice barrage hitting) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
.hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]c(rystal)?bow$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
.hadd -m DM hit $iif($r(0,30) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(uses his crystal bow hitting) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
.hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]msb$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.msbspec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
.hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.msbspec) | .hadd -m DM hit $iif($r(0,23) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1)
.hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit)) | .hadd -m DM hit1 $iif($r(0,23) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(uses his magic shortbow special attack hitting) $c2($hget(DM,hit)) $c1(then followed by) $c2($hget(DM,hit1)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
.hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]guth(an)?$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
.hadd -m DM hit1 $r(0,35) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.hadd -mu1 DM heal $iif($r(1,20) isnum 5-11,$iif($calc($hget(DM,hit) + $hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp))) > 99,0,$hget(DM,hit)),0)
.hadd -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + $hget(DM,heal))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1($iif($r(1,2) == 1,swings,stabs)) $c1(his guthans warspear hitting a) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) $iif($hget(DM,heal) > 0,$c1(Guthans heal) $c2($nick) $c2($hget(DM,heal)) $c1(hitpoints.)) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]g(ranitemaul|maul)$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.gspec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
.hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.gspec)
.hadd -m DM hit $iif($r(0,25) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.hadd -m DM hit1 $iif($r(0,25) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
.hadd -m DM hit2 $iif($r(0,25) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit2))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(swoshes his granite maul and hits) $+($c2,$hget(DM,hit),$c1,$chr(44)) $c2($hget(DM,hit1)) $c1(then followed by) $c2($hget(DM,hit2)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]d(arkbow|bow)$/Si)) {
if ($hget(DM,turn) == $nick) {
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.dbowspec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
.hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.dbowspec)
.hadd -m DM hit $iif($r(0,35) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
.hadd -m DM hit1 $iif($r(0,35) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
.msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(fires off his dark bow hitting) $c2($hget(DM,hit)) $c1(followed by a) $c2($hget(DM,hit1)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
}
elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
}
}
on *:JOIN:$($hget(DM,channel),2): {
.var %x = 1
while ($read(money.txt,%x)) {
.write -a moneyjoin1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
.filter -cffa moneyjoin1.txt moneyjoin2.txt sort * | .var %a, %b = 1
while ($read(moneyjoin2.txt,%b)) {
if ($nick isin $read(moneyjoin2.txt,%b)) {
.timer 1 1 .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(Cash),$c1,$chr(41),:) $c1(Name:) $c2($nick) $c1(Rank:) $c2($bytes(%b,db)) $c1(Cash:) $c2($bytes($read(moneyjoin2.txt,%b),db)) $+($c2,$chr(91),$c1,$cash($read(moneyjoin2.txt,%b)),$c2,$chr(93))
.remove moneyjoin1.txt | .remove moneyjoin2.txt | .halt
}
.inc %b
}
}
menu * {
-
.Death match V1.0:/dialog -m dm dm
}
alias dm { .dialog -m dm dm }
on *:LOAD:dialog -m dm dm
on *:CONNECT:dialog -m dm dm
on *:QUIT:if ($istok($hget(DM,p1) $hget(DM,p2),$nick,32)) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(left channel. Game will now reset.) | .reset }
on *:PART:$($hget(DM,channel),2):if ($istok($hget(DM,p1) $hget(DM,p2),$nick,32)) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(left channel. Game will now reset.) | .reset }
dialog dm {
title "Death match v1.0 by Terror_nisse"
size -1 -1 170 100
option dbu
box "Channel", 1, 3 3 80 24
edit "", 2, 7 12 64 10, autohs
box "Administrator", 3, 86 3 80 24
edit "", 4, 90 12 64 10, autohs
box "Colors", 5, 3 32 79 37
box "1", 6, 8 39 30 24
box "2", 7, 45 39 30 24
edit "", 8, 12 48 21 10, autohs
edit "", 9, 49 48 21 10, autohs
box "Triggers", 10, 86 32 79 37
text "© Copyright Terror nisse 2008-", 11, 3 92 100 20, disable
button "OK", 12, 21 78 40 12, default, ok
button "Cancel", 13, 64 78 40 12, cancel
button "Price list", 14, 107 78 40 12
edit "", 15, 90 48 64 10, autohs
}
on *:dialog:dm:close:*: {
.hadd -m DM channel $iif($did(2),$v1,$chr(35)) | .writeini -n DMsave.ini DmToolkit Channel $iif($did(2),$v1,$chr(35))
.hadd -m DM administrator $iif($did(4),$v1,No one set) | .writeini -n DMsave.ini DmToolkit Administrator $iif($did(4),$v1,No one set)
.hadd -m DM col1 $iif($did(8) && $did(8) isnum 0-15,$iif($len($did(8)) == 1,$+(0,$did(8)),$did(8)),14) | .writeini -n DMsave.ini DmToolkit Col1 $iif($did(8) && $did(8) isnum 0-15,$iif($len($did(8)) == 1,$+(0,$did(8)),$did(8)),14)
.hadd -m DM col2 $iif($did(9) && $did(9) isnum 0-15,$iif($len($did(9)) == 1,$+(0,$did(9)),$did(9)),07) | .writeini -n DMsave.ini DmToolkit Col2 $iif($did(9) && $did(9) isnum 0-15,$iif($len($did(9)) == 1,$+(0,$did(9)),$did(9)),07)
.hadd -m DM trigger $iif($did(15),$v1,$+($chr(33),$chr(64))) | .writeini -n DMsave.ini DMToolkit trigger $iif($did(15),$v1,$+($chr(33),$chr(64)))
if ($chr(64) !isincs $did(15)) { .echo -a *** [ Note ]: "@" is the public trigger for lookup commands. }
}
on *:dialog:dm:init:*: {
.did -a dm 2 $iif($readini(DMsave.ini,DMtoolkit,channel),$v1,$chr(35)) | .did -a dm 4 $iif($readini(DMsave.ini,DMtoolkit,administrator),$v1,Administrator nick.)
.did -a dm 8 $iif($readini(DMsave.ini,DMtoolkit,col1),$v1,14) | .did -a dm 9 $iif($readini(DMsave.ini,DMtoolkit,col2),$v1,07)
.did -a dm 15 $iif($readini(DMsave.ini,DMtoolkit,trigger),$v1,$+($chr(33),$chr(64)))
}
on *:dialog:dm:sclick:14:{ .echo -a *** [ Price list ]: Please hold on while the price list is beeing downloaded. (Can take a while) | .inc %ID | .sockopen $+(DM.findprices.,%ID) www.zybez.net 80 }