on *:Text:!DM-Commands:*: { notice $nick The commands and descriptions for the DM script are: notice $nick !DH (Hits w/ Dharok), !Whip (Hits w/ whip), !DDS (Specs w/ DDS), !DScimmy (Hits w/ Dragon Scimmy), !DLong (Hits w/ Dragon Long), !Eat (Heals you 20), and !DM-Results (Shows how many DM's you/someone has won and lost) } on *:TEXT:!DM-Results*:#: { if ($2-) { notice $nick DM results for $replace($2-,$chr(32),_) are: notice $nick Wins: $iif($readini(DM.ini,DM-Results-Win,$replace($2-,$chr(32),_)) != $null,$readini(DM.ini,DM-Results-Win,$replace($2-,$chr(32),_)),0) Loses: $iif($readini(DM.ini,DM-Results-Lose,$replace($2-,$chr(32),_)) != $null,$readini(DM.ini,DM-Results-Lose,$replace($2-,$chr(32),_)),0) } if ($2- === $null) { writeini DM.ini Results Search $nick notice $nick Your DM results are: notice $nick Wins: $iif($readini(DM.ini,DM-Results-Win,$nick) != $null,$readini(DM.ini,DM-Results-Win,$nick),0) Loses: $iif($readini(DM.ini,DM-Results-Lose,$nick) != $null,$readini(DM.ini,DM-Results-Lose,$nick),0) } } on *:TEXT:!DM*:#: { if ($replace($2-,$chr(32),_) == $nick) { notice $nick Why would you DM yourself... halt } if ($2 === $me) { notice $nick I'm a bot.. you can't DM me... halt } if ($readini(DM.ini,$chan,Status2) === ON) { notice $nick Sorry but please wait, someone has already sent a DM offer. halt } if ($2 == $null) { notice $nick Please specify the person you want to DM by typing !DM . halt } if ($readini(DM.ini,$chan,DM.Status) === ON) { notice $nick There is already a DM going on, please wait. halt } if ($readini(DM.ini,$chan,DM.Status2) == ON && $nick != $readini(DM.ini,$chan,nick1)) { notice $nick There is already a DM going on, please wait. halt } if (%DM.STAUTSME != $me && $replace($2-,$chr(32),_) != $nick && $2- != $null && $readini(DM.ini,$chan,DM.Status2) != ON || $readini(DM.ini,$chan,DM.Status != ON)) { writeini DM.ini $chan nick1 [ $replace($2-,$chr(32),_) ] writeini DM.ini $chan nick2 [ $nick ] writeini DM.ini $chan DM.Status2 ON notice $2- $+ $nick would like to DM you. Type !accept to accept the DM, or !decline to decline the DM. notice $nick You have sent a DM offer to $2 $+ . } } on *:TEXT:!accept:#: { if (($nick == $readini(DM.ini,$chan,Nick1) || $nick == $readini(DM.ini,$chan,Nick2)) && $readini(DM.ini,$chan,DM.Status) === ON) { notice $nick You're already in a DM. Either finish this one up, or type !Stop-DM to quit. halt } if ($nick == $readini(DM.ini,$chan,Nick1) && $readini(DM.ini,$chan,DM.Status2) == ON) { remini DM.ini $chan DM.Status2 writeini DM.ini $chan Nick1.Spec 4 writeini DM.ini $chan Nick2.Spec 4 writeini DM.ini $chan DM.Status ON writeini DM.ini $chan nick1.HP 99 writeini DM.ini $chan nick2.HP 99 writeini DM.ini $chan Nick1.Food 20 writeini DM.ini $chan Nick2.Food 20 writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,nick2) notice $readini(DM.ini,$chan,Nick2) $+ $nick has Accepted your DM. notice $readini(DM.ini,$chan,Nick1) You start with all the weapons (type !DM-commands to see them), 99 HP, $+ 4 DDS specs, and 20 sharks. notice $readini(DM.ini,$chan,Nick2) You start with all the weapons (type !DM-commands to see them), 99 HP, $+ 4 DDS specs, and 20 sharks. msg $chan $+ $readini(DM.ini,$chan,Nick2) has the first move. For help with commands, type !Dm-commands. halt } if ($readini(DM.ini,$chan,DM.Status2) != ON) { notice $nick There is currently no DM in proccess. To start a DM, type !DM then wait for the person to accept your DM offer. halt } } on *:Text:!decline:#: { if (($nick == $readini(DM.ini,$chan,Nick1) || $nick == $readini(DM.ini,$chan,Nick2)) && $readini(DM.ini,$chan,DM.Status) == ON) { notice $nick You're already in a DM. Either finish this one up, or type !Stop-DM to quit. halt } if ($readini(DM.ini,$chan,DM.Status) == ON && $nick == $readini(DM.ini,$chan,Nick1)) { notice $nick How can you decline a DM if you already accepted it.. >_> halt } if ($nick == $readini(DM.ini,$chan,Nick1) && $readini(DM.ini,$chan,DM.Status2) == ON) { writeini DM.ini $chan DM.Status OFF notice $readini(DM.ini,$chan,Nick2) $+ $nick has Declined your DM. notice $readini(DM.ini,$chan,Nick1) You have declined $readini(DM.ini,$chan,Nick2) $+ 's DM Offer. remini DM.ini $chan halt } if ($readini(DM.ini,$chan,Status2) != ON) { notice $nick There is currently no DM in proccess. To start a DM, type !DM then wait for the person to accept your DM offer. halt } } on *:Text:!DH:#: { if ($nick == $readini(DM.ini,$chan,Nick1) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { if ($readini(DM.ini,$chan,Nick1.HP) > 20) { writeini DM.ini $chan Hit.DH $rand(0,35) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) - $readini(DM.ini,$chan,Hit.DH) ) if ($Readini(DM.ini,$chan,Nick2.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DH) $+ ! $readini(DM.ini,$chan,Nick2) $+ 's health is now $readini(DM.ini,$chan,Nick2.HP) $+ . halt } if ($readini(DM.ini,$chan,Nick2.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DH) $+ $+ , leaving $readini(DM.ini,$chan,Nick2) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick1) for beating $readini(DM.ini,$chan,Nick2) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } Remini DM.ini $chan Hit.DH } if ($readini(DM.ini,$chan,Nick1.HP) <= 20) { writeini DM.ini $chan Hit.DH $rand(0,55) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) - $readini(DM.ini,$chan,Hit.DH) ) if ($readini(DM.ini,$chan,Nick2.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DH) $+ ! $readini(DM.ini,$chan,Nick2) $+ 's health is now $readini(DM.ini,$chan,Nick2.HP) $+ . halt } if $readini(DM.ini,$chan,Nick2.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DH) $+ $+ , leaving $readini(DM.ini,$chan,Nick2) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick1) for beating $readini(DM.ini,$chan,Nick2) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } Remini DM.ini $chan Hit.DH } } if ($nick == $readini(DM.ini,$chan,Nick2) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { if ($readini(DM.ini,$chan,Nick2.HP) > 20) { writeini DM.ini $chan Hit.DH $rand(0,35) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) - $readini(DM.ini,$chan,Hit.DH) ) if ($readini(DM.ini,$chan,Nick1.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.DH) $+ ! $readini(DM.ini,$chan,Nick1) $+ 's health is now $readini(DM.ini,$chan,Nick1.HP) $+ . halt } if ($readini(DM.ini,$chan,Nick1.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $calc( $readini(DM.ini,$chan,Hit.DH) - $readini(DM.ini,$chan,Nick1.HP) ) $+ $+ , leaving $readini(DM.ini,$chan,Nick1) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick2) for beating $readini(DM.ini,$chan,Nick1) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } Remini DM.ini $chan Hit.DH } if ($readini(DM.ini,$chan,Nick2.HP) <= 20) { writeini DM.ini $chan Hit.DH $rand(0,55) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) - $readini(DM.ini,$chan,Hit.DH) ) if ($readini(DM.ini,$chan,Nick1.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.DH) $+ ! $readini(DM.ini,$chan,Nick1) $+ 's health is now $readini(DM.ini,$chan,Nick1.HP) $+ . halt } if ($readini(DM.ini,$chan,Nick1.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $calc( $readini(DM.ini,$chan,Hit.DH) - $readini(DM.ini,$chan,Nick1.HP) ) $+ $+ , leaving $readini(DM.ini,$chan,Nick1) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick2) for beating $readini(DM.ini,$chan,Nick1) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } Remini DM.ini $chan Hit.DH } } if ($readini(DM.ini,$chan,DM.Status) == ON && $nick != $readini(DM.ini,$chan,Nick.Hitting)) { notice $nick Please wait, it is not your turn yet. halt } if ($readini(DM.ini,$chan,DM.Status) == OFF) { halt } } on *:Text:!Whip:#: { if ($readini(DM.ini,$chan,DM.Status) == ON && $nick != $readini(DM.ini,$chan,Nick.Hitting)) { notice $nick Please wait, it's not your turn yet. } if ($nick == $readini(DM.ini,$chan,Nick1) && $Nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan Hit.Whip $rand(0,35) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) - $readini(DM.ini,$chan,Hit.Whip) ) if ($readini(DM.ini,$chan,Nick2.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.Whip) $+ ! $readini(DM.ini,$chan,Nick2) $+ 's health is now $readini(DM.ini,$chan,nick2.HP) $+ . } if ($readini(DM.ini,$chan,Nick2.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.Whip) $+ $+ , leaving $readini(DM.ini,$chan,Nick2) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick1) for beating $readini(DM.ini,$chan,Nick2) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } remini DM.ini $chan Hit.Whip } if ($nick == $readini(DM.ini,$chan,Nick2) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan Hit.Whip $rand(0,35) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) - $readini(DM.ini,$chan,Hit.Whip) ) if ($readini(DM.ini,$chan,Nick1.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.Whip) $+ $+ , leaving $readini(DM.ini,$chan,Nick1) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick2) for beating $readini(DM.ini,$chan,Nick1) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } if ($readini(DM.ini,$chan,Nick1.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.Whip) $+ ! $readini(DM.ini,$chan,Nick1) $+ 's health is now $readini(DM.ini,$chan,Nick1.HP) $+ . } Remini DM.ini $chan Hit.Whip } if ($readini(DM.ini,$chan,DM.Status) == OFF) { halt } } on *:Text:!Dlong:#: { if ($readini(DM.ini,$chan,DM.Status) == ON && $nick != $readini(DM.ini,$chan,Nick.Hitting)) { notice $nick Please wait, it's not your turn yet. } if ($nick == $readini(DM.ini,$chan,Nick1) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan Hit.DLong $rand(0,25) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) - $readini(DM.ini,$chan,Hit.DLong) ) if ($readini(DM.ini,$chan,Nick2.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DLong) $+ ! $readini(DM.ini,$chan,Nick2) $+ 's health is now $readini(DM.ini,$chan,Nick2.HP) $+ . } if ($readini(DM.ini,$chan,Nick2.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DLong) $+ $+ , leaving $readini(DM.ini,$chan,Nick2) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick1) for beating $readini(DM.ini,$chan,Nick2) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } remini DM.ini $chan Hit.DLong } if ($nick == $readini(DM.ini,$chan,Nick2) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan Hit.DLong $rand(0,25) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) - $readini(DM.ini,$chan,Hit.DLong) ) if ($readini(DM.ini,$chan,Nick1.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.DLong) $+ ! $readini(DM.ini,$chan,Nick1) $+ 's health is now $readini(DM.ini,$chan,Nick1.HP) $+ . } if ($readini(DM.ini,$chan,Nick1.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.DLong) $+ $+ , leaving $readini(DM.ini,$chan,Nick1) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick2) for beating $readini(DM.ini,$chan,Nick1) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } Remini DM.ini $chan Hit.DLong } if ($readini(DM.ini,$chan,DM.Status) == OFF) { halt } } on *:Text:!DScimmy:#: { if ($readini(DM.ini,$chan,DM.Status) == ON && $nick != $readini(DM.ini,$chan,Nick.Hitting)) { notice $nick Please wait, it is not your turn yet. } if ($nick == $readini(DM.ini,$chan,Nick1) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan Hit.DScimmy $rand(0,30) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) - $readini(DM.ini,$chan,Hit.DScimmy) ) if ($readini(DM.ini,$chan,Nick2.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DScimmy) $+ ! $readini(DM.ini,$chan,Nick2) $+ 's health is now $readini(DM.ini,$chan,Nick2.HP) $+ . } if ($readini(DM.ini,$chan,Nick2.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just hit $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,Hit.DScimmy) $+ $+ , leaving $readini(DM.ini,$chan,Nick2) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick1) for beating $readini(DM.ini,$chan,Nick2) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } remini DM.ini $chan Hit.DScimmy } if ($nick == $readini(DM.ini,$chan,Nick2) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan Hit.DScimmy $rand(0,30) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) - $readini(DM.ini,$chan,Hit.DScimmy) ) if ($readini(DM.ini,$chan,Nick1.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.DScimmy) $+ ! $readini(DM.ini,$chan,Nick1) $+ 's health is now $readini(DM.ini,$chan,Nick1.HP) $+ . } if ($readini(DM.ini,$chan,Nick1.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just hit $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,Hit.DScimmy) $+ $+ , leaving $readini(DM.ini,$chan,Nick1) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick2) for beating $readini(DM.ini,$chan,Nick1) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } Remini DM.ini $chan Hit.DScimmy } if ($readini(DM.ini,$chan,DM.Status) == OFF) { halt } } on *:Text:!DDS:#: { if ($readini(DM.ini,$chan,DM.Status) == ON && $nick != $readini(DM.ini,$chan,Nick.Hitting)) { notice $nick Please wait, it is not your turn yet. } if ($chan Nick1.Spec == 0) { notice $nick You don't have anymore specs left, please choose a different move. } if ($nick == $readini(DM.ini,$chan,Nick1) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan DDS1 $rand(0,20) writeini DM.ini $chan DDS2 $rand(0,20) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) writeini DM.ini $chan Nick1.Spec $calc( $readini(DM.ini,$chan,Nick1.Spec) - 1 ) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) - ( $readini(DM.ini,$chan,DDS1) + $readini(DM.ini,$chan,DDS2) ) ) if ($readini(DM.ini,$chan,Nick2.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just speced $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,DDS1) $+(,-,) $readini(DM.ini,$chan,DDS2) $+ $+ , leaving $readini(DM.ini,$chan,Nick2) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick1) for beating $readini(DM.ini,$chan,Nick2) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } if ($readini(DM.ini,$chan,Nick2.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick1) just speced $readini(DM.ini,$chan,Nick2) for $readini(DM.ini,$chan,DDS1) $+(,-,) $readini(DM.ini,$chan,DDS2) $+ ! $readini(DM.ini,$chan,Nick2) $+ 's health is now $readini(DM.ini,$chan,Nick2.HP) $+ . notice $readini(DM.ini,$chan,Nick1) You have $readini(DM.ini,$chan,Nick1.Spec) DDS specs left. } Remini DM.ini $chan DDS1 Remini DM.ini $chan DDS2 } if ($chan Nick2.Spec == 0) { notice $nick You don't have anymore specs left, please choose a different move. } if ($nick == $readini(DM.ini,$chan,Nick2) && $nick == $readini(DM.ini,$chan,Nick.Hitting)) { writeini DM.ini $chan DDS1 $rand(0,20) writeini DM.ini $chan DDS2 $rand(0,20) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) writeini DM.ini $chan Nick2.Spec $calc( $readini(DM.ini,$chan,Nick2.Spec) - 1 ) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) - ( $readini(DM.ini,$chan,DDS1) + $readini(DM.ini,$chan,DDS2) ) ) if ($readini(DM.ini,$chan,Nick1.HP) > 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just speced $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,DDS1) $+(,-,) $readini(DM.ini,$chan,DDS2) $+ ! $readini(DM.ini,$chan,Nick1) $+ 's health is now $readini(DM.ini,$chan,Nick1.HP) $+ . notice $readini(DM.ini,$chan,Nick2) You have $readini(DM.ini,$chan,Nick2.Spec) DDS specs left. } if ($readini(DM.ini,$chan,Nick1.HP) <= 0) { msg $chan $+ $readini(DM.ini,$chan,Nick2) just speced $readini(DM.ini,$chan,Nick1) for $readini(DM.ini,$chan,DDS1) $+(,-,) $readini(DM.ini,$chan,DDS2) $+ $+ , leaving $readini(DM.ini,$chan,Nick1) with 0 health. msg $chan Congratulations to $readini(DM.ini,$chan,Nick2) for beating $readini(DM.ini,$chan,Nick1) in a DM! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } Remini DM.ini $chan DDS1 Remini DM.ini $chan DDS2 } if ($readini(DM.ini,$chan,DM.Status) == OFF) { halt } } on *:TEXT:!eat:#: { if ($readini(DM.ini,$chan,DM.Status) == ON && $nick != $readini(DM.ini,$chan,Nick.Hitting)) { notice $nick Please wait, it is not your turn yet. } if ($nick == $readini(DM.ini,$chan,Nick1) && $readini(DM.ini,$chan,Nick1.HP) == 99) { notice $nick You have 99 health already... Please chose another move. } if ($nick == $readini(DM.ini,$chan,Nick2) && $readini(DM.ini,$chan,Nick1.HP) == 99) { notice $nick You have 99 health already... Please chose another move. } if ($nick == $readini(DM.ini,$chan,Nick1) && $readini(DM.ini,$chan,Nick1.Food) == 0) { notice $nick You don't have any sharks left. Please chose another move. } if ($nick == $readini(DM.ini,$chan,Nick2) && $readini(DM.ini,$chan,Nick2.Food) == 0) { notice $nick You don't have any sharks left. Please chose another move. } if ($nick == $readini(DM.ini,$chan,Nick1) && $nick == $readini(DM.ini,$chan,Nick.Hitting) && $readini(DM.ini,$chan,Nick1.HP) != 99) { if ($readini(DM.ini,$chan,Nick1.HP) >= 79) { writeini DM.ini $chan Nick1.Food $calc( $readini(DM.ini,$chan,Nick1.Food) - 1 ) writeini DM.ini $chan Nick1.HP 99 writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) msg $chan $+ $readini(DM.ini,$chan,Nick1) just ate a shark, leaving him with $readini(DM.ini,$chan,Nick1.HP) health. notice $readini(DM.ini,$chan,Nick1) You now have $readini(DM.ini,$chan,Nick1.Food) sharks left. } if ($readini(DM.ini,$chan,Nick1.HP) < 79) { writeini DM.ini $chan Nick1.Food $calc( $readini(DM.ini,$chan,Nick1.Food) - 1 ) writeini DM.ini $chan Nick1.HP $calc( $readini(DM.ini,$chan,Nick1.HP) + 20 ) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick2) msg $chan $+ $readini(DM.ini,$chan,Nick1) just ate a shark, leaving him with $readini(DM.ini,$chan,Nick1.HP) health. notice $readini(DM.ini,$chan,Nick1) You now have $readini(DM.ini,$chan,Nick1.Food) sharks left. } } if ($nick == $readini(DM.ini,$chan,Nick2) && $nick == $readini(DM.ini,$chan,Nick.Hitting) && $readini(DM.ini,$chan,Nick2.HP) != 99) { if ($readini(DM.ini,$chan,Nick2.HP) >= 79) { writeini DM.ini $chan Nick2.Food $calc( $readini(DM.ini,$chan,Nick2.Food) - 1 ) writeini DM.ini $chan Nick2.HP 99 writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) msg $chan $+ $readini(DM.ini,$chan,Nick2) just ate a shark, leaving him with $readini(DM.ini,$chan,Nick2.HP) health. notice $readini(DM.ini,$chan,Nick2) You now have $readini(DM.ini,$chan,Nick2.Food) sharks left. } if ($readini(DM.ini,$chan,Nick2.HP) < 79) { writeini DM.ini $chan Nick2.Food $calc( $readini(DM.ini,$chan,Nick2.Food) - 1 ) writeini DM.ini $chan Nick2.HP $calc( $readini(DM.ini,$chan,Nick2.HP) + 20 ) writeini DM.ini $chan Nick.Hitting $readini(DM.ini,$chan,Nick1) msg $chan $+ $readini(DM.ini,$chan,Nick2) just ate a shark, leaving him with $readini(DM.ini,$chan,Nick2.HP) health. notice $readini(DM.ini,$chan,Nick2) You now have $readini(DM.ini,$chan,Nick2.Food) sharks left. } } if ($readini(DM.ini,$chan,DM.Status) == OFF) { halt } } on *:Text:!Stop-DM:#: { if ($nick == Deadly1_4u) { remini DM.ini $chan msg $chan My owner, Deadly1_4u has just stopped the DM. } if ($nick == $me) { remini DM.ini $chan msg $chan I have stopped the DM. } if ($nick == $readini(DM.ini,$chan,Nick2)) { msg $chan $+ $readini(DM.ini,$chan,Nick2) requested to stop the DM, so $readini(DM.ini,$chan,Nick1) wins by default! Congratulations $readini(DM.ini,$chan,Nick1) $+ ! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } if ($nick == $readini(DM.ini,$chan,Nick1)) { msg $chan $+ $readini(DM.ini,$chan,Nick1) requested to stop the DM, so $readini(DM.ini,$chan,Nick2) wins by default! Congradulations $readini(DM.ini,$chan,Nick2) $+ ! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } } on *:Part:#: { if ($nick == $readini(DM.ini,$chan,Nick1)) { msg $chan $+ $nick just left the chat, so $readini(DM.ini,$chan,Nick2) wins by default! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick1) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,($readini(DM.ini,$chan,Nick2))) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick2) 1 } remini DM.ini $chan } if ($nick == $readini(DM.ini,$chan,Nick2)) { msg $chan $+ $nick just left the chat, so $readini(DM.ini,$chan,Nick1) wins by default! if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) != $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick2)) + 1 ) } if ($readini(DM.ini,DM-Results-Win,$readini(DM.ini,$chan,Nick2)) == $null) { writeini DM.ini DM-Results-Win $readini(DM.ini,$chan,Nick2) 1 } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) != $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) $calc( $readini(DM.ini,DM-Results-win,$readini(DM.ini,$chan,Nick1)) + 1 ) } if ($readini(DM.ini,DM-Results-lose,$readini(DM.ini,$chan,Nick1)) == $null) { writeini DM.ini DM-Results-lose $readini(DM.ini,$chan,Nick1) 1 } remini DM.ini $chan } else { halt } }