Code:
on *:text:!dd *:#GeGamblerz: {
if ($nick isvoice #GeGamblerz || $nick isreg #GeGamblerz) { msg $nick 0,1 Sorry, you don't have permission for that. | return }
if ($2 !ison $chan) { msg 0,1 $nick $2 is not a valid nick. | halt }
if ($3 !ison $chan) { msg 0,1 $nick $3 is not a valid nick. | halt }
if (!$4) { msg $nick 0,1 Invalid format. Use: !dd nick1 nick2 reward | halt }
set %dd $2 $3 $4
msg $chan 0,1 Dice duel between $2 and $3 ; Type !roll.
.timerDD 1 300 EndDD
}
on *:text:!roll:#GeGamblerz: {
if (!%dd) { msg $chan No duel in progress. | halt }
if (!$istok(%dd,$nick,32)) { msg $chan 0,1 You are not one of the duelists. | halt }
if ($($+(%,ddr.,$nick),2)) { msg $chan 0,1 You have already rolled. | halt }
var %r = $rand(2,12), %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32), %p = $gettok(%dd,3,32)
set %ddr. $+ $nick %r
msg $chan 0,1 $nick rolled a %r $+ .
var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2), %r2 = $($+(%,ddr.,$gettok(%dd,2,32)),2)
if (%r1 && %r2) {
if (%r1 > %r2) { msg $chan 0,1 %d1 won the %p pot with a %r1 $+ -vs- $+ %r2 $+ . }
elseif (%r2 > %r1) { msg $chan 0,1 %d2 won the %p pot with a %r2 $+ -vs- $+ %r1 $+ . }
else { msg $chan 0,1 %d1 and %d2 tied with a %r1 $+ -vs- $+ %r2 $+ . }
unset %dd
unset %ddr.*
.timerDD off
}
}
on *:text:!end *:#GeGamblerz: {
if ($nick isvoice #GeGamblerz || $nick isreg #GeGamblerz) { msg $nick 0,1 Sorry, you don't have permission for that. | return }
if ($2 !ison $chan) { msg 0,1 $nick $2 is not a valid nick. | halt }
if ($3 !ison $chan) { msg 0,1 $nick $3 is not a valid nick. | halt }
if (!$4) { msg $nick 0,1 Invalid format. Use: !end nick1 nick2 reward | halt }
unset %dd $2 $3 $4
unset %ddr.*
msg $chan 0,1 The dice duel between $2 and $3 has been ended by an admin;
}
alias EndDD {
msg $chan 0,1 The duel ran out of time and has been ended.
unset %dd
unset %ddr.*
}
Bookmarks