on $*:TEXT:/^[@!](DM|Duel)/Si:#:{
if ($readini(dm.ini,$chan,Player1) == $nick) {
notice $nick Why would you want to kill yourself Dumbass.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
writeini dm.ini $chan Status ON2
writeini dm.ini $chan Player2 $nick
writeini dm.ini $chan Shark1 10
writeini dm.ini $chan Shark2 10
writeini dm.ini $chan Hp1 99
writeini dm.ini $chan Hp2 99
writeini dm.ini $chan Turn 1
.timer $+ $chan $+ 1 off
.timer $+ $chan $+ 2 off
notice $readini(dm.ini,$chan,Player1) $c1(You have) $c2(99) $c1(HitPoints and 10 Shark. Type !Eat to eat and !Slash to attack.)
notice $readini(dm.ini,$chan,Player2) $c1(You have) $c2(99) $c1(HitPoints and 10 Shark. Type !Eat to eat and !Slash to attack.)
msg $chan Lets FIGHT!
msg $chan Its $readini(dm.ini,$chan,Player1) $+ 's turn.
halt
}
if ($readini(dm.ini,$chan,Status) == $null) {
writeini dm.ini $chan Status ON
writeini dm.ini $chan Player1 $nick
msg $chan $nick has initiated the DM Commands. You have 30 seconds to type !DM to fight $nick $+ .
.timer $+ $chan $+ 1 1 30 msg $chan Sorry but 30 seconds are up. Dm Halted
.timer $+ $chan $+ 2 1 30 remini dm.ini $chan
halt
}
if ($readini(dm.ini,$chan,Status) == ON2) {
notice $nick Sorry there is already a dm.
halt
}
}
on $*:TEXT:/^[@!]Slash/Si:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick Theres not even a dm...
halt
}
if ($readini(dm.ini,$chan,Status) == ON && $readini(dm.ini,$chan,Player1) == $nick) {
notice $nick Please wait...
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick Type !DM Hurry to join.
halt
}
if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick) {
writeini dm.ini $chan OldHp2 $readini(dm.ini,$chan,hp2)
writeini dm.ini $chan Hit $rand(1,30)
writeini dm.ini $chan hp2 $calc( $readini(dm.ini,$chan,hp2) - $readini(dm.ini,$chan,Hit) )
if ($readini(dm.ini,$chan,hp2) <= 0) {
msg $chan $nick swings at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,OldHp2) leaving $readini(dm.ini,$chan,Player2) with 0 HitPoints.
.timer 1 3 msg $chan $nick has Won!
remini dm.ini $chan
halt
}
else {
msg $chan $nick swings at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,Hit) leaving $readini(dm.ini,$chan,Player2) with $readini(dm.ini,$chan,hp2) HitPoints.
writeini dm.ini $chan Turn 2
halt
}
}
if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick) {
writeini dm.ini $chan OldHp1 $readini(dm.ini,$chan,hp1)
writeini dm.ini $chan Hit $rand(1,30)
writeini dm.ini $chan hp1 $calc( $readini(dm.ini,$chan,hp1) - $readini(dm.ini,$chan,Hit) )
if ($readini(dm.ini,$chan,hp1) <= 0) {
msg $chan $nick swings at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,OldHp1) leaving $readini(dm.ini,$chan,Player1) with 0 HitPoints.
.timer 1 3 msg $chan $nick has Won!
remini dm.ini $chan
halt
}
else {
msg $chan $nick swings at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,Hit) leaving $readini(dm.ini,$chan,Player1) with $readini(dm.ini,$chan,hp1) HitPoints.
writeini dm.ini $chan Turn 1
halt
}
}
else {
notice $nick Its either not your turn or your not in this game.
}
}
on $*:TEXT:/^[@!](eat|heal)/Si:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick Theres not even a dm...
halt
}
if ($readini(dm.ini,$chan,Status) == ON && $readini(dm.ini,$chan,Player1) == $nick) {
notice $nick Please wait...
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick Type !DM Hurry to join.
halt
}
if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Shark2) <= 0) {
notice $nick You dont have any shark left.
halt
}
if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Shark1) <= 0) {
notice $nick You dont have any shark left.
halt
}
if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick) {
writeini dm.ini $chan hp1 $calc( $readini(dm.ini,$chan,hp1) + 20 )
writeini dm.ini $chan Shark1 $calc( $readini(dm.ini,$chan,Shark1) -1 )
if ($readini(dm.ini,$chan,hp1) >= 100) {
writeini dm.ini $chan hp1 $calc( $readini(dm.ini,$chan,hp1) - 20 )
writeini dm.ini $chan Shark1 $calc( $readini(dm.ini,$chan,Shark1) +1 )
notice $nick You cant have more than 99 HitPoints!
halt
}
else {
msg $chan $nick eats a shark giving him $readini(dm.ini,$chan,hp1) HitPoints
notice $nick You now have $readini(dm.ini,$chan,Shark1) shark left
writeini dm.ini $chan Turn 2
halt
}
}
if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick) {
writeini dm.ini $chan hp2 $calc( $readini(dm.ini,$chan,hp2) + 20 )
writeini dm.ini $chan Shark2 $calc( $readini(dm.ini,$chan,Shark2) -1 )
if ($readini(dm.ini,$chan,hp2) >= 100) {
writeini dm.ini $chan hp2 $calc( $readini(dm.ini,$chan,hp2) - 20 )
writeini dm.ini $chan Shark2 $calc( $readini(dm.ini,$chan,Shark2) +1 )
notice $nick You cant have more than 99 HitPoints!
halt
}
else {
msg $chan $nick eats a shark giving him $readini(dm.ini,$chan,hp2) HitPoints
notice $nick You now have $readini(dm.ini,$chan,Shark2) shark left
writeini dm.ini $chan Turn 1
halt
}
}
}
on $*:TEXT:/^[@!](StopDM|StopDuel)/Si:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
if (Duel isin $1) {
notice $nick There is no duel for $chan
halt
}
if (dm isin $1) {
notice $nick There is no DM for $chan
halt
}
}
if ($nick isop $chan || $nick ishop $chan || $nick == $readini(dm.ini,$chan,Player2) || $nick == $readini(dm.ini,$chan,Player1)) {
remini dm.ini $chan
if (Duel isin $1) {
msg $chan Duel for $chan has been halted.
halt
}
if (dm isin $1) {
msg $chan Dm for $chan has been halted.
halt
}
}
else {
notice $nick Halfop+
}
}