All pastes #526452 Raw Edit

Untitled

public text v1 · immutable
#526452 ·published 2007-05-31 20:25 UTC
rendered paste body
on *:text:!dm on*:#: {
  if ($nick isop $chan || $nick == Daryl|) { 
    set %dmatch $+ $chan on
    msg $chan DeathMatch has been turned on
  }
}

on *:text:!dm off*:#: {
  if ($nick isop $chan || $nick == Daryl|) {
    set %dmatch $+ $chan off
    msg $chan DeathMatch has been turned off
  }
}


on *:text:!dm:#: {
  if (%dmatch [ $+ [ $chan ] ] == off) { HALT }
  if (%dm.1 !== active) && (%dm.2 !== active) {
    set %dm.1 active
    set %dm.p1 $nick
    msg $chan 4A 3deathmatch4 has been started by3 %dm.p1 $+ ,4 type !dm to fight them. For the commands type !dmc
    halt
  }
  if (%dm.1 == active) {
    if (%dm.p1 !== $nick) {
      unset %dm.1
      set %dm.2 active
      set %dm.p2 $nick
      set %dm.h1 99
      set %dm.h2 99
      set %dm.s1 100
      set %dm.s2 100
      set %dm.f1 15
      set %dm.f2 15
      msg $chan 4The 3deathmatch 4has started!3 %dm.p1 4vs.3 %dm.p2 $+ . 4For the commands type !dmc
      set %dm.turn $rand(1,2)
      if (%dm.turn == 1) {
        set %dm.turn2 %dm.p1
        msg $chan It is %dm.p1 $+ 's go first.
        halt
      }
      if (%dm.turn == 2) {
        set %dm.turn2 %dm.p2
        msg $chan It is %dm.p2 $+ 's go first.
        halt
      }
    }
    else { notice $nick You can't play yourself. | halt }
  }
  if (%dm.2 == active) { notice $nick A dm is already being played! }
}

on *:text:!dmc:#: {
  msg $nick !sdm <-- stops the dm
  msg $nick !dds <-- Does dds spec Max hit for each hit 25, also drains 25% spec bar.
  msg $nick !whip <-- Hits opponent with whip, max hit 35.
  msg $nick !eat <-- You eat a shark healing 20 health.
  msg $nick !charge <-- Charges 20% spec bar.
  msg $nick !dscim <-- Max hit 25 No spec drain added
  msg $nick !barrage <-- Max hit 30 freezes opponent for 1 turn, but take 30% spec.
  msg $nick !dh <-- Max hit 60 Needs under 15hp to be used.
  notice $nick Look at my PM for the commands!
}

on *:text:!sdm:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %dm.p1) || ($nick == %dm.p2) {
    unset %dm.*
    msg $chan Deathmatch has been stopped. 
  }
  else { notice $nick You do not have the permission to do that. 
  }
}

on *:text:!dds:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      if (%dm.s1 >= 25) {
        if (%dm.fr1 !== 1) {
          set %dm.hp %dm.h2
          set %dm.hit $rand(0,25)
          set %dm.hit2 $rand(0,25)
          dec %dm.h2 %dm.hit
          dec %dm.h2 %dm.hit2
          dec %dm.s1 25
          if (%dm.h2 <= 0) {
            set %dm.dds $calc( %dm.hp / 2 )
            set %dm.h2 0
            set %dm.hit $floor(%dm.dds)
            set %dm.hit2 $ceil(%dm.dds)
          }
          msg $chan 3 %dm.p2 4hits3 %dm.hit and %dm.hit2 4on3 %dm.p2 4they now have3 %dm.h2 4Hp.
          notice $nick You now have %dm.s1 $+ % spec bar left
          set %dm.turn2 %dm.p2
          if (%dm.h2 <= 0) {
            msg $chan %dm.p1 Wins, type !dm to play again.
            unset %dm.*
            halt
          }
          halt
        }
        else { notice $nick You are frozen please !eat or !charge }
      }
      else { 
        notice $nick You Do not have enough special bar left. Your turn has been skipped to recharge special.
        msg $chan %dm.p1 $+ 's turn was skipped to recharge spec.
        set %dm.s1 $calc( %dm.s1 + 25 )
        set %dm.turn2 %dm.p2
        halt
      }
      else { notice $nick You aren't playing or it isnt your turn. | halt }
    }
  }
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      if (%dm.s2 >= 25) {
        if (%dm.fr2 !== 1) {
          set %dm.hp2 %dm.h1
          set %dm.hit $rand(0,25)
          set %dm.hit2 $rand(0,25)
          dec %dm.h1 %dm.hit
          dec %dm.h1 %dm.hit2
          dec %dm.s2 25
          if (%dm.h1 <= 0) {
            set %dm.dds $calc( %dm.hp2 / 2 )
            set %dm.h1 0
            set %dm.hit $floor(%dm.dds)
            set %dm.hit2 $ceil(%dm.dds)
          }
          msg $chan 3 %dm.p2 4hits3 %dm.hit and %dm.hit2 4on3 %dm.p1 4they now have3 %dm.h1 4Hp.
          notice $nick You now have %dm.s2 $+ % spec bar left.
          set %dm.turn2 %dm.p1
          if (%dm.h1 <= 0) {
            msg $chan %dm.p2 Wins, type !dm to play again.
            unset %dm.*
            halt
          }
          halt
        }
        else { notice $nick You are frozen please !eat or !charge }
      }
      else {
        notice $nick You Do not have enough special bar left. Your turn has been skipped to recharge special.
        msg $chan %dm.p2 $+ 's turn was skipped to recharge spec.
        set %dm.s2 $calc( %dm.s2 + 25 )
        set %dm.turn2 %dm.p1
      }
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
}

on *:text:!whip:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      if (%dm.fr1 !== 1) {
        set %dm.hp1 %dm.h2
        set %dm.hit $rand(0,35)
        dec %dm.h2 %dm.hit
        if (%dm.h2 <= 0) {
          set %dm.hit %dm.hp1
          set %dm.h2 0
        }
        msg $chan %dm.p1 hit %dm.hit on %dm.p2 $+ , they now have %dm.h2 hp.
        set %dm.turn2 %dm.p2
        if (%dm.h2 <= 0) {
          msg $chan %dm.p1 Wins, type !dm to play again.
          unset %dm.*
          halt
        }
        halt
      }
      else { notice $nick You are frozen please !eat or !charge }
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      if (%dm.fr2 !== 1) {
        set %dm.hp2 %dm.h1
        set %dm.hit $rand(0,35)
        dec %dm.h1 %dm.hit
        if (%dm.h1 <= 0) {
          set %dm.hit %dm.hp2
          set %dm.h1 0
        }
        msg $chan 3 %dm.p2 4hits3 %dm.hit 4on3 %dm.p1 4they now have3 %dm.h1 4Hp.
        set %dm.turn2 %dm.p1
        if (%dm.h1 <= 0) {
          msg $chan %dm.p2 Wins, type !dm to play again.
          unset %dm.*
          halt
        }
        halt
      }
      else { notice $nick You are frozen please !eat or !charge }
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
}
on *:text:!eat:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      if (%dm.f1 > 0) {
        unset %dm.fr1
        inc %dm.h1 20
        dec %dm.f1
        set %dm.turn2 %dm.p2
        if (%dm.h1 > 99) {
          set %dm.h1 99
        }
        msg $chan 3 %dm.p1 4eats a shark healing some health, they now have3 %dm.h1 4Hp.
        notice $nick You have %dm.f1 sharks left.
        halt
      }
      else { your all outta sharks }
      halt
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      if (%dm.f2 > 0) {
        unset %dm.fr2
        inc %dm.h2 20
        dec %dm.f2
        set %dm.turn2 %dm.p1
        if (%dm.h2 > 99) {
          set %dm.h2 99
        }
        msg $chan 3 %dm.p2 4eats a shark healing some health, they now have3 %dm.h2 4Hp.
        notice $nick You have %dm.f2 sharks left. 
        halt
      }
      else { notice $nick Your all outta sharks }
      halt
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
}

on *:text:!charge:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      unset %dm.fr1
      inc %dm.s1 20
      set %dm.turn2 %dm.p2
      if (%dm.s1 > 100) {
        set %dm.s1 100
      }
      msg $chan 3 %dm.p1 4charges there spec bar they now have3 %dm.s1 $+ % 4left
      halt
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      unset %dm.fr2
      inc %dm.s2 20
      set %dm.turn2 %dm.p1
      if (%dm.s2 > 100) {
        set %dm.s2 100
      }
      msg $chan 3 %dm.p2 4charges there spec bar they now have3 %dm.s2 $+ % 4left
      halt
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
}

on *:text:!dscim:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      if (%dm.fr1 !== 1) {
        set %dm.hp1 %dm.h2
        set %dm.hit $rand(0,25)
        dec %dm.h2 %dm.hit
        if (%dm.h2 <= 0) {
          set %dm.hit %dm.hp1
          set %dm.h2 0
        }
        msg $chan 3 %dm.p1 4hits3 %dm.hit 4on3 %dm.p2 4they now have3 %dm.h2 4Hp.
        set %dm.turn2 %dm.p2
        if (%dm.h2 <= 0) {
          msg $chan %dm.p1 wins. Type !dm to play again
          unset %dm.*
          halt
        }
        halt
      }
      else { notice $nick You are frozen please !eat or !charge }
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      if (%dm.fr2 !== 1) {
        set %dm.hp2 %dm.h1
        set %dm.hit $rand(0,25)
        dec %dm.h1 %dm.hit
        if (%dm.h1 <= 0) {
          set %dm.hit %dm.hp2
          set %dm.h1 0
        }
        msg $chan 3 %dm.p2 4hits3 %dm.hit 4on3 %dm.p1 4they now have3 %dm.h1 4Hp.
        set %dm.turn2 %dm.p1
        if (%dm.h1 <= 0) {
          msg $chan %dm.p2 wins. Type !dm to play again.
          unset %dm.*
          halt
        }
        halt
      }
      else { notice $nick You are frozen please !eat or !charge }
    }
    else { notice $nick You aren't playing or it isnt your turn. | halt }
  }
}
on *:text:!barrage:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      if (%dm.s1 >= 30) {
        if (%dm.fr1 !== 1) {
          set %dm.hp1 %dm.h2
          set %dm.hit $rand(5,30)
          dec %dm.h2 %dm.hit
          dec %dm.s1 30
          set %dm.fr2 1
          if (%dm.h2 <= 0) {
            set %dm.hit %dm.hp1
            set %dm.h2 0
          }
          msg $chan 3 %dm.p1 4hits3 %dm.hit 4on3 %dm.p2 4they now have3 %dm.h2 4Hp, and is frozen for one turn!
          notice $nick You now have %dm.s1 $+ % spec bar left
          set %dm.turn2 %dm.p2
          if (%dm.h2 <= 0) {
            msg $chan %dm.p1 wins. Type !dm to play again.
            unset %dm.*
            halt
          }
          halt
        }
        else { notice $nick You are frozen please !eat or !charge }
      }
      else {
        notice $nick You do not have enough special left, skipping turn to recharge spec.
        msg $chan %dm.p1 $+ 's turn was skipped to recharge spec.
        set %dm.s1 $calc( %dm.s1 + 25 )
        set %dm.turn2 %dm.p2
        halt
      }
    }
    else { notice $nick You aren't playing or it isn't your turn. | halt }
  }  
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      if (%dm.s2 >= 30) {
        if (%dm.fr2 !== 1) {
          set %dm.hp2 %dm.h1
          set %dm.hit $rand(5,30)
          dec %dm.h1 %dm.hit
          dec %dm.s2 30
          set %dm.fr1 1
          if (%dm.h1 <= 0) {
            set %dm.hit %dm.hp2
            set %dm.h1 0
          }
          msg $chan 3 %dm.p2 4hits3 %dm.hit 4on3 %dm.p1 4they now have3 %dm.h1 4Hp, and is frozen for one turn!
          notice $nick You now have %dm.s2 $+ % spec bar left
          set %dm.turn2 %dm.p1
          if (%dm.h1 <= 0) {
            msg $chan %dm.p2 wins. Type !dm to play again.
            unset %dm.*
            halt
          }
          halt
        }
        else { notice $nick You are frozen please !eat or !charge }
      }
      else {
        notice $nick You do not have enough special left, skipping turn to recharge spec. 
        msg $chan %dm.p2 $+ 's turn was skipped to recharge spec.
        set %dm.s2 $calc( %dm.s2 + 25 )
        set %dm.turn2 %dm.p1
        halt
      }
      halt
    }
    else { notice $nick You aren't playing or it isn't your turn. | halt }   
  }
}
on *:text:!dh:#: {
  if (%dm.turn2 == %dm.p1) {
    if (%dm.p1 == $nick) {
      if (%dm.h1 <= 15) {
        if (%dm.fr1 !== 1) {
          set %dm.hp1 %dm.h2
          set %dm.hit $rand(0,70)
          dec %dm.h2 %dm.hit
          if (%dm.h2 <= 0) {
            set %dm.hit %dm.hp1
            set %dm.h2 0
          }
          msg $chan 3 %dm.p1 4hits3 %dm.hit 4on3 %dm.p2 4they now have3 %dm.h2 4Hp.
          set %dm.turn2 %dm.p2
          if (%dm.h2 <= 0) {
            msg $chan %dm.p1 wins. Type !dm to play again.
            unset %dm.*
            halt
          }
          halt
        }
        else { notice $nick You are frozen please !eat or !charge | halt }
      }
      else {
      notice $nick You have to have 15 or lower hp to use this! | halt }
    }
    else { notice $nick You aren't playing or it isn't your turn. | halt }
  }  
  if (%dm.turn2 == %dm.p2) {
    if (%dm.p2 == $nick) {
      if (%dm.h2 <= 15) {
        if (%dm.fr2 !== 1) {
          set %dm.hp2 %dm.h1
          set %dm.hit $rand(0,70)
          dec %dm.h1 %dm.hit
          if (%dm.h1 <= 0) {
            set %dm.hit %dm.hp2
            set %dm.h1 0
          }
          msg $chan 3 %dm.p2 4hits3 %dm.hit 4on3 %dm.p1 4they now have3 %dm.h1 4Hp.
          set %dm.turn2 %dm.p1
          if (%dm.h1 <= 0) {
            msg $chan %dm.p2 wins. Type !dm to play again.
            unset %dm.*
            halt
          }
          halt
        }
        else { notice $nick You are frozen please !eat or !charge }
      }
      else {
        notice $nick You have to have 15 hp or lower to use that.
        halt
      }
      halt
    }
    else { notice $nick You aren't playing or it isn't your turn. | halt }   
  }
}