Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:text:!dd *:#USDicee: {
- ; You can remove the first two IF lines if you don't care about checking if the nicks are on the channel.
- if ($nick isvoice #dicing_ttg || $nick isreg #dicing_ttg) { msg $chan Only halfop or higher can start a duel. | return }
- if ($2 !ison $chan) { msg $chan $2 is not a valid nick. | halt }
- if ($3 !ison $chan) { msg $chan $3 is not a valid nick. | halt }
- if (!$4) { msg $chan Invalid format. Use: !dd nick1 nick2 reward | halt }
- set %dd $2 $3 $4
- msg $chan 8,1 Dice duel between $2 and $3 ; Type !roll.
- .timerDD 1 300 EndDD
- }
- on *:text:!roll:#USDicee: {
- if (!%dd) { msg $chan 8,1 No duel in progress. | halt }
- if (!$istok(%dd,$nick,32)) { msg $chan You are not one of the duelists. | halt }
- if ($($+(%,ddr.,$nick),2)) { msg $chan 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 8,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 8,1 %d1 won the %p pot with a %r1 $+ - $+ %r2 $+ . }
- elseif (%r2 > %r1) { msg $chan 8,1 %d2 won the %p pot with a %r2 $+ - $+ %r1 $+ . }
- else { msg $chan 8,1 %d1 and %d2 tied with a %r1 $+ - $+ %r2 $+ . }
- unset %dd
- unset %ddr.*
- .timerDD off
- }
- }
- alias EndDD {
- msg $chan The duel ran out of time and has been ended.
- unset %dd
- unset %ddr.*
- }
Add Comment
Please, Sign In to add comment