on *:TEXT:!dm*:#:{ if (%duel2 == active) {
notice $nick .-* a DM is already initated and running. please wait. *-.
else {
set %duel active
msg $chan .-* $nick has initated a duel! type !dm to fight $nick. *-.
set %dmnick $nick
set %hp 99
if (%duel == active)
msg $chan .-* $nick has come to fight! *-.
set %dmnick2 $nick
set %hp 99
msg $chan %dmnick 4(VS) %dmnick2
}
}
;; ######################################
;; # Upcoming part is in another script #
;; ######################################
on 1:TEXT:!gmaul*:#:{
if (%turn == 1) {
if ($nick == %dmnick) {
set %gmaul1 $rand(0,20)
set %gmaul2 $rand(0,20)
set %gmaul3 $rand(0,20)
dec %dmnick2 %gmaul1
dec %dmnick2 %gmaul2
dec %dmnick2 %gmaul3
msg $chan .-* %dmnick has spec'd at %dmnick2 and hits %gmaul1 $+ , $+ %gmaul2 $+ , $+ %gmaul3 *-.
if (%hp > 0)
msg $chan %dmnick dies! %dmnick2 wins!!
else {
msg $nick Youre not playing.
if (%turn == 2) {
if ($nick == %dmnick2) {
set %gmaul1 $rand(0,20)
set %gmaul2 $rand(0,20)
set %gmaul3 $rand(0,20)
dec %dmnick %gmaul1
dec %dmnick %gmaul2
dec %dmnick %gmaul3
msg $chan .-* %dmnick2 has spec'd at %dmnick and hits %gmaul1 $+ , $+ %gmaul2 $+ , $+ %gmaul3 *-.
if (%hp > 0)
msg $chan %dmnick2 dies! %dmnick wins!!
}
}
}
}
;; ######################################
;; # Upcoming part is in another script #
;; ######################################
on *:text:!eat*:#: {
if (%turn == 1) {
if ($nick == %dmnick) {
set %turn 2
inc %hp 20
msg $chan .-* %player1 eats a shark and gains 20 hp. *-.
}
}
else if (%turn == 2) {
if ($nick == %dmnick2) {
set %turn 1
inc %hp2 20
msg $chan .-* %player2 eats a shark and gains 20 hp. *-.
}
}
}
on 1:TEXT:!tele*:#:{ if ($nick == %dmnick)
msg $chan %dmnick surrenders! %dmnick2 wins!
unset %turn
unset %duel
unset %duel2
unset %hp
unset %hp2
else {
msg $chan %dmnick2 surrenders! %dmnick1 wins!
unset %turn
unset %duel
unset %duel2
unset %hp
unset %hp2
}
}
;; ######################################
;; # Upcoming part is in another script #
;; ######################################
on *:TEXT:!dds*:#:{
if (%turn == 1) {
if ($nick == %dmnick) {
set %hit $rand(0,25)
set %hit2 $rand(0,25)
dec %dmnick2 %hit
dec %dmnick2 %hit2
msg $chan .-* %dmnick has spec'd at %dmnick2 and hits %hit $+ , $+ %hit2 *-.
set %turn 2
if (%hp > 0)
msg $chan %dmnick dies! %dmnick2 wins!!
else {
msg $nick Youre not playing.
if (%turn == 2)
if (%dm == %dmnick2)
set %hit $rand(0,25)
set %hit2 $rand(0,25)
dec %dmnick %hit
dec %dmnick %hit2
msg $chan .-* %dmnick2 has spec'd at %dmnick and hits %hit $+ , $+ %hit2 *-.
if (%hp2 > 0)
msg $chan %dmnick2 dies! %dmnick2 wins!!
set %turn 1
}
}
}
}
;; END OF SCRIPT