Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:text:!dd*:#: {
- set %dd $2 $3 $4
- msg $chan 3 $+ [Dice Duel] $+ 10 $2 1 $+ vs $+ 10 $3 $+ 1 - Pot: $+ $+ 3 $4 1 $+ - Roll now! 4 [Hosted by $nick $+ ]
- .timer 1 300 EndDD
- }
- on *:text:!roll*:#: {
- if (!%dd) { .notice $nick You're not in a duel! }
- if (!$istok(%dd,$nick,32)) { .notice $nick 4 You're not in a duel :/. | halt }
- if ($($+(%,ddr.,$nick),2)) { .notice $nick 4 You have already rolled once. | halt }
- var %r $calc($rand(1,6) + $rand(1,6)), %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32), %p = $gettok(%dd,3,32)
- set %ddr. $+ $nick %r
- msg $chan 3 $+ [Dice Duel] 10 $+ $nick 1 $+ rolled $+ 4 %r 1 $+ on 7 $+ Two Six-sided Dice
- var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2), %r2 = $($+(%,ddr.,$gettok(%dd,2,32)),2)
- if (%r1 && %r2) {
- if (%r1 > %r2) { msg $chan 3 $+ $+ [Dice Duel] 10 $+ %d1 1 wins the 3 %p 1 pot with rolls: 4 %r1 $+ - $+ %r2 $+ . 1 Please contact host 10 $nick }
- elseif (%r2 > %r1) { msg $chan %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