;jub369
: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 900
  writeini wars.ini $1 mhp 110
  writeini wars.ini $1 Money 900000000000000000000 
  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:#:{  
  notice $nick pm bot type (`name then a name) then (`pass then a pass)
  if ($readini( wars.ini,users,$nick ) = yes ) { notice $nick 15You have an Account Please Type `pokes    | 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 } 
    if ($2 == chimchar) { writeini wars.ini $nick pokemon chimchar | writeini wars.ini $nick pokemove ember | notice $nick you have chosen chimchar | notcie $nick `listmoves then `basicmove | halt }
    if ($2 == turkwig) { writeini wars.ini $nick pokemon trukwig | writeini wars.ini $nick pokemove razorleaf | notice $nick you have chosen turkwig | notcie $nick `listmoves then `basicmove | halt }
    if ($2 == rilou) { writeini wars.ini $nick pokemon rilou | writeini wars.ini $nick pokemove punch | notice $nick you have chosen rilou | notcie $nick `listmoves then `basicmove | halt }
  }
}
on *:TEXT:`pokes*:#:{  
  notice $nick 4Please type `pokemon <choice>
  notice $nick 8pikachu
  notice $nick 11Horsea
  notice $nick 6Abra
  notice $nick 9Bulbasaur 
  notice $nick 3Treecko
  notice $nick 11Magikarp
  notice $nick 4chimchar
  notice $nick 9turkwig
  notice $nick 14rilou
  `listmoves
}
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:`givemoney*:#:{
  notice `givemoney $nick ammount : $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 $nick -=[Pokemon Store]=-
  notice $chan $nick ------Items-----
  notice $chan $nick  <Item>    < Price>         <Function>
  notice $chan $nick 4<0Berry4> <0 1004>     < 0Heals To full Health4>
  notice $chan $nick 4<0RareCandy4> <0 1004>   < Increse Pokemon level4>
  notice $chan $nick 5<5pokeball6> <9 10>  <catches wild pokes>
  notice $chan $nick -------Pokemon------
  notice $chan $nick <Mew>          &#55818;&#57256;>        <Powerful>   
  notice $chan $nick <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 == pokeball) {
    if  ($readini( wars.ini,$nick,money ) > 999.9 ) {
      writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 10 )   
      writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,condom ) + 5 )
      notice $nick You have Bought a pokeball
      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:`ready:#:{
  notice $chan ok pepole $NICK IS ready to fight
  mode # +v
}
on *:TEXT:`stop training*:#:{
  if ($readini(wars.ini,$nick,trng) = yes) {
    mode %chanset -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,greder,sleep,battle ] }
  if ($2 == Register) { notice $nick Please Type `start And The Follow The Commands }
  if ($2 == training) { notice $nick Please Type `train To Start Training an `stop train 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 }
  if ($2 == battle) { notice $nick type `battle ! will alows you to battle }
  if ($2 == greder) { notice $nick type `greder ! will alows you to pick a greder }
  if ($2 == sleep) { notice $nick type `sleep ! alows you to leave with out trouble }  
  if ($2 == wild) { notice $nick type `wild ! allows you to battle wild pokes }
  if ($2 == lag) { notice $nick type `lag ! it helps fix the bot from bing slow } 
  if ($2 == fix-station) { notice $nick type `fix-station ! it fixes the evolve station }
  if ($2 == evolve-station) { notice $nick type `evolve-station ! it allows you to evolve }
  if ($2 == leave-evolve) { notice $nick type `leave-evolve ! allows you to leave the evolve room }
}  
on *:Text:`battle*:#:{ 
  notice $chan $nick %chanset +v $nick 
  notice $chan $nick %chanset $nick entered training $redini ( wars.ini,pokemon) you enterd training
  notice $chan `movename $nick
  mode # +v $nick
}
on *:text:`leavebattle*:#: {
  notice $chan $nick %chanset -v $nick
  notice $chan $nick %chanset 4NICK HAS LEFT TRAINING $redini ( wars.ini,pokemon) you left training
  mode # -v $nick
}
on *:Text:`greder*:#:{
  notice $chan $nick type `male or `female
}
on *:text:`sleep*:#:{
  notice $chan $nick type `bed or `wake
}
on *:text:`wild*:#:{
  notice $chan  9wrumple showed up
  notice $chan  2starly showed up
  notice $chan  9skitty showed up
  notice $chan 7pidgey shows up
  notice $chan  pachirisu shows up
  notice $chan  burmy shows up
  notice $chan  bewdew shows up 
  notice $chan  gible shows up
  notice $chan  eevee shows up
  notice $chan  ralts shows up
  notice $chan  combee shows up
}
on *:text:`lag:#:{
  notice $chan  4lag is now fixed ples thank $nick
}
on *:text:`fix-station:#:{
  notice $chan the wild station is fixed
}
on *:text:`evolve-station:#:{
  notice $chan $nick you can now evolve
  notice to leave type `leave station
}
On *:text:`check-wild:#: {
  notice $chan wild is not working 
  notice $chan so dont go there
  mode # +o $nick
}
on *:text:`rest:#: {
  notice $chan $nick is taking a rest from the game
  notice $chan so dont hit $nick
  mode # -v $nick
}
On *:text:`male:#: {
  notice $chan $nick you have chosen male
}
On *:TExt:`female:#: {
  notice $chan $nick you have chosen femlae
}
On *:text:`bed:#: {
  notice $chan  $nick is asleep leave him alone
  mode # -v $nick
}
On *:text:`wake:#: {
  notice $chan $chan $nick is awake now attack him
  mode # +v $nick
}
On *:textl`battle-gible:#: {
  notice $chan $nick is fighting gible
  notice $nick type `attack-gible
}
On *:text:`attack-gible:#: {
  notice $chan $nick attacks gible making gible lose 10 hp
}
On *:text:`switch:#: {
  notice $nick you have switched you pokemon it might not show for 10 days
} 
