PoKeMon-Rpg v1

By Shadow_Slayerz on Nov 02, 2004

A fun And Cool . Pokemon Rpg please will the admin type /auser 10 nick then `rocket on/off to control team rocket random attacks :P.
Have fun And Dont rip

;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 100  
  writeini wars.ini $1 level 1    
  writeini wars.ini $1 Pokemon none
  writeini wars.ini $1 amove none  
  notice $1 15 Account Created Please Type `Plist For The list Of Pokemon

}
on *:TEXT:`start:#:{  
  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:`Plist*:#:{  
  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 Seconds11]
    timerrepair $+ $nick 1 30 Repair $nick { 

    }
  }
}
on *:TEXT:`store*:#:{
  notice $nick -=[Pokemon Store]=-
  notice $nick ------Items-----
  notice $nick  <Item>    < Price>         <Function>
  notice $nick 4<0Berry4> <0 1004>     < 0Heals To full Health4>
  notice $nick 4<0RareCandy4> <0 1004>   < Increse Pokemon level4>
  notice $nick -------Pokemon------
  notice $nick <Mew>          &#55818;&#57256;>        <Powerful>   
  notice $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 == 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 %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 ] }
  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 }
}

Shadow_Slayerz

Like Page Follow Author

Comments

Sign in to comment.
water_dragon   -  Dec 16, 2021

i like the script, i just think instead of - `register , use !register instead, i add that in my self soon enough

 Respond  
Ghost-writer   -  Sep 02, 2009

this shit is ancient :X

 Respond  
disabledacc   -  May 01, 2009
 Respond  
Kenny   -  Feb 14, 2008 
 }    
  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    
    }

dude....

 Respond  
jub369   -  Jan 20, 2008

make a wild and pokeballs and make it as nick vs nicks can fight

 Respond  
Mono   -  Oct 17, 2007

when you attack players in training it doesnt show it and when brock or someone attacks you it doesnt show it :\

 Respond  
Sora-   -  Sep 29, 2007

Okay, it works for me, I just don\'t know what commands to do

 Respond  
Akishoot   -  Sep 25, 2007

I have nothing to say about this.... o_O

 Respond  
dxboy11   -  Sep 25, 2007

After i type /auser 10 what do i do i tried `start but nothin happened

 Respond  
guest598594   -  Sep 25, 2007

yup

 Respond  
dxboy11   -  Sep 25, 2007

Do we just put this in remotes only?

 Respond  
Sora-   -  Sep 09, 2007

How do we know what commands to do? >_>

 Respond  
LiMiTeD   -  Aug 20, 2007

umm when i type `pokemon abra oor any other pokemon it doesnt work ;/

 Respond  
Setever   -  Dec 02, 2006

This script is badly written. Errors are throughout the entire script, and it\'s BARELY functional at most. Most seem confused, and needs a help feature, very, very much.

 Respond  
Raichu   -  Jul 09, 2006

Its Treecko... Go research before u make comments lol...

 Respond  
Kolak   -  Jul 08, 2006

You know, Its not that good. having everyone grouped in 1 file? I could make a better script than this. Thumbs DOWN 1/5

 Respond  
badpuppy   -  May 22, 2006

i just cant understand this... how is this thing goin to start? pls help

 Respond  
`Kazuma   -  Nov 27, 2005

Scruffy, your other script is interfering with this then.

 Respond  
Sasuke   -  Nov 27, 2005

It\'s spelt Treeko. For what I believe.

 Respond  
Scruffy   -  Nov 26, 2005
  • /writeini: insufficient parameters (line 2, custom.ini)

Why dont it work???

 Respond  
Kwek   -  Jan 19, 2005

romeo y does tis bot sucks compared to urs...... thats wad u changed my chan topic to anyway.

 Respond  
Romeo   -  Dec 17, 2004

I have a pokemonbot on irc.surrealchat.net

 Respond  
Magal   -  Dec 15, 2004

i have a questions....how do i bring up the plist i type `Plist and it doesnt work

 Respond  
Kwek   -  Nov 10, 2004

i fixed it finally

 Respond  
Kwek   -  Nov 10, 2004

im getting alot of errors when i battle instead of sending the msg to the channel it sends to nothing.

 Respond  
Naruto619   -  Nov 09, 2004

After it says \"Your nick has been added\" what action do I do next? Everytime I try start or something, it won\'t work.

 Respond  
Shadow_Slayerz   -  Nov 06, 2004

all the alias are here and are added throught remotes :P but if any one wants to help with pokemon 2 msg :P or email me ramz@shadowslayerz.za.org

 Respond  
Romeo   -  Nov 06, 2004

do u need an allias

 Respond  
Shadow_Slayerz   -  Nov 04, 2004

i\'m thinking of making pokemon 2 ! if i make it evrry one has there on ini and there will be more gyms and thingys to do :P

 Respond  
SileNTReApR   -  Nov 04, 2004

Nice script...btw one suggestion, add a \'.\' infront of all your notices and msgs... e.g. .notice and .msg it\'ll reduce a lot of lag and flood ^^

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.