;Shadow_Slayerz 
:irc.dsn.za.org
;dont't rip hard work went into the making of this
;Rpg Pokemon Battle Bot

alias start {
  writeini wars.ini Users $1 yes
  writeini wars.ini $1 hp 110
  writeini wars.ini $1 mhp 110
  writeini wars.ini $1 Money 10000000000000 
  writeini wars.ini $1 level 100   
  writeini wars.ini $1 Pokemon none
  writeini wars.ini $1 amove none  
  notice $1 15 Account Created Please Type `Pokes For The list Of Pokemon

}
on *:TEXT:`pokestart:#:{  
  if ($readini( wars.ini,users,$nick ) = yes ) { notice $nick 15You have an Account Please Type `listmoves  | halt }
  else { /start $nick     }
}

on *:TEXT:`Pokemon*:#:{
  if  ($readini( wars.ini,$nick,Pokemon ) = none ) {
    if ($2 == Pikachu) { writeini wars.ini $nick Pokemon Pikachu | writeini wars.ini $nick Pokemove Thundershock | notice $nick You Have Chosen Pikachu | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == Bulbasaur) { writeini wars.ini $nick Pokemon Bulbasaur | writeini wars.ini $nick Pokemove Solarbeam | notice $nick You Have Chosen Bulbasaur | notice $nick Please choose `listmoves then `basicmove | halt }  
    if ($2 == Treecko) { writeini wars.ini $nick Pokemon Treecko | writeini wars.ini $nick Pokemove RazorLeaf | notice $nick You Have Chosen Treecko | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == Horsea) { writeini wars.ini $nick Pokemon Horsea | writeini wars.ini $nick Pokemove BubbleBeam | notice $nick You Have Chosen Horsea | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == Abra) { writeini wars.ini $nick Pokemon Abra | writeini wars.ini $nick Pokemove PsychicBlast | notice $nick You Have Chosen Abra | notice $nick Please choose `listmoves then `basicmove | halt } 
    if ($2 == Magikarp) { writeini wars.ini $nick Pokemon Magikarp | writeini wars.ini $nick Pokemove WaterGun | notice $nick You Have Chosen Magikarp | notice $nick Please choose `listmoves then `basicmove | halt } 

  }
}
on *:TEXT:`Pokes*:#:{  
  notice $nick Please type `pokemon <choice>
  notice $nick Pikachu
  notice $nick Horsea
  notice $nick Abra
  notice $nick Bulbasaur 
  notice $nick Treecko
  notice $nick Magikarp
}
on *:TEXT:`Training*:#:{
  if ($readini( wars.ini,$nick,reg2 ) = $null) { notice $nick Please choose `listmoves then `basicmove | halt }  
  if ($readini( wars.ini,$nick,dead ) = yes) {
    notice $nick 12You need To Go to The PokeCenter `Pokecenter 
    halt  
  }
  if ($readini( wars.ini,$nick,trng ) = yes) {  halt  }
  else {
    msg # 12 $nick  Now Engaged  $$readini(wars.ini,$nick,pokemon) in Battle
    writeini wars.ini $nick trng  yes 
    mode # +v $nick   
  }
}

on *:TEXT:`listmoves*:#:{
  notice $nick Please type `basicmove <choice>  
  notice $nick EnergyBlast
  notice $nick EnergyBeam
  notice $nick FireTornado
  notice $nick QuickAttack
}
on *:TEXT:`Basicmove*:#:{
  if ($readini( wars.ini,$nick,reg2 ) = $null) {
    if ($2 == EnergyBlast) { writeini wars.ini $nick bmove EnergyBlast | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
    if ($2 == EnergyBeam) { writeini wars.ini $nick bmove EnergyBeam | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
    if ($2 == Firetornado) { writeini wars.ini $nick bmove Firetornado | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
    if ($2 == QuickAttack) { writeini wars.ini $nick bmove Quickattack | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
  }
  else { notice $nick You Have a Basic Move }
}
on *:TEXT:`money*:#:{
  notice $nick Money : $readini(wars.ini,$nick,money)
}
on *:TEXT:`Razorleaf*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }    
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,Pokemove ) = Razorleaf) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up a Razor Leaf | timerrl $+ $nick 1 35 razorleaf $nick $2 | writeini wars.ini $nick attacking yes }
}
on *:TEXT:`ThunderShock*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }   
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,Pokemove ) = Thundershock) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up His Thunder Engery | timerts $+ $nick 1 35 thundershock $nick $2 | writeini wars.ini $nick attacking yes }
}

on *:TEXT:`Solarbeam*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }    
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,Pokemove ) = solarbeam) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up His Solar Energy As His Power Reaches Unmathcable Strength | timersb $+ $nick 1 35 solarbeam $nick $2 | writeini wars.ini $nick attacking yes }
}
on *:TEXT:`WaterGun*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }   
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,Pokemove ) = watergun) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up  | timerwg $+ $nick 1 35 watergun $nick $2 | writeini wars.ini $nick attacking yes }
}
on *:TEXT:`BubbleBeam*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }    
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,Pokemove ) = bubblebeam) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Draws His Energy From the Water  | timerbb $+ $nick 1 35 bubblebeam $nick $2 | writeini wars.ini $nick attacking yes }
}
on *:TEXT:`PsychicBlast*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }   
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,Pokemove ) = psychicblast) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up His Pyschic Energy To His Maxium Power   | timerwg $+ $nick 1 35 psychicblast $nick $2 | writeini wars.ini $nick attacking yes }
}

on *:TEXT:`Thunder*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }    
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = thunder) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 8Powers Up His Thunder    | timert $+ $nick 1 35 thunder $nick $2 | writeini wars.ini $nick attacking yes }
}

on *:TEXT:`PsychicWave*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }   
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = psychicwave) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up His Psychic Power    | timerpw $+ $nick 1 35 Psychicwave $nick $2 | writeini wars.ini $nick attacking yes }
}
on *:TEXT:`Hydropump*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = Hydropump) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up His Energy From The Water    | timerhp $+ $nick 1 35 hydropump $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`Vinewhip*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = vinewhip) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up    | timervw $+ $nick 1 35 Vinewhip $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`Quickattack*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,bmove ) = quickattack) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a QuickAttack    | timerra $+ $nick 1 20 quickattack $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`Firetornado*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,bmove ) = firetornado) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His Fire Energy    | timerft $+ $nick 1 35 firetornado $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`EnergyBlast*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,bmove ) = energyblast) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Energy    | timereb $+ $nick 1 35 energyblast $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`EnergyBeam*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,bmove ) = energybeam) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Energy    | timereb $+ $nick 1 35 energybeam $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`WarpBlast*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = warpblast) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Warp Power    | timerwp $+ $nick 3 10 warpblast $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`MegaLaser*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = megalaser) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Laser    | timerml $+ $nick 1 15 megalaser $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`Psychic*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = psychic) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13Focuses His Psychic Energy    | timerml $+ $nick 1 25 psychic $nick $2 | writeini wars.ini $nick attacking yes  }
}
on *:TEXT:`DragonRage*:#:{
  if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }  
  if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self |  halt }  
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }  
  if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  if ($readini(wars.ini,$nick,trng) = no) {  halt }
  if ($readini( wars.ini,$nick,amove ) = dragonrage) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13Focuses His Rage    | timerml $+ $nick 1 25 dragonrage $nick $2 | writeini wars.ini $nick attacking yes  }
}


on *:TEXT:`stats*:#:{
  if ($2 == $null) { notice $nick  4Hp/mHP 14 $readini( wars.ini,$nick,hp) /14 $readini( wars.ini,$nick,mhp) 4 Level:14 $readini( wars.ini,$nick,level) 4 Pokemon:14 $readini( wars.ini,$nick,pokemon) 4 BasicMove:14 $readini( wars.ini,$nick,pokemove)  4AdvancedMove :14 $readini( wars.ini,$nick,amove)  4BasicMove :14 $readini( wars.ini,$nick,bmove)  | halt }  
  if ($2 == Pokemon-Bot) { halt } 
  else  { notice $nick $2 $+ 's stats 4Hp/mHP 14 $readini( wars.ini,$2,hp) /14 $readini( wars.ini,$2,mhp) 4 Level:14 $readini( wars.ini,$2,level) 4 Pokemon:14 $readini( wars.ini,$2,pokemon) 4 BasicMove:14 $readini( wars.ini,$2,pokemove) 4AdvancedMove :14 $readini( wars.ini,$2,amove) 4BasicMove :14 $readini( wars.ini,$2,bmove) | halt  }
}
on *:TEXT:`PokeCenter*:#:{
  if ($readini( wars.ini,$nick,trng ) = yes) {  notice $nick You can only Use This Command When Your Pokemon Gets Pulled Ou of Training  | halt   }
  else {  
    notice $nick 4 Welcome To The PokeCenter I am Nurse Joy And I'll Be Taking Care Of Your Pokemon  11[10You'll Be Healed In 30 Seconds11]
    timerrepair $+ $nick 1 30 Repair $nick { 

    }
  }
}
on *:TEXT:`pokemart*:#:{
  notice $chan -=[Pokemon Store]=-
  notice $chan ------Items-----
  notice $chan <Item>    < Price>         <Function>
  notice $chan 4<0Berry4> <0 1004>     < 0Heals To full Health4>
  notice $chan 4<0RareCandy4> <0 1004>   < Increse Pokemon level4>
  notice $chan -------Pokemon------
  notice $chan <Mew>          &#55818;&#57256;>        <Powerful>   
  notice $chan <Mew2>         &#55818;&#57276;>        <Powerful> 
}
on *:TEXT:`buy*:#:{
  if ($2 == Berry) {
    if  ($readini( wars.ini,$nick,money ) > 99.9 ) {
      writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 100 )   
      writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
      notice $nick You have Bought a Berry 
      halt    
    }
  }   
  if ($2 == RareCandy) {
    if  ($readini( wars.ini,$nick,money ) > 99.9 ) {
      writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 100 )   
      writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,rarecandy ) + 1 )
      notice $nick You have Bought a RareCandy
      halt    
    }
  }    
  if ($2 == Condom) {
    if  ($readini( wars.ini,$nick,money ) > 999.9 ) {
      writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )   
      writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,condom ) + 1 )
      notice $nick You have Bought a Condom
      halt    
    }
  }      
  if ($2 == Mew) { 
    if  ($readini( wars.ini,$nick,money ) > 999.9 ) {
      writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )   
      writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
      writeini wars.ini $nick Hp $calc( $readini( wars.ini,$nick,hp ) * 3 )
      writeini wars.ini $nick mHp $calc( $readini( wars.ini,$nick,mhp ) * 3 )
      writeini wars.ini $nick Pokemon Mew
      writeini wars.ini $nick amove  WarpBlast
      notice $nick You have Just Bought Mew
      halt    
    }  
  }

  if ($2 == Mew2) { 
    if  ($readini( wars.ini,$nick,money ) > 999.9 ) {
      writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )   
      writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
      writeini wars.ini $nick Hp $calc( $readini( wars.ini,$nick,hp ) * 3 )
      writeini wars.ini $nick mHp $calc( $readini( wars.ini,$nick,mhp ) * 3 )
      writeini wars.ini $nick Pokemon Mew2
      writeini wars.ini $nick amove Psychic
      notice $nick You have Just Bought Mew2
      halt    
    }  
  }
}


on *:TEXT:`berry*:#:{
  if  ($readini( wars.ini,$nick,berry ) > 0.9 ) {
    writeini wars.ini $nick hp $$readini(wars.ini,$nick,mhp) 
    writeini wars.ini $nick berry $calc( $readini( wars.ini,$nick,berry ) - 1  )      
    remini wars.ini $nick dead   
    notice $nick You have Used a Berry
  }
  else { notice $nick You Have No berry's Left | halt }
}

on *:TEXT:`rarecandy*:#:{
  if  ($readini( wars.ini,$nick,rarecandy ) > 0.9 ) {
    writeini wars.ini $nick level $calc( $readini( wars.ini,$nick,level ) + 1  )      
    writeini wars.ini $nick rarecandy $calc( $readini( wars.ini,$nick,rarecandy ) - 1  )       
    notice $nick You have Used a RareCandy
  }
  else { notice $nick You Have No RareCandies's Left | halt }
}


on *:TEXT:`evolve*:#:{    
  if  ($readini( wars.ini,$nick,level ) > 9.9 ) {
    if  ($readini( wars.ini,$nick,Pokemon ) = Pikachu ) { writeini wars.ini $nick Pokemon Raichau |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove Thunder |  notice $nick You Are Now Raichau  | msg %chanset $nick 's PikaChau Evoled to $readini(wars.ini,$nick,pokemon)  | halt }
    if  ($readini( wars.ini,$nick,Pokemon ) = Abra ) { writeini wars.ini $nick Pokemon Kadabra |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove PsychicWave |  notice $nick Your Pokemon is Now Kadabra | msg %chanset $nick 's Abra Evoled to $readini(wars.ini,$nick,pokemon) | halt }  
    if  ($readini( wars.ini,$nick,Pokemon ) = Horsea ) { writeini wars.ini $nick Pokemon Seadra |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove HydroPump |  notice $nick Your Pokemon is Now Seadra | msg %chanset $nick 's Horsea Evoled to $readini(wars.ini,$nick,pokemon) | halt }  
    if  ($readini( wars.ini,$nick,Pokemon ) = Bulbasaur ) { writeini wars.ini $nick Pokemon IvySaur |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove VineWhip |  notice $nick Your Pokemon is Now IvySaur | msg %chanset $nick 's BulbaSaur Evoled to $readini(wars.ini,$nick,pokemon) | halt } 
    if  ($readini( wars.ini,$nick,Pokemon ) = Mew ) { writeini wars.ini $nick Pokemon Metal-Mew |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove megaLaser |  notice $nick Your Pokemon is Now Metal-Mew | msg %chanset $nick 's Mew Evoled to $readini(wars.ini,$nick,pokemon) | halt }  
    if  ($readini( wars.ini,$nick,Pokemon ) = Mew2 ) { writeini wars.ini $nick Pokemon Metal-Mew2 |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove megaLaser |  notice $nick Your Pokemon is Now Metal-Mew2 | msg %chanset $nick 's Mew2 Evoled to $readini(wars.ini,$nick,pokemon) | halt }  
    if  ($readini( wars.ini,$nick,Pokemon ) = Magikarp ) { writeini wars.ini $nick Pokemon Gyarados  |  writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) |  writeini wars.ini $nick amove DragonRage |  notice $nick Your Pokemon is Now Gyarados | msg %chanset $nick 's MagiKarp Evoled to $readini(wars.ini,$nick,pokemon) | halt }  


  }
}
alias msg { msg $1 4,1{0 $+ $2- $+ 4} }
alias notice { notice $1 4,1{0 $+ $2- $+ 4} }

alias dead {
  if ($readini( wars.ini,$1,hp ) < 1) {
    remini wars.ini $1 trng
    writeini wars.ini $1 dead yes
    msg %chanset  $1 $+ 's $readini(wars.ini,$1,pokemon) Is No Longer In Training BeCauz $1 is Damaged Badly !4  $2 Has Won $100
    mode %chanset -v $1 
    writeini wars.ini $2 money $calc( $readini( wars.ini,$2,money ) + 100 )        
    timerb off    
    timerm off
    if ($readini( wars.ini,Brock,Dead ) = yes ) { writeini wars.ini $2 Stonebadge yes  | notice $2 You have Beat Brock  And Won the StoneBadge | remini wars.ini Brock Dead | timerb off | halt }
    if ($readini( wars.ini,Misty,dead ) = yes ) { writeini wars.ini $2 Waterbadge yes  | notice $2 You have Beat Misty  And Won the WaterBadge | remini wars.ini Misty dead | timerm off | halt }  
  }
}



alias Razorleaf {
  set %attackrl $calc( $readini( wars.ini,$1,hp ) * 0.09 )   
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackrl  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$nick,pokemon) Does a RazorLeaf To $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackrl Hp !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1  
  remini wars.ini $1 attacking
  unset %attackrl
}
alias Thundershock {
  set %attackts $calc( $readini( wars.ini,$1,hp ) * 0.09 )    
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackts  )   
  msg %chanset 4 $1 $+ 's 8   $readini(wars.ini,$1,pokemon) Does a Thundershock To $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackts Hp !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1
  remini wars.ini $1 attacking
  unset %attackts
}
alias Solarbeam {
  set %attacksb $calc( $readini( wars.ini,$1,hp ) * 0.09 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attacksb )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) Fires a Solar Beam aT $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attacksb !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1  
  remini wars.ini $1 attacking
  unset %attacksb
}
alias Watergun {
  set %attackwg $calc( $readini( wars.ini,$1,hp ) * 0.09 )    
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackwg )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 12Fires His Watergun $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackwg Hp !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1
  remini wars.ini $1 attacking
  unset %attackwg
}
alias BubbleBeam {
  set %attackbb $calc( $readini( wars.ini,$1,hp ) * 0.09 )      
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackbb )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 11Fires His Bubble Beam $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackbb Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1
  remini wars.ini $1 attacking
  unset %attackbb
}
alias PsychicBlast {
  set %attackpb $calc( $readini( wars.ini,$1,hp ) * 0.09 )    
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackpb )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 Fires His PsychicBlast $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackpb !! 
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1  
  remini wars.ini $1 attacking
  unset %attackpb
}
alias Thunder {
  set %attackt $calc( $readini( wars.ini,$1,hp ) * 0.19 )     
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackt )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 8Fires His Mass Of Thunder Energy 4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackt Hp !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1
  remini wars.ini $1 attacking
  unset %attackt
}
alias PsychicWave {
  set %attackpw $calc( $readini( wars.ini,$1,hp ) * 0.19 )   
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackpw )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 8Fires Psychic Wave Throw The Air Aimed At 4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackpw Hp !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackpw
}
alias Hydropump {
  set %attackhp $calc( $readini( wars.ini,$1,hp ) * 0.19 )   
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackhp )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 12Fires His HydropPumP At   4 $2 $+ 's $readini(wars.ini,$2,pokemon) !! $readini(wars.ini,$2,pokemon) Now Has $readini(wars.ini,$2,hp)
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackhp
}
alias Vinewhip {
  set %attackvw $calc( $readini( wars.ini,$1,hp ) * 0.19 )    
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) -  %attackvw) )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Whips   4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackvw Hp !
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackvw
}
alias Quickattack {
  set %attackqa $calc( $readini( wars.ini,$1,hp ) * 0.09 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackqa  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Slashes   4 $2 $+ 's $readini(wars.ini,$2,pokemon) In The Face Dealing %attackqa Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackqa
}

alias firetornado {
  set %attackft $calc( $readini( wars.ini,$1,hp ) * 0.09 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackft  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Send a Fire Tornado At  4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackft Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackft
}
alias EnergyBeam {
  set %attackeb $calc( $readini( wars.ini,$1,hp ) * 0.09 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackeb  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Blasts  4 $2 $+ 's $readini(wars.ini,$2,pokemon) With a EnergyBeam Dealing %attackeb Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackeb
}
alias EnergyBlast {
  set %attackebt $calc( $readini( wars.ini,$1,hp ) * 0.09 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackbt  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Blasts  4 $2 $+ 's $readini(wars.ini,$2,pokemon) With a EnergyBlast Dealing %attackebt Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackebt
}
alias Warpblast {
  set %attackwb $calc( $readini( wars.ini,$1,hp ) * 0.09 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackwb  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Warps Infront Of  4 $2 $+ 's $readini(wars.ini,$2,pokemon) Blasting Him With a EnergyBlast Dealing %attackwb Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  unset %attackwb
  remini wars.ini $1 attacking
}
alias MegaLaser {
  set %attackml $calc( $readini( wars.ini,$1,hp ) * 0.29 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackml  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Fires a MegaLaser  At 4 $2 $+ 's $readini(wars.ini,$2,pokemon) Until He Falls To The Floor  Dealing  %attackml Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackml
  remini wars.ini $1 attacking
}
alias Psychic {
  set %attackp $calc( $readini( wars.ini,$1,hp ) * 0.19 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackp  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 SEnds His Psychic Energy In a Blast Form To Fire At $2 $+ 's $readini(wars.ini,$2,pokemon)  Dealing  %attackp Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackp
}
alias DragonRage {
  set %attackdr $calc( $readini( wars.ini,$1,hp ) * 0.19 )  
  writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackdr  )   
  msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Fires a Massive Fire Dragon At $2 $+ 's $readini(wars.ini,$2,pokemon)  Dealing  %attackdr Hp !!
  writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )   
  writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )    
  writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )      
  dead $2 $1 
  remini wars.ini $1 attacking
  unset %attackdr
}
alias RocketAttack {
  set %nick $nick(%chanset,$rand(1,$nick(%chanset,0,a)),a)   
  if ($readini(wars.ini,%nick,trng) = $null) { halt } 
  if (%nick == $me) { halt }  
  else {
    set %attack $rand(9,27)  
    msg %chanset %nick Watchout Team Rockets Goin to get You !!
    writeini wars.ini %nick hp $calc( $readini( wars.ini,%nick,Hp ) - %attack )   
    timer 1 4 msg %chanset Team Rocket Strikes %nick Dealing %attack     
    dead %nick
  }
}
alias Repair {
  notice $1 12You healed 
  writeini wars.ini $1 hp $$readini(wars.ini,$1,mhp) 
  remini wars.ini $1 dead  
}
on *:TEXT:`Gym:#:{
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt } 
  if ($readini(wars.ini,$nick,stonebadge) = yes) { notice $nick Please Use `gym2 | halt }
  if ($readini(wars.ini,$nick,stonebadge) = $null) {
    notice $nick WelCome To PewTer Town GyM ... I'm Brock And I'm The GYm Leader So Are You Ready ?? Please type `<attackname> Brock
    writeini wars.ini Brock hp 100
    remini wars.ini Brock dead
    writeini wars.ini Brock trng yes  

    timerb 0 20 thunder brock $nick  
  }  
}
on *:TEXT:`Gym2*:#:{
  if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt } 
  if ($readini(wars.ini,$nick,stonebadge) = $null) { notice $nick Please Use `gym| halt }
  if ($readini(wars.ini,$nick,waterbadge) = yes) { notice $nick You have Won all The Badges | halt }  
  if ($readini(wars.ini,$nick,stonebadge) = yes) {
    notice $nick WelCome To My Gym I'm Misty !! My Pokemon Is Horsea !! 
    writeini wars.ini Misty hp 100
    remini wars.ini Misty dead
    writeini wars.ini Misty trng yes  
    writeini wars.ini Misty pokemon Horsea      
    timerm 0 20 bubblebeam misty $nick  
  }  
}
on *:TEXT:`Rocket On*:#:{
  timerrocket 0 30 rocketattack  
  msg %chanset Team Rocket Is NoW ActiVated 
}
on *:TEXT:`Rocket Off*:#:{
  timerrocket off
  msg %chanset Team Rocket Is Disabled
  notice %nick You Lucky !! next Time we will get u 
  unset %nick
}
on 10:TEXT:`Chg Victim*:#:{
  set %nick $nick($chan,$rand(1,$nick($chan,0,a)),a) 
  msg %chanset Team Rocket Will Now Attack %nick
}

on *:TEXT:`Credits*:#:{
  notice $nick --------Head Coders---
  notice $nick  ----Shadow_Slayerz--
  notice $nick ---------Sub Coder-----
  notice $nick -----------Da_DoN------
  notice $nick --------- Ideas -------
  notice $nick ----------Da_DoN-------
}
on *:TEXT:`stop training*:#:{
  if ($readini(wars.ini,$nick,trng) = yes) {
    mode #  -v $nick
    msg %chanset $nick Pulled $readini( wars.ini,$nick,Pokemon) Out Of Training
  }  
  else { halt }
}
on *:TEXT:`help*:#:{
  if ($2 == $null) { notice $nick Please `help and a SubJect [ Training,Register,Store,attacking,Healing,Pokemon,Register,evolve,money ] }
  if ($2 == Register) { notice $nick Please Type `start And The Follow The Commands }
  if ($2 == Pokemon) { notice $nick Pokemon Stands For Pocket Monsters,You select 1 As Your Partner And Stick With it !! Unless You Buy 1 }
  if ($2 == training) { notice $nick Please Type `training To Start Training an `stop training To Stop Training And If Its Says You Have To Go To The PokeCenter Please Type `pokecenter }
  if ($2 == Healing) { notice $nick To Heal Your Self If You Are Out of Training Type `pokecenter or type `berry [ if you don;t have any berrys type `buy berry ] }  
  if ($2 == store) { notice $nick To Buy Items or pokemon Type `store }
  if ($2 == evolve) { notice $nick You Can Only Use This Command Is Your Pokemon is At Level 10 or Higher ! To Evolve Just simply Type `evolve }
  if ($2 == money) { notice $nick Type `money ! money won after kncking oppent out of training }
}
ON *:text:`lag:#: {
  notice $chan 4lag is fixed thanks to $Nick
  mode # +o $nick
}
