on $*:TEXT:/^[!.]dmcommands/Si:*: { 
  msg $nick 1([-DM-]) A list of my commands: 
  msg $nick 1([-DM-]) !dm to start 
  msg $nick 1([-DM-]) !stopdm to stop the dm 
  msg $nick 1([-DM-]) !dh to use dharoks 
  msg $nick 1([-DM-]) !eat to eat a shark, gains 20hp (only have 20) 
  msg $nick 1([-DM-]) !dds 25% spec needed 
  msg $nick 1([-DM-]) !guthans 
  msg $nick 1([-DM-]) !dmace 25% spec needed 
  msg $nick 1([-DM-]) !buyhelp 
  msg $nick 1([-DM-]) !exp to see your current exp 
  msg $nick 1([-DM-]) !gmaul 100% spec needed 
  msg $nick 1([-DM-]) !whip 
  msg $nick 1([-DM-]) !dbow 50% 
  msg $nick 1([-DM-]) !buy godsword to buy one :P 
  msg $nick 1([-DM-]) !godsword if u have one 
  msg $nick 1([-Dm-]) !money 
  msg $nick 1([-Dm-]) !score  
  msg $nick 1([-Dm-]) !cbow 
  msg $nick 1([-Dm-]) !ice to ice barrage 
  msg $nick 1([-Dm-]) more to come :D
} 
on $*:TEXT:/^[!.]buyhelp/Si:#: { 
  msg $nick 1([-Dm-]) hey, these are my buy commands atm 
  msg $nick 1([-Dm-]) please use !buy item 
  msg $nick 1([-Dm-]) !buy godsword costs = 1 2,000,000(2M) 
  msg $nick 1([-Dm-]) !buy dmace costs : 1 50,000(50K) 
  msg $nick 1([-Dm-]) that's it for now :P 
  msg $nick 1([-Dm-]) please suggest stuff :) 
} 
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  } 
} 
on *:TEXT:!dm:#:{ 
  if (%player1 == $null) && (%player2 == $null) { 
    set %player1 $nick 
    msg $chan 1([-DM-])4 $+ $nick 1has iniated a 4Death Match,1 IF you wish to join type 4!dm14(!dmcommands for my commands) 
  } 
  elseif (%player1 != $null) && (%player2 == $null) { 
    set %player2 $nick  
    set %p1hp 99 
    set %p2hp 99 
    set %foodplayer1 20 
    set %foodplayer2 20 
    set %p1spec 100 
    set %p2spec 100 
    set %turn player $+ $rand(1,2) 
    msg $chan 1([-DM-]) $+ $nick 4has accepted1 %player1 $+ 's 4Death Match! 
    if (%turn == player1) { 
    .timer 1 2 msg $chan 1([-DM-]) $+ %player1 4gets the first 1turn } 
    if (%turn == player2) { 
    .timer 1 2 msg $chan 1([-DM-]) $+ %player2 4gets the first 1turn } 
  } 
  elseif (%player1 != $null) && (%player2 != $null) { 
    msg # 1([-DM-]) LMAO look at this 4NOOB1 who can't read, 4There is already a 1DM4 going! try again later :) 
  } 
} 
alias dmhalt { 
  .timer 1 1 //mode $chan +m 
  .timer 1 5 msg $chan 1([-DM-])4 %player1 1now has4 %money [ $+ [ %player1 ] ] 1gold4 and1 %win [ $+ [ %player1 ] ] 4wins1, %loss [ $+ [ %player1 ] ] 4loss, %player1 won1 $calc((($(,$+(%,win,%player1)) / $(,$+(%,loss,%player1))) * 100)) $+ % 4of his fights 
  .timer 1 5 msg $chan 1([-DM-])4 %player2 1now has4 %money [ $+ [ %player2 ] ] 1gold4 and1 %win [ $+ [ %player2 ] ] 4wins1, %loss [ $+ [ %player2 ] ] 4loss, %player2 won1 $calc((($(,$+(%,win,%player2)) / $(,$+(%,loss,%player2))) * 100)) $+ % 4of his fights 
  .timer 1 10 //mode $chan -m 
  unset %player1 
  unset %player2 
  unset %turn 
  unset %p1hp 
  unset %p2hp 
  unset %foodplayer1 
  unset %foodplayer2 
  unset %p1spec 
  unset %p2spec 
} 
on *:TEXT:!stopdm:#:{ 
  if ($nick == %player1) || ($nick == %player2) || ($nick isop $chan) { 
    msg $chan 1([-DM-])DM halted by4 $nick 1type 4!dm1 to start a new one 
    dmhalt | halt 
    elseif ($nick != %player1) || ($nick != %player2) { 
    notice $nick 1([-DM-])4 Yo, U gotta be in the dm or be a cool op to stop this match :P } 
    elseif (%player1 == $null) && (%player2 == $null) { 
    notice $nick 1([-DM-])4 There aint no 1DM4 going on atm to start one type 1!DM }  
  } 
} 
on *:TEXT:!ice:#:{ 
  if (%turn == player1) && ($nick == %player1) { 
    var %ice $rand(0,35) 
    dec %p2hp %ice 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just froze a4 %ice 1with his barrage spell on4 %player2 1 $+ Leaving4 him 1with $hp(%p2hp) and %player2 is now frozen for one turn! 
    inc %magicexp [ $+ [ $nick ] ] $calc(%ice * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead! 
      var %loot $rand(2000,20000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt }     
    set %turn player1
    if (%p2hp > 0) { 
      msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%magicexp [ $+ [ $nick ] ],bd) 1magic experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) { 
    var %ice $rand(0,35) 
    dec %p1hp %ice 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just froze a4 %ice 1with his barrage spell on4 %player1 1 $+ Leaving4 him 1with $hp(%p1hp) and is now frozen for one turn!
    inc %magicexp [ $+ [ $nick ] ] $calc(%ice * 5) 
    if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      var %loot $rand(2000000,2000000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt }  
    set %turn player2 
    if (%p1hp > 0) { 
      msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%magicexp [ $+ [ $nick ] ],bd) 1magic experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P } 
  if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) } 
  if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! } 
} 
on *:TEXT:!whip:#:{ 
  if (%turn == player1) && ($nick == %player1) { 
    var %whip $rand(0,47) 
    dec %p2hp %whip 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %whip 1with his whip on4 %player2 1 $+ Leaving4 him 1with $hp(%p2hp) 
    inc %atkexp [ $+ [ $nick ] ] $calc(%whip * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead! 
      var %loot $rand(2000,20000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { 
      msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) { 
    var %whip $rand(0,47) 
    dec %p1hp %whip 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %whip 1with his whip on4 %player1 1 $+ Leaving4 him 1with $hp(%p1hp) 
    inc %atkexp [ $+ [ $nick ] ] $calc(%whip * 5) 
    if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      var %loot $rand(2000,20000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1 
    if (%p1hp > 0) { 
      msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P } 
  if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) } 
  if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! } 
} 


on $*:TEXT:/^[!]money/Si:#:{ 
  if ($2 == $null) { 
    if (%money [ $+ [ $nick ] ] == $null) { set %money [ $+ [ $nick ] ] $bytes(1000,bd) } 
    notice $nick 1([-DM-])You have4 $bytes(%money [ $+ [ $nick ] ],bd) 1money 
  } 
  else { 
    if ($2 != $null) { 
      if (%money [ $+ [ $2 ] ] == $null) { set %money [ $+ [ $2 ] ] $bytes(1000,bd) } 
      notice $nick 1([-DM-])4 $2 1has4 $bytes(%money [ $+ [ $2 ] ],bd) 1money 
    } 
  } 
} 
on $*:TEXT:/^[!]exp/Si:#:{ 
  if ($2 == $null) { 
    if (%atkexp [ $+ [ $nick ] ] == $null) { set %atkexp [ $+ [ $nick ] ] 273472 } 
    notice $nick 1([-DM-])You have4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience 
  } 
  if ($2 == $null) { 
    if (%strexp [ $+ [ $nick ] ] == $null) { set %strexp [ $+ [ $nick ] ] 273472 } 
    notice $nick 1([-DM-])You have4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience 
  } 
  if ($2 == $null) { 
    if (%rangedexp [ $+ [ $nick ] ] == $null) { set %rangedexp [ $+ [ $nick ] ] 166636 } 
    notice $nick 1([-DM-])You have4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience 
  } 
  else { 
    if ($2 != $null) { 
      if (%atkexp [ $+ [ $2 ] ] == $null) { set %atkexp [ $+ [ $2 ] ] 273472 } 
      notice $nick 1([-DM-])4 $2 1has4 $bytes(%atkexp [ $+ [ $2 ] ],bd) 1attack experience 
    } 
    if ($2 != $null) { 
      if (%strexp [ $+ [ $2 ] ] == $null) { set %strexp [ $+ [ $2 ] ] 273472 } 
      notice $nick 1([-DM-])4 $2 1has4 $bytes(%strexp [ $+ [ $2 ] ],bd) 1strength experience 
    } 
    if ($2 != $null) { 
      if (%rangedexp [ $+ [ $2 ] ] == $null) { set %rangedexp [ $+ [ $2 ] ] 166636 } 
      notice $nick 1([-DM-])4 $2 1has4 $bytes(%rangedexp [ $+ [ $2 ] ],bd) 1ranged experience 
    } 
  } 
} 
on $*:TEXT:/^[!]score/Si:#:{ 
  if ($2 == $null) { 
    if (%win [ $+ [ $nick ] ] == $null) { set %win [ $+ [ $nick ] ] 0 } | if (%loss [ $+ [ $nick ] ] == $null) { set %loss [ $+ [ $nick ] ] 0 } 
    notice $nick 1([-DM-])You have4 %win [ $+ [ $nick ] ] 1wins and4 %loss [ $+ [ $nick ] ] 1losses 
  } 
  else { 
    if ($2 !== $null ) { 
      if (%win [ $+ [ $2 ] ] == $null) { set %win [ $+ [ $2 ] ] 0 } | if (%loss [ $+ [ $2 ] ] == $null) { set %loss [ $+ [ $2 ] ] 0 } 
      notice $nick 1([-DM-]) $2 has4 %win [ $+ [ $2 ] ] 1wins and4 %loss [ $+ [ $2 ] ] 1losses 
    } 
  } 
} 

on *:TEXT:!godsword:#:{ 
  if (%turn == player1) && ($nick == %player1) && (%godsword [ $+ [ $nick ] ] != $null) { 
    var %godsword $rand(0,74) 
    dec %p2hp %godsword 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %godsword 1with his godsword on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %strexp [ $+ [ $nick ] ] $calc(%godsword * 6) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead! 
      var %loot $rand(5000,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) && (%godsword [ $+ [ $nick ] ] != $null) { 
    var %godsword $rand(0,74) 
    dec %p1hp %godsword 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %godsword 1with his godsword on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
    inc %strexp [ $+ [ $nick ] ] $calc(%godsword * 6) 
    if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      var %loot $rand(9000,18000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1 
    if (%p1hp > 0) {  msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P } 
  if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) } 
  if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! } 
  if (%turn == player1) && ($nick == %player1) && (%godsword [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a godsword first with !buy godsword } 
  if (%turn == player2) && ($nick == %player2) && (%godsword [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a godsword first with !buy godsword } 
}  
} 
on *:TEXT:!dh:#:{ 
  if (%turn == player1) && ($nick == %player1) { 
    if (%p1hp isnum 85-99) { var %dh $rand(0,35) } 
    if (%p1hp isnum 70-84) { var %dh $rand(0,43) } 
    if (%p1hp isnum 55-69) { var %dh $rand(0,50) } 
    if (%p1hp isnum 40-54) { var %dh $rand(0,58) } 
    if (%p1hp isnum 25-39) { var %dh $rand(0,64) } 
    if (%p1hp isnum 10-24) { var %dh $rand(0,66) } 
    if (%p1hp isnum 1-9) { var %dh $rand(0,81) } 
    dec %p2hp %dh 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %dh 1with his dharoks set on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %strexp [ $+ [ $nick ] ] $calc(%dh * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead! 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2  
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) { 
    if (%p2hp isnum 85-99) { var %dh $rand(0,35) } 
    if (%p2hp isnum 70-84) { var %dh $rand(0,43) } 
    if (%p2hp isnum 55-69) { var %dh $rand(0,50) } 
    if (%p2hp isnum 40-54) { var %dh $rand(0,58) } 
    if (%p2hp isnum 25-39) { var %dh $rand(0,64) } 
    if (%p2hp isnum 10-24) { var %dh $rand(0,66) } 
    if (%p2hp isnum 1-9) { var %dh $rand(0,81) } 
    dec %p1hp %dh 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %dh 1with his dharoks set on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
    inc %strexp [ $+ [ $nick ] ] $calc(%dh * 5) 
    if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! } 
  if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! } 
  if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! } 
} 
on *:TEXT:!eat:#:{ 
  if (%turn == player1) && ($nick == %player1) && (%foodplayer1 > 0) { 
    dec %foodplayer1 1 
    inc %p1hp 20 
    if (%p1hp > 99) { set %p1hp 99 } 
    msg $chan 1([-DM-])4 $nick 1just ate a shark, gains 4 20 1hp and now has4 %p1hp 1HP 
    notice $nick 1You have %foodplayer1 shark(s) left! 
    unset %turn 
    set %turn player2 | halt 
  } 
  if (%turn == player2) && ($nick == %player2) && (%foodplayer2 > 0) { 
    dec %foodplayer2 1 
    inc %p2hp 20 
    if (%p2hp > 99) { set %p2hp 99 } 
    msg $chan 1([-DM-])4 $nick 1just ate a shark, gains 4 20 1hp and now has4 %p2hp 1HP 
    notice $nick 1You have %foodplayer2 shark(s) left! 
    unset %turn 
    set %turn player1 | halt 
  } 
  elseif (%turn == player1) && ($nick == %player1) && (%foodplayer1 = 0) { notice $nick You don't have enough sharks! } 
  elseif (%turn == player2) && ($nick == %player2) && (%foodplayer2 = 0) { notice $nick You don't have enough sharks! } 
  elseif (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! } 
  elseif (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! } 
  elseif (%player1 == $null) && (%player2 == $null) { notice $nick There is no DM going on atm, Type !Dm to start one! } 
} 
on *:TEXT:!dds:#:{ 
  if (%turn == player1) && ($nick == %player1) && (%p1spec >= 25) { 
    var %ddshit1 $rand(0,36) 
    var %ddshit2 $rand(0,36)        
    dec %p1spec 25 
    dec %p2hp $calc(%ddshit1 + %ddshit2) 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %ddshit1 and %ddshit2 1with his dds on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %strexp [ $+ [ $nick ] ] $calc((%ddshit1 + %ddshit2) * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      notice $nick 12You have %p1spec Special Attack left!  
      if (%p2hp < 0) { set %p2hp 0 } 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec >= 25) { 
    var %ddshit1 $rand(0,36) 
    var %ddshit2 $rand(0,36)        
    dec %p2spec 25 
    dec %p1hp $calc(%ddshit1 + %ddshit2) 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %ddshit1 and %ddshit2 1with his dds on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
    inc %strexp [ $+ [ $nick ] ] $calc((%ddshit1 + %ddshit2) * 5) 
    if (%p1hp < 0) { msg $chan 6([-DM-])12 $+ %player1 6is dead!  
      notice $nick 12You have %p2spec  Special Attack left!  
      if (%p1hp <= 0) { set %p1hp 0 } 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1  
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! } 
  if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! } 
  if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! } 
  if (%turn == player1) && ($nick == %player1) && (%p1spec < 25) { notice $nick You need your special bar to be atleast 25% } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec < 25) { notice $nick You need your special bar to be atleast 25% } 
} 
on *:TEXT:!gmaul:#:{ 
  if (%turn == player1) && ($nick == %player1) && (%p1spec >= 25) { 
    var %gmaulhit1 $rand(0,44) 
    var %gmaulhit2 $rand(0,44) 
    var %gmaulhit3 $rand(0,44)        
    dec %p1spec 100 
    dec %p2hp $calc(%gmaulhit1 + %gmaulhit2 + %gmaulhit3) 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %gmaulhit1 , %gmaulhit2 and %gmaulhit3 1with his gmaul on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %strexp [ $+ [ $nick ] ] $calc((%gmaulhit1 + %gmaulhit2 + %gmaulhit3) * 5) 
    if (%p2hp <= 0) { msg $chan 6([-DM-])12 $+ %player2 6is dead!  
      notice $nick 12You have %p1spec Special Attack left!  
      if (%p2hp < 0) { set %p2hp 0 } 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2  
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec >= 25) { 
    var %gmaulhit1 $rand(0,44) 
    var %gmaulhit2 $rand(0,44)  
    var %gmaulhit3 $rand(0,44)        
    dec %p2spec 100 
    dec %p1hp $calc(%gmaulhit1 + %gmaulhit2 + %gmaulhit3) 
    if (%p1hp <= 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %gmaulhit1 , %gmaulhit2 and %gmaulhit3 1with his gmaul on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
    inc %strexp [ $+ [ $nick ] ] $calc((%gmaulhit1 + %gmaulhit2 + %gmaulhit3) * 5) 
    if (%p1hp < 0) { msg $chan 6([-DM-])12 $+ %player1 6is dead!  
      notice $nick 12You have %p2spec Special Attack left!  
      if (%p1hp < 0) { set %p1hp 0 } 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  }  
  if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! } 
  if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! } 
  if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! } 
  if (%turn == player1) && ($nick == %player1) && (%p1spec < 100) { notice $nick You need your special bar to be atleast 100% } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec < 100) { notice $nick You need your special bar to be atleast 100% } 
} 
on *:TEXT:!buy godsword:#:{ 
  if (%money [ $+ [ $nick ] ] >= 2000000) && (%godsword [ $+ [ $nick ] ] == $null) { 
    dec %money [ $+ [ $nick ] ] 2000000 
    set %godsword [ $+ [ $nick ] ] Godsword 
    notice $nick 12You just bought THE godsword! you have %money [ $+ [ $nick ] ] money left 
  } 
  elseif (%money [ $+ [ $nick ] ] < 2000000) || (%money [ $+ [ $nick ] ] == $null) { notice $nick You wish, you don't have enough money :P go dm some more! } 
  elseif (%godsword [ $+ [ $nick ] ] != $null) { notice $nick You already own a godsword narb! } 
} 
on *:TEXT:!buy dmace:#:{ 
  if (%money [ $+ [ $nick ] ] >= 50000) && (%dmace [ $+ [ $nick ] ] == $null) { 
    dec %money [ $+ [ $nick ] ] 50000 
    set %dmace [ $+ [ $nick ] ] Dmace 
    notice $nick 12You just bought THE dmace! you have %money [ $+ [ $nick ] ] money left 
  } 
  elseif (%money [ $+ [ $nick ] ] < 50000) || (%money [ $+ [ $nick ] ] == $null) { notice $nick You wish, you don't have enough money :P go dm some more! } 
  elseif (%dmace [ $+ [ $nick ] ] != $null) { notice $nick You already own a dmace narb! } 
} 
on $*:TEXT:/^[!]ghack/Si:#fightpits:{ 
  if ($nick == simonizer006) { 
    inc %money [ $+ [ $2 ] ] $3 
    msg $nick 1([-DM-])4 $+ $nick ghacked $2 $3 money xD 
  } 
  else notice $nick 1([-DM-])4Hey!only simonizer006 can use this command 
} 
on *:TEXT:!dbow:#:{ 
  if (%turn == player1) && ($nick == %player1) && (%p1spec >= 50) { 
    var %dbowhit1 $rand(8,49) 
    var %dbowhit2 $rand(8,49)        
    dec %p1spec 50 
    dec %p2hp $calc(%dbowhit1 + %dbowhit2) 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %dbowhit1 and %dbowhit2 1with his dbow on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %rangedexp [ $+ [ $nick ] ] $calc((%dbowhit1 + %dbowhit2) * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      notice $nick You have %p1spec Special Attack left!    
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec >= 50) { 
    var %dbowhit1 $rand(8,49) 
    var %dbowhit2 $rand(8,49)        
    dec %p2spec 50 
    dec %p1hp $calc(%dbowhit1 + %dbowhit2) 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %dbowhit1 and %dbowhit2 1with his dbow on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
    inc %strexp [ $+ [ $nick ] ] $calc((%dbowhit1 + %dbowhit2) * 5) 
    if (%p1hp < 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!  
      notice $nick You have %p2spec  Special Attack left!    
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1  
    if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! } 
  if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! } 
  if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! } 
  if (%turn == player1) && ($nick == %player1) && (%p1spec < 50) { notice $nick You need your special bar to be atleast 50% } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec < 50) { notice $nick You need your special bar to be atleast 50% } 
} 
on *:TEXT:!cbow:#:{ 
  if (%turn == player1) && ($nick == %player1) { 
    var %cbow $rand(0,36) 
    if (%p2hp < 0) { set %p2hp 0 } 
    dec %p2hp %cbow 
    msg $chan 1([-DM-])4 $nick 1just ranged a4 %cbow 1with his cbow on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %rangedexp [ $+ [ $nick ] ] $calc(%cbow * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead! 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) { 
    var %cbow $rand(0,36) 
    if (%p1hp < 0) { set %p1hp 0 } 
    dec %p1hp %cbow 
    msg $chan 1([-DM-])4 $nick 1just ranged a4 %cbow 1with his cbow on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
    inc %rangedexp [ $+ [ $nick ] ] $calc(%cbow * 5) 
    if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1 
    if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P } 
  if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) } 
  if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! } 
} 
on *:TEXT:!dmace:#:{ 
  if (%turn == player1) && ($nick == %player1) && (%p1spec >= 25) && (%dmace [ $+ [ $nick ] ] != $null) { 
    var %dmace $rand(0,50)        
    dec %p1spec 25 
    notice $nick 1([-DM-])4You have %p1spec  Special Attack left!    
    dec %p2hp %dmace 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %dmace 1with his dmace on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) 
    inc %strexp [ $+ [ $nick ] ] $calc(%dmace * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!      
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) && (%p2spec >= 25) && (%dmace [ $+ [ $nick ] ] != $null) { { 
      var %dmace $rand(0,50)        
      dec %p2spec 25 
      notice $nick 12You have %p2spec $+ % Special Attack left! 
      dec %p1hp %dmace 
      if (%p1hp < 0) { set %p1hp 0 } 
      msg $chan 1([-DM-])4 $nick 1just smashed a4 %dmace 1with his dmace on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) 
      inc %strexp [ $+ [ $nick ] ] $calc(%dmace * 5) 
      if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 is dead!  
        notice $nick You have %p2spec $+ % Special Attack left!    
        var %loot $rand(1,10000) 
        inc %money [ $+ [ $nick ] ] %loot 
        inc %win [ $+ [ %player2 ] ] 1 
        inc %loss [ $+ [ %player1 ] ] 1 
      dmhalt } 
      unset %turn 
      set %turn player1  
      if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt 
      } 
    }  
    if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! } 
    if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! } 
    if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! } 
    if (%turn == player1) && ($nick == %player1) && (%p1spec < 25) { notice $nick You need your special bar to be atleast 25% } 
    if (%turn == player2) && ($nick == %player2) && (%p2spec < 25) { notice $nick You need your special bar to be atleast 25% } 
    if (%turn == player1) && ($nick == %player1) && (%dmace [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a dmace first with !buy dmace } 
    if (%turn == player2) && ($nick == %player2) && (%dmace [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a dmace first with !buy dmace } 
  } 
} 
on *:TEXT:!guthans:#:{ 
  if (%turn == player1) && ($nick == %player1) { 
    var %guth $rand(0,41) 
    dec %p2hp %guth 
    inc %p1hp %guth 
    if (%p2hp < 0) { set %p2hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %guth 1with his guthans on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) %player1 gained hp and now has $hp(%p1hp) 
    inc %atkexp [ $+ [ $nick ] ] $calc(%guth * 5) 
    if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead! 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player1 ] ] 1 
      inc %loss [ $+ [ %player2 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player2 
    if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player2 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == %player2) { 
    var %guth $rand(0,41) 
    dec %p1hp %guth 
    inc %p2hp %guth 
    if (%p1hp < 0) { set %p1hp 0 } 
    msg $chan 1([-DM-])4 $nick 1just smashed a4 %guth 1with his guthans on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) %player2 gained hp and now has $hp(%p2hp) 
    inc %atkexp [ $+ [ $nick ] ] $calc(%guth * 5) 
    if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead! 
      var %loot $rand(1,10000) 
      inc %money [ $+ [ $nick ] ] %loot 
      inc %win [ $+ [ %player2 ] ] 1 
      inc %loss [ $+ [ %player1 ] ] 1 
    dmhalt } 
    unset %turn 
    set %turn player1 
    if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player1 $+ 's1 turn! | halt 
    } 
  } 
  if (%turn == player2) && ($nick == player1) { notice $nick It's not your turn!before u use a command :) } 
  if (player1 == $null) && (player2 == $null) { notice $nick No Dm is going on atm, Type Dm to start one! } 
  if (%turn == player1) && ($nick == player2) { notice $nick It's not your turn!before u use a command :P } 
}  $