on *:op:#: { 
  if ($opnick == $me) { 
    inc %opcount 
    msg $chan 12 Thanks for the 4 Op 6 $nick $+ ! 12 I have been 4 Opped 13 %opcount 12 times! 
  } 
} 
on *:help:#: { 
  if ($hnick == $me) { 
    inc %hcount 
    msg $chan 12 Thanks for the 7Halfop 6 $nick $+ ! 12 I have been 7Halfopped 13 %hcount 12 times! 
  } 
} 


on *:help:#: { 
  if ($hnick == [DA]Matt) { 
    .msg $chan 7Don't Halfop Him!!!!!    I <3 Him! 
  } 
}



on *:voice:#: { 
  if ($vnick == $me) { 
    inc %vcount 
    msg $chan 3 Thanks for the 12Voice 6 $nick $+ ! 3I have been 12 Voiced 13 %vcount 3 times! 
  } 
} 





on $*:text:/^[!]part spidascript*/Si:#: { 
  .part $chan Peace, Thanks for letting me be in your channel #spidascript is my offical channel.
}


on $*:text:/^[!]commands*/Si:#: { 
  .msg $nick I have Many commands, and will probably be making more, so if im missing some tell me, i'll add shortly.
  .msg $nick I have...
  .msg $nick !Pie
  .msg $nick !8ball
  .msg $nick !Line
  .msg $nick !GayMeter
  .msg $nick !LoveTest
  .msg $nick !Colors
  .msg $nick <3
  .msg $nick </3
  .msg $nick !calc
  .msg $nick !stats
  .msg $nick !cmb
  .msg $nick !kill
  .msg $nick !slap
  .msg $nick !gratz
  .msg $nick !flip
  .msg $nick !pcw
  .msg $nick !google
  .msg $nick !dm
  .msg $nick !green-hween   (replace green with blue or red)
  .msg $nick !red-phat      (replace red with blue, yellow, green, pink, purple, orange)
  .msg $nick !phat-set
  .msg $nick and almost any IRC answer, just ask, How do I (and what you want to know).
}



























on $*:text:/^[!]pink-phat*/Si:#:{
  .msg $chan 13|\/\/\/|
  .msg $chan 13|____|
}



on $*:text:/^[@]pie*/Si:#: { 
  /set %8ball $rand(1,9) 
  inc %piecount 
  inc %pcount 
  if (%8ball == 1) .msg $chan  7Takes A 4Red Berry Pie 1And Throws It In 12 $2 's Face 1I pied:13 %piecount people 
  if (%8ball == 2) .msg $chan  7Takes A 12Blue Berry Pie 1And Throws It In 12 $nick 's Face 1I Pied:13 %piecount people 
  if (%8ball == 3) .msg $chan  7Takes An 9Appie Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount people 
  if (%8ball == 4) .msg $chan  7Takes A 1Burnt Pie And Throws It In 12 $2 's Face 1I Pied:13 %piecount people 
  if (%8ball == 5) .msg $chan  7Takes An 5Old Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 6) .msg $chan  7Takes A 6Raz Berry Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 8) .msg $chan  7Takes A 13Meat Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 7) .msg $chan  7Takes A 10Trout Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 9) .msg $chan  7Takes A 15Mouth Watering Pie 1And Gives It to 12 $2's 1I gave:13 %pcount people 
} 





on $*:text:/^[!]pie*/Si:#: { 
  /set %8ball $rand(1,9) 
  inc %piecount 
  inc %pcount
  if ($1 == !price) |HALT 
  if (%8ball == 1) .notice $nick  7Takes A 4Red Berry Pie 1And Throws It In 12 $2 's Face 1I pied:13 %piecount people 
  if (%8ball == 2) .notice $nick  7Takes A 12Blue Berry Pie 1And Throws It In 12 $nick 's Face 1I Pied:13 %piecount people 
  if (%8ball == 3) .notice $nick  7Takes An 9Appie Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount people 
  if (%8ball == 4) .notice $nick  7Takes A 1Burnt Pie And Throws It In 12 $2 's Face 1I Pied:13 %piecount people 
  if (%8ball == 5) .notice $nick  7Takes An 5Old Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 6) .notice $nick  7Takes A 6Raz Berry Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 8) .notice $nick  7Takes A 13Meat Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 7) .notice $nick  7Takes A 10Trout Pie 1And Throws It In 12 $2 's Face 1I Pied:13 %piecount People 
  if (%8ball == 9) .notice $nick  7Takes A 15Mouth Watering Pie 1And Gives It to 12 $2's 1I gave:13 %pcount people 
} 






on $*:text:/^[@]line*/Si:#: { 
  /set %8ball $rand(1,10) 
  inc %linecount 
  inc %lcount 
  if (%8ball == 1) .msg $chan  4I love you. I want to marry you. Now fuck my brains out. 4 .::  1I have givin 12 %linecount 1Pickup Lines 4::.
  if (%8ball == 2) .msg $chan  12 If you're going to regret this in the morning, we can sleep in until the afternoon.   4.::    1I have givin  12 %linecount 1Pickup Lines 4::.
  if (%8ball == 3) .msg $chan  11 I'd love you like a snowstorm: I'd give you 8 to 10 inches and you wouldn't be able to leave the house for 3 days.   4.::    1I have givin 12 %linecount 1Pickup Lines 4::.
  if (%8ball == 4) .msg $chan  1 Do you like chicken? Sorry, I haven't got any, how about a cock?     4.::   1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 5) .msg $chan  5 Is it hot in here, or is it just you? 4.:: 1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 6) .msg $chan  6Mmmm, you bring new meaning to the word "edible".  4 .::    1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 8) .msg $chan  12Say: "You look like my third wife" She says: "Oh really? How many have you had" Say: Two.  4.::    1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 7) .msg $chan  10 I would die happy if I saw you naked just once.    4.::  1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 9) .msg $chan  4 Are you free tonight or will it cost me?   4.::   1I have givin12 %lcount 1Pickup Lines 4::.
  if (%8ball == 10) .notice $nick 7  I'm on top of things. Would you like to be one of them?  4.::   1I have givin12 %lcount 1Pickup Lines 4::.
} 




on $*:text:/^[!]line*/Si:#: { 
  /set %8ball $rand(1,10) 
  inc %linecount 
  inc %lcount 
  if (%8ball == 1) .notice $nick  4I love you. I want to marry you. Now fuck my brains out. 4 .::  1I have givin 12 %linecount 1Pickup Lines 4::.
  if (%8ball == 2) .notice $nick  12 If you're going to regret this in the morning, we can sleep in until the afternoon.   4.::    1I have givin  12 %linecount 1Pickup Lines 4::.
  if (%8ball == 3) .notice $nick  11 I'd love you like a snowstorm: I'd give you 8 to 10 inches and you wouldn't be able to leave the house for 3 days.   4.::    1I have givin 12 %linecount 1Pickup Lines 4::.
  if (%8ball == 4) .notice $nick  1 Do you like chicken? Sorry, I haven't got any, how about a cock?     4.::   1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 5) .notice $nick  5 Is it hot in here, or is it just you? 4.:: 1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 6) .notice $nick  6Mmmm, you bring new meaning to the word "edible".  4 .::    1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 8) .notice $nick  12Say: "You look like my third wife" She says: "Oh really? How many have you had" Say: Two.  4.::    1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 7) .notice $nick  10 I would die happy if I saw you naked just once.    4.::  1I have givin12 %linecount 1Pickup Lines 4::.
  if (%8ball == 9) .notice $nick  4 Are you free tonight or will it cost me?   4.::   1I have givin12 %lcount 1Pickup Lines 4::.
  if (%8ball == 10) .notice $nick 7  I'm on top of things. Would you like to be one of them?  4.::   1I have givin12 %lcount 1Pickup Lines 4::.

} 






on $*:text:/^[@!]calc */Si:#: { 
  var %send = $iif($left($1,1) == !,notice $nick,msg $chan) 
  %send The answer to $2- is: $acalc($2-) 
} 
alias Acalc { 
  tokenize 32 $remove($1-,$chr(44),$chr(32)) 
  var %matches $regex($1-,/L(\d\d?)/gi), %i = 1, %calculate = $1- 
  while (%i <= %matches) { 
    var %calculate = $replace(%calculate,L $+ $regml(%i),$LevelsAndXp($regml(%i))) 
    inc %i 
  } 
  if (k isin %calculate) { 
    var %x = 1, %total = $pos(%calculate,k,0) 
    while (%x <= %total) { 
      var %kpos = $pos(%calculate,k,%x), %kstartpos = $calc(%kpos - 1), %klen = 1 
      while ($mid(%calculate,%kstartpos,1) isin 1234567890.) && (%kstartpos > 0) { dec %kstartpos | inc %klen } 
      var %calculate = $iif(%kstartpos >= 0,$left(%calculate,%kstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%kstartpos == 0,0,%kstartpos +1)),%klen) $+ $chr(41) $+ $right(%calculate,- $+ %kpos) 
      inc %x 
    } 
  } 
  if (m isin %calculate) { 
    var %x = 1, %total = $pos(%calculate,m,0) 
    while (%x <= %total) { 
      var %mpos = $pos(%calculate,m,%x), %mstartpos = $calc(%mpos - 1), %mlen = 1 
      while ($mid(%calculate,%mstartpos,1) isin 1234567890.) && (%mstartpos > 0) { dec %mstartpos | inc %mlen } 
      var %calculate = $iif(%mstartpos >= 0,$left(%calculate,%mstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%mstartpos == 0,0,%mstartpos +1)),%mlen) $+ $chr(41) $+ $right(%calculate,- $+ %mpos) 
      inc %x 
    } 
  } 
  var %calculate $replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000) 
  var %answer = $bytes($calc(%calculate),db) 
  return 12 %answer 
} 















































on $*:text:/^[!]global*/Si:#:{
  if ($nick == \Mike\) /amsg 4[3Global4] 12Requested by: 4 [ 3 $+ $nick $+ 4] 1 $2-
  if (\Mike\ isop | HALT)
  if ( $nick isop $chan ) { /amsg 4[3Global4] 12Requested by: 4 [ 3 $+ $nick $+ 4] 1 $2-
  }

}













on $*:text:/^[!]phat-set*/Si:#:{
  .msg $chan 4|\/\/\/| 12|\/\/\/| 6|\/\/\/| 3|\/\/\/| 8|\/\/\/| 15|\/\/\/| | 
  .msg $chan 4|____| 12|____| 6|____| 3|____| 8|____| 15|____|  
}












on $*:text:/^[!]say */Si:#: { 
  if ($nick == \Mike\) .msg $chan $2-
  if ($nick == PoserMobile8) .msg $chan $2-
  if ($nick == {-Mike-}) .msg $chan $2-
} 

on $*:text:/^[!]partyhat*/Si:#:{
  .msg $chan 6|13\6/13\6/13\6/13|
  .msg $chan 6|____13|
}


on $*:text:/^[!]blue-phat*/Si:#:{
  .msg $chan 12|\/\/\/| 
  .msg $chan 12|____|
}



on $*:text:/^[!]red-phat*/Si:#:{
  .msg $chan 4|\/\/\/|
  .msg $chan 4|____|
}


on $*:text:/^[!]green-phat*/Si:#:{
  .msg $chan 9|\/\/\/|
  .msg $chan 9|____|
}


on $*:text:/^[!]purple-phat*/Si:#:{
  .msg $chan 6|\/\/\/|
  .msg $chan 6|____|
}



on $*:text:/^[!]yellow-phat*/Si:#:{
  .msg $chan 8|\/\/\/|
  .msg $chan 8|____|
}


on $*:text:/^[!]orange-phat*/Si:#:{
  .msg $chan 7|\/\/\/|
  .msg $chan 7|____|
}



on $*:text:/^[!]pink-phat*/Si:#:{
  .msg $chan 13|\/\/\/|
  .msg $chan 13|____|
}



on $*:text:/^[<]/3*/Si:#:{
  .msg $chan 4 $nick $+ 4 -- Is Heart Broken!!!  </3 </3 </3
}


on $*:text:*<3*:#:{
  if ($1 == <3) {
    .msg $chan 13 $nick $+ 13 -- Loves $$2-!!! Awwwww <3 <3 <3
  }
}

on $*:text:/^[!]kill*/Si:#:{
  .notice $nick 1 $nick $+ -- 11Stabs 12 $2 until 4BLOOD12 7gushes 12out of His 4BROKEN12 1Body!
} 


on $*:text:/^[@]kill*/Si:#:{
  .msg $chan 1 $nick $+ -- 11Stabs 12 $2 until 4BLOOD12 7gushes 12out of His 4BROKEN12 1Body!
} 




on $*:text:/^[!]slap*/Si:#:{
  .notice $nick 7 $nick $+ -- 2Pulls out a white glove, and 7slaps the 4Shit2 outa $2! 
} 


on $*:text:/^[@]slap*/Si:#:{
  .msg $chan 7 $nick $+ -- 2Pulls out a white glove, and 7slaps the 4Shit2 outa $2! 
}





on $*:text:*brb*:#:{
  if ($1 == brb) {
    .notice $nick 2 $nick $+ -- 4Hurry Back, 2I can't live without you!!! 
  } 
}


on $*:text:*back*:#:{
  if ($1 == back) {
    .notice $nick 2 $nick $+ -- 4Finally your back,2 I thought I waz going to die.
  }
}
on $*:text:*noob*:#:{
  if ($1 == noob) {
    .notice $nick 1 $nick $+ -- 2To be honest, 7you're a 4noob.
  }
}

on $*:text:*poser*:#:{
  if ($1 == poser) {
    .notice $nick 7 $nick $+ -- 2Refer to Poser as the Great one and only 1,4\11,4 \2,7 \3,7 \1,8 \13,8 \8,1.:: 9,1¤ 4,1Master 9,1 ¤ 8,1::.13,8/1,8/3,7/2,7/11,4/1,4/
  }

}


on $*:TEXT:/^!(congratz|congrats|grats|gratz)/Si:#:{
  .msg $chan   4,1<.< 11^.^ 9,1(: 4,1.:: 11,1Congrats0,1 $nick 11,1on level7,1 $26,1 $3 4,1::. 9,1:) 11,1^.^4,1 >.> 
}








on $*:text:/^[@]lovetest*/Si:#: { 
  /set %8ball $rand(1,100) 
  if (%8ball == 1) .msg $chan  4 The magic love meter says $2 and $3 are 100% in love. I wish them the best!
  if (%8ball == 2) .msg $chan  4 The magic love meter says $2 and $3 are 99% in love. I wish them the best!
  if (%8ball == 3) .msg $chan  4 The magic love meter says $2 and $3 are 98% in love. I wish them the best!
  if (%8ball == 4) .msg $chan  4 The magic love meter says $2 and $3 are 97% in love. I wish them the best!
  if (%8ball == 5) .msg $chan  4 The magic love meter says $2 and $3 are 96% in love. I wish them the best!
  if (%8ball == 6) .msg $chan  4 The magic love meter says $2 and $3 are 95% in love. I wish them the best!
  if (%8ball == 8) .msg $chan  4 The magic love meter says $2 and $3 are 94% in love. I wish them the best!
  if (%8ball == 7) .msg $chan  4 The magic love meter says $2 and $3 are 93% in love. I wish them the best!
  if (%8ball == 9) .msg $chan  4 The magic love meter says $2 and $3 are 92% in love. I wish them the best!
  if (%8ball == 10) .msg $chan  4 The magic love meter says $2 and $3 are 91% in love. I wish them the best!
  if (%8ball == 11) .msg $chan  4 The magic love meter says $2 and $3 are 90% in love. I wish them the best!
  if (%8ball == 12) .msg $chan  4 The magic love meter says $2 and $3 are 89% in love. I wish them the best!
  if (%8ball == 13) .msg $chan  4 The magic love meter says $2 and $3 are 88% in love. I wish them the best!
  if (%8ball == 14) .msg $chan  4 The magic love meter says $2 and $3 are 87% in love. I wish them the best!
  if (%8ball == 15) .msg $chan  4 The magic love meter says $2 and $3 are 86% in love. I wish them the best!
  if (%8ball == 16) .msg $chan  4 The magic love meter says $2 and $3 are 85% in love. I wish them the best!
  if (%8ball == 18) .msg $chan  4 The magic love meter says $2 and $3 are 84% in love. I wish them the best!
  if (%8ball == 17) .msg $chan  4 The magic love meter says $2 and $3 are 83% in love. I wish them the best!
  if (%8ball == 19) .msg $chan  4 The magic love meter says $2 and $3 are 82% in love. I wish them the best!
  if (%8ball == 20) .msg $chan  4 The magic love meter says $2 and $3 are 81% in love. I wish them the best! 
  if (%8ball == 21) .msg $chan  4 The magic love meter says $2 and $3 are 80% in love. I wish them the best!
  if (%8ball == 22) .msg $chan  4 The magic love meter says $2 and $3 are 79% in love. I wish them the best!
  if (%8ball == 23) .msg $chan  4 The magic love meter says $2 and $3 are 78% in love. I wish them the best!
  if (%8ball == 24) .msg $chan  4 The magic love meter says $2 and $3 are 77% in love. I wish them the best!
  if (%8ball == 25) .msg $chan  4 The magic love meter says $2 and $3 are 76% in love. I wish them the best!
  if (%8ball == 26) .msg $chan  4 The magic love meter says $2 and $3 are 75% in love. I wish them the best!
  if (%8ball == 28) .msg $chan  4 The magic love meter says $2 and $3 are 74% in love. I wish them the best!
  if (%8ball == 27) .msg $chan  4 The magic love meter says $2 and $3 are 73% in love. I wish them the best!
  if (%8ball == 29) .msg $chan  4 The magic love meter says $2 and $3 are 72% in love. I wish them the best!
  if (%8ball == 30) .msg $chan  4 The magic love meter says $2 and $3 are 71% in love. I wish them the best!  
  if (%8ball == 31) .msg $chan  4 The magic love meter says $2 and $3 are 70% in love. I wish them the best!
  if (%8ball == 32) .msg $chan  4 The magic love meter says $2 and $3 are 69% in love. I wish them the best!
  if (%8ball == 33) .msg $chan  4 The magic love meter says $2 and $3 are 68% in love. I wish them the best!
  if (%8ball == 34) .msg $chan  4 The magic love meter says $2 and $3 are 67% in love. I wish them the best!
  if (%8ball == 35) .msg $chan  4 The magic love meter says $2 and $3 are 66% in love. I wish them the best!
  if (%8ball == 36) .msg $chan  4 The magic love meter says $2 and $3 are 65% in love. I wish them the best!
  if (%8ball == 38) .msg $chan  4 The magic love meter says $2 and $3 are 64% in love. I wish them the best!
  if (%8ball == 37) .msg $chan  4 The magic love meter says $2 and $3 are 63% in love. I wish them the best!
  if (%8ball == 39) .msg $chan  4 The magic love meter says $2 and $3 are 62% in love. I wish them the best!
  if (%8ball == 40) .msg $chan  4 The magic love meter says $2 and $3 are 61% in love. I wish them the best! 
  if (%8ball == 41) .msg $chan  4 The magic love meter says $2 and $3 are 60% in love. I wish them the best!
  if (%8ball == 42) .msg $chan  4 The magic love meter says $2 and $3 are 59% in love. I wish them the best!
  if (%8ball == 43) .msg $chan  4 The magic love meter says $2 and $3 are 58% in love. I wish them the best!
  if (%8ball == 44) .msg $chan  4 The magic love meter says $2 and $3 are 57% in love. I wish them the best!
  if (%8ball == 45) .msg $chan  4 The magic love meter says $2 and $3 are 56% in love. I wish them the best!
  if (%8ball == 46) .msg $chan  4 The magic love meter says $2 and $3 are 55% in love. I wish them the best!
  if (%8ball == 48) .msg $chan  4 The magic love meter says $2 and $3 are 54% in love. I wish them the best!
  if (%8ball == 47) .msg $chan  4 The magic love meter says $2 and $3 are 53% in love. I wish them the best!
  if (%8ball == 49) .msg $chan  4 The magic love meter says $2 and $3 are 52% in love. I wish them the best!
  if (%8ball == 50) .msg $chan  4 The magic love meter says $2 and $3 are 51% in love. I wish them the best! 
  if (%8ball == 51) .msg $chan  4 The magic love meter says $2 and $3 are 50% in love. I wish them the best!
  if (%8ball == 52) .msg $chan  4 The magic love meter says $2 and $3 are 49% in love. I wish them the best!
  if (%8ball == 53) .msg $chan  4 The magic love meter says $2 and $3 are 48% in love. I wish them the best!
  if (%8ball == 54) .msg $chan  4 The magic love meter says $2 and $3 are 47% in love. I wish them the best!
  if (%8ball == 55) .msg $chan  4 The magic love meter says $2 and $3 are 46% in love. I wish them the best!
  if (%8ball == 56) .msg $chan  4 The magic love meter says $2 and $3 are 45% in love. I wish them the best!
  if (%8ball == 58) .msg $chan  4 The magic love meter says $2 and $3 are 44% in love. I wish them the best!
  if (%8ball == 57) .msg $chan  4 The magic love meter says $2 and $3 are 43% in love. I wish them the best!
  if (%8ball == 59) .msg $chan  4 The magic love meter says $2 and $3 are 42% in love. I wish them the best!
  if (%8ball == 60) .msg $chan  4 The magic love meter says $2 and $3 are 41% in love. I wish them the best! 
  if (%8ball == 61) .msg $chan  4 The magic love meter says $2 and $3 are 40% in love. I wish them the best!
  if (%8ball == 62) .msg $chan  4 The magic love meter says $2 and $3 are 39% in love. I wish them the best!
  if (%8ball == 63) .msg $chan  4 The magic love meter says $2 and $3 are 38% in love. I wish them the best!
  if (%8ball == 64) .msg $chan  4 The magic love meter says $2 and $3 are 37% in love. I wish them the best!
  if (%8ball == 65) .msg $chan  4 The magic love meter says $2 and $3 are 36% in love. I wish them the best!
  if (%8ball == 66) .msg $chan  4 The magic love meter says $2 and $3 are 35% in love. I wish them the best!
  if (%8ball == 68) .msg $chan  4 The magic love meter says $2 and $3 are 34% in love. I wish them the best!
  if (%8ball == 67) .msg $chan  4 The magic love meter says $2 and $3 are 33% in love. I wish them the best!
  if (%8ball == 69) .msg $chan  4 The magic love meter says $2 and $3 are 32% in love. I wish them the best!
  if (%8ball == 70) .msg $chan  4 The magic love meter says $2 and $3 are 31% in love. I wish them the best!  
  if (%8ball == 71) .msg $chan  4 The magic love meter says $2 and $3 are 30% in love. I wish them the best!
  if (%8ball == 72) .msg $chan  4 The magic love meter says $2 and $3 are 29% in love. I wish them the best!
  if (%8ball == 73) .msg $chan  4 The magic love meter says $2 and $3 are 28% in love. I wish them the best!
  if (%8ball == 74) .msg $chan  4 The magic love meter says $2 and $3 are 27% in love. I wish them the best!
  if (%8ball == 75) .msg $chan  4 The magic love meter says $2 and $3 are 26% in love. I wish them the best!
  if (%8ball == 76) .msg $chan  4 The magic love meter says $2 and $3 are 25% in love. I wish them the best!
  if (%8ball == 78) .msg $chan  4 The magic love meter says $2 and $3 are 24% in love. I wish them the best!
  if (%8ball == 77) .msg $chan  4 The magic love meter says $2 and $3 are 23% in love. I wish them the best!
  if (%8ball == 79) .msg $chan  4 The magic love meter says $2 and $3 are 22% in love. I wish them the best!
  if (%8ball == 80) .msg $chan  4 The magic love meter says $2 and $3 are 21% in love. I wish them the best! 
  if (%8ball == 81) .msg $chan  4 The magic love meter says $2 and $3 are 20% in love. I wish them the best!
  if (%8ball == 82) .msg $chan  4 The magic love meter says $2 and $3 are 19% in love. I wish them the best!
  if (%8ball == 83) .msg $chan  4 The magic love meter says $2 and $3 are 18% in love. I wish them the best!
  if (%8ball == 84) .msg $chan  4 The magic love meter says $2 and $3 are 17% in love. I wish them the best!
  if (%8ball == 85) .msg $chan  4 The magic love meter says $2 and $3 are 16% in love. I wish them the best!
  if (%8ball == 86) .msg $chan  4 The magic love meter says $2 and $3 are 15% in love. I wish them the best!
  if (%8ball == 88) .msg $chan  4 The magic love meter says $2 and $3 are 14% in love. I wish them the best!
  if (%8ball == 87) .msg $chan  4 The magic love meter says $2 and $3 are 13% in love. I wish them the best!
  if (%8ball == 89) .msg $chan  4 The magic love meter says $2 and $3 are 12% in love. I wish them the best!
  if (%8ball == 90) .msg $chan  4 The magic love meter says $2 and $3 are 11% in love. I wish them the best! 
  if (%8ball == 91) .msg $chan  4 The magic love meter says $2 and $3 are 10% in love. I wish them the best!
  if (%8ball == 92) .msg $chan  4 The magic love meter says $2 and $3 are 9% in love. I wish them the best!
  if (%8ball == 93) .msg $chan  4 The magic love meter says $2 and $3 are 8% in love. I wish them the best!
  if (%8ball == 94) .msg $chan  4 The magic love meter says $2 and $3 are 7% in love. I wish them the best!
  if (%8ball == 95) .msg $chan  4 The magic love meter says $2 and $3 are 6% in love. I wish them the best!
  if (%8ball == 96) .msg $chan  4 The magic love meter says $2 and $3 are 5% in love. I wish them the best!
  if (%8ball == 98) .msg $chan  4 The magic love meter says $2 and $3 are 4% in love. I wish them the best!
  if (%8ball == 97) .msg $chan  4 The magic love meter says $2 and $3 are 3% in love. I wish them the best!
  if (%8ball == 99) .msg $chan  4 The magic love meter says $2 and $3 are 2% in love. I wish them the best!
  if (%8ball == 100) .msg $chan  4 The magic love meter says $2 and $3 are 1% in love. I wish them the best!
}






on $*:text:/^[!]lovetest*/Si:#: { 
  /set %8ball $rand(1,100)  
  if ($2 == Mike)  .msg $chan  4 The magic love meter says $2 and $3 are 100% in love. I wish them the best!
  if (%8ball == 1) .msg $chan  4 The magic love meter says $2 and $3 are 100% in love. I wish them the best!
  if (%8ball == 2) .msg $chan  4 The magic love meter says $2 and $3 are 99% in love. I wish them the best!
  if (%8ball == 3) .msg $chan  4 The magic love meter says $2 and $3 are 98% in love. I wish them the best!
  if (%8ball == 4) .msg $chan  4 The magic love meter says $2 and $3 are 97% in love. I wish them the best!
  if (%8ball == 5) .msg $chan  4 The magic love meter says $2 and $3 are 96% in love. I wish them the best!
  if (%8ball == 6) .msg $chan  4 The magic love meter says $2 and $3 are 95% in love. I wish them the best!
  if (%8ball == 8) .msg $chan  4 The magic love meter says $2 and $3 are 94% in love. I wish them the best!
  if (%8ball == 7) .msg $chan  4 The magic love meter says $2 and $3 are 93% in love. I wish them the best!
  if (%8ball == 9) .msg $chan  4 The magic love meter says $2 and $3 are 92% in love. I wish them the best!
  if (%8ball == 10) .msg $chan  4 The magic love meter says $2 and $3 are 91% in love. I wish them the best!
  if (%8ball == 11) .msg $chan  4 The magic love meter says $2 and $3 are 90% in love. I wish them the best!
  if (%8ball == 12) .msg $chan  4 The magic love meter says $2 and $3 are 89% in love. I wish them the best!
  if (%8ball == 13) .msg $chan  4 The magic love meter says $2 and $3 are 88% in love. I wish them the best!
  if (%8ball == 14) .msg $chan  4 The magic love meter says $2 and $3 are 87% in love. I wish them the best!
  if (%8ball == 15) .msg $chan  4 The magic love meter says $2 and $3 are 86% in love. I wish them the best!
  if (%8ball == 16) .msg $chan  4 The magic love meter says $2 and $3 are 85% in love. I wish them the best!
  if (%8ball == 18) .msg $chan  4 The magic love meter says $2 and $3 are 84% in love. I wish them the best!
  if (%8ball == 17) .msg $chan  4 The magic love meter says $2 and $3 are 83% in love. I wish them the best!
  if (%8ball == 19) .msg $chan  4 The magic love meter says $2 and $3 are 82% in love. I wish them the best!
  if (%8ball == 20) .msg $chan  4 The magic love meter says $2 and $3 are 81% in love. I wish them the best! 
  if (%8ball == 21) .msg $chan  4 The magic love meter says $2 and $3 are 80% in love. I wish them the best!
  if (%8ball == 22) .msg $chan  4 The magic love meter says $2 and $3 are 79% in love. I wish them the best!
  if (%8ball == 23) .msg $chan  4 The magic love meter says $2 and $3 are 78% in love. I wish them the best!
  if (%8ball == 24) .msg $chan  4 The magic love meter says $2 and $3 are 77% in love. I wish them the best!
  if (%8ball == 25) .msg $chan  4 The magic love meter says $2 and $3 are 76% in love. I wish them the best!
  if (%8ball == 26) .msg $chan  4 The magic love meter says $2 and $3 are 75% in love. I wish them the best!
  if (%8ball == 28) .msg $chan  4 The magic love meter says $2 and $3 are 74% in love. I wish them the best!
  if (%8ball == 27) .msg $chan  4 The magic love meter says $2 and $3 are 73% in love. I wish them the best!
  if (%8ball == 29) .msg $chan  4 The magic love meter says $2 and $3 are 72% in love. I wish them the best!
  if (%8ball == 30) .msg $chan  4 The magic love meter says $2 and $3 are 71% in love. I wish them the best!  
  if (%8ball == 31) .msg $chan  4 The magic love meter says $2 and $3 are 70% in love. I wish them the best!
  if (%8ball == 32) .msg $chan  4 The magic love meter says $2 and $3 are 69% in love. I wish them the best!
  if (%8ball == 33) .msg $chan  4 The magic love meter says $2 and $3 are 68% in love. I wish them the best!
  if (%8ball == 34) .msg $chan  4 The magic love meter says $2 and $3 are 67% in love. I wish them the best!
  if (%8ball == 35) .msg $chan  4 The magic love meter says $2 and $3 are 66% in love. I wish them the best!
  if (%8ball == 36) .msg $chan  4 The magic love meter says $2 and $3 are 65% in love. I wish them the best!
  if (%8ball == 38) .msg $chan  4 The magic love meter says $2 and $3 are 64% in love. I wish them the best!
  if (%8ball == 37) .msg $chan  4 The magic love meter says $2 and $3 are 63% in love. I wish them the best!
  if (%8ball == 39) .msg $chan  4 The magic love meter says $2 and $3 are 62% in love. I wish them the best!
  if (%8ball == 40) .msg $chan  4 The magic love meter says $2 and $3 are 61% in love. I wish them the best! 
  if (%8ball == 41) .msg $chan  4 The magic love meter says $2 and $3 are 60% in love. I wish them the best!
  if (%8ball == 42) .msg $chan  4 The magic love meter says $2 and $3 are 59% in love. I wish them the best!
  if (%8ball == 43) .msg $chan  4 The magic love meter says $2 and $3 are 58% in love. I wish them the best!
  if (%8ball == 44) .msg $chan  4 The magic love meter says $2 and $3 are 57% in love. I wish them the best!
  if (%8ball == 45) .msg $chan  4 The magic love meter says $2 and $3 are 56% in love. I wish them the best!
  if (%8ball == 46) .msg $chan  4 The magic love meter says $2 and $3 are 55% in love. I wish them the best!
  if (%8ball == 48) .msg $chan  4 The magic love meter says $2 and $3 are 54% in love. I wish them the best!
  if (%8ball == 47) .msg $chan  4 The magic love meter says $2 and $3 are 53% in love. I wish them the best!
  if (%8ball == 49) .msg $chan  4 The magic love meter says $2 and $3 are 52% in love. I wish them the best!
  if (%8ball == 50) .msg $chan  4 The magic love meter says $2 and $3 are 51% in love. I wish them the best! 
  if (%8ball == 51) .msg $chan  4 The magic love meter says $2 and $3 are 50% in love. I wish them the best!
  if (%8ball == 52) .msg $chan  4 The magic love meter says $2 and $3 are 49% in love. I wish them the best!
  if (%8ball == 53) .msg $chan  4 The magic love meter says $2 and $3 are 48% in love. I wish them the best!
  if (%8ball == 54) .msg $chan  4 The magic love meter says $2 and $3 are 47% in love. I wish them the best!
  if (%8ball == 55) .msg $chan  4 The magic love meter says $2 and $3 are 46% in love. I wish them the best!
  if (%8ball == 56) .msg $chan  4 The magic love meter says $2 and $3 are 45% in love. I wish them the best!
  if (%8ball == 58) .msg $chan  4 The magic love meter says $2 and $3 are 44% in love. I wish them the best!
  if (%8ball == 57) .msg $chan  4 The magic love meter says $2 and $3 are 43% in love. I wish them the best!
  if (%8ball == 59) .msg $chan  4 The magic love meter says $2 and $3 are 42% in love. I wish them the best!
  if (%8ball == 60) .msg $chan  4 The magic love meter says $2 and $3 are 41% in love. I wish them the best! 
  if (%8ball == 61) .msg $chan  4 The magic love meter says $2 and $3 are 40% in love. I wish them the best!
  if (%8ball == 62) .msg $chan  4 The magic love meter says $2 and $3 are 39% in love. I wish them the best!
  if (%8ball == 63) .msg $chan  4 The magic love meter says $2 and $3 are 38% in love. I wish them the best!
  if (%8ball == 64) .msg $chan  4 The magic love meter says $2 and $3 are 37% in love. I wish them the best!
  if (%8ball == 65) .msg $chan  4 The magic love meter says $2 and $3 are 36% in love. I wish them the best!
  if (%8ball == 66) .msg $chan  4 The magic love meter says $2 and $3 are 35% in love. I wish them the best!
  if (%8ball == 68) .msg $chan  4 The magic love meter says $2 and $3 are 34% in love. I wish them the best!
  if (%8ball == 67) .msg $chan  4 The magic love meter says $2 and $3 are 33% in love. I wish them the best!
  if (%8ball == 69) .msg $chan  4 The magic love meter says $2 and $3 are 32% in love. I wish them the best!
  if (%8ball == 70) .msg $chan  4 The magic love meter says $2 and $3 are 31% in love. I wish them the best!  
  if (%8ball == 71) .msg $chan  4 The magic love meter says $2 and $3 are 30% in love. I wish them the best!
  if (%8ball == 72) .msg $chan  4 The magic love meter says $2 and $3 are 29% in love. I wish them the best!
  if (%8ball == 73) .msg $chan  4 The magic love meter says $2 and $3 are 28% in love. I wish them the best!
  if (%8ball == 74) .msg $chan  4 The magic love meter says $2 and $3 are 27% in love. I wish them the best!
  if (%8ball == 75) .msg $chan  4 The magic love meter says $2 and $3 are 26% in love. I wish them the best!
  if (%8ball == 76) .msg $chan  4 The magic love meter says $2 and $3 are 25% in love. I wish them the best!
  if (%8ball == 78) .msg $chan  4 The magic love meter says $2 and $3 are 24% in love. I wish them the best!
  if (%8ball == 77) .msg $chan  4 The magic love meter says $2 and $3 are 23% in love. I wish them the best!
  if (%8ball == 79) .msg $chan  4 The magic love meter says $2 and $3 are 22% in love. I wish them the best!
  if (%8ball == 80) .msg $chan  4 The magic love meter says $2 and $3 are 21% in love. I wish them the best! 
  if (%8ball == 81) .msg $chan  4 The magic love meter says $2 and $3 are 20% in love. I wish them the best!
  if (%8ball == 82) .msg $chan  4 The magic love meter says $2 and $3 are 19% in love. I wish them the best!
  if (%8ball == 83) .msg $chan  4 The magic love meter says $2 and $3 are 18% in love. I wish them the best!
  if (%8ball == 84) .msg $chan  4 The magic love meter says $2 and $3 are 17% in love. I wish them the best!
  if (%8ball == 85) .msg $chan  4 The magic love meter says $2 and $3 are 16% in love. I wish them the best!
  if (%8ball == 86) .msg $chan  4 The magic love meter says $2 and $3 are 15% in love. I wish them the best!
  if (%8ball == 88) .msg $chan  4 The magic love meter says $2 and $3 are 14% in love. I wish them the best!
  if (%8ball == 87) .msg $chan  4 The magic love meter says $2 and $3 are 13% in love. I wish them the best!
  if (%8ball == 89) .msg $chan  4 The magic love meter says $2 and $3 are 12% in love. I wish them the best!
  if (%8ball == 90) .msg $chan  4 The magic love meter says $2 and $3 are 11% in love. I wish them the best! 
  if (%8ball == 91) .msg $chan  4 The magic love meter says $2 and $3 are 10% in love. I wish them the best!
  if (%8ball == 92) .msg $chan  4 The magic love meter says $2 and $3 are 9% in love. I wish them the best!
  if (%8ball == 93) .msg $chan  4 The magic love meter says $2 and $3 are 8% in love. I wish them the best!
  if (%8ball == 94) .msg $chan  4 The magic love meter says $2 and $3 are 7% in love. I wish them the best!
  if (%8ball == 95) .msg $chan  4 The magic love meter says $2 and $3 are 6% in love. I wish them the best!
  if (%8ball == 96) .msg $chan  4 The magic love meter says $2 and $3 are 5% in love. I wish them the best!
  if (%8ball == 98) .msg $chan  4 The magic love meter says $2 and $3 are 4% in love. I wish them the best!
  if (%8ball == 97) .msg $chan  4 The magic love meter says $2 and $3 are 3% in love. I wish them the best!
  if (%8ball == 99) .msg $chan  4 The magic love meter says $2 and $3 are 2% in love. I wish them the best!
  if (%8ball == 100) .msg $chan  4 The magic love meter says $2 and $3 are 1% in love. I wish them the best!
}











on $*:text:/^[@]gaymeter*/Si:#: { 
  /set %8ball $rand(1,9)  
  if (%8ball == 1) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 6% 13Gay!
  if (%8ball == 2) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 17% 13Gay!
  if (%8ball == 3) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 87% 13Gay!
  if (%8ball == 4) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 43% 13Gay!
  if (%8ball == 5) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 25% 13Gay!
  if (%8ball == 6) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 0% 13Gay!
  if (%8ball == 8) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 98% 13Gay! 
  if (%8ball == 7) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 84% 13Gay!
  if (%8ball == 9) .msg $chan  13GayMeter reads that1 $2 13is 2... 12 100% 13Gay!
}



on $*:text:/^[!]gaymeter*/Si:#: { 
  /set %8ball $rand(1,9)  
  if (%8ball == 1) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 100% 13Gay!
  if (%8ball == 2) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 75% 13Gay!
  if (%8ball == 3) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 50% 13Gay!
  if (%8ball == 4) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 25% 13Gay!
  if (%8ball == 5) .notice $nick 13GayMeter reads that1 $2 13is 2... 12 0% 13Gay!
  if (%8ball == 6) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 98% 13Gay!
  if (%8ball == 8) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 84% 13Gay! 
  if (%8ball == 7) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 69% 13Gay!
  if (%8ball == 9) .notice $nick  13GayMeter reads that1 $2 13is 2... 12 17% 13Gay!
}















on $*:text:/^[!]flip*/Si:#: { 
  /set %8ball $rand(1,2) 
  if (%8ball == 1) .notice $nick   The coin 12Flips!!! 4... 7... 11... 1and it lands on 4Heads!
  if (%8ball == 2) .notice $nick   The coin 12Flips!!! 4... 7... 11... 1and it lands on 12Tails!
}




on $*:text:/^[@]flip*/Si:#: { 
  /set %8ball $rand(1,2) 
  if (%8ball == 1) .msg $chan   The coin 12Flips!!! 4... 7... 11... 1and it lands on 4Heads!
  if (%8ball == 2) .msg $chan   The coin 12Flips!!! 4... 7... 11... 1and it lands on 12Tails!
}









on $*:text:/^[!?@.]8ball*/Si:#: { 
  /set %8ball $rand(1,9)  
  if (%8ball == 1) .msg $chan  [ 8 Ball ]  2says1.... 12Yes! 
  if (%8ball == 2) .msg $chan  [ 8 Ball ]  2says1.... 4No! 
  if (%8ball == 3) .msg $chan  [ 8 Ball ]  2says1.... 7Are you crazy?
  if (%8ball == 4) .msg $chan  [ 8 Ball ]  2says1.... 11Indeed!
  if (%8ball == 5) .msg $chan  [ 8 Ball ]  2says1.... 10Why are you asking me this when u can smoke some 3WEED!  
  if (%8ball == 6) .msg $chan  [ 8 Ball ]  2says1.... 4Fuck off 13Noob4!
  if (%8ball == 8) .msg $chan  [ 8 Ball ]  2says1.... 6Ask me again later. 
  if (%8ball == 7) .msg $chan  [ 8 Ball ]  2says1.... 1Maybe. 
  if (%8ball == 9) .msg $chan  [ 8 Ball ]  2says1.... 4Hell No!
} 




on $*:text:/^[!?@.]poser*/Si:#: { 
  /set %8ball $rand(1,2)  
  if (%8ball == 1) .msg $chan  11,1 \7,1 \4,1 \1,4 \11,4 \2,7 \3,7 \1,8 \13,8 \8,1.:: 9,1¤ 4,1PoserMobile8! 9,1 ¤ 8,1::.13,8/1,8/3,7/2,7/11,4/1,4/4,1/7,1/11,1/
  if (%8ball == 2) .msg $chan  10 \11 \0,11 \13,11 \0,10 \7,10 \8,12 \11,12 \12,2.:: 6,2¤ 11,2PoserMobile8! 6,2 ¤ 12,2::.11,12/7,12/8,10/0,10/13,11/0,11/11,0/10,0/
}




on $*:text:/^[!?@.]colors*/Si:#: { 
  .msg $chan   1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
}


on $*:text:/^[!?@.]matt*/Si:#: {
  .msg $chan  10,11 \8,11 \0,10 \13,10 \0,12 \7,12 \8,2 \11,2 \7,1.:: 9,1¤ 11,1Ithr0wThings! 9,1 ¤ 7,1::.11,2/7,2/8,12/0,12/13,10/0,10/8,11/10,11/
}












on $*:text:/^[h]ow do you unban your*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs unban <#channel> <Nick>
}

on $*:text:/^[h]ow do u unban yr*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs unban <#channel> <Nick>
}


on $*:text:/^[h]ow do u unban ur*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs unban <#channel> <Nick>
}


on $*:text:/^[h]ow do you unban yr*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs unban <#channel> <Nick>
}

on $*:text:/^[h]ow do you unban ur*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs unban <#channel> <Nick>
}



on $*:text:/^[h]ow do i unban m*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs unban <#channel> <Nick>
}







on $*:text:/^[h]ow do you group n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}


on $*:text:/^[h]ow do u group n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}



on $*:text:/^[h]ow do you group your n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}



on $*:text:/^[h]ow do u group your n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}


on $*:text:/^[h]ow do you group yr n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}



on $*:text:/^[h]ow do u group yr n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}


on $*:text:/^[h]ow do you group ur n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}



on $*:text:/^[h]ow do i secureops*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs set <#Chanel> secureops off/on
}


on $*:text:/^[h]ow do you secureops*/Si:#:{
  .msg $chan $nick $+ , Just do this: /cs set <#Chanel> secureops off/on
}


on $*:text:/^[h]ow do u group ur n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}



on $*:text:/^[h]ow do i group n*/Si:#:{
  .msg $chan $nick $+ , Just do this: /ns group <MainNick> <Password>
}











on $*:text:/^[h]ow do you set gr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}


on $*:text:/^[h]ow do u set gr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}



on $*:text:/^[h]ow do you set your gr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}



on $*:text:/^[h]ow do u setgr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}


on $*:text:/^[h]ow do you setgr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}



on $*:text:/^[h]ow do i set my gr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}


on $*:text:/^[h]ow do i setgr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}



on $*:text:/^[h]ow do i set gr */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns set <Greet> <Greet-Here>
}











on $*:text:/^[h]ow do you assign b */Si:#:{
  .msg $chan $nick $+ , Just do this: /bs assign <#Channel> <BotName>
}



on $*:text:/^[h]ow do u assign b */Si:#:{
  .msg $chan $nick $+ , Just do this: /bs assign <#Channel> <BotName>
}


on $*:text:/^[h]ow do i assign b */Si:#:{
  .msg $chan $nick $+ , Just do this: /bs assign <#Channel> <BotName>
}









on $*:text:/^[h]ow do you set acc  */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs access <Channel> add <Nick> <Level>
}



on $*:text:/^[h]ow do u set acc */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs access <Channel> add <Nick> <Level>
}


on $*:text:/^[h]ow do i set acc */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs access <Channel> add <Nick> <Level>
}









on $*:text:/^[h]ow do you register ch  */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs register <#channel> <password> <description>
}



on $*:text:/^[h]ow do u register ch */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs register <#channel> <password> <description>
}


on $*:text:/^[h]ow do i register ch */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs register <#channel> <password> <description>
}









on $*:text:/^[h]ow do you ak  */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs akick <#Channel> add/del <Nick>
}



on $*:text:/^[h]ow do u ak */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs akick <#Channel> add/del <Nick>
}


on $*:text:/^[h]ow do i ak */Si:#:{
  .msg $chan $nick $+ , Just do this: /cs akick <#Channel> add/del <Nick>
}









on $*:text:/^[h]ow do you set flood  */Si:#:{
  .msg $chan $nick $+ , Just do this:/bs kick <#Channel> flood on/off [TimeTillBan] [Lines] [Seconds]
}



on $*:text:/^[h]ow do u set flood */Si:#:{
  .msg $chan $nick $+ , Just do this:/bs kick <#Channel> flood on/off [TimeTillBan] [Lines] [Seconds]
}


on $*:text:/^[h]ow do i set flood */Si:#:{
  .msg $chan $nick $+ , Just do this: /bs kick <#Channel> flood on/off [TimeTillBan] [Lines] [Seconds]
}






on $*:text:/^[h]ow do you set topic  */Si:#:{
  .msg $chan $nick $+ , Just do this: /topic <#Channel> <NewTopic>
}



on $*:text:/^[h]ow do u set topic */Si:#:{
  .msg $chan $nick $+ , Just do this: /topic <#Channel> <NewTopic>
}


on $*:text:/^[h]ow do i set topic */Si:#:{
  .msg $chan $nick $+ , Just do this:  /topic <#Channel> <NewTopic>
}


on $*:text:/^[h]ow do you set a topic  */Si:#:{
  .msg $chan $nick $+ , Just do this: /topic <#Channel> <NewTopic>
}



on $*:text:/^[h]ow do u set a topic */Si:#:{
  .msg $chan $nick $+ , Just do this: /topic <#Channel> <NewTopic>
}


on $*:text:/^[h]ow do i set a topic */Si:#:{
  .msg $chan $nick $+ , Just do this:  /topic <#Channel> <NewTopic>
}










on $*:text:/^[h]ow do you gh  */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns ghost <Nick> <Password>
}



on $*:text:/^[h]ow do u gh */Si:#:{
  .msg $chan $nick $+ , Just do this: /ns ghost <Nick> <Password>
}


on $*:text:/^[h]ow do i gh */Si:#:{
  .msg $chan $nick $+ , Just do this:  /ns ghost <Nick> <Password>
}











on $*:text:/^[h]ow do you get rid of st  */Si:#:{
  .msg $chan $nick $+ , Just do this: /mode <YourNick> -f
}



on $*:text:/^[h]ow do u get rid of st */Si:#:{
  .msg $chan $nick $+ , Just do this: /mode <YourNick> -f
}


on $*:text:/^[h]ow do i get rid of st */Si:#:{
  .msg $chan $nick $+ , Just do this:  /mode <YourNick> -f
}







ON *:TEXT:!tb*:#:{ 
  if ($me isvoice $chan || $me isreg $chan) { notice $nick ERROR: Sorry I need halfop+ To do that. | halt } 
  if ($2 == $null) { Notice $nick ERROR: !tb <nick> <time> <reason> | halt } 
  if ($3 == $null) { Notice $nick ERROR: !tb $2 <time> <reason> | halt  } 
  if ($nick ishop $chan && $2 ishop $chan) {  notice $nick ERROR: $2 is a half-op in $chan $+ , so I wont kick him. | halt  } 
  if ($nick ishop $chan && $2 isop $chan) {  notice $nick ERROR: $2 is a op in $chan $+ , so I wont kick him. | halt  } 
  if ($nick isreg $chan || $nick isvoice $chan) { notice $nick ERROR: You must be Halfop+ for this script to work.  | halt } 
  if ($nick ishop $chan || $nick isop $chan) { 
    inc %kicked 
    /ban -ku $+ $calc( $3 * 60 ) $chan $2 ¤ $3 sec Ban ¤ Reason: $4- ¤ Noobs Pwnt: %kicked ¤ 
  } 
} 



















on $*:TEXT:/^[!@.]price */si:#: { 
  if (!$2) { /notice $nick 12 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 12 Item: 4 %price.1 $+ $chr(124) 12 Price:4 %price.2 $+ $chr(124) 12 Catagory:4 %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,&amp;) | return %x }




------------------------------------------------222------------------------------------------------------------------------------------------------------------------------------------22---22---------------------------------------------------------------------------------------------------------------------------------------22------------------------------------------------------------------------------------------------------------------------------------222------------------------------------------------------------------------------------------------------------------------------------22222222-----------------------------------------------------------------------------------









on *:text:*@rr*:#:{
  .msg $chan $nick picks up a revolver, spins the chamber, and pull the trigger...
  inc %spincount 
  inc %deathcount 
  /set %8ball $rand(1,6)  
  if (%8ball == 1) .msg $chan  2CLICK!! 
  if (%8ball == 2) .msg $chan  2CLICK!!
  if (%8ball == 3) .msg $chan  2CLICK!!
  if (%8ball == 4) .msg $chan  2CLICK!!
  if (%8ball == 5) .msg $chan  2CLICK!! 
  if (%8ball == 6) .msg $chan  4BANG!!!!!!
  if (%8ball == 6) .cs kick $chan $nick 4BOOM!!!! HEADSHOT!
  if (%8ball == 1) .msg $chan Total Spins: %spincount Total Deaths: %deathcount
  if (%8ball == 2) .msg $chan Total Spins: %spincount Total Deaths: %deathcount
  if (%8ball == 3) .msg $chan Total Spins: %spincount Total Deaths: %deathcount
  if (%8ball == 4) .msg $chan Total Spins: %spincount Total Deaths: %deathcount
  if (%8ball == 5) .msg $chan Total Spins: %spincount Total Deaths: %deathcount
  if (%8ball == 6) .msg $chan Total Spins: %spincount Total Deaths: %deathcount
} 






on *:text:*@noob*:#:{
  .msg $chan ***4[ 3SCAN 4]1: Deciding if 2 $2 1is a noob...
  /set %8ball $rand(1,2) 
  if (%8ball == 1) .msg $chan  Noob Status: 3No. 
  if (%8ball == 2) .msg $chan  Noob Status: 3Yes.
}












on *:text:*!mockon*:#:{ set %mock on | msg # 12Mock 2is now 4enabled. }
on *:text:*!mockoff*:#: { unset %mock off | msg # 12Mock 2is now 6disabled. }
on *:text:**:#: {
  if (%mock == on) {
    .msg $chan $1-
  }










---------------------------------------------   333   ------------------------------------------------------------------------------------------------------------------------------   33   33   ----------------------------------------------------------------------------------------------------------------------------      3333   ----------------------------------------------------------------------------------------------------------------------------   33   33   ------------------------------------------------------------------------------------------------------------------------------   333   -----------------------------------------------------------------------------------
















on $*:text:/^[!]green-hween*/Si:#: { 
  .notice $nick 3    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .notice $nick 3 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\3 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\3 \
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \3 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \3 \
  .notice $nick 3$str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \3 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \3 \
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .notice $nick 3  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .notice $nick 3( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .notice $nick 3( $str($+($chr(160),$chr(32)),5) $+ $chr(32)          1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••3  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .notice $nick 3  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••3  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .notice $nick 3 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====3| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====3| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /3 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .notice $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /3 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .notice $nick 3 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/3 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .notice $nick 3 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}















on $*:text:/^[!]blue-hween*/Si:#: { 
  .notice $nick 12    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .notice $nick 12 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\12 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\12 \
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \12 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \12 \
  .notice $nick 12 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \12 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \12 \
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .notice $nick 12  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .notice $nick 12( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .notice $nick 12( $str($+($chr(160),$chr(32)),5) $+ $chr(32)          1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••12  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .notice $nick 12  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••12  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .notice $nick 12 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====12| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====12| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /12 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .notice $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /12 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .notice $nick 12 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/12 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .notice $nick 12 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}
















on $*:text:/^[!]red-hween*/Si:#: { 
  .notice $nick 4    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .notice $nick 4 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\4 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\4 \
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \4 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \4 \
  .notice $nick 4 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \4 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \4 \
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .notice $nick 4  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .notice $nick 4( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .notice $nick 4( $str($+($chr(160),$chr(32)),5) $+ $chr(32)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••4  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .notice $nick 4  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••4  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .notice $nick 4 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====4| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====4| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /4 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /4 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .notice $nick 4 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/4 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .notice $nick 4 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}




























































on $*:text:/^[@]green-hween*/Si:#: { 
  .msg $chan 3    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .msg $chan 3 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\3 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\3 \
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \3 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \3 \
  .msg $chan 3 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \3 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \3 \
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .msg $chan 3  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .msg $chan 3( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $chan 3( $str($+($chr(160),$chr(32)),5) $+ $chr(32)          1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••3  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $chan 3  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••3  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .msg $chan 3 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====3| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====3| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /3 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .msg $chan 3 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /3 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .msg $chan 3 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/3 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .msg $chan 3 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}















on $*:text:/^[@]blue-hween*/Si:#: { 
  .msg $chan 12    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .msg $chan 12 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\12 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\12 \
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \12 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \12 \
  .msg $chan 12 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \12 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \12 \
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .msg $chan 12  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .msg $chan 12( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $chan 12( $str($+($chr(160),$chr(32)),5) $+ $chr(32)          1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••12  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $chan 12  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••12  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .msg $chan 12 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====12| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====12| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /12 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .msg $chan 12 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /12 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .msg $chan 12 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/12 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .msg $chan 12 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}
















on $*:text:/^[@]red-hween*/Si:#: { 
  .msg $chan 4    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .msg $chan 4 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\4 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\4 \
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \4 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \4 \
  .msg $chan 4 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \4 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \4 \
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .msg $chan 4  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .msg $chan 4( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $chan 4( $str($+($chr(160),$chr(32)),5) $+ $chr(32)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••4  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $chan 4  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••4  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .msg $chan 4 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====4| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====4| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /4 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /4 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .msg $chan 4 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/4 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .msg $chan 4 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}













































on $*:text:/^[`]green-hween*/Si:#: { 
  .msg $nick 3    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .msg $nick 3 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\3 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\3 \
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \3 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \3 \
  .msg $nick 3 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \3 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \3 \
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .msg $nick 3  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .msg $nick 3( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $nick 3( $str($+($chr(160),$chr(32)),5) $+ $chr(32)          1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••3  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $nick 3  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••3  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .msg $nick 3 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====3| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====3| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /3 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .msg $nick 3 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /3 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .msg $nick 3 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/3 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .msg $nick 3 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}















on $*:text:/^[`]blue-hween*/Si:#: { 
  .msg $nick 12    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .msg $nick 12 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\12 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\12 \
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \12 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \12 \
  .msg $nick 12 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \12 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \12 \
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .msg $nick 12  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .msg $nick 12( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $nick 12( $str($+($chr(160),$chr(32)),5) $+ $chr(32)          1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••12  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $nick 12  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••12  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .msg $nick 12 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====12| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====12| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /12 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .msg $nick 12 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /12 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .msg $nick 12 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/12 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .msg $nick 12 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}
















on $*:text:/^[`]red-hween*/Si:#: { 
  .msg $nick 4    $str($+($chr(160),$chr(32)),5) $+ $chr(32)    /\   $+ $str($+($chr(160),$chr(32))$chr(32),17)                                   /\

  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),5) / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \ $+ $str($+($chr(160),$chr(32))$chr(32),16)                                 / $+ $str($+($chr(160),$chr(32))$chr(32),1)  \
  .msg $nick 4 $str($+($chr(160),$chr(32)),4) $+ $chr(32) / 14/\4 \ $str($+($chr(160),$chr(32)),14) $+ $chr(32)                             / 14/\4 \
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),4)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \4 \ $str($+($chr(160),$chr(32)),13) $+ $chr(32)                          / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),1) \4 \
  .msg $nick 4 $str($+($chr(160),$chr(32)),3) $+ $chr(32)  / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \4 \____________ / 14/ $+ $str($+($chr(160),$chr(32))$chr(32),2)    \4 \
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),2) (  $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                 )
  .msg $nick 4  ( $str($+($chr(160),$chr(32)),28) $+ $chr(32)                                                        )
  .msg $nick 4( $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^ $+ $str($+($chr(160),$chr(32))$chr(32),5)         ^^^^^  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $nick 4( $str($+($chr(160),$chr(32)),5) $+ $chr(32)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)        ••••••••4  $+ $str($+($chr(160),$chr(32))$chr(32),6)          )
  .msg $nick 4  ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         1••••••••1 $+ $str($+($chr(160),$chr(32))$chr(32),4)       ••••••••4  $str($+($chr(160),$chr(32)),5) $+ $chr(32)         )
  .msg $nick 4 $str($+($chr(160),$chr(32)),1) $+ $chr(32) ( $str($+($chr(160),$chr(32)),25) $+ $chr(32)                                                  ) 
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),3) \ $str($+($chr(160),$chr(32)),7) $+ $chr(32)              ________   $+ $str($+($chr(160),$chr(32))$chr(32),7)           / 
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),5) \ $str($+($chr(160),$chr(32)),5) $+ $chr(32)          |1=====4| $str($+($chr(160),$chr(32)),5) $+ $chr(32)         /  
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),7) l  $+ $str($+($chr(160),$chr(32))$chr(32),4)    |1=====4| $str($+($chr(160),$chr(32)),3) $+ $chr(32)       l
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $+ $str($+($chr(160),$chr(32))$chr(32),2)    14\ $+ $str($+($chr(160),$chr(32))$chr(32),2)    /\ $+ $str($+($chr(160),$chr(32))$chr(32),2)   /4 $str($+($chr(160),$chr(32)),2) $+ $chr(32)    l
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),9) l $str($+($chr(160),$chr(32)),2) $+ $chr(32)     14\ $+ $str($+($chr(160),$chr(32))$chr(32),1)  / $+ $str($+($chr(160),$chr(32))$chr(32),1) \ $+ $str($+($chr(160),$chr(32))$chr(32),1)  /4 $+ $str($+($chr(160),$chr(32))$chr(32),3)     |
  .msg $nick 4 $str($+($chr(160),$chr(32)),9) $+ $chr(32) \ $+ $str($+($chr(160),$chr(32))$chr(32),2)   14\/ $+ $str($+($chr(160),$chr(32))$chr(32),2)   \/4 $+ $str($+($chr(160),$chr(32))$chr(32),3)     / 
  .msg $nick 4 $str($+($chr(160),$chr(32)),10) $+ $chr(32)  \________/






}

















on $*:text:/^[!]dchain*/Si:#: { 
  .notice $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),1) /\4__________14/\   
  .notice $nick 4(1,4.1,4|1.4.1.4.1.4.1.4.1.4.1.4.|1,4.1,4)
  .notice $nick $str($+($chr(160),$chr(32)),3) $+ $chr(32)) 4|1.4.1<^>4.1.4 |
  .notice $nick 4 $str($+($chr(160),$chr(32))$chr(32),3) |1.4.1.4.1.4.1.4.1.4|
  .notice $nick 4 $str($+($chr(160),$chr(32))$chr(32),3) |1.4.1.4.1.4.1.4.1.4|

}






on $*:text:/^[@]dchain*/Si:#: { 
  .msg $chan 14 $+ $str($+($chr(160),$chr(32))$chr(32),1) /\4__________14/\   
  .msg $chan               4(1,4.1,4|1.4.1.4.1.4.1.4.1.4.1.4.|1,4.1,4)
  .msg $chan $str($+($chr(160),$chr(32)),3) $+ $chr(32)) 4|1.4.1<^>4.1.4 |
  .msg $chan 4 $str($+($chr(160),$chr(32))$chr(32),3) |1.4.1.4.1.4.1.4.1.4|
  .msg $chan 4 $str($+($chr(160),$chr(32))$chr(32),3) |1.4.1.4.1.4.1.4.1.4|

}







on $*:text:/^[`]dchain*/Si:#: { 
  .msg $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),1) /\4__________14/\   
  .msg $nick               4(1,4.1,4|1.4.1.4.1.4.1.4.1.4.1.4.|1,4.1,4)
  .msg $nick $str($+($chr(160),$chr(32)),3) $+ $chr(32)) 4|1.4.1<^>4.1.4 |
  .msg $nick 4 $str($+($chr(160),$chr(32))$chr(32),3) |1.4.1.4.1.4.1.4.1.4|
  .msg $nick 4 $str($+($chr(160),$chr(32))$chr(32),3) |1.4.1.4.1.4.1.4.1.4|

}





























on $*:text:/^[!]santa*/Si:#: { 
  .notice $nick 4 $str($+($chr(160),$chr(32)),14) $+ $chr(32))                        / $+ $str($+($chr(160),$chr(32))$chr(32),1)   ```````` $+ $str($+($chr(160),$chr(32))$chr(32),1) \
  .notice $nick 4 $str($+($chr(160),$chr(32)),10) $+ $chr(32))               _/ $+ $str($+($chr(160),$chr(32))$chr(32),1)  `````` $+ $str($+($chr(160),$chr(32))$chr(32),6)           ````` $+ $str($+($chr(160),$chr(32))$chr(32),1)  \____
  .notice $nick 4 $str($+($chr(160),$chr(32)),7) $+ $chr(32))           ( '' $+ $str($+($chr(160),$chr(32))$chr(32),6)            1^^ $+ $str($+($chr(160),$chr(32))$chr(32),15)                                4'' $+ $str($+($chr(160),$chr(32))$chr(32),2) )         
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),6)        ( $+ $str($+($chr(160),$chr(32))$chr(32),6)           1^^ $str($+($chr(160),$chr(32)),2) $+ $chr(32))     ^^ $+ $str($+($chr(160),$chr(32))$chr(32),16)                               4) 
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),4)    ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         )(  $+ $str($+($chr(160),$chr(32))$chr(32),26)                                                  )  
  .notice $nick 4 $str($+($chr(160),$chr(32)),3) $+ $chr(32))   ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         )( $+ $str($+($chr(160),$chr(32))$chr(32),28)                                                       )   
  .notice $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),3)  (14______ 4)( $+ $str($+($chr(160),$chr(32))$chr(32),28)                                                       )
  .notice $nick 14 $str($+($chr(160),$chr(32)),2) $+ $chr(32)) ( $str($+($chr(160),$chr(32)),6) $+ $chr(32))             ) 4   $+ $str($+($chr(160),$chr(32))$chr(32),29)                                                        )
  .notice $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),2) ( $str($+($chr(160),$chr(32)),7) $+ $chr(32))              )4( $str($+($chr(160),$chr(32)),29) $+ $chr(32))                                                          )
  .notice $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),3)   (_____) $str($+($chr(160),$chr(32)),1) $+ $chr(32))  (^^^^^^^^^^^^^^^^^^^^^^^) 
  .notice $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),10)                 (  $+ $str($+($chr(160),$chr(32))$chr(32),32)                                                              )
  .notice $nick 14 $str($+($chr(160),$chr(32)),10) $+ $chr(32))                 (_______________________________) 


}












on $*:text:/^[@]santa*/Si:#: { 
  .msg $chan 4 $str($+($chr(160),$chr(32)),14) $+ $chr(32))                        / $+ $str($+($chr(160),$chr(32))$chr(32),1)   ```````` $+ $str($+($chr(160),$chr(32))$chr(32),1) \
  .msg $chan 4 $str($+($chr(160),$chr(32)),10) $+ $chr(32))               _/ $+ $str($+($chr(160),$chr(32))$chr(32),1)  `````` $+ $str($+($chr(160),$chr(32))$chr(32),6)           ````` $+ $str($+($chr(160),$chr(32))$chr(32),1)  \____
  .msg $chan 4 $str($+($chr(160),$chr(32)),7) $+ $chr(32))           ( '' $+ $str($+($chr(160),$chr(32))$chr(32),6)            1^^ $+ $str($+($chr(160),$chr(32))$chr(32),15)                                4'' $+ $str($+($chr(160),$chr(32))$chr(32),2) )         
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),6)        ( $+ $str($+($chr(160),$chr(32))$chr(32),6)           1^^ $str($+($chr(160),$chr(32)),2) $+ $chr(32))     ^^ $+ $str($+($chr(160),$chr(32))$chr(32),16)                               4) 
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),4)    ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         )(  $+ $str($+($chr(160),$chr(32))$chr(32),26)                                                  )  
  .msg $chan 4 $str($+($chr(160),$chr(32)),3) $+ $chr(32))   ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         )( $+ $str($+($chr(160),$chr(32))$chr(32),28)                                                       )   
  .msg $chan 4 $+ $str($+($chr(160),$chr(32))$chr(32),3)  (14______ 4)( $+ $str($+($chr(160),$chr(32))$chr(32),28)                                                       )
  .msg $chan 14 $str($+($chr(160),$chr(32)),2) $+ $chr(32)) ( $str($+($chr(160),$chr(32)),6) $+ $chr(32))             ) 4   $+ $str($+($chr(160),$chr(32))$chr(32),29)                                                        )
  .msg $chan 14 $+ $str($+($chr(160),$chr(32))$chr(32),2) ( $str($+($chr(160),$chr(32)),7) $+ $chr(32))              )4( $str($+($chr(160),$chr(32)),29) $+ $chr(32))                                                          )
  .msg $chan 14 $+ $str($+($chr(160),$chr(32))$chr(32),3)   (_____) $str($+($chr(160),$chr(32)),1) $+ $chr(32))  (^^^^^^^^^^^^^^^^^^^^^^^) 
  .msg $chan 14 $+ $str($+($chr(160),$chr(32))$chr(32),10)                 (  $+ $str($+($chr(160),$chr(32))$chr(32),32)                                                              )
  .msg $chan 14 $str($+($chr(160),$chr(32)),10) $+ $chr(32))                 (_______________________________) 


}







on $*:text:/^[`]santa*/Si:#: { 
  .msg $nick 4 $str($+($chr(160),$chr(32)),14) $+ $chr(32))                        / $+ $str($+($chr(160),$chr(32))$chr(32),1)   ```````` $+ $str($+($chr(160),$chr(32))$chr(32),1) \
  .msg $nick 4 $str($+($chr(160),$chr(32)),10) $+ $chr(32))               _/ $+ $str($+($chr(160),$chr(32))$chr(32),1)  `````` $+ $str($+($chr(160),$chr(32))$chr(32),6)           ````` $+ $str($+($chr(160),$chr(32))$chr(32),1)  \____
  .msg $nick 4 $str($+($chr(160),$chr(32)),7) $+ $chr(32))           ( '' $+ $str($+($chr(160),$chr(32))$chr(32),6)            1^^ $+ $str($+($chr(160),$chr(32))$chr(32),15)                                4'' $+ $str($+($chr(160),$chr(32))$chr(32),2) )         
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),6)        ( $+ $str($+($chr(160),$chr(32))$chr(32),6)           1^^ $str($+($chr(160),$chr(32)),2) $+ $chr(32))     ^^ $+ $str($+($chr(160),$chr(32))$chr(32),16)                               4) 
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),4)    ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         )(  $+ $str($+($chr(160),$chr(32))$chr(32),26)                                                  )  
  .msg $nick 4 $str($+($chr(160),$chr(32)),3) $+ $chr(32))   ( $+ $str($+($chr(160),$chr(32))$chr(32),5)         )( $+ $str($+($chr(160),$chr(32))$chr(32),28)                                                       )   
  .msg $nick 4 $+ $str($+($chr(160),$chr(32))$chr(32),3)  (14______ 4)( $+ $str($+($chr(160),$chr(32))$chr(32),28)                                                       )
  .msg $nick 14 $str($+($chr(160),$chr(32)),2) $+ $chr(32)) ( $str($+($chr(160),$chr(32)),6) $+ $chr(32))             ) 4   $+ $str($+($chr(160),$chr(32))$chr(32),29)                                                        )
  .msg $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),2) ( $str($+($chr(160),$chr(32)),7) $+ $chr(32))              )4( $str($+($chr(160),$chr(32)),29) $+ $chr(32))                                                          )
  .msg $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),3)   (_____) $str($+($chr(160),$chr(32)),1) $+ $chr(32))  (^^^^^^^^^^^^^^^^^^^^^^^) 
  .msg $nick 14 $+ $str($+($chr(160),$chr(32))$chr(32),10)                 (  $+ $str($+($chr(160),$chr(32))$chr(32),32)                                                              )
  .msg $nick 14 $str($+($chr(160),$chr(32)),10) $+ $chr(32))                 (_______________________________) 


}
















------------------------------------------     4   4       ------------------------------------------------------------------------------------------------------------------------    4    4    ----------------------------------------------------------------------------------------------------------------------------  4444444    ----------------------------------------------------------------------------------------------------------------------------       44     ---------------------------------------------------------------------------------------------------------------------------       44     --------------------------------------------------------------------------------



















on *:TEXT:!change*:#: {   
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) && ($2 isnum 2-144) {    
    if (%pcw.world. [ $+ [ $chan ] ] == $2) { notice $nick that world is already set. | HALT }  
    inc %times.changed.nick [ $+ [ $nick ] ] +1 
    writeini -n PestControl.ini Sets $nick $calc($readini(PestControl.ini, n, Sets, $nick) + 1)
    writeini -n PestControl.ini TotalSets $chan $calc($readini(PestControl.ini, n, TotalSets, $chan) + 1)
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }  
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 10»15]|[14The PC world for4 $chan 14has been changed to4 %pcw.world. [ $+ [ $chan ] ] 14by4 %pcw.nick. [ $+ [ $chan ] ] 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[14Access 4denied14.15]|[10« 
  } 
}
on *:TEXT:!setpcw*:#: {   
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) && ($2 isnum 2-144) {    
    writeini -n PestControl.ini Sets $nick $calc($readini(PestControl.ini, n, Sets, $nick) + 1)
    writeini -n PestControl.ini TotalSets $chan $calc($readini(PestControl.ini, n, TotalSets, $chan) + 1)
    if (%pcw.world. [ $+ [ $chan ] ] == $2) { notice $nick that world is already set. | HALT }    
    inc %times.changed.nick [ $+ [ $nick ] ] +1 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 10»15]|[14The PC world for4 $chan 14has been changed to4 %pcw.world. [ $+ [ $chan ] ] 14by4 %pcw.nick. [ $+ [ $chan ] ] 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[14Access 4denied14.15]|[10«
  } 
} 

on *:text:!pc on*:#:{   
  if (%pcw. [ $+ [ $chan ] ] == on) { HALT } 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pcw. $+ $chan on 
    msg $chan 10»15]|[14The pestcontrol commands for4 $chan 14are now ON 15]|[10«
    halt
    else
  }
  notice $nick 10»15]|[14access 4denied15]|[10«
} 

on *:text:!pc off*:#:{  
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[14The pestcontrol commands for4 $chan 14are now OFF 15]|[10«
    halt
    else
    notice $nick 10»15]|[14access 4denied15]|[10« 
  }
}  
on *:TEXT:@pcw:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) {  
    inc %pestcontrol.
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
    if (%pcw. [ $+ [ $chan ] ] == on) { 
      msg $chan 10»15]|[14 World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[14 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[14 Count:4 %pestcontrol. 15]|[10«
    } 
  } 
} 
on *:TEXT:@world:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) {  
    inc %pestcontrol.
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
    if (%pcw. [ $+ [ $chan ] ] == on) { 
      msg $chan 10»15]|[14World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[14 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[14 Count:4 %pestcontrol. 15]|[10«
    } 
  }
}
on *:TEXT:!pcw:#: {   
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 10»15]|[14 World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[14 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[14 Count:4 %pestcontrol. 15]|[10«
  } 
} 

on *:TEXT:!world:#: {   
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 10»15]|[14World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[14 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[14 Count:4 %pestcontrol. 15]|[10«
  } 
}















on *:NICK:{
  var %x = 0
  while (%x <= $chan(0)) { 
    set %n $chan(%x)
    inc %x
    if ($readini(1.ini,%n,Player1) == $nick) { 
      writeini DM1.ini %n Player1 $newnick 
    }
    if ($readini(DM1.ini,%n,Player2) == $nick) { 
      writeini DM1.ini %n Player2 $newnick 
    }
  }
}
on *:JOIN:#:{
  if ($readini(onjoin.ini,join,$chan) == $chan) { halt }
  if ($nick == $me) {
    remini DMS.ini $chan Status
    remini DM1.ini $chan Player1
    remini DM1.ini $chan Player2
    remini DMHP.ini $chan HP1
    remini DMHP.ini $chan HP2
    remini DMT.ini $chan DDM
    remini DMSPEC.ini $chan SPEC1
    remini DMSPEC.ini $chan SPEC2
    remini DMSHARK.ini $chan SH1
    remini DMSHARK.ini $chan SH2
    Remini DMHIT.ini $chan ICEON
    remini DMHIT.ini $chan 
    unset %dm.*
    unset %dds*
    unset %whip*
  }
}
on *:PART:#:{
  if ($readini(onjoin.ini,join,$chan) == $chan) { halt }
  if ($readini(DM1.ini,$Chan,Player1) == $nick) || ($readini(DM1.ini,$Chan,Player2) == $nick) { 
    msg $chan 10[DM] $nick Has parted this channel, Stopping death match.
    remini DMS.ini $chan Status
    remini DM1.ini $chan Player1
    remini DM1.ini $chan Player2
    remini DMHP.ini $chan HP1
    remini DMHP.ini $chan HP2
    remini DMT.ini $chan DDM
    remini DMSPEC.ini $chan SPEC1
    remini DMSPEC.ini $chan SPEC2
    remini DMSHARK.ini $chan SH1
    remini DMSHARK.ini $chan SH2
    remini DMHIT.ini $chan 
    unset %dm.*
    unset %dds*
    unset %whip*
  }
}

on *:TEXT:!dm:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(onjoin.ini,join,$chan) == $chan) { halt }
  if ($readini(DM1.ini,$Chan,Player1) == $nick) {
    notice $nick 10Your already playing.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
    writeini DM1.ini $Chan Player1 $nick
    msg $chan 7 $+ $nick has invited anyone to DM them, type !dm to accept, 20 seconds to do so. Player stats : 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$nick) $chr(94) Loses $readini(DMWINS.ini,loses,$nick) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$nick) / ($readini(DMWINS.ini,wins,$nick) + $readini(DMWINS.ini,loses,$nick)) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42)
    writeini DMS.ini $chan Status ON
    writeini DMHP.ini $chan HP1 99
    writeini DMSPEC.ini $chan SPEC1 100
    writeini DMSHARK.ini $chan SH1 20
    /timer505 1 20 msg $chan 7 [DM] Sorry no one wanted to DM you $readini(DM1.ini,$chan,Player1)
    /timer500 1 20 remini DMSHARK.ini $chan SH1 20
    /timer501 1 20 remini DMSPEC.ini $chan SPEC1 100
    /timer502 1 20 remini DMHP.ini $chan HP1 99
    /timer503 1 20 remini DMS.ini $chan Status ON
    /timer504 1 20 remini DM1.ini $Chan Player1 $nick
    Remini DMHIT.ini $chan ICEON
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
    if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
    writeini DM1.ini $Chan Player2 $nick
    writeini DM1.ini $chan Players1 $rand(1,2)
    if ($readini(DM1.ini,$chan,Players1) == 1) {
      writeini DM1.ini $chan Players $readini(DM1.ini,$chan,Player1)
      writeini DMT.ini $chan DDM P1
    }
    if ($readini(DM1.ini,$chan,Players1) == 2) {
      writeini DM1.ini $chan Players $readini(DM1.ini,$chan,Player2)
      writeini DMT.ini $chan DDM P2
    }
    msg $chan 10The fight between $readini(DM1.ini,$Chan,Player1) and $nick has now started! Type 2!dm rules10 for the rules, It is your go first2 $readini(DM1.ini,$Chan,Players)
    writeini DMS.ini $Chan Status ON2
    writeini DMHP.ini $chan HP2 99
    writeini DMSPEC.ini $chan SPEC2 100
    writeini DMSHARK.ini $chan SH2 20
    /timer50* off
    /timer523 1 20 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
    /timer510 1 20 writeini DMT.ini $chan DDM P2
    halt
  }
  else {
    notice $nick 4 There is 5already4 a game going on.
  }
}
on *:TEXT:!whip:#:{
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { msg $chan 10[DM] You are frozen! You may only use food or Range weapons. }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { Notice $nick 10[DM] You are frozen! You may only use food or Range weapons. | halt }
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    writeini dmweps.ini $chan whip $rand(0,100)
    if ($readini(dmweps.ini,$chan,whip) <= 50) { writeini dmweps.ini $chan whip1 $rand(0,30) }
    if ($readini(dmweps.ini,$chan,whip) > 50) && ($readini(dmweps.ini,$chan,whip) <= 65) { writeini dmweps.ini $chan whip1 $rand(5,35) }
    if ($readini(dmweps.ini,$chan,whip) > 65) && ($readini(dmweps.ini,$chan,whip) <= 75) { writeini dmweps.ini $chan whip1 $rand(0,40) }
    if ($readini(dmweps.ini,$chan,whip) > 75) && ($readini(dmweps.ini,$chan,whip) <= 80) { writeini dmweps.ini $chan whip1 $rand(10,40) }
    if ($readini(dmweps.ini,$chan,whip) > 80) { writeini dmweps.ini $chan whip1 $rand(3,48) }  
    writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) - $readini(dmweps.ini,$chan,whip1) )
    writeini DMT.ini $Chan DDM P2
    msg $chan 10 [DM] $nick 12Flicks their whip10 Hitting a 7 $+ $chr(91) $readini(dmweps.ini,$chan,whip1) $chr(93) 10on $readini(DM1.ini,$chan,Player2) $+ . $readini(DM1.ini,$Chan,Player2) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp Left   $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
    if ($readini(DMHP.ini,$chan,HP2) > 0) && ($readini(DMHP.ini,$chan,HP2) <= 499) { notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now  
    }
    if ($readini(DMHP.ini,$chan,HP2) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
    }
    if ($readini(DMHP.ini,$chan,HP2) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42)
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini DMHIT.ini $chan whip
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    writeini dmweps.ini $chan whip $rand(0,100)
    if ($readini(dmweps.ini,$chan,whip) <= 50) { writeini dmweps.ini $chan whip1 $rand(0,30) }
    if ($readini(dmweps.ini,$chan,whip) > 50) && ($readini(dmweps.ini,$chan,whip) <= 65) { writeini dmweps.ini $chan whip1 $rand(5,35) }
    if ($readini(dmweps.ini,$chan,whip) > 65) && ($readini(dmweps.ini,$chan,whip) <= 75) { writeini dmweps.ini $chan whip1 $rand(0,40) }
    if ($readini(dmweps.ini,$chan,whip) > 75) && ($readini(dmweps.ini,$chan,whip) <= 80) { writeini dmweps.ini $chan whip1 $rand(10,40) }
    if ($readini(dmweps.ini,$chan,whip) > 80) { writeini dmweps.ini $chan whip1 $rand(3,48) }  
    writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) - $readini(dmweps.ini,$chan,whip1) )
    writeini DMT.ini $Chan DDM P1
    msg $chan 10 [DM] $nick 12Flicks their whip10 Hitting a 7 $+ $chr(91) $readini(dmweps.ini,$chan,whip1) $chr(93) 10on $readini(DM1.ini,$chan,Player1) $+ . $readini(DM1.ini,$Chan,Player1) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10 Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
    if ($readini(DMHP.ini,$chan,HP2) > 0) && ($readini(DMHP.ini,$chan,HP1) <= 499)  { notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP1) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
    }
    if ($readini(DMHP.ini,$chan,HP1) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini DMHIT.ini $chan whip
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}
on $*:text:/^[!](dd++|dds|dd)/Si:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { msg $chan 10[DM] You are frozen! You may only use food or Range weapons. }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { Notice $nick 10[DM] You are frozen! You may only use food or Range weapons. | halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    if ($readini(DMSPEC.ini,$chan,SPEC1) < 25) { msg $chan 10[DM] $nick - You do not have enough Special to use a dds! }
    if ($readini(DMSPEC.ini,$chan,SPEC1) < 25) { notice $nick 10[DM] You do not have enough Special to use a dds! | halt }
    writeini dmweps.ini $chan dds5 $rand(0,100)
    writeini dmweps.ini $chan dds4 $rand(0,100)
    if ($readini(dmweps.ini,$chan,dds4) <= 50) { writeini dmweps.ini $chan dds2 $rand(0,20) }
    if ($readini(dmweps.ini,$chan,dds4) > 50) && ($readini(dmweps.ini,$chan,dds4) <= 65) { writeini dmweps.ini $chan dds2 $rand(0,25) }
    if ($readini(dmweps.ini,$chan,dds4) > 65) && ($readini(dmweps.ini,$chan,dds4) <= 75) { writeini dmweps.ini $chan dds2 $rand(0,28) }
    if ($readini(dmweps.ini,$chan,dds4) > 75) && ($readini(dmweps.ini,$chan,dds4) <= 80) { writeini dmweps.ini $chan dds2 $rand(0,30) }
    if ($readini(dmweps.ini,$chan,dds5) > 80) { writeini dmweps.ini $chan dds2 $rand(0,38) }
    if ($readini(dmweps.ini,$chan,dds5) <= 50) { writeini dmweps.ini $chan dds1 $rand(0,20) }
    if ($readini(dmweps.ini,$chan,dds5) > 50) && ($readini(dmweps.ini,$chan,dds5) <= 65) { writeini dmweps.ini $chan dds1 $rand(0,25) }
    if ($readini(dmweps.ini,$chan,dds5) > 65) && ($readini(dmweps.ini,$chan,dds5) <= 85) { writeini dmweps.ini $chan dds1 $rand(0,28) }
    if ($readini(dmweps.ini,$chan,dds5) > 85) && ($readini(dmweps.ini,$chan,dds5) <= 90) { writeini dmweps.ini $chan dds1 $rand(0,30) }
    if ($readini(dmweps.ini,$chan,dds5) > 90) { writeini dmweps.ini $chan dds1 $rand(0,38) }
    writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) - ($readini(dmweps.ini,$chan,dds1) + $readini(dmweps.ini,$chan,dds2)) )
    writeini DMT.ini $Chan DDM P2
    writeini DMSPEC.ini $chan SPEC1 $calc($readini(DMSPEC.ini,$chan,SPEC1) - 25)
    msg $chan 10 [DM] $nick 12Hits a 7 $+ $chr(91) $readini(dmweps.ini,$chan,dds1) 10 $+ $chr(44) $+ 7 $readini(dmweps.ini,$chan,dds2) $chr(93) 10on $readini(DM1.ini,$chan,Player2) $+ . $readini(DM1.ini,$Chan,Player2) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
    if ($readini(DMHP.ini,$chan,HP2) > 0) { notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP2) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
    }
    notice $nick You have got $readini(DMSPEC.ini,$chan,SPEC1) Percent Special left
    if ($readini(DMHP.ini,$chan,HP2) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini DMHIT.ini $chan dds1
      remini DMHIT.ini $chan dds2
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    if ($readini(DMSPEC.ini,$chan,SPEC2) < 25) { msg $chan 10[DM] $nick - You do not have enough Special to use a dds! }
    if ($readini(DMSPEC.ini,$chan,SPEC2) < 25) { notice $nick 10[DM] You do not have enough Special to use a dds! | halt }
    writeini dmweps.ini $chan dds5 $rand(0,100)
    writeini dmweps.ini $chan dds4 $rand(0,100)
    if ($readini(dmweps.ini,$chan,dds4) <= 50) { writeini dmweps.ini $chan dds2 $rand(0,20) }
    if ($readini(dmweps.ini,$chan,dds4) > 50) && ($readini(dmweps.ini,$chan,dds4) <= 65) { writeini dmweps.ini $chan dds2 $rand(0,25) }
    if ($readini(dmweps.ini,$chan,dds4) > 65) && ($readini(dmweps.ini,$chan,dds4) <= 75) { writeini dmweps.ini $chan dds2 $rand(0,28) }
    if ($readini(dmweps.ini,$chan,dds4) > 75) && ($readini(dmweps.ini,$chan,dds4) <= 80) { writeini dmweps.ini $chan dds2 $rand(0,30) }
    if ($readini(dmweps.ini,$chan,dds5) > 80) { writeini dmweps.ini $chan dds2 $rand(0,38) }
    if ($readini(dmweps.ini,$chan,dds5) <= 50) { writeini dmweps.ini $chan dds1 $rand(0,20) }
    if ($readini(dmweps.ini,$chan,dds5) > 50) && ($readini(dmweps.ini,$chan,dds5) <= 65) { writeini dmweps.ini $chan dds1 $rand(0,25) }
    if ($readini(dmweps.ini,$chan,dds5) > 65) && ($readini(dmweps.ini,$chan,dds5) <= 85) { writeini dmweps.ini $chan dds1 $rand(0,28) }
    if ($readini(dmweps.ini,$chan,dds5) > 85) && ($readini(dmweps.ini,$chan,dds5) <= 90) { writeini dmweps.ini $chan dds1 $rand(0,30) }
    if ($readini(dmweps.ini,$chan,dds5) > 90) { writeini dmweps.ini $chan dds1 $rand(0,38) }
    writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) - ($readini(dmweps.ini,$chan,dds1) + $readini(dmweps.ini,$chan,dds2)) )
    writeini DMT.ini $Chan DDM P1
    writeini DMSPEC.ini $chan SPEC2 $calc($readini(DMSPEC.ini,$chan,SPEC2) - 25)
    msg $chan 10 [DM] $nick 12Hits a 7 $+ $chr(91) $readini(dmweps.ini,$chan,dds1) 10 $+ $chr(44) $+ 7 $readini(dmweps.ini,$chan,dds2) $chr(93) 10on $readini(DM1.ini,$chan,Player1) $+ . $readini(DM1.ini,$Chan,Player1) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
    if ($readini(DMHP.ini,$chan,HP1) > 0) { notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP1) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
    }
    notice $nick You have got $readini(DMSPEC.ini,$chan,SPEC2) Percent Special left
    if ($readini(DMHP.ini,$chan,HP1) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini DMHIT.ini $chan dds1
      remini DMHIT.ini $chan dds2
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}
on $*:text:/^[!](dh|dharock|dharocks)/Si:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { msg $chan 10[DM] You are frozen! You may only use food or Range weapons. }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { Notice $nick 10[DM] You are frozen! You may only use food or Range weapons. | halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    if ($readini(DMHP.ini,$chan,HP1) <= 16) { writeini dmweps.ini $chan dh1 $rand(0,100) 
      if ($readini(dmweps.ini,$chan,dh1) <= 5) { writeini dmweps.ini $chan dh $rand(40,80) }
      if ($readini(dmweps.ini,$chan,dh1) > 5) && ($readini(dmweps.ini,$chan,dh1) <= 20) { writeini dmweps.ini $chan dh $rand(10,80) }
      if ($readini(dmweps.ini,$chan,dh1) > 20) && ($readini(dmweps.ini,$chan,dh1) <= 50) { writeini dmweps.ini $chan dh $rand(0,80) }
      if ($readini(dmweps.ini,$chan,dh1) > 50) && ($readini(dmweps.ini,$chan,dh1) <= 80) { writeini dmweps.ini $chan dh $rand(0,60) }
      if ($readini(dmweps.ini,$chan,dh1) > 80) && ($readini(dmweps.ini,$chan,dh1) <= 100) { writeini dmweps.ini $chan dh $rand(0,40) }
    }
    if ($readini(DMHP.ini,$chan,HP1) > 16) { 
      writeini dmweps.ini $chan dh1 $rand(0,100)
      if ($readini(dmweps.ini,$chan,dh1) <= 5) { writeini dmweps.ini $chan dh $rand(0,50) }
      if ($readini(dmweps.ini,$chan,dh1) > 5) && ($readini(dmweps.ini,$chan,dh1) <= 20) { writeini dmweps.ini $chan dh $rand(0,20) }
      if ($readini(dmweps.ini,$chan,dh1) > 20) && ($readini(dmweps.ini,$chan,dh1) <= 50) { writeini dmweps.ini $chan dh $rand(0,15) }
      if ($readini(dmweps.ini,$chan,dh1) > 50) { writeini dmweps.ini $chan dh $rand(0,10) } 
    }
    writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) - $readini(dmweps.ini,$chan,dh) )
    writeini DMT.ini $Chan DDM P2
    msg $chan 10[DM] $nick 7Swings their Dh Great Axe10 Hitting a 7 $+ $chr(91) $readini(Dmweps.ini,$chan,dh) $chr(93) 10on $readini(DM1.ini,$chan,Player2) $+ . $readini(DM1.ini,$Chan,Player2) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp Left   $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
    if ($readini(DMHP.ini,$chan,HP2) > 0) { notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP2) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
    }
    if ($readini(DMHP.ini,$chan,HP2) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini DMHIT.ini $chan Dh1
      unset %dm.*
      unset %dds*
      unset %whip*
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    if ($readini(DMHP.ini,$chan,HP2) <= 16) { writeini dmweps.ini $chan dh1 $rand(0,100) 
      if ($readini(dmweps.ini,$chan,dh1) <= 5) { writeini dmweps.ini $chan dh $rand(40,80) }
      if ($readini(dmweps.ini,$chan,dh1) > 5) && ($readini(dmweps.ini,$chan,dh1) <= 20) { writeini dmweps.ini $chan dh $rand(10,80) }
      if ($readini(dmweps.ini,$chan,dh1) > 20) && ($readini(dmweps.ini,$chan,dh1) <= 50) { writeini dmweps.ini $chan dh $rand(0,80) }
      if ($readini(dmweps.ini,$chan,dh1) > 50) && ($readini(dmweps.ini,$chan,dh1) <= 80) { writeini dmweps.ini $chan dh $rand(0,60) }
      if ($readini(dmweps.ini,$chan,dh1) > 80) && ($readini(dmweps.ini,$chan,dh1) <= 100) { writeini dmweps.ini $chan dh $rand(0,40) }
    }
    if ($readini(DMHP.ini,$chan,HP2) > 16) { 
      writeini dmweps.ini $chan dh1 $rand(0,100)
      if ($readini(dmweps.ini,$chan,dh1) <= 5) { writeini dmweps.ini $chan dh $rand(0,50) }
      if ($readini(dmweps.ini,$chan,dh1) > 5) && ($readini(dmweps.ini,$chan,dh1) <= 20) { writeini dmweps.ini $chan dh $rand(0,20) }
      if ($readini(dmweps.ini,$chan,dh1) > 20) && ($readini(dmweps.ini,$chan,dh1) <= 50) { writeini dmweps.ini $chan dh $rand(0,15) }
      if ($readini(dmweps.ini,$chan,dh1) > 50) { writeini dmweps.ini $chan dh $rand(0,10) } 
    }
    writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) - $readini(dmweps.ini,$chan,dh) )
    writeini DMT.ini $Chan DDM P1
    msg $chan 10 [DM] $nick 7Swings their Dh Great Axe10 Hitting a 7 $+ $chr(91) $readini(dmweps.ini,$chan,dh) $chr(93) 10on $readini(DM1.ini,$chan,Player1) $+ . $readini(DM1.ini,$Chan,Player1) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
    if ($readini(DMHP.ini,$chan,HP1) > 0) { notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP1) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
    }
    if ($readini(DMHP.ini,$chan,HP1) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini Dmhit.ini $chan Dh1
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}
on $*:text:/^[!](eat|shark)/Si:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    if ($readini(DMSHARK.ini,$chan,SH1) < 1) { msg $chan 10[DM] $nick You do not have any sharks left. | halt }
    writeini DMT.ini $Chan DDM P2
    writeini DMSHARK.ini $chan SH1 $calc( $readini(DMSHARK.ini,$chan,SH1) - 1 )
    if ($readini(DMHP.ini,$chan,HP1) >= 79) {     
      writeini DMHP.ini $chan HP1 99
      msg $chan 10[DM] $nick Eats a shark $nick has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp left. You have 12 $+ $chr(91) $readini(DMSHARK.ini,$chan,SH1) $chr(93) 10Sharks remaning  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
      notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now 
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
      Remini DMHIT.ini $chan ICEON
      halt
    }
    if ($readini(DMHP.ini,$chan,HP1) <= 78) {  
      writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) + 20 )  
      msg $chan 10[DM] $nick Eats a shark $nick has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp left. You have 12 $+ $chr(91) $readini(DMSHARK.ini,$chan,SH1) $chr(93) 10Sharks remaning  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
      notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now 
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
      Remini DMHIT.ini $chan ICEON
      halt    
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    if ($readini(DMSHARK.ini,$chan,SH1) < 1) { msg $chan 10[DM] You do not have any sharks left 
      halt 
    }
    writeini DMT.ini $Chan DDM P1
    writeini DMSHARK.ini $chan SH2 $calc( $readini(DMSHARK.ini,$chan,SH2) - 1 )
    if ($readini(DMHP.ini,$chan,HP2) >= 79) {     
      writeini DMHP.ini $chan HP2 99
      msg $chan 10[DM] $nick Eats a shark $nick has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp left. You have 12 $+ $chr(91) $readini(DMSHARK.ini,$chan,SH2) $chr(93) 10Sharks remaning  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
      notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now 
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
      Remini DMHIT.ini $chan ICEON
      halt 
    }
    if ($readini(DMHP.ini,$chan,HP2) <= 78) {  
      writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) + 20 )  
      msg $chan 10[DM] $nick Eats a shark $nick has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp left. You have 12 $+ $chr(91) $readini(DMSHARK.ini,$chan,SH2) $chr(93) 10Sharks remaning  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
      notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now 
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
      Remini DMHIT.ini $chan ICEON
      halt
    }
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}

on $*:text:/^[!](pj)/Si:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    msg $chan 10[DM] $nick Wants to Switch out of the duel, Type !switch to switch with them.
    writeini DMT.ini $Chan Switch P1
    /timer61 Remini Dmt.ini $chan Switch 
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    msg $chan 10[DM] $nick Wants to Switch out of the duel, Type !switch to switch with them.
    writeini DMT.ini $Chan Switch P2
    /timer61 Remini Dmt.ini $chan Switch
    halt
  }
}
on $*:text:/^[!](switch)/Si:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick) {
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick) {
    halt
  }
  if ($readini(DMT.ini,$chan,Switch) == P1) {
    timer61 off 
    msg $chan 10[DM] $nick Has switched places with $readini(DM1.ini,$Chan,Player1)
    writeini DM1.ini $chan Player1 $nick
    Remini Dmt.ini $chan Switch
  }
  if ($readini(DMT.ini,$chan,Switch) == P2) {
    msg $chan 10[DM] $nick Has switched places with $readini(DM1.ini,$Chan,Player2)
    writeini DM1.ini $chan Player2 $nick
    Remini Dmt.ini $chan Switch
  }
}
writeini DM
on *:TEXT:!barrage:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { msg $chan 10[DM] You are frozen! You may only use food or Range weapons. }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { Notice $nick 10[DM] You are frozen! You may only use food or Range weapons. | halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    writeini DMHIT.ini $chan dmice1 $rand(0,100)
    if ($readini(dmhit.ini,$chan,dmice1) >= 0) && ($readini(dmhit.ini,$chan,dmice1) <= 20) { writeini DMHIT.ini $chan dmice $rand(0,20) }
    if ($readini(dmhit.ini,$chan,dmice1) > 20) && ($readini(dmhit.ini,$chan,dmice1) <= 50) { writeini DMHIT.ini $chan dmice $rand(0,25) }
    if ($readini(dmhit.ini,$chan,dmice1) > 50) && ($readini(dmhit.ini,$chan,dmice1) <= 80) { writeini DMHIT.ini $chan dmice $rand(0,30) }
    if ($readini(dmhit.ini,$chan,dmice1) > 80) && ($readini(dmhit.ini,$chan,dmice1) <= 100) { writeini DMHIT.ini $chan dmice $rand(5,30) }
    writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) - $readini(dmhit.ini,$chan,dmice) )
    msg $chan 10[DM] $nick 2Barrages $readini(DM1.ini,$chan,Player2) 10Hitting a4 $chr(91) $readini(dmhit.ini,$chan,dmice) $chr(93) 10on $readini(DM1.ini,$chan,Player2) $+ . $readini(DM1.ini,$Chan,Player2) Has got 5 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
    writeini DMT.ini $Chan DDM P2
    if ($readini(dmhit.ini,$chan,dmice1) >= 85) { writeini DMHIT.ini $chan ICEON $readini(DM1.ini,$chan,Player2) | msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) IS FROZEN! $readini(DM1.ini,$chan,Player2) May only use Food or range weapons. }
    if ($readini(DMHP.ini,$chan,HP2) > 0) { notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
    }
    if ($readini(DMHP.ini,$chan,HP2) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini Dmhit.ini $chan ice
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    writeini DMHIT.ini $chan dmice1 $rand(0,100)
    if ($readini(dmhit.ini,$chan,dmice1) >= 0) && ($readini(dmhit.ini,$chan,dmice1) <= 20) { writeini DMHIT.ini $chan dmice $rand(0,20) }
    if ($readini(dmhit.ini,$chan,dmice1) > 20) && ($readini(dmhit.ini,$chan,dmice1) <= 50) { writeini DMHIT.ini $chan dmice $rand(0,25) }
    if ($readini(dmhit.ini,$chan,dmice1) > 50) && ($readini(dmhit.ini,$chan,dmice1) <= 80) { writeini DMHIT.ini $chan dmice $rand(0,30) }
    if ($readini(dmhit.ini,$chan,dmice1) > 80) && ($readini(dmhit.ini,$chan,dmice1) <= 100) { writeini DMHIT.ini $chan dmice $rand(5,30) }
    writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) - $readini(dmhit.ini,$chan,dmice) )
    msg $chan 10[DM] $nick 2Barrages $readini(DM1.ini,$chan,Player1) 10Hitting a4 $chr(91) $readini(dmhit.ini,$chan,dmice) $chr(93) 10on $readini(DM1.ini,$chan,Player1) $+ . $readini(DM1.ini,$Chan,Player1) Has got5 $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
    writeini DMT.ini $Chan DDM P1 
    if ($readini(dmhit.ini,$chan,dmice1) >= 85) { writeini DMHIT.ini $chan ICEON $readini(DM1.ini,$chan,Player1) | msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) IS FROZEN! $readini(DM1.ini,$chan,Player1) May only use Food or range weapons. }
    if ($readini(DMHP.ini,$chan,HP1) > 0) { notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
    }
    if ($readini(DMHP.ini,$chan,HP1) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini Dmhit.ini $chan dmice1
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}
on *:TEXT:!run:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
    writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
    writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
    writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
    msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
    remini DMS.ini $chan Status
    remini DM1.ini $chan Player1
    remini DM1.ini $chan Player2
    remini DMHP.ini $chan HP1
    remini DMHP.ini $chan HP2
    remini DMT.ini $chan DDM
    remini DMSPEC.ini $chan SPEC1
    remini DMSPEC.ini $chan SPEC2
    remini DMSHARK.ini $chan SH1
    remini DMSHARK.ini $chan SH2
    unset %dm.*
    unset %dds*
    unset %whip*
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
    writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
    writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
    writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
    msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
    remini DMS.ini $chan Status
    remini DM1.ini $chan Player1
    remini DM1.ini $chan Player2
    remini DMHP.ini $chan HP1
    remini DMHP.ini $chan HP2
    remini DMT.ini $chan DDM
    remini DMSPEC.ini $chan SPEC1
    remini DMSPEC.ini $chan SPEC2
    remini DMSHARK.ini $chan SH1
    remini DMSHARK.ini $chan SH2
    unset %dm.*
    unset %dds*
    unset %whip*
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}
on *:TEXT:!spear:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { msg $chan 10[DM] You are frozen! You may only use food or Range weapons. }
  if ($readini(DMHIT.ini,$chan,ICEON) == $nick) { Notice $nick 10[DM] You are frozen! You may only use food or Range weapons. | halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10[RR] You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    if ($readini(DMHP.ini,$chan,HP1) > 75) { notice $nick 10[DM] $nick You have got to much hp to use this }
    if ($readini(DMHP.ini,$chan,HP1) > 75) { msg $chan 10[DM] $nick You have got to much hp to use this | halt }
    if ($readini(DMSHARK.ini,$chan,SH1) > 0 && $readini(DMSHARK.ini,$chan,SH1) < 5) { set %dm.fspear $+ $chan $rand(25,90) }
    if ($readini(DMSHARK.ini,$chan,SH1) > 5 && $readini(DMSHARK.ini,$chan,SH1) < 8) { set %dm.fspear $+ $chan $rand(0,90) }
    if ($readini(DMSHARK.ini,$chan,SH1) > 8 && $readini(DMSHARK.ini,$chan,SH1) < 17) { set %dm.fspear $+ $chan $rand(0,30) }
    if ($readini(DMSHARK.ini,$chan,SH1) > 50 && $readini(DMSHARK.ini,$chan,SH1) < 70) { set %dm.fspear $+ $chan $rand(0,25) }
    if ($readini(DMSHARK.ini,$chan,SH1) > 17 && $readini(DMSHARK.ini,$chan,SH1) < 21) { set %dm.fspear $+ $chan $rand(0,20) } 
    writeini dmhit.ini $chan spear %dm.fspear [ $+ [ $chan ] ]
    timer51* off
    timer52* off
    writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) - %dm.fspear [ $+ [ $chan ] ] )
    msg $chan 10[DM] $nick Hits a6 $chr(91) $readini(dmhit.ini,$chan,spear) $chr(93) 10on $readini(DM1.ini,$chan,Player2) With a Flaming spear! $readini(DM1.ini,$Chan,Player2) Has got 13 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp Left
    writeini DMT.ini $Chan DDM P2 
    if ($readini(DMHP.ini,$chan,HP2) >= 99) { msg $chan 3,3............. }
    if ($readini(DMHP.ini,$chan,HP2) > 90) && ($readini(DMHP.ini,$chan,HP2) < 99) { msg $chan 9,9...........4,4..
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 80) && ($readini(DMHP.ini,$chan,HP2) < 90) { msg $chan 9,9..........4,4...
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 70) && ($readini(DMHP.ini,$chan,HP2) < 80) { msg $chan 9,9.........4,4.... 
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 60) && ($readini(DMHP.ini,$chan,HP2) < 70) { msg $chan 9,9.........4,4.... 
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 50) && ($readini(DMHP.ini,$chan,HP2) < 60) { msg $chan 9,9........4,4.....
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 40) && ($readini(DMHP.ini,$chan,HP2) < 50) { msg $chan 9,9.......4,4...... 
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 30) && ($readini(DMHP.ini,$chan,HP2) < 40) { msg $chan 9,9......4,4....... 
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 20) && ($readini(DMHP.ini,$chan,HP2) < 30) { msg $chan 9,9.....4,4........ 
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 10) && ($readini(DMHP.ini,$chan,HP2) < 20) { msg $chan 9,9...4,4......... 
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) < 9) { msg $chan 4,4.............   
    notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP2) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
    }
    if ($readini(DMHP.ini,$chan,HP2) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini dmhit.ini $chan spear
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    if ($readini(DMHP.ini,$chan,HP2) > 75) { notice $nick 10[DM] $nick You have got to much hp to use this }
    if ($readini(DMHP.ini,$chan,HP2) > 75) { msg $chan 10[DM] $nick You have got to much hp to use this | halt }
    if ($readini(DMSHARK.ini,$chan,SH2) > 0 && $readini(DMSHARK.ini,$chan,SH2) < 5) { set %dm.fspear $+ $chan $rand(25,90) }
    if ($readini(DMSHARK.ini,$chan,SH2) > 5 && $readini(DMSHARK.ini,$chan,SH2) < 8) { set %dm.fspear $+ $chan $rand(0,90) }
    if ($readini(DMSHARK.ini,$chan,SH2) > 8 && $readini(DMSHARK.ini,$chan,SH2) < 17) { set %dm.fspear $+ $chan $rand(0,30) }
    if ($readini(DMSHARK.ini,$chan,SH2) > 50 && $readini(DMSHARK.ini,$chan,SH2) < 70) { set %dm.fspear $+ $chan $rand(0,25) }
    if ($readini(DMSHARK.ini,$chan,SH2) > 17 && $readini(DMSHARK.ini,$chan,SH2) < 21) { set %dm.fspear $+ $chan $rand(0,20) }
    writeini dmhit.ini $chan spear %dm.fspear [ $+ [ $chan ] ] 
    timer51* off
    timer52* off
    writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) - %dm.fspear [ $+ [ $chan ] ] )
    writeini DMT.ini $Chan DDM P1
    msg $chan 10[DM] $nick Flings their flaming spear Hitting a 6 $+ $chr(91) $readini(dmhit.ini,$chan,spear) $chr(93) 10on $readini(DM1.ini,$chan,Player1) $+ . $readini(DM1.ini,$Chan,Player1) Has got 13 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp Left
    if ($readini(DMHP.ini,$chan,HP1) >= 99) { msg $chan 3,3............. 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 90) && ($readini(DMHP.ini,$chan,HP1) < 99) { msg $chan 9,9...........4,4..
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 80) && ($readini(DMHP.ini,$chan,HP1) < 90) { msg $chan 9,9..........4,4...
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 70) && ($readini(DMHP.ini,$chan,HP1) < 80) { msg $chan 9,9.........4,4.... 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 60) && ($readini(DMHP.ini,$chan,HP1) < 70) { msg $chan 9,9.........4,4.... 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 50) && ($readini(DMHP.ini,$chan,HP1) < 60) { msg $chan 9,9........4,4.....
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 40) && ($readini(DMHP.ini,$chan,HP1) < 50) { msg $chan 9,9.......4,4...... 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 30) && ($readini(DMHP.ini,$chan,HP1) < 40) { msg $chan 9,9......4,4....... 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 20) && ($readini(DMHP.ini,$chan,HP1) < 30) { msg $chan 9,9.....4,4........ 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 10) && ($readini(DMHP.ini,$chan,HP1) < 20) { msg $chan 9,9...4,4......... 
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) < 9) { msg $chan 4,4.............   
    notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now }
    if ($readini(DMHP.ini,$chan,HP1) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
    }
    if ($readini(DMHP.ini,$chan,HP1) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini dmhit.ini $chan spear
      unset %dm.*
      unset %dds*
      unset %whip*
      halt
    }
    halt
  }
  else {
    notice $nick 10Its either12 not10 your turn or your12 not10 in this game.
  }
}
on *:TEXT:!cbow:#:{
  if ($readini(dmonoff.ini,$chan,STS) == OFF) { halt }
  if ($readini(DMS.ini,$Chan,Status) == $null) {
    notice $nick 10There is no game Type12!DM10 to start a game.
    halt
  }
  if ($readini(DMS.ini,$Chan,Status) == ON) {
    notice $nick 10You cant go yet....
    halt
  }
  if ($readini(DM1.ini,$Chan,Player1) == $nick && $readini(DMT.ini,$chan,DDM) == P1) {
    timer51* off
    timer52* off
    writeini DMhit.ini $chan cbow1 $rand(0,100)
    if ($readini(dmhit.ini,$chan,cbow1) <= 5) { writeini dmhit.ini $chan cbow $rand(0,20) }
    if ($readini(dmhit.ini,$chan,cbow1) > 5) && ($readini(dmhit.ini,$chan,cbow1) <= 20) { writeini dmhit.ini $chan cbow $rand(0,25) }
    if ($readini(dmhit.ini,$chan,cbow1) > 20) && ($readini(dmhit.ini,$chan,cbow1) <= 50) { writeini dmhit.ini $chan cbow $rand(0,28) }
    if ($readini(dmhit.ini,$chan,cbow1) > 50) && ($readini(dmhit.ini,$chan,cbow1) <= 80) { writeini dmhit.ini $chan cbow $rand(5,20) }
    if ($readini(dmhit.ini,$chan,cbow1) > 80) && ($readini(dmhit.ini,$chan,cbow1) <= 100) { writeini dmhit.ini $chan cbow $rand(5,28) }
    writeini DMHP.ini $chan HP2 $calc( $readini(DMHP.ini,$chan,HP2) - $readini(dmhit.ini,$chan,cbow) )
    writeini DMT.ini $Chan DDM P2
    msg $chan 10[DM] $nick 5Fires a Arrow10 Hitting a 4 $+ $chr(91) $readini(Dmhit.ini,$chan,cbow) $chr(93) 10on $readini(DM1.ini,$chan,Player2) $+ . $readini(DM1.ini,$Chan,Player2) Has got 7 $+ $chr(91) $readini(DMHP.ini,$chan,HP2) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP2))
    if ($readini(DMHP.ini,$chan,HP2) > 0) { notice $readini(DM1.ini,$Chan,Player2) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP2) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player2) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P1
      Remini DMHIT.ini $chan ICEON
    }
    if ($readini(DMHP.ini,$chan,HP2) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player1)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player1)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $chan SH2
      remini DMHIT.ini $chan cbow
      unset %dm.*
      unset %dds*
      unset %whip*
      Remini DMHIT.ini $chan ICEON
      halt
    }
    halt
  }
  if ($readini(DM1.ini,$Chan,Player2) == $nick && $readini(DMT.ini,$chan,DDM) == P2) {
    timer51* off
    timer52* off
    writeini DMhit.ini $chan cbow1 $rand(0,100)
    if ($readini(dmhit.ini,$chan,cbow1) <= 5) { writeini dmhit.ini $chan cbow $rand(0,20) }
    if ($readini(dmhit.ini,$chan,cbow1) > 5) && ($readini(dmhit.ini,$chan,cbow1) <= 20) { writeini dmhit.ini $chan cbow $rand(0,25) }
    if ($readini(dmhit.ini,$chan,cbow1) > 20) && ($readini(dmhit.ini,$chan,cbow1) <= 50) { writeini dmhit.ini $chan cbow $rand(0,28) }
    if ($readini(dmhit.ini,$chan,cbow1) > 50) && ($readini(dmhit.ini,$chan,cbow1) <= 80) { writeini dmhit.ini $chan cbow $rand(5,20) }
    if ($readini(dmhit.ini,$chan,cbow1) > 80) && ($readini(dmhit.ini,$chan,cbow1) <= 100) { writeini dmhit.ini $chan cbow $rand(5,28) }
    writeini DMHP.ini $chan HP1 $calc( $readini(DMHP.ini,$chan,HP1) - $readini(dmhit.ini,$chan,cbow) )
    writeini DMT.ini $Chan DDM P1
    msg $chan 10 [DM] $nick 5Fires a Arrow10 hitting a 4 $+ $chr(91) $readini(dmhit.ini,$chan,cbow) $chr(93) 10on $readini(DM1.ini,$chan,Player1) $+ . $readini(DM1.ini,$Chan,Player1) Has got 13 $+ $chr(91) $readini(DMHP.ini,$chan,HP1) $chr(93) 10Hp Left  $+ $readini(HPBAR.ini,hpbar,$readini(DMHP.ini,$chan,HP1))
    if ($readini(DMHP.ini,$chan,HP1) > 0) { notice $readini(DM1.ini,$Chan,Player1) 10[DM] It is your go now 
    }
    if ($readini(DMHP.ini,$chan,HP1) > 0) {
      /timer523 1 50 msg $chan 10[DM] $readini(DM1.ini,$chan,Player1) Has missed their turn 
      /timer510 1 50 writeini DMT.ini $chan DDM P2
      Remini DMHIT.ini $chan ICEON
    }
    if ($readini(DMHP.ini,$chan,HP1) < 1) {
      writeini DMWINS.ini Wins $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini loses $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player1)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player2) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player2)) + 1 )
      writeini DMWINS.ini Goes $readini(DM1.ini,$chan,Player1) $calc( $readini(DMWINS.ini,goes,$readini(DM1.ini,$chan,Player1)) + 1 )
      msg $chan 10 $upper($readini(DM1.ini,$chan,Player2)) WON THE DM 2 $+ $chr(42) $+ Wins $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) $chr(94) Loses $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2)) $chr(40) $floor($calc( $readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) / ($readini(DMWINS.ini,wins,$readini(DM1.ini,$chan,Player2)) + $readini(DMWINS.ini,loses,$readini(DM1.ini,$chan,Player2))) *100 )) $+ $chr(37) Wins $chr(41) $+ $chr(42) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(62),$chr(62),$chr(3),$chr(49),$chr(50),$chr(83),$chr(112),$chr(105),$chr(100),$chr(97),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(52),$chr(60),$chr(60),$chr(93))
      remini DMS.ini $chan Status
      remini DM1.ini $chan Player1
      remini DM1.ini $chan Player2
      remini DMHP.ini $chan HP1
      remini DMHP.ini $chan HP2
      remini DMT.ini $chan DDM
      remini DMSPEC.ini $chan SPEC1
      remini DMSPEC.ini $chan SPEC2
      remini DMSHARK.ini $chan SH1
      remini DMSHARK.ini $cha














    }

























------------------------------------------   5555555         ----------------------------------------------------------------------------------------------------------------------   55         --------------------------------------------------------------------------------------------------------------------------     5555     -------------------------------------------------------------------------------------------------------------------------     5    55    -------------------------------------------------------------------------------------------------------------------------      555555     ---------------------------------------------------------------------------------













on $*:TEXT:/^[!@](nw|newworld)/Si:#: {
  set %col1 $rand(1,14) | set %col2 $rand(1,14)
  timer 1 1 msg $chan  $+ $c1 $+ $+ 4,1 ____!!!!!!!!! NEW WORLD SET !!!!!!!!!!!!____
  timer 1 3 msg $chan  $+ $c2 $+ $+ 9,1!!!!!! PLEASE TURN ON SMITE PRAYER !!!!!!
  timer 1 5 msg $chan  $+ $c1 $+ $+ 13,1_!!!! ALERT THE TEAM WE'RE MOVING !!!_ 
}














alias c1 { return $+($chr(3),07,$1-) } 
alias c2 { return $+($chr(3),02,$1-) } 
alias c3 { return $+($chr(3),04,$1-) } 
on $*:text:/^[!@](Clan)/Si:#:{ 
  if ($sock(Clanread)) sockclose Clanread 
  if ($left($1,1) == !) set %display notice $nick $c3 $+ ~ $c2 $+ Clan $c3 $+ ~ 
  if ($left($1,1) == @) set %display msg $chan $c3 $+ ~ $c2 $+ Clan $c3 $+ ~ 
  set %Nick $replace($2-,$chr(32),$chr(43)) 
  sockopen Clanread www.runehead.com 80 
} 
on *:SOCKOPEN:Clanread: { 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %nick HTTP/1.1 
  sockwrite -nt $sockname Host: www.runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:Clanread: { 
  if ($sockerr) { %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message. 
    halt 
  } 
  var %sockreader 
  sockread %sockreader 
  If (*<p>The <b>exact</b> search <b>* iswm %sockreader) { set %result $remove($htmlfree(%sockreader),the,exact,search,returned,results:) 
    set %result $remove(%result,$gettok(%result,1,32)) 
  } 
  if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreader) { set %cname $htmlfree(%sockreader) } 
  if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreader) { set %link $remove(%sockreader,<td class='tableborder'><a href=','>,</a></td>,%cname) 
    %Display $c2(Name:) $c1(%cname) $c2 
    %display $c1(www.Runehead.com/clans/ $+ $remove(%link,$chr(32)) $+) 
  } 
} 
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}  


















on *:text:!service on:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Aile) {
    set %stat [ $+ [ $chan ] ] on
    msg $chan I will now act as a service bot.
  }
}
on *:text:!service off:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Aile) {
    unset %stat [ $+ [ $chan ] ]
    msg $chan Service bot commands are now off.
  }
}
on *:text:!kick *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      kick $chan $2 $3-
    }
  }
}
on *:text:!kb *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      mode $chan +b $address($2,2)
      kick $chan $2 $3-
    }
  }
}
on *:text:!ban *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      mode $chan +b $address($2,2)
    }
  }
}
on *:text:!unban *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      mode $chan -b $address($2,2)
    }
  }
}
on *:text:!op *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) {
      mode $chan +o $2
    }
  }
}
on *:text:!deop *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) {
      mode $chan -o $2
    }
  }
}
on *:text:!halfop *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) {
      mode $chan +h $2
    }
  }
}
on *:text:!dehalfop *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) {
      mode $chan -h $2
    }
  }
}
on *:text:!voice *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      mode $chan +v $2
    }
  }
}
on *:text:!devoice *:#:{
  if (%stat [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      mode $chan -v $2
    }
  }
}

















ON $*:TEXT:/^[!@.]google/Si:#:{ 
  /inc %t
  set $+(%,return.,%t) $iif($left($1,1) == @, msg $chan, notice $nick)
  set $+(%,google.,%t) $replace($2-,$chr(32),+)
  sockopen $+(google.,%t) www.google.com 80
}
on *:SOCKOPEN:google.*: {
  sockwrite -nt $sockname GET /search?hl=en&q= $+ %google. [ $+ [ %t ] ] $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:google.*: {
  if ($sockerr) {
    %return. [ $+ [ %t ] ] Important error: please report this to the owner of $me
    halt
  }
  var %read
  sockread %read
  if (*Your search* iswm %read) { %return. [ $+ [ %t ] ] No results, please try again.
  sockclose $sockname }
  if (*Location* iswm %read) {
    %return. [ $+ [ %t ] ] ***4[3Google4]1*** 12Top result:4 $gettok(%read,2,32)
    sockclose $sockname
    /unset %google. [ $+ [ %t ] ]
    /unset %return. [ $+ [ %t ] ]
  }
}
alias htmlfree {
  var %t, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%t), %t = $remove(%t,&nbsp;)
  return %t
}














on ^*:text:**:*:{
  haltdef
  if ($nick isop $chan) { 
    echo $chan $timestamp < $+ 4@ $+ $nick $+  $+ > $1- 
  }
  elseif ($nick ishop $chan) { 
    echo $chan $timestamp < $+ 7% $+ $nick $+  $+ > $1- 
  }
  elseif ($nick isvoice $chan) { 
    echo $chan $timestamp < $+ 2+ $+ $nick $+  $+ > $1- 
  }
  else {
    echo $iif($chan,$chan,$nick) $timestamp $iif($chan,<,10<) $+ 10 $+ $nick $+  $+ $iif($chan,>,10>) $1- 
  }
}
on*:Action:*:*:{
  haltdef
  echo $iif($chan,$chan,$nick) 6 $+ $timestamp * $nick $1-
}
on *:Input:#:{
  if (/ !isin $left($1,1)) {
    haltdef
    .msg $iif($chan,$chan,$nick) $1-
    if ($me isop $chan) {
      echo $chan $timestamp < $+ 4@ $+ $me $+  $+ > $1-
    }
    elseif ($me ishop $chan) {
      echo $chan $timestamp < $+ 7% $+ $me $+  $+ > $1-
    }
    elseif ($me isvoice $chan) {
      echo $chan $timestamp < $+ 2 $+ $nick $+  $+ > $1-
    }
    else {
      echo $iif($chan,$chan,$nick) $timestamp $iif($chan,<,10<) $+ 10 $+ $nick $+  $+ $iif($chan,>,10) $1-
    }









alias -l c1 { return $+($chr(3),04,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),02,$1-,$chr(3)) }
on *:TEXT:*:#:{
  if ($left($1,1) isin !@) {
    if ($skill($right($1,-1))) {
      if ($skill($right($1,-1)) == overall) { halt }
      if ($regex($left($1,1),/^(@|!)/Si)) { hadd -m $+(stats,.,$nick) disp $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick)) }
      else halt
      if ($regex($skill($right($1,-1)),/^(combat|stats|vk|pest|pc)/Si)) { 
        if ($skill($right($1,-1)) == combat) { hadd -m $+(stats,.,$nick) style cb }
        else hadd -m $+(stats,.,$nick) style st
        if ($skill($right($1,-1)) isin vk pest pc) { hadd -m $+(stats,.,$nick) style pc }
      }
      else {
        hadd -m $+(stats,.,$nick) style ss
        hadd -m $+(stats,.,$nick) skill $skill($right($1,-1))
      }
      if ($2) {
        if ($len($replace($2-,$chr(32),+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is  too long. | halt }
        hadd -m $+(stats,.,$nick) name $replace($2-,$chr(32),+,_,+,-,+)
      }
      else {
        if ($readini(defrsn.ini,defname,$nick)) { hadd -m $+(stats,.,$nick) name $replace($readini(defrsn.ini,defname,$nick),_,+) }
        else {
          if ($len($replace($nick,_,+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is  too long. | halt }
          hadd -m $+(stats,.,$nick) name $replace($nick,_,+)
        }
      }
      sockopen $+(stats,.,$nick) www.o-ss.net 80
    }
    else halt
  }
}

on *:SOCKOPEN:stats.*:{
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $replace($hget($sockname,name),$chr(32),+)  HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}
on *:SOCKREAD:stats.*:{
  sockread -f $+(%,$sockname,.,read)
  tokenize 32 $($+(%,$sockname,.,read),2)
  if (*does not feature in the hiscores* iswm $($+(%,$sockname,.,read),2)) {
    $hget($sockname,disp) $c1($hget($sockname,name)) $c2(isn't featured in the high scores.) 
    hfree $sockname
    sockclose $sockname
    halt
  }
  if ($hget($sockname,style) == pc) {
    if ($istok($skill(13248624621354321574863),$1,58)) {
      if (*not ranked* !iswm $1-) {
        inc $+(%,$sockname,.,a) 1
        hadd -m $sockname $($+(%,$sockname,.,a),2) $c2($1 $+ :) $c1($ndp($calc($calc($xp($calc($3 + 1)) - $remove($4,$chr(44))) / $floor($calc(($3 * $3) / $iif($1 == prayer,12,6)))))) $c2(( $+ $floor($calc(($3 * $3) / $iif($1 == prayer,12,6))) xp/point))
      }
      else { inc $+(%,$sockname,.,h) 1 }     
    }
    if ($1 == cooking) {
      if ($($+(%,$sockname,.,h),2) >= 7) {
        $hget($sockname,disp) $c1($hget($sockname,name)) $c2(doesn't appear in highscores for any combat skill.)
      }
      else {
        set $+(%,$sockname,.,b) 0
        while ($($+(%,$sockname,.,b),2) < $($+(%,$sockname,.,a),2)) {
          inc $+(%,$sockname,.,b) 1
          set $+(%,$sockname,.,line) $($+(%,$sockname,.,line),2) $hget($sockname,$($+(%,$sockname,.,b),2))
        }
        $hget($sockname,disp) $c2(Pest Control points for) $c1($replace($hget($sockname,name),+,$chr(32))) 
        $hget($sockname,disp) $($+(%,$sockname,.,line),2)
      }
      hfree $sockname
      unset $+(%,$sockname,.,%read) | unset $+(%,$sockname,.,*) | sockclose $sockname
    } 
  } 
  if ($hget($sockname,style) == ss) {
    if ($1 == $hget($sockname,skill)) {
      if (*not ranked* iswm $($+(%,$sockname,.,read),2)) { $hget($sockname,disp) $c2($hget($sockname,name)) $c1(isn't featured in high scores for $c2($hget($sockname,skill)) $+ .) }
      else {
        hadd -m $sockname exp $xp2next($3,$remove($4,$chr(44)))
        set $+(%,$sockname,.,a) 0
        while ($($+(%,$sockname,.,a),2) < $ini(monsters.ini,$hget($sockname,skill),0)) {
          inc $+(%,$sockname,.,a) 1
          set $+(%,$sockname,.,b) $c1($($+(%,$sockname,.,b),2)) $c2($replace($gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),1,32),_,$chr(32),-,$chr(32))) $c1($floor($calc($hget($sockname,exp) / $gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),2,32))))
        }
        $hget($sockname,disp) $c2($hget($sockname,skill)) $c1(stats for:) $c2($replace($hget($sockname,name),+,$chr(32)))
        $hget($sockname,disp) $c2(Rank:) $c1($2) $c2(Level:) $c1($3) $c2(Exp:) $c1($4) $c2(Exp for) $c1($+($calc($3 + 1),:) $bytes($hget($sockname,exp),b))
        $hget($sockname,disp) $c2(<For level $calc($3 + 1) $+ >) $($+(%,$sockname,.,b),2)
      }
      unset $+(%,$sockname,.,*)
      hfree $sockname
      sockclose $sockname
    }
  }
  if ($hget($sockname,style) == st) {
    if (($skill($1)) && (*not ranked* !iswm $1-)) {
      if ($hget($sockname,line)) { var %line = $hget($sockname,line) $c2($+($1,:)) $c1($3) | hdel $sockname line | hadd -m $sockname line %line }
      else { hadd -m $sockname line $c2($+($1,:)) $c1($3) }
    }
    if ($1 == end) { 
      $hget($sockname,disp) $c2(Stats for:) $c1($replace($hget($sockname,name),+,$chr(32)))
      $hget($sockname,disp) $hget($sockname,line)
      hfree $sockname
      sockclose $sockname
    }
  }
  if ($hget($sockname,style) == cb) {
    if ($istok($skill(13248624621354321574863),$1,58)) {
      hadd -m $sockname $1 $iif(*not ranked* iswm $1-,NA,$3)
    }
    if ($1 == cooking) {
      if ($count($hget($sockname,attack) $hget($sockname,strength) $hget($sockname,defence) $hget($sockname,hitpoints) $hget($sockname,prayer) $hget($sockname,ranged) $hget($sockname,magic),NA) >= 7) {
        $hget($sockname,disp) $hget($sockname,name) $c1(doesn't appear in highscores for any combat skill.)
      }
      else {
        tokenize 32 $extcmbcalc($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic))
        $hget($sockname,disp) $c2(Combat stats for) $c1($replace($hget($sockname,name),+,$chr(32))) $c2(Level:) $c1($floor($1) $2-)
        $hget($sockname,disp) $c2(Att:) $c1($hget($sockname,attack)) $c2(Str:) $c1($hget($sockname,strength)) $c2(Def:) $c1($hget($sockname,defence)) $c2(Hits:) $c1($hget($sockname,hitpoints)) $c2(Pray:) $c1($hget($sockname,prayer)) $c2(Range:) $c1($hget($sockname,ranged)) $c2(Magic:) $c1($hget($sockname,magic))
        hadd -m $sockname temp $iif(*.* iswm $1,$calc(1 - $+($chr(46),$gettok($1,2,46))),1)
        if ($2- == (melee based)) { 
          $hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Att:) $c1($ndp($calc($hget($sockname,temp) / 0.32707))) $& 
            $c2(Str:) $c1($ndp($calc($hget($sockname,temp) / 0.324))) $&
            $c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        if ($2- == (Range based)) { 
          $hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Range:) $c1($ndp($calc($hget($sockname,temp) / 0.487))) $& 
            $c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        if ($2- == (Magic based)) { 
          $hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Magic:) $c1($ndp($calc($hget($sockname,temp) / 0.487))) $& 
            $c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        hfree $sockname
        unset $+(%,$sockname,.,%read) | sockclose $sockname 
      }
    }
  }
}
;<!---Combat Calculator---!>
alias -l extcmbcalc {
  var %line = $replace($1 $2 $3 $4 $5 $6 $7,NA,1)
  tokenize 32 %line
  if (($calc($1 + $2) > $6) && ($calc($1 + $2) > $7)) { var %type = melee }
  if (($calc($1 + $2) < $6) || ($calc($1 + $2) < $7)) {
    if ($7 > $calc($1 + $2)) {
      if ($7 > $6) { var %type = magic }
    }
    if ($6 > $calc($1 + $2)) {
      if ($6 > $7) { var %type = range }
    }
  } 
  if (%type == range) { return $calc((0.487 * $6) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Range Based) }
  if (%type == magic) { return $calc((0.487 * $7) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Magic Based) }
  if (%type == melee) { return $calc((0.32707 * $1) + (0.249 * $3) + (0.324 * $2) + (0.25 * $4) + (0.124 * $5)) (Melee Based) }
}
;<!---Skill Identifier---!>
alias skill {
  if ($regex($1,/c(mb|ombat)/Si)) Return Combat
  if ($1 == overall) return Overall
  if ($1 == pest) return Pest
  if ($1 == vk) return VK
  if ($1 == pc) return pc
  if ($regex($1,/^Stats/Si)) Return Stats
  if ($regex($1,/^att(ack)?$/Si)) Return Attack
  if ($regex($1,/^str(ength)?$/Si)) Return Strength
  if ($regex($1,/^Def(ence)?$/Si)) Return Defence
  if ($regex($1,/^h(p|its|itpoints)?$/Si)) Return Hitpoints
  if ($regex($1,/^pray(er)?$/Si)) Return Prayer
  if ($regex($1,/^mag(e|ic)?$/Si)) Return Magic
  if ($regex($1,/^range(d)?$/Si)) Return Ranged
  if ($regex($1,/^Cook(ing)?$/Si)) Return Coooking
  if ($regex($1,/^wc|Woodcut|woodcutting/Si)) Return Woodcutting
  if ($regex($1,/^fletch(ing)?$/Si)) Return Fletching
  if ($regex($1,/^fish(ing)?$/Si)) Return Fishing
  if ($regex($1,/^fm|Firemake|firemaking/Si)) Return Firemaking
  if ($regex($1,/^craft(ing)?$/Si)) Return Crafting
  if ($regex($1,/^smith(ing)?$/Si)) Return Smithing
  if ($regex($1,/^min(e|ing)?$/Si)) Return Mining
  if ($regex($1,/^Herb(lore|y)?$/Si)) Return Herblore
  if ($regex($1,/^Agility/Si)) Return Agility
  if ($regex($1,/^th(ie|ei)v(e|ing)/Si)) Return Thieving
  if ($regex($1,/^Slay(er|ing)?$/Si)) Return Slayer
  if ($regex($1,/^farm(ing)?$/Si)) Return Farming
  if ($regex($1,/^rc|runecraft|runecrafting/Si)) Return Runecraft
  if ($regex($1,/^con(struction)?$/Si)) Return Construction
  if ($1 == 13248624621354321574863) Return attack:strength:ranged:magic:hitpoints:prayer:defence
}


  else { 
    var %read 
    sockread %read 
    if (*<!--name--><td class='tablebottom'>* iswm %read) set %price1 $htmlfree(%read) 
    if (*<!--price--><td class="tablebottom">* iswm %read) set %price2 $htmlfree(%read) 
    if (*<td class="tablebottom"><a href="/priceguide.php?category=* iswm %read) { 
      set %price3 $htmlfree(%read) 
      %send [Price] You searched for: %price1 $+ $chr(124) Price: %price2 $+ $chr(124) Category: %price3 $+ . 
      sockclose $sockname 
      unsetall 
    } 
  } 
} 
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&amp;) | return %x }