Unnamed

on *:text:!av*:#:{
  if ($Nick isop $chan) {
    /cs access $chan add $2 3
    /msg $chan -ChanServ- $2 added to $chan access list at level 3.
  }
}
on *:text:!ah*:#:{
  if ($nick isop $chan) {
    /cs access $chan add $2 4
    /msg $chan -ChanServ- $2 added to $chan access list at level 4.
  }
}
on *:text:!ao*:#:{
  if ($nick isop $chan) {
    /cs access $chan add $2 5
    /msg $chan -ChanServ- $2 added to $chan access list at level 5.
  }
}
on $*:text:/^[!@.]urban/Si:#:{
  sockclose urban
  set %word $2
  set %output.urban $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen urban www.o-ss.net 80
}
ON *:SOCKOPEN:urban:{
  sockwrite -nt $sockname GET /parsers/urban.php?word= $+ %word HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:urban:{
  if ($sockerr) {
    echo -a Error in word lookup
    sockclose $sockname
    halt
  }
  else {
    var %read
    sockread %read
    if (*end* iswm %read || *&quot* iswm %read || *;* iswm %read) { %output.urban *** $chr(91) Urban $chr(93) : %word - $remove(%read,end,&quot,;) }
  }
}
on *SOCKCLOSE:urban:{
  unset %word
  unset %output.urban
  socklose $sockname
}
on $*:TEXT:/^[!~@'](alch)/Si:#: {
  if (!$2) { $iif(@ isin $1,msg $chan,notice $nick) Please Search For Something | halt }
  var %rand = $right($ticks,6)
  set %display. [ $+ [ %rand ] ] $iif(@ isin $1,msg $chan,notice $nick)
  set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
  sockopen alch. $+ %rand tip.it 80
}
on *:sockopen:alch.*:{
  sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=&notes=&link=&credits=&search=search HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:alch.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
    if (*<a href="index.php?* iswm %read) {
      set %remover $remove($htmlfree(%read),$chr(9))
      set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
      sockopen alchinfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
    }
  }
}
on *:SOCKOPEN:alchinfo.*:{
  sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:alchinfo.*:{
  if ($sockerr) { halt }
  else {
    sockread %read2
    if (*<td class="header" width="25%">* iswm %read2) {
      set %info $htmlfree(%read2)
    }
    if (*gp* iswm %read2) { set %alchprice %read2
      set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))     
    }
  }
}
on *:sockclose:alchinfo.*:{
  %display. [ $+ [ $right($sockname,6) ] ] $c2($titlecase($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32)))) $remove(%finalinfo,$chr(9))
  unset %finalinfo
  unset %item.*
  unset %display.*
} 
on *:TEXT:!setRequirements*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$2) {
    notice $nick Syntax:!setRequirements <Requirements> }
    else { 
      set %reqers [ $+ [ $chan ]  ] $2-
      msg $chan The Requirements For $chan Have Changed Your Status Is In Danger. Please Type !Requirements
    }
  }
}
on *:TEXT:!Requirements*:#: {
  if (!%reqers [ $+ [ $chan ] ]) {
  /notice $nick There Isnt Requirements }
  else {
  notice $nick The Requirements for $chan are: %reqers [ $+ [ $chan ] ] }
}
on *:TEXT:!milk*:#: {
  if ($3-) { halt }
  if ($2 == $null) { msg $chan $nick hands a nice cold glass of milk to $nick $+ .  }
  else { msg $chan $nick hands a nice cold glass of milk to $2 $+ . }
} 
on *:TEXT:!pancakes*:#: {
  if ($3-) { halt }
  if ($2 == $null) { msg $chan $nick hands a plate full of fresh pancakes with syrup $nick $+ .  }
  else { msg $chan $nick hands a plate full of fresh pancakes with syrup to $2 $+ . }
} 
on *:TEXT:!waffles*:#: {
  if ($3-) { halt }
  if ($2 == $null) { msg $chan $nick hands a plate full of fresh waffles with some nice maple syrup to $nick $+ .  }
  else { msg $chan $nick hands a plate full of fresh waffles with some nice maple syrup to $2 $+ . }
} 
on $*:text:/^[!@]phat/Si:#:{
  if ($left($2,1) == $chr(35)) {
    msg $chan $+($chr(3),$right($2,2)) $+ |\/\/| $iif($3,$3-)
    msg $chan $+($chr(3),$right($2,2)) $+ |____|
  }
  else {
    var %rand = $rand(1,15)
    msg $chan $+($chr(3),%rand) $+ |\/\/| $iif($2,$2-)
    msg $chan $+($chr(3),%rand) $+ |____|
  }
}
on *:TEXT:!Set-Goal*:#: { if (!$2) {
  notice $nick Summit A Goal First }
  else { 
    set %goalscript [ $+ [ $nick ] ] $2-
    notice $nick Your Goal Just Got Updated! Goal: %goalscript [ $+ [ $nick ] ]
  }
}
on *:TEXT:!See-Goal*:#: {
  if (!%goalscript [ $+ [ $nick ] ]) {
  /notice $nick Your Gonna View Goal You Havent Set Huh? !SetGoal To Set One }
  else {
  notice $nick $nick Your Goal Is %goalscript [ $+ [ $nick ] ] }
}
on *:TEXT:!Goal-Achieved*:#: {
  if (!%goalscript [ $+ [ $nick ] ]) {
  /notice $nick Your Gonna Achieve A Goal You Havent Set Huh? !Set-Goal To Set One }
  else {
    notice $nick Gratz On Achieving %goalscript $nick I Bet Your Proud![ $+ [ $nick ] ]
  unset %goal [ $+ [ $nick ] ] }
}
on *:TEXT:!Delete-Goal*:#:{
  if (!%goalscript [ $+ [ $nick ] ]) {
  /notice $nick Your Gonna Delete A Goal You Havent Set Huh? !Set-Goal To Set One }
  else {
    unset %goalscript [ $+ [ $nick ] ]
  notice $nick Your Goal $2- Was Just Deleted }
}
ON *:JOIN:#:{
  inc %person
  msg $chan 10,5Welcome $nick $+ |You're the %person $+ 'th person that has joined this channel $chan since I started counting, please enjoy your stay and if you are not already in #dtp ,please come and type !commands for my commands.
}
ON *:TEXT:!commands*:#:{
  msg $nick ---HostileBot by: Hostile, Our main channel is #dtp Check it out sometime!---
  msg $nick --Useful Commands---  
  msg $nick !rules
  msg $nick !price <item>
  msg $nick !stats <name>
  msg $nick !spellcheck <word>
  msg $nick !dm
  msg $nick !pcw
  msg $nick !alch <item>
  msg $nick !calc
  msg $nick !event
  msg $nick !quest <quest> It gives you all info needed about that certain quest.
  msg $nick !youtube <search>
  msg $nick !maxhit
  msg $nick !urban <word>
  msg $nick !set-goal <goal> ,type !see-goal to see your goal, type !Goal-Achieved if you achieved your goal and !Delete-Goal if you wish to delete your current goal.
  msg $nick !requirements 
  msg $nick ---Un-Useful, But fun commands---
  msg $nick !phat #00-15 <msg> or !phat #00-15 
  msg $nick !waffles <person>
  msg $nick !pancakes <person>
  msg $nick !milk <person>
  msg $nick ---Commands only ops and half ops can use---
  msg $nick !setrequirements <requirements<
  msg $nick !tb <nick> <minutes> <reason>
  msg $nick /emsg <chan to exclude> <msg>
  msg $nick !akick <nick>
}
ON $*:TEXT:/^[!@.]maxhit/Si:#:{
  set %return [ $+ [ $nick ] ] $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($2 == $null) {
    %return [ $+ [ $nick ] ] typ ur str lvl, if u want to add bonuses typ !maxhit -(trig letter) <str> <equipment bonus> , eg !maxhit -ab str lvl includes pots
    %return [ $+ [ $nick ] ] trig letters: -s Salve Amulet (Versus Undeads) -w Salve Amulet(e) (Versus Undeads) -b Black Mask (Slayer Missions Only) -u Ultimate Strength Prayer -p Superhuman Strength -q Burst of Strength
    %return [ $+ [ $nick ] ] also trig letters u must specify one of these, -c for controlled attack -a for aggresive. if u use other attack do -o
    halt
  }
  if (- isin $2) {
    set %b [ $+ [ $nick ] ] 1
    if (s isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.20 ) }
    if (w isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) }
    if (b isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) }
    if (u isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) }
    if (p isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.10 ) }
    if (q isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.05 ) }
    if (c isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 1 ) }
    if (a isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 3 ) }
    if (o isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 0 ) }
    set %a [ $+ [ $nick ] ] $3
    set %d [ $+ [ $nick ] ] $4
    set %c [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] * %b [ $+ [ $nick ] ] )
    set %e [ $+ [ $nick ] ] $log( %c [ $+ [ $nick ] ] )
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * 0.1085 )
    inc %e [ $+ [ $nick ] ]
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * %d [ $+ [ $nick ] ] )
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 100 )
    set %e [ $+ [ $nick ] ] $calc( %c [ $+ [ $nick ] ] * %e [ $+ [ $nick ] ] )
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] + %c [ $+ [ $nick ] ] )
    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 10 )
    %return [ $+ [ $nick ] ] Woohoo $nick ur max hit is: $+ $floor( %e [ $+ [ $nick ] ] )
  }
  else { %return [ $+ [ $nick ] ] u did something wrong! typ !maxhit for help }
} 
alias c1 { return $+($chr(3),07,$1-) }
alias c2 { return $+($chr(3),02,$1-) }
alias c3 { return $+($chr(3),04,$1-) }
on $*:text:/^[!@\.](youtube|tube|yt)/Si:*:{
  if (!$2) { notice $nick $c3 $+ ~ $c2 $+ Youtube $c3 $+ ~ $c2 $+ Error, Please specify something to lookup. $c1 $+ [ $c2 Ex: $c1 !Youtube runescape $c1 $+ ] }
  if ($left($1,1) == !) set %way notice $nick $c3 $+ ~ $c2 $+ Youtube $c3 $+ ~
  if ($left($1,1) == @) set %way msg $chan $c3 $+ ~ $c2 $+ Youtube $c3 $+ ~
  set %searchyt $replace($2-,$chr(32),+)
  sockopen search www.youtube.com 80
}
on *:SOCKOPEN:search: {
  sockwrite -nt $sockname GET /results?search_query= $+ %searchyt HTTP/1.1
  sockwrite -nt $sockname Host: www.youtube.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:search: {
  if ($sockerr) {
    %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*<a href="/watch?v=* iswm %sockreader) {
      noop $regex(%sockreader,/="(.*?)"/Si)
      var %tempvar $nohtml($regml(1))
      %way $c2 $+ The top result for $c1 $+ %searchyt $c2 $+ is:
      %way $c3 www.youtube.com $+ %tempvar
      sockclose $sockname
      unset %tempvar
    }
  }
}
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
on *:TEXT:!setrules*:#: {
  if ($nick isop $chan) {
    set %rules [ $+ [ $chan ] ] $2-
    set %rulesetter [ $+ [ $chan ] ] $nick
    msg $chan $nick has changed the rules for $chan. Type !rules to view them.
  }
  else {
    notice $nick Sorry, only ops can use that command.
  }
}
on $*:TEXT:!rules:#: {
  set %rulesreturn $iif($left($1,1) == @,msg $chan, notice $nick)
  if (%rules [ $+ [ $chan ] ] !== $null) {
    %rulesreturn The rules for for $chan is: %rules [ $+ [ $chan ] ]  rules set by %rulesetter [ $+ [ $chan ] ]
  }
  else {
    %rulesreturn There is currently no rules set for $chan .
  }
}
on *:TEXT:!delrules:#: {
  if ($nick isop $chan) && (%rules [ $+ [ $chan ] ] !== $null) {
    unset %rules [ $+ [ $chan ] ]
    unset %rulesetter [ $+ [ $chan ] ]
    msg $chan $nick has deleted the rules for $chan. Type !setrules to set new rules.
    halt
  }
  if ($nick isop $chan) && (!%event [ $+ [ $chan ] ]) {
    notice $nick You can't delete rules if there aren't any set! Type !setrules to set the rules. 
  }
  else {
    notice $nick Sorry, only ops can use that command.
  }
} 
alias c1 { return $+(,$1-) }
alias c2 { return $+(,$1-) }
on *:TEXT:!setevent*:#: {
  if ($nick isop $chan) {
    set %event [ $+ [ $chan ] ] $2-
    set %eventsetter [ $+ [ $chan ] ] $nick
    msg $chan $c2($nick) $c1(has changed the event for) $c2($chan) $+ $c1(. Type !event to view it.)
  }
  else {
    notice $nick $c1(Sorry, only) $c2(ops) $c1(can use that command.)
  }
}
on $*:TEXT:/^[!@]event/Si:#: {
  set %eventreturn $iif($left($1,1) == @,msg $chan, notice $nick)
  if (%event [ $+ [ $chan ] ] !== $null) {
    %eventreturn $c1(The current event for) $c2($chan) $c1(is:) $c2(%event [ $+ [ $chan ] ]) $c1(set by) $c2(%eventsetter [ $+ [ $chan ] ])
  }
  else {
    %eventreturn $c1(There is currently no event for) $c2($chan) $+ $c1(.)
  }
}
on *:TEXT:!delevent:#: {
  if ($nick isop $chan) && (%event [ $+ [ $chan ] ] !== $null) {
    unset %event [ $+ [ $chan ] ]
    unset %eventsetter [ $+ [ $chan ] ]
    msg $chan $c2($nick) $c1(has deleted the event for) $c2($chan) $+ $c1(. Type !setevent to set a new one.)
    halt
  }
  if ($nick isop $chan) && (%event [ $+ [ $chan ] ] == $null) {
    notice $nick $c1(You can't delete non-existant events!)
  }
  else {
    notice $nick $c1(Sorry, only) $c2(ops) $c1(can use that command.)
  }
}
;/emsg #chantoexclude,#another Your Message.
alias emsg {
  var %x 1
  while $chan(%x) {
    var %chan $v1
    if (!$istok($1,%chan,44)) msg %chan $2-
    inc %x
  }
}
alias c1 { return $+(,$1-) }
alias c2 { return $+(,$1-) }
on $*:TEXT:/^[!@.]spell(check)/Si:#: {
  if (!$2) {
    notice $nick $c1 $+ Syntax: $1 word
    halt
  }
  set %output $iif($left($1,1) == @,msg $chan,notice $nick)
  set %inputword $2
  sockopen spell [ $+ [ %inputword ] ] www.o-ss.net 80
}
on *:SOCKOPEN:spell*: {
  sockwrite -nt $sockname GET /parsers/spell.php?word= $+ %inputword HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:spell*: {
  if ($sockerr) {
    %output $c1 $+ An error has occured while connecting. Please try again later.
    unset %inputword
    unset %output
    sockclose $sockname
    halt
  }
  var %spelltext
  sockread %spelltext
  if (*[SPELL]* iswm %spelltext) {
    tokenize 32 %spelltext
    if (*word is correct* iswm $1-) {
      %output $c1(The word ') $+ $c2(%inputword) $+ $c1(' is spelled correctly.)
      unset %inputword
      unset %spelltext
      unset %output
      sockclose $sockname
      halt
    }
    %output $c1(The word ') $+ $c2(%inputword) $+ $c1(' is spelled incorrectly. Here is a suggestion:) $c2($2) $+ $c1 $+ .
    unset %inputword
    unset %output
    unset %spelltext
    sockclose $sockname
  }
} 
on $*:TEXT:/^[!@]mass(d|u)?[vhobk]/Si:#:{
  if ($me isop $chan) || ($me ishop $chan) {
    if ($address($me,4) == $address($nick,4)) || ($nick isop $chan) {
      goto massm
    }
    elseif ($nick ishop $chan) && ($right($1,1) == v) {
      goto massm
    }
    halt
    :massm
    var %massm = 0
    if ($mid($1,6,2) == $mid($1,6,1) $+ b) {
      while (%massm <= $ibl($chan,0)) {
        inc %massm
        var %massc = %massc $ibl($chan,%massm)
      }
    }
    else {
      while (%massm <= $nick($chan,0)) {
        inc %massm
        if ($nick($chan,%massm) != $me) {
          var %massc = %massc $iif($right($1,1) == b,$address($nick($chan,%massm),1),$nick($chan,%massm))
          if ($right($1,1) == k) {
            kick $chan $nick($chan,%massm) $iif($2 != $null, $2-, MassKick.)
          }
        }
      }
    }
    if ($right($1,1) != k) {
      mode $chan $iif($mid($1,6,1) isin ud,-,+) $+ $str($right($1,1),%massm) %massc
    }
  }
  else {
    .notice $nick I need halfop or op to preform these commands.
  }
}
ON *:TEXT:!dm*:#:{
  if ($readini(pdm.ini,$chan,Player1) == $nick || $readini(pdm.ini,$chan,Player2) == $nick) {
    notice $nick Your already in the game.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2) {
    notice $nick There is already a DM.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    writeini pdm.ini $chan Player2 $nick
    writeini dm.ini $chan Status ON2
    writeini hp.ini $chan Player2 99
    writeini turn.ini $chan Turn 1
    writeini shark.ini $chan Player2 20
    writeini spec.ini $chan Player2 100
    writeini spec.ini $chan Player1 100
    msg $chan The Fight is. $readini(pdm.ini,$chan,Player1) Vs. $readini(pdm.ini,$chan,Player2)
    msg $chan `dmcommands For DM Commands.
    notice $readini(pdm.ini,$chan,Player2) You have 99 Hit Points and 20 Shark that heal 20 Health each.
    halt
  } 
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini pdm.ini $chan Player1 $nick
    writeini dm.ini $chan Status ON
    writeini hp.ini $chan Player1 99
    writeini shark.ini $chan Player1 20
    msg $chan $+ $readini(pdm.ini,$chan,Player1) has initiated the DM Command. Type !dm to fight $readini(pdm.ini,$chan,Player1) $+ .
    notice $readini(pdm.ini,$chan,Player1) You have 99 Hit Points and 20 Shark that heal 20 Health each.
    halt
  }
}
ON *:TEXT:!whip*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!flick*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!lash*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}


ON *:TEXT:!dh*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(hp.ini,$chan,Player2) <= 30 ) {
    notice $nick You cant use the !dh attack when your Opponent has less than 0 Hit Points.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(hp.ini,$chan,Player1) <= 30 ) {
    notice $nick You cant use the !dh attack when your Opponent has less than 30 Hit Points.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,75)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) hacks at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini dds.ini $chan Total     
      remini pdm.ini $chan Player2
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) hacks at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,75)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) hacks at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) hacks at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!eat*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(shark.ini,$chan,Player2) <= 0 ) {
    Notice $nick You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(shark.ini,$chan,Player1) <= 0 ) {
    Notice $nick You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You can't eat yet.....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) + 20 )
    writeini shark.ini $chan Player1 $calc( $readini(shark.ini,$chan,Player1) - 1)
    notice $readini(pdm.ini,$chan,Player1) You now have $readini(shark.ini,$chan,Player1) Shark left.
    msg $chan $+ $readini(pdm.ini,$chan,Player2) eats a shark giving him $readini(hp.ini,$chan,Player2) Hit Points.
    writeini turn.ini $chan Turn 2
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) + 20 )
    writeini shark.ini $chan Player2 $calc( $readini(shark.ini,$chan,Player2) - 1)
    notice $readini(pdm.ini,$chan,Player2) You now have $readini(shark.ini,$chan,Player2) Shark left.
    msg $chan $+ $readini(pdm.ini,$chan,Player2) eats a shark giving him $readini(hp.ini,$chan,Player2) Hit Points.
    writeini turn.ini $chan Turn 1
    halt
  } 
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!dds*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) Specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player1) $+ % of your Special Bar left. 
      msg $chan $+ $readini(pdm.ini,$chan,Player1) specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) Specials at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player2) $+ % of your Special Bar left. 

      msg $chan $+ $readini(pdm.ini,$chan,Player2) specials at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!gmaul*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hit.ini $chan Hit2 $rand(0,30)
    writeini hit.ini $chan Hit3 $rand(0,30)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) + $readini(hit.ini,$chan,hit3) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 50 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) Specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) , $readini(hit.ini,$chan,hit2) and $readini(hit.ini,$chan,hit3) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player1) $+ % of your Special Bar left. 
      msg $chan $+ $readini(pdm.ini,$chan,Player1) Specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit), $readini(hit.ini,$chan,hit2) and $readini(hit.ini,$chan,hit3) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hit.ini $chan Hit2 $rand(0,30)
    writeini hit.ini $chan hit3 $rand(0,30)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2 + $readini(hit.ini,$chan,hit3) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 100 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) Specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit), $readini(hit.ini,$chan,hit2) and $readini(hit.ini,$chan,hit3) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player2) $+ % of your Special Bar left. 

      msg $chan $+ $readini(pdm.ini,$chan,Player1) Specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit), $readini(hit.ini,$chan,hit2) and $readini(hit.ini,$chan,hit3) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!cbow*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hit.ini $chan Hit2 $rand(0,30)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) fires at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player1) $+ % of your Special Bar left. 
      msg $chan $+ $readini(pdm.ini,$chan,Player1) fires at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) fires at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player2) $+ % of your Special Bar left. 

      msg $chan $+ $readini(pdm.ini,$chan,Player2) fires at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!blitz*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) casts at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) casts at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) casts at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) casts at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}

ON *:TEXT:!barrage*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) casts at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) casts at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) casts at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) casts at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!msb*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,30)
    writeini hit.ini $chan Hit2 $rand(0,30)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player1) fires at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player1) $+ % of your Special Bar left. 
      msg $chan $+ $readini(pdm.ini,$chan,Player1) fires at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan $+ $readini(pdm.ini,$chan,Player2) fires at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with 0 Hitpoints.
      timer 1 3 msg $chan $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick You have $readini(spec.ini,$chan,Player2) $+ % of your Special Bar left. 

      msg $chan $+ $readini(pdm.ini,$chan,Player2) fires at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its not your turn or your not in this round.
  }
}
ON *:TEXT:!stopDM*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM for this channel
    halt
  }
  if ($nick isop $chan || $nick ishop $chan) {
    msg $chan DM Halted by $nick $+ .
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total
  }
  else {
    notice $nick You need halfop+
  }
}
ON *:TEXT:`dmcommands*:#:{
  msg $nick ---By `Jt---
  msg $nick !StopDM
  msg $nick !DM
  msg $nick !Whip
  msg $nick !DDS
  msg $nick !DH
  msg $nick !Eat
  msg $nick !tele
  msg $nick !blitz
  msg $nick !barrage
  msg $nick !cbow
  msg $nick !msb
  msg $nick !gmaul
  msg $nick !flick
  msg $nick !lash
}
ON *:TEXT:!tele*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick There is no DM on. Type !DM To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick You cant Tele yet rofl.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    msg $chan $+ $readini(pdm.ini,$chan,Player1) has just teled.
    msg $chan $+ $readini(pdm.ini,$chan,Player2) wins!
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total   
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    msg $chan $+ $readini(pdm.ini,$chan,Player2) has just teled.
    msg $chan $+ $readini(pdm.ini,$chan,Player1) wins!
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total   
  }
}
on *:INVITE:#:{
  set $+(%,nick.,$chan) $nick
  if ($chan(0) < 30) { join $chan }
  else { notice $chan Sorry, i'm already in to much channels. Try again later.! }
}
on *:TEXT:!partdub:#: { if ($nick isop $chan | $nick ishop $chan) { msg $chan Part command used by $nick $+ . | /part $chan } } 
on *:TEXT:!setpcw *:*: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcw $2 | set %pc.nick $nick
    msg # [-PEST-] The current pest control world has been updated please type !pcw | !pest | !world  to veiw it! | halt } else {
    notice $nick You\'re not allowed to do this, if you think world $2 is good please type !suggest $2
  }
}
on $*:TEXT:!pcw*:#: {
  notice $nick The current pest control world is: %pcw $+ , Last changed by: %pc.nick
}

on *:TEXT:!suggest *:#: {
  notice $nick Thank you for you\'re suggestion $nick
  Window @suggest
  echo @suggest < $+ $nick $+ > $2
} 

on $*:TEXT:/^[!@.]price */si:#: {
  if (!$2) { /notice $nick Please state an item you wish to look up. '!price <item>'.
  }
  else {
    if ($sock(price)) sockclose price
    set %nick /notice $nick
    if (@ isin $1) set %nick /msg $chan
    set %price.item $replace($2-,$chr(32),$chr(43))
    sockopen zybez-price www.zybez.net 80
  }
}
on *:SOCKOPEN:zybez-price: {
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %price.item $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
  sockwrite -nt $sockname Host: www.zybez.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:zybez-price: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %read
    sockread %read
    if (*<!--name--><td class='tablebottom'>* iswm %read) set %price.1 $htmlfree(%read)
    if (*<!--price--><td class="tablebottom">* iswm %read) set %price.2 $htmlfree(%read)
    if (*<td class="tablebottom"><a href="/priceguide.php?category=* iswm %read) {
      set %price.3 $htmlfree(%read)
      %nick Item: %price.1 $+ $chr(124) Price: %price.2 $+ $chr(124) Catagory: %price.3
      %nick $+ $chr(91) $+ $+ $chr(90) $+ $chr(119) $+ $chr(101) $+ $chr(107) $+ $+ $chr(93)
      sockclose $sockname
      unset %nick
      unset %price.*
      unset %itemprice
      unset %member
    }
  }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&) | return %x }
on *:TEXT:!rate*:#:{
  /if (!$2) { msg $chan Give my bot a rating 1-10 : 10 being the highest. To do so type !rate <1-10> }
  /elseif ($2) {
    /if (($2 > 10) || ($2 < 1)) { notice $nick Give me a rating of 1-10 please.
      /halt   
    }
    /elseif ($read(rate2.txt,w,$address($nick,3))) {
      /notice $nick Sorry $nick but you have already rated my bot.
      /halt   
    }
    /elseif (!$read(rate2.txt,w,$address($nick,3))) {
      /notice $nick Thanks for rating my bot $nick $+ . This information has been stored.
      /write rate1.txt $address($nick,3) (( $+ $nick $+ )) $2
      /write rate2.txt $address($nick,3)
      /inc %rating $2
      /inc %ratings 1
    }
  }
}
on *:text:!calc*:#:{ if ($2 == $null) { notice $nick Error - You Didn't Specify An Equasion To Solve | halt }
  else {
    notice $nick The answer to $2- is.. $calc($replace($2-,k,000,m,000000,c,00) $2- ))
} }
on *:text:!tb*:#:{ if ($2 isop $chan) || ($2 ishop $chan) {
    notice $nick I have been forbidden to use this command on Operators and Half-Operators!
    halt
  }
  else {
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
      inc %kcount
/ban -ku $+ $calc( $3 * 60 ) $chan $2 2 Reason: $4- - $3 Minute Ban - Noobs Pwnt: ( %kcount ) } } }
on $*:text:/^[!@]price(s|check)*/Si:#: {
  if ( !$2 ) { notice $nick Sorry you must specify what to search for - !price <item> }
  else {
    /var %number 1
    while ($sock(price.socket. $+ %number)) { /inc %number }
    if (!* iswm $1) { /set %price.displaystyle. [ $+ [ %number ] ] private }
    /set %price.item. [ $+ [ %number ] ] $2-
    /set %price.nick. [ $+ [ %number ] ] $nick
    /set %price.chan. [ $+ [ %number ] ] $chan
    /sockopen $+(price.socket.,%number) zybez.net 80
  } ;Closes Else
} ;Ends the !pricecheck section

on *:sockopen:price.socket.*:{
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $replace(%price.item. [ $+ [ $right($SockName,-13) ] ] ,$chr(32),$chr(43)) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
  sockwrite -nt $sockname Host: zybez.net
  sockwrite -nt $sockname $crlf $crlf
}
alias c1 { return $+(12,$1-) } 
alias c2 { return $+(04,$1-) } 
on *:text:*:#: { 
  tokenize 32 $strip($1-) 
  if ($left($1,1) !isin @!.) halt 
  if ($right($1,-1) == stats) { 
    var %style = astats 
    if ($2 == zezima) { 
      hadd -u10 zezima.flood $+($nick,.,$ticks) 1 
      if ($hget(zezima.flood,0).item > 6) halt 
    } 
  }
  elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat 
  elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.)) 
  elseif ($right($1,-1) == setname) && ($2) { 
    writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-) 
    .notice $nick You're default RSN for the host $mask($fulladdress,3) has been set to $2- 
    halt 
  } 
  else halt 

  inc %ID 
  if ($len($2-) > 12) { 
    $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long) 
    cleanup %ID 
    halt 
  } 
  elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-) 
  elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch 
  elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch 
  else set $+(%,stats.rsn.,%ID) $nick 

  set $+(%,stats.style.,%ID) %style 
  set $+(%,stats.skill.,%ID) %skill 
  set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick) 
  sockopen $+(stats.,%ID) hiscore.runescape.com 80 
} 

on *:sockopen:stats.*: { 
  var %id = $gettok($sockname,2,46) 
  sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1 
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf 
} 
on *:sockread:stats.*: { 
  sockread &Incoming 
  bwrite $sockname -1 -1 &Incoming 
  if ($bfind(&Incoming, 1, </html>).text) makehash $sockname 
  elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) { 
    $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(Does not appear in the hiscores) 
    cleanup $gettok($sockname,2,46) 
  } 
} 
alias -l makehash { 
  var %file = $1 
  bread %file 1 $file(%file).size &stats 
  var %currentstat, %x = 1 
  while (%x) { 
    var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=) 
    var %currentstat = $striptags($bvar(&stats,%x,200).text) 
    tokenize 10 %currentstat 
    hadd -m %file $1 $2 $3 $4 $xp2next($3,$4) 
  } 
  process %file 
} 
alias process { 
  var %table = $1, %id = $gettok($1,2,46), %x = 0, $& 
    %display = $($+(%,stats.display.,%ID),2), $& 
    %rsn = $($+(%,stats.rsn.,%ID),2), $& 
    %skill = $($+(%,stats.skill.,%ID),2), $& 
    %style = $($+(%,stats.style.,%ID),2) 
  ;shoot; 
  if (%style == astats) { 
    while (%x <= 22) { 
      tokenize 32 $hget(%table,$setskill(%x)) 
      if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2) 
      inc %x 
    } 
    %display $c1(Stats for) $c2(%rsn) $+ $c1(:) 
    %display %statline 
  } 
  elseif (%style == istat) { 
    if (!$hget(%table,%skill)) %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill) 
    else { 
      tokenize 32 $hget(%table,%skill) 
      %display $c2(%skill) $c1(stats for) $c2(%rsn) $+ $c1(:) 
      %display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $& 
        $iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
      var %pcpoint = $calc(($2 * $2) /6)
      var %pcpray = $calc(($2 * $2) /12)
      if (%skill = Hitpoints) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = Attack) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = strength) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = defence) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = Prayer) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpray))
    } 
  } 
  elseif (%style == combat) { 
    var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487 
    var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $& 
      %s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $& 
      %d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $& 
      %h = $iif($gettok($hget(%table,hitpoints),2,32),$v1,-), $& 
      %r = $iif($gettok($hget(%table,ranged),2,32),$v1,-), $& 
      %m = $iif($gettok($hget(%table,magic),2,32),$v1,-), $& 
      %p = $iif($gettok($hget(%table,prayer),2,32),$v1,-) 

    var %meleecombat  = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $& 
      %RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $& 
      %MagicCombat  = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult) 

    if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) { 
      %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills) 
      cleanup %id 
      halt 
    } 
    elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat 
    elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat 
    else var %cmbstyle = melee, %combat = %MeleeCombat 

    var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $& 
      %a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $& 
      %d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $& 
      %r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult)) 

    if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl) 
    elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl) 
    else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl) 
    var %combat = $round(%combat,2), %next = $ceil(%combat) 
    %display $c2(%rsn) $c1(is) $c2(%combat) $c1(%cmbstyle style combat) 
    %display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $& 
      $c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p) 
    %display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $& 
      $c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl) 
  } 
  cleanup %id 
} 

alias -l cleanup { 
  unset $+(%,stats.*.,$1) 
  sockclose $+(Stats.,$1) 
  .remove $+(Stats.,$1) 
} 

alias -l xp { 
  var %x = 1, %level = $calc($1 - 1), %xp = 0 
  while (%x <= %level) { 
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4) 
    inc %xp %TempXp 
    inc %x 
  } 
  return $int(%xp) 
} 

alias -l xp2Next { 
  var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1)) 
  return $calc(%nextxp - %xp) 
} 
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } 
alias -l setskill { 
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall 
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack 
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence 
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength 
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints 
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged 
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer 
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic 
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking 
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting 
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching 
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing 
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking 
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting 
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing 
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining 
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore 
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility 
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving 
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer 
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming 
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft 
  elseif ($1 == 22) || ($regex($1,/^(con)(ion|ing)?$/si)) return Construction 
  elseif ($1 == 23) || ($regex($1,/^(hu|hunt)(ing)?$/si)) return hunting
} 
}