rendered paste bodyon *: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 <Nick Here>.
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 <Name of person to 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 <Name of person to 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 }
}