Lol, This is romeo's pokebot. I had finally gotten it from my friend and I have been changing it like hell. Its mostly different from when I got it so here ya go. (Full bot is being pasted!)

on 1:text:`Register:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) == Yes) { Notice $nick You Are Already Fully Registered! | halt }
  notice $nick So You Wanna Become a Pokemon Master? First Off What is Your Name, Type `Name <Name of Chr> 14Example: `Name Romeo 4Note:15 If The Name Has Profanity or Something The Admin Does not Approve, The Name will be Changed!
}
on *:text:*`Name *:*:{
  if ($readini($nick $+ .ini,Register,Name) == Yes) { Notice $nick You Already Made a Name! | halt }
  if ($chan != %ChanSet) { halt }
  if ($readini(Registered $+ .ini,Registered,$address($nick,2)) != $Null) { Notice $nick It Seem You Have Previously Made An Account, As: $readini(Registered $+ .ini,Registered,$address($nick,2)) 4Please Talk to Romeo for Help! | halt }
  if (/ isin $2-) { Notice $nick Please reword it! | halt }
  if ($ isin $2-) { Notice $nick Please reword it! | halt }
  if (_ isin $2-) { Notice $nick Please reword it! | halt }
  if (* isin $2-) { Notice $nick Please reword it! | halt }
  if ($null == $2-) { Notice $nick Please reword it! | halt }
  if (; isin $2-) { Notice $nick Please reword it! | halt }
  if (: isin $2-) { Notice $nick Please reword it! | halt }
  if (+ isin $2-) { Notice $nick Please reword it! | halt }
  if (- isin $2-) { Notice $nick Please reword it! | halt }
  if (| isin $2-) { Notice $nick Please reword it! | halt }
  if (' isin $2-) { Notice $nick Please reword it! | halt }
  if (" isin $2-) { Notice $nick Please reword it! | halt }
  if (^ isin $2-) { Notice $nick Please reword it! | halt }
  if (% isin $2-) { Notice $nick Please reword it! | halt }
  if (# isin $2-) { Notice $nick Please reword it! | halt }
  if (^ isin $2-) { Notice $nick Please reword it! | halt }
  if (. isin $2-) { Notice $nick Please reword it! | halt }
  if ($len($2) > 10) { Notice $nick Sorry But This Name is Too Long! | halt }
  if ($len($2) < 2) { Notice $nick Sorry But This Name is Too Short! | halt }
  if (Romeo isin $2-) && (Romeo != $Nick) { Notice $nick Sorry But This NickName Belongs to The Admin! | halt }
  writeini -n $nick $+ .ini $nick Name $2-
  writeini -n $nick $+ .ini Register Name Yes
  Notice $nick $readini($nick $+ .ini,$nick,Name) $+ , Are You a Boy Or Girl? Type `Gender <Boy Or Girl> 14Example: `Gender Boy
}
on 1:TEXT:`Gender *:*:{
  if ($readini($nick $+ .ini,Register,Gender) == Yes) { Notice $nick You already Picked a Gender! | halt }
  if ($readini($nick $+ .ini,Register,Name) != Yes) { Notice $nick You have not made a Name! | halt }
  if ($2 == Boy) {
    writeini -n $nick $+ .ini Register Gender Yes
    writeini -n $nick $+ .ini $nick Gender Male
    writeini -n $nick $+ .ini $nick Aura 1
    writeini -n $nick $+ .ini $nick BAura 12
    writeini -n $nick $+ .ini $nick Party 1
    writeini -n $nick $+ .ini $nick MParty 1
    writeini -n $nick $+ .ini Items Potion 1
    writeini -n $nick $+ .ini Items RareCandy 0
    writeini -n $nick $+ .ini Items Pokeball 3
    Writeini -n $nick $+ .ini Travel League Kanto
    Writeini -n $nick $+ .ini Travel Town Pallet-Town
    writeini -n $nick $+ .ini $nick TrainerLevel 1 
    writeini -n $nick $+ .ini $nick TExpNeeded 10 
    Notice $nick $Name($Nick) $+ 8,1, So Your a $2 $+ . Time to Choose Your Starter Pokemon. Starters:4 Charmander 15-10 Squirtle 15-3 Bulbasaur 15-8 Pichu 15-4 Cyndaquil 15-9 Chikorita 15-11 Totodile 15-9 Treecko 15-7 Torchic 15-11 Mudkip 8Type `Pick Starter <Starter> 14Example: `Pick Starter Charmander
  }
  if ($2 == Girl) {
    writeini -n $nick $+ .ini Register Gender Yes
    writeini -n $nick $+ .ini $nick Gender Female
    writeini -n $nick $+ .ini $nick Aura 1
    writeini -n $nick $+ .ini $nick BAura 13
    writeini -n $nick $+ .ini $nick Party 1
    writeini -n $nick $+ .ini $nick MParty 1
    writeini -n $nick $+ .ini Items Potion 1
    writeini -n $nick $+ .ini Items RareCandy 0
    writeini -n $nick $+ .ini Items Pokeball 3
    Writeini -n $nick $+ .ini Travel League Kanto
    Writeini -n $nick $+ .ini Travel Town Pallet-Town
    writeini -n $nick $+ .ini $nick TrainerLevel 1 
    writeini -n $nick $+ .ini $nick TExpNeeded 10 
    Notice $nick $Name($Nick) $+ 8,1, So Your a $2 $+ . Time to Choose Your Starter Pokemon.0 Starters:4 Charmander 15-10 Squirtle 15-3 Bulbasaur 15-8 Pichu 15-4 Cyndaquil 15-9 Chikorita 15-11 Totodile 15-9 Treecko 15-7 Torchic 15-11 Mudkip 8Type `Pick Starter <Starter> 14Example: `Pick Starter Charmander
  }
}
on *:TEXT:`Pick *:*:{
  if ($readini($nick $+ .ini,Register,Starter) == Yes) { Notice $nick You Already Picked a Starter! | halt }
  if ($readini($nick $+ .ini,Register,Gender) != Yes) { Notice $nick You have not made a Gender! | halt }
  if ($readini($nick $+ .ini,Register,Name) != Yes) { Notice $nick You have not made a Name! | halt }
  if ($3 == Charmander) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Fire
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Scratch
    Writeini -n $nick $+ .ini $3 Attack2 Growl
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 4
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 ScratchMPP 35 
    Writeini -n $nick $+ .ini $3 GrowlMPP 40 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Cyndaquil) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Fire
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Scratch
    Writeini -n $nick $+ .ini $3 Attack2 Growl
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 4
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 ScratchMPP 35 
    Writeini -n $nick $+ .ini $3 GrowlMPP 40 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Torchic) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Fire
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Scratch
    Writeini -n $nick $+ .ini $3 Attack2 Growl
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 7
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 ScratchMPP 35 
    Writeini -n $nick $+ .ini $3 GrowlMPP 40 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Bulbasaur) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Grass
    Writeini -n $nick $+ .ini $3 Type2 Poison
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Tackle
    Writeini -n $nick $+ .ini $3 Attack2 Growl
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 3
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 TackleMPP 35 
    Writeini -n $nick $+ .ini $3 GrowlMPP 40 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Chikorita) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Grass
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Tackle
    Writeini -n $nick $+ .ini $3 Attack2 Growl
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 9
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 TackleMPP 35 
    Writeini -n $nick $+ .ini $3 GrowlMPP 40 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Treecko) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Grass
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Pound
    Writeini -n $nick $+ .ini $3 Attack2 Leer
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 9
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 PoundMPP 35 
    Writeini -n $nick $+ .ini $3 LeerMPP 30 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Squirtle) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Water
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Tackle
    Writeini -n $nick $+ .ini $3 Attack2 TailWhip
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 10
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 TackleMPP 35 
    Writeini -n $nick $+ .ini $3 TailWhipMPP 30
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Totodile) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Water
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Scratch
    Writeini -n $nick $+ .ini $3 Attack2 Leer
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 11
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 ScratchMPP 35 
    Writeini -n $nick $+ .ini $3 LeerMPP 30
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Mudkip) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Water
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Tackle
    Writeini -n $nick $+ .ini $3 Attack2 Growl
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 12
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 TackleMPP 35 
    Writeini -n $nick $+ .ini $3 GrowlMPP 40
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Pichu) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Electric
    Writeini -n $nick $+ .ini $3 Type2 None
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Thunder-Shock
    Writeini -n $nick $+ .ini $3 Attack2 Charm
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 8
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 Thunder-ShockMPP 30 
    Writeini -n $nick $+ .ini $3 CharmMPP 20
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
  if ($3 == Hoppip) && ($Nick == Super_Luigi) {
    Writeini -n $nick $+ .ini Register Starter Yes
    Writeini -n $nick $+ .ini $3 Pokemon $3
    Writeini -n $nick $+ .ini $3 MAttack 20
    Writeini -n $nick $+ .ini $3 MSAttack 20
    Writeini -n $nick $+ .ini $3 MDefense 20
    Writeini -n $nick $+ .ini $3 MSDefense 20
    Writeini -n $nick $+ .ini $3 MIntelligence 6
    Writeini -n $nick $+ .ini $3 MAccuracy 6
    Writeini -n $nick $+ .ini $3 MAgility 6
    Writeini -n $nick $+ .ini $3 Speed 11
    Writeini -n $nick $+ .ini $3 MSpeed 11
    Writeini -n $nick $+ .ini $3 FSpeed 1
    Writeini -n $nick $+ .ini $3 MFSpeed 1
    Writeini -n $nick $+ .ini $3 MHp 50
    Writeini -n $nick $+ .ini $3 Type Grass
    Writeini -n $nick $+ .ini $3 Type2 Flying
    Writeini -n $nick $+ .ini $3 $3 Yes
    Writeini -n $nick $+ .ini $3 Attack1 Splash
    Writeini -n $nick $+ .ini $3 Attack2 None
    Writeini -n $nick $+ .ini $3 Attack3 None
    Writeini -n $nick $+ .ini $3 Attack4 None
    Writeini -n $nick $+ .ini $3 Level 5
    Writeini -n $nick $+ .ini $3 ExpNeeded 20
    Writeini -n $nick $+ .ini $3 Exp 0
    Writeini -n $nick $+ .ini $3 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $3 SExp 0
    Writeini -n $nick $+ .ini $3 Gender $readini($nick $+ .ini,$nick,Gender)
    writeini -n $nick $+ .ini $3 Aura 7
    writeini -n $nick $+ .ini $3 BAura 1
    Writeini -n $nick $+ .ini $3 SplashMPP 40 
    Writeini -n $nick $+ .ini $nick Pokemon $3
    Writeini -n $nick $+ .ini $nick Pokemon2 None
    Writeini -n $nick $+ .ini Pokemon $3 yes
    Notice $Nick We are Almost Done, Now Please Pm $Me with `Password APassword(This Password will be Used, So You Can Log In To Your Account!) 
  }
}
on *:text:*`Password *:?:{
  if ($readini($nick $+ .ini,Register,Name) != Yes) { Notice $nick You have not made a Name! | halt }
  if ($readini($nick $+ .ini,Register,Gender) != Yes) { Notice $nick You have not made a Gender! | halt }
  if ($readini($nick $+ .ini,Register,Starter) != Yes) { Notice $nick You have not made a Starter! | halt }
  if (/ isin $2) { Notice $nick Please reword it! | halt }
  if ($ isin $2) { Notice $nick Please reword it! | halt }
  if ( isin $3) { Notice $nick Please reword it! | halt }
  if (? isin $2) { Notice $nick Please reword it! | halt }
  if (, isin $2-) { Notice $nick Please reword it! | halt }
  if (Romeo isin $2-) { Notice $nick Please reword it! | halt }
  if (_ isin $2-) { Notice $nick Please reword it! | halt }
  if (* isin $2-) { Notice $nick Please reword it! | halt }
  if ($null == $2-) { Notice $nick Please reword it! | halt }
  if (; isin $2-) { Notice $nick Please reword it! | halt }
  if (: isin $2-) { Notice $nick Please reword it! | halt }
  if (+ isin $2-) { Notice $nick Please reword it! | halt }
  if (^ isin $2-) { Notice $nick Please reword it! | halt }
  if (. isin $2-) { Notice $nick Please reword it! | halt }
  if ($len($2) < 5) { Notice $nick Sorry But This Password is Too Short! | halt }
  if ($readini($nick $+ .ini,Password,Pass) == $null) {
    if ($2 == $Null) { Notice $nick Please Type `Pass (Password) | halt }
    writeini -n $nick $+ .ini Password Pass $2
    writeini -n $nick $+ .ini Register Complete Yes
    mode %Chanset +v $nick 
    notice $nick 10Your Password is3 $2
    notice $nick Your Registration is Complete, Type 3`Help0 To get Help! Enjoy!
    writeini -n $nick $+ .ini Password LoggedIn Yes
    Heal $nick
    write Registered+.txt $nick
    writeini Registered $+ .ini Registered $address($nick,2) $Nick 
    halt
  }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Please Log in | halt }
  if ($2 == $Null) { Notice $nick Please Type `Pass (Password) | halt }
  writeini $nick $+ .ini Password Pass $2
  mode %Chanset +v $nick 
  notice $nick 12Your Password is3 $2
  writeini $nick $+ .ini Password LoggedIn Yes
}
on *:text:*`Login *:?:{
  if ($2 == $readini($nick $+ .ini,Password,pass)) {
    writeini -n $nick $+ .ini Password LoggedIn Yes
    notice $nick You have logged in!
    mode %Chanset +v $nick 
    halt
  }
}
on *:text:*`LogOut:*: {
  writeini -n $nick $+ .ini Password LoggedIn No
  notice $nick You have now logged out!
  mode %Chanset -v $nick
  halt
}
on *:join:#:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick 11Welcome to9 $chan $+ !11 I am9 $me 11a9 Pokemon Bot11. Type 9`Register11 To Begin. | halt }
  if (%ChanSet == $Chan) { Notice $nick 11Welcome to9 $chan $+ ! 11Your Already Registered but if you need any help on the bot, Type 9`help. }
  if ($readini($nick $+ .ini,Register,Complete) == Yes) {
    if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { halt }
    writeini -n $nick $+ .ini Password LoggedIn No
  }
}
on *:nick:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && ($readini($nick $+ .ini,Register,Name) == Yes) { Remove -b $Nick $+ .ini }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { halt }
  writeini -n $nick $+ .ini Password LoggedIn No
  mode %Chanset -v $nick
}
on *:part:#:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && ($readini($nick $+ .ini,Register,Name) == Yes) { Remove -b $Nick $+ .ini }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { halt }
  writeini -n $nick $+ .ini Password LoggedIn No
}
on *:Quit:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && ($readini($nick $+ .ini,Register,Name) == Yes) { Remove -b $Nick $+ .ini }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { halt }
  writeini -n $nick $+ .ini Password LoggedIn No
}
on 1:text:`Stats:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  LvLCheck $Nick
  notice $nick 11Trainer: $Name($Nick) $+ 15,1 -11,1 Pokemon: $Pokemon($Nick) $+ 15,1 -11,1 Hp $+ / $+ Max Hp:15 $Stat($nick,Hp) $+ / $+ $Stat($nick,MHP) 15-11 SAttack:15 $Stat($nick,SAttack) 15-11 SDefense:15 $Stat($nick,SDefense) 15-11 Attack:15 $Stat($nick,Attack) 15-11 Defense:15 $Stat($nick,Defense) 15-11 Speed:15 $Stat($nick,FSpeed) $+ / $+ 10 15-11 Level:15 $Stat($nick,Level) 15-11 Exp:15 $Stat($nick,Exp) $+ / $+ $Stat($nick,ExpNeeded)
  Unset %Aura
  Unset %BAura
}
on *:text:`Speed Stats:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  SpeedCheck $nick
  Notice $nick 8Speed:15 $Stat($nick,FSpeed) $+ 12/15 $+ 10 8-8 Speed Exp Needed To LvL Up Speed:15 $Stat($nick,SExp) $+ 12/15 $+ $Stat($nick,SpeedExpNeeded)
}
on *:text:`Trainer Stats:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) == $Null) { writeini $nick $+ .ini $nick TrainerLevel 1 }
  if ($readini($nick $+ .ini,$nick,TExpNeeded) == $Null) { writeini $nick $+ .ini $nick TExpNeeded 10 }
  TLvLCheck $nick
  Notice $nick 9Trainer Level:15 $readini($nick $+ .ini,$Nick,TrainerLevel) 8-8 Trainer Exp Needed To LvL Up Level:15 $readini($nick $+ .ini,$Nick,TExp) $+ 12/15 $+ $readini($nick $+ .ini,$Nick,TExpNeeded)
}
alias Stat {
  %Pokemon = $readini($1 $+ .ini,$1,Pokemon) 
  return $readini($1 $+ .ini,%Pokemon,$2)
}
alias Name {
  %Aura = $readini($1 $+ .ini,$1,Aura)
  %BAura = $readini($1 $+ .ini,$1,BAura)
  return  $+ %Aura $+ , $+ %BAura $+ $readini($1 $+ .ini,$1,Name) $+ 
}
alias Pokemon {
  %Pokemon = $readini($1 $+ .ini,$1,Pokemon) 
  %Aura = $readini($1 $+ .ini,%Pokemon,Aura) 
  %BAura = $readini($1 $+ .ini,%Pokemon,BAura)
  if ($readini($1 $+ .ini,$1,WNPC) == Yes) { %Aura = $readini($1 $+ .ini,$1,PAura) | %BAura = $readini($1 $+ .ini,$1,PBAura) | Return  $+ %Aura $+ , $+ %BAura $+ $1 $+  }
  if ($readini($1 $+ .ini,%Pokemon,Name) == $Null) { Return  $+ %Aura $+ , $+ %BAura $+ %Pokemon $+  }
  return  $+ %Aura $+ , $+ %BAura $+ $readini($1 $+ .ini,%Pokemon,Name) $+ 
}
alias BName {
  %Aura = $readini($1 $+ .ini,$1,Aura) 
  %BAura = $readini($1 $+ .ini,$1,BAura)
  if ($readini($1 $+ .ini,$1,WNpc) == Yes) { Return  $+ %Aura $+ , $+ %BAura $+ $Name($1) $+  $+ 14,1( $+ $readini($1 $+ .ini,$1,PAura) $+ , $+ $readini($1 $+ .ini,$1,PBAura) $+ $1 $+ 14,1) }
  return  $+ %Aura $+ , $+ %BAura $+ $Name($1) $+  $+ 14,1( $+ $Pokemon($1) $+ 14,1)
}
alias Gender {
  if ($readini($1 $+ .ini,$1,Gender) == Male) { Return His }
  if ($readini($1 $+ .ini,$1,Gender) == Female) { Return Her }
}
alias Gender2 {
  if ($readini($1 $+ .ini,$1,Gender) == Male) { Return Him }
  if ($readini($1 $+ .ini,$1,Gender) == Female) { Return Her }
}
alias PGender {
  if ($readini($1 $+ .ini,$Poke($1),Gender) == Male) { Return His }
  if ($readini($1 $+ .ini,$Poke($1),Gender) == Female) { Return Her }
}
alias PGender2 {
  if ($readini($1 $+ .ini,$Poke($1),Gender) == Male) { Return Him }
  if ($readini($1 $+ .ini,$Poke($1),Gender) == Female) { Return Her }
}
alias Poke {
  %Pokemon = $readini($1 $+ .ini,$1,Pokemon) 
  return %Pokemon
}
on 1:text:`Attacks:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  unset %Moves
  Set %Moves 4Attacks $Pokemon($Nick) $+ 4,1 Knows:15
  if ($readini($nick $+ .ini,$Poke($Nick),Attack1) != None) { Set %Moves %Moves $readini($nick $+ .ini,$Poke($Nick),Attack1) $+ $MovePP($Nick,Attack1) }
  if ($readini($nick $+ .ini,$Poke($Nick),Attack2) != None) { Set %Moves %Moves $readini($nick $+ .ini,$Poke($Nick),Attack2) $+ $MovePP($Nick,Attack2) }
  if ($readini($nick $+ .ini,$Poke($Nick),Attack3) != None) { Set %Moves %Moves $readini($nick $+ .ini,$Poke($Nick),Attack3) $+ $MovePP($Nick,Attack3) }
  if ($readini($nick $+ .ini,$Poke($Nick),Attack4) != None) { Set %Moves %Moves $readini($nick $+ .ini,$Poke($Nick),Attack4) $+ $MovePP($Nick,Attack4) }
  Notice $nick %Moves 
  Unset %Moves
  Unset %Pokemon
}
alias MovePP {
  Set %Move $readini($1 $+ .ini,$Poke($1),$2) $+ PP
  Set %Move2 $readini($1 $+ .ini,$Poke($1),$2) $+ MPP
  return 12(14 $+ $readini($1 $+ .ini,$Poke($1),%Move) $+ 12/14 $+ $readini($1 $+ .ini,$Poke($1),%Move2) $+ 12)15
}
on 1:text:`Items:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  Unset %Items
  if ($readini($nick $+ .ini,Items,Potion) > 0) { Set %Items %Items $Item($nick,Potion) 7-0 }
  if ($readini($nick $+ .ini,Items,Ether) > 0) { Set %Items %Items $Item($nick,Ether) 7-0 }
  if ($readini($nick $+ .ini,Items,Antidote) > 0) { Set %Items %Items $Item($nick,Antidote) 7-0 }
  if ($readini($nick $+ .ini,Items,Pokeball) > 0) { Set %Items %Items $Item($nick,Pokeball) 7-0 }
  if ($readini($nick $+ .ini,Items,Greatball) > 0) { Set %Items %Items $Item($nick,Greatball) 7-0 }
  if ($readini($nick $+ .ini,Items,Ultraball) > 0) { Set %Items %Items $Item($nick,Ultraball) 7-0 }
  if ($readini($nick $+ .ini,Items,Masterball) > 0) { Set %Items %Items $Item($nick,Masterball) 7-0 }
  if ($readini($nick $+ .ini,Items,Awake) > 0) { Set %Items %Items $Item($nick,Awake) 7-0 }
  if ($readini($nick $+ .ini,Items,ParaHeal) > 0) { Set %Items %Items $Item($nick,ParaHeal) 7-0 }
  if ($readini($nick $+ .ini,Items,RareCandy) > 0) { Set %Items %Items $Item($nick,RareCandy) 7-0 }
  if ($readini($nick $+ .ini,Items,ThunderStone) > 0) { Set %Items %Items $Item($nick,ThunderStone) 7-0 }
  if ($readini($nick $+ .ini,Items,LeafStone) > 0) { Set %Items %Items $Item($nick,LeafStone) 7-0 }
  if ($readini($nick $+ .ini,Items,FireStone) > 0) { Set %Items %Items $Item($nick,FireStone) 7-0 }
  if ($readini($nick $+ .ini,Items,SunStone) > 0) { Set %Items %Items $Item($nick,SunStone) 7-0 }
  if ($readini($nick $+ .ini,Items,MetalCoat) > 0) { Set %Items %Items $Item($nick,MetalCoat) 7-0 }
  if ($readini($nick $+ .ini,Items,WaterStone) > 0) { Set %Items %Items $Item($nick,WaterStone) 7-0 }
  Notice $nick 9Items:0 %Items
  Unset %Items
  Unset %Pokemon
  Unset %Aura
  Unset %BAura
}
on 1:text:`Tms:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  Unset %TMS
  if ($readini($nick $+ .ini,Tm,Tm34) == Yes) { Set %TMS %TMS Tm34(Mud-Slap) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm11) == Yes) { Set %TMS %TMS Tm11(Swift) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm24) == Yes) { Set %TMS %TMS Tm24(Thunder-Wave) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm26) == Yes) { Set %TMS %TMS Tm26(EarthQuake) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm21) == Yes) { Set %TMS %TMS Tm21(MegaDrain) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm38) == Yes) { Set %TMS %TMS Tm38(BlastBurn) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm46) == Yes) { Set %TMS %TMS Tm46(Calm-Mind) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm06) == Yes) { Set %TMS %TMS Tm06(Toxic) 7-0 }
  if ($readini($nick $+ .ini,Tm,Tm27) == Yes) { Set %TMS %TMS Tm27(Fissure) 7-0 }
  Notice $nick 9Tms:0 %Tms
  Unset %Tms
}
alias Item {
  return $2 $+ ( $+ $readini($1 $+ .ini,Items,$2) $+ )
}
on 1:text:`Money:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Bank,Bank) == Yes) && ($readini($nick $+ .ini,Items,GC) > 0) { Notice $nick 7Gil:8 $readini($nick $+ .ini,$Nick,Money) 7GC:8 $readini($nick $+ .ini,Items,GC) 7Bank:8 $readini($nick $+ .ini,Bank,Amount) $+ 12/08 $+ $readini($nick $+ .ini,Bank,Limit) | halt }
  if ($readini($nick $+ .ini,Bank,Bank) == Yes) { Notice $nick 7Gil:8 $readini($nick $+ .ini,$Nick,Money) 7Bank:8 $readini($nick $+ .ini,Bank,Amount) $+ 12/08 $+ $readini($nick $+ .ini,Bank,Limit) | halt }
  if ($readini($nick $+ .ini,Items,Gc) > 0) { Notice $nick 7Gil:8 $readini($nick $+ .ini,$Nick,Money) 7GC:8 $readini($nick $+ .ini,Items,GC) | halt }
  Notice $nick 7Money:8 $readini($nick $+ .ini,$Nick,Money)
}
on *:text:`NickName *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Named) == Yes) { Notice $nick You already Gave $Poke($Nick) a Name! | halt }
  if (/ isin $2-) { Notice $nick Please reword it! | halt }
  if ($ isin $2-) { Notice $nick Please reword it! | halt }
  if (_ isin $2-) { Notice $nick Please reword it! | halt }
  if (* isin $2-) { Notice $nick Please reword it! | halt }
  if ($null == $2-) { Notice $nick Please reword it! | halt }
  if (; isin $2-) { Notice $nick Please reword it! | halt }
  if (: isin $2-) { Notice $nick Please reword it! | halt }
  if (+ isin $2-) { Notice $nick Please reword it! | halt }
  if (- isin $2-) { Notice $nick Please reword it! | halt }
  if (| isin $2-) { Notice $nick Please reword it! | halt }
  if (' isin $2-) { Notice $nick Please reword it! | halt }
  if (" isin $2-) { Notice $nick Please reword it! | halt }
  if (^ isin $2-) { Notice $nick Please reword it! | halt }
  if (% isin $2-) { Notice $nick Please reword it! | halt }
  if (# isin $2-) { Notice $nick Please reword it! | halt }
  if (^ isin $2-) { Notice $nick Please reword it! | halt }
  if (. isin $2-) { Notice $nick Please reword it! | halt }
  if ($2 == $Nick) { Notice $nick Please Change It! | halt }
  if ($2 == Items) { Notice $nick Please Change It! | halt }
  if ($len($2) < 2) { Notice $nick Sorry But This Name is Too Short! | halt }
  if ($len($2) > 10) { Notice $nick Sorry But This Name is Too Long! | halt }
  writeini -n $nick $+ .ini $Poke($Nick) Name $2-
  writeini -n $nick $+ .ini $Poke($Nick) Named Yes
  Notice $nick 15You Named Your Pokemon9 $2- $+ !
}
on 1:text:`Help:#:{
  Notice $nick 8Help Topics: 9Register 7-9 Healing 7-9 BattleArena 7-9 Battle 7-9 NickName 7-9 Catching-Pokemon 7-9 Using-Items 7-9 PokeMart 7-9 Places 7-9 Travel 7-9 Evolve 7-9 Speed 7-9 Trainer-Level 7-9 Training 7-9 Motto 7-9 Pc 7-9 Trading-Pokemon 7-9 Gyms 7-9 Tms 7-9 Partners 7-9 2vs2-Battles 8Type `Help (Topic)
}
on 1:text:`Help*:#: {
  If ($2 == Register) { notice $nick Type `Register, Then Follow the Steps, If Nothing Appears after you put the command, Please Wait 5-10 Second because it could be Lag. | halt }
  If ($2 == Healing) { notice $nick Type `PokeCenter To Heal! Different Areas have Different Healing Times! | Halt }
  If ($2 == BattleArena) { notice $nick Battle Arena is an All Out Battle of Every One! Type `Enter Arena to Enter & `Leave Arena to Get Out! Typed `Entered To See who is in Battle Field! | Halt }
  If ($2 == Battle) { notice $nick Type `Battle for an Open Battle(Any One May Accept) `Battle Person(A Specific Person Will Be Chosen) To Accept, `Accept Open Person(Accepting The Open Challenge) `Accept Challenge Person(The Person who Challenged You). Withdraw Open Challenge by `Withdraw | Halt }
  If ($2 == NickName) { notice $nick To NickName Your Pokemon, `NickName <Name>, You Cannot ReName it Again! | Halt }
  If ($2 == Catching-Pokemon) { notice $nick Lower The Wild Pokemons Hp! When You Think its Low Enough Type `Throw (Ball) (Wild Pokemon), Example: `Throw PokeBall Pidgey | Halt }
  If ($2 == Using-Items) { notice $nick To Use an Item, Type `Use (Item), Example: `Use Potion | Halt }
  If ($2 == PokeMart) { notice $nick Type `Places to see if a PokeMart is There! If There is Type `PokeMart, Once You Wanna Buy an Item, Type `Buy (Item) (Amount), Example: `Buy Potion 2 | Halt }
  If ($2 == Places) { notice $nick You Can Travel to Other Places, For Gyms, Items, Etc. Type `Places To see What that Place has! | Halt }
  If ($2 == Travel) { notice $nick To Travel, Type `Travel (Place), Type `Map to see What Places You Can go! Example: `Travel Pallet-Town | Halt }
  If ($2 == Motto) { notice $nick Type `Motto <Txt> To do a Motto! | Halt }
  If ($2 == Gyms) { notice $nick Each Time You Travel to a new Place Type `Places, If Gym is There, You may fight for a Badge! | Halt }
  If ($2 == Evolve) { notice $nick You Have a choice, If You want to Evolve a Pokemon or Not, By `Change Evolve. Not Evolving a Pokemon has some Advantages, Such as Learning Moves a Bit Earlier or Moves that Your next Evolve form will not. Evolving Occurs When a Pokemon Reaches a Certain Level. Btw There are Chances Your Pokemon wont Evolve on the Exact its suppose to! | Halt }
  If ($2 == Speed) { notice $nick Each Pokemon has a Speed Level. This Determines the Duration of how Long an Attack May Take. Type `Speed Stats to see your Speed Level and How much Speed You Need to Level it Up. | Halt }
  If ($2 == Trainer-Level) { notice $nick Trainer level allows you to goto Other Places. Type `Trainer Stats to see Your Trainer Level and How much Exp is Needed to Level it up. To Gain Trainer Exp, You Level Pokemon, Evolve Pokemon, Catch Pokemon, Win Battles in 1 Vs. 1 Battles, & Winning Badges! | Halt }
  If ($2 == Training) { notice $nick Training Helps Pokemon Level Up! Command: `Start Training (Bag). `TEnd Time Left to see How long you have in Training! `TA Time Left To See When You Can Train Again! Supa+Weak+Bag is Free and For Pokemon Below Level 10. Weak+Bag is Free and For Pokemon Below Level 20. Punch+Bag Cost 75 Zenny is For Pokemon Below Level 40. | Halt }
  If ($2 == Pc) { notice $nick Type 4`Start Pc15 to Create a Pc Account, It Costs 1000 Zenny, You Get 3 Storage space, to get More Space, Type 4`Upgrade Pc15. To Deposit pokemon 4`Deposit Pokemon15. To Withdraw Pokemon 4`Withdraw Pokemon15. | Halt }
  If ($2 == Trading-Pokemon) { notice $nick To Trade Pokemon, Both People need PC Accounts. `Trade Person PokemonYouOffer PokemonYouWant & `Accept Trade Person YourPokemonHeWants PokemonHeOffered, If You Dont Wanna Trade do not type anything. 4Example: `Trade Romeo Torchic Charmander 15-4 `Accept Trade Hamlet Charmander Torchic | Halt } 
  If ($2 == Tms) { notice $nick Using Tms: `Use Tm# (Move You Want to Delete) 4Note - Even if you dont have 4 moves put a move, it will not get deleted! Also If It says Nothing and You Know your Pokemon learns that move Pm Romeo with Evidence! | Halt }
  If ($2 == Partners) { notice $nick Partners are for 2vs2 Battles! Type `Partner SomeOne. To Accept: `Accept Partner PersonWhoOffered! Type `Drop Partner To Drop Partner! | Halt }
  If ($2 == 2vs2-Battles) { notice $nick You Need a Partner, He/She Must be In Room! Type `TBattle To Declare an open Challenge! To Accept: `Accept 2vs2 OneOfThePeopleWhoWantedA2Vs2Battle! To Withdraw: `TWithdraw | Halt }
}
on 1:text:`Change Evolve:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),WantEvolve) == Yes) { writeini -n $nick $+ .ini $Poke($Nick) WantEvolve No | Notice $Nick You Have Made it So $Poke($Nick) Will not Evolve! | Halt }
  if ($readini($nick $+ .ini,$Poke($Nick),WantEvolve) == No) { writeini -n $nick $+ .ini $Poke($Nick) WantEvolve Yes | Notice $Nick You Have Made it So $Poke($Nick) Will Evolve! | Halt }
  if ($readini($nick $+ .ini,$Poke($Nick),WantEvolve) == $Null) { writeini -n $nick $+ .ini $Poke($Nick) WantEvolve Yes | Notice $Nick You Have Made it So $Poke($Nick) Will Evolve! | Halt }
}
on 1:text:`Switch*:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($2 == $Null) { Notice $nick Its `Switch (NewPokemon) | halt }
  if ($readini($nick $+ .ini,$2,Pokemon) == $Null) { Notice $nick You Dont Have $2 $+ ! | halt }
  if ($readini($nick $+ .ini,$2,Stored) == Yes) { Notice $nick $2 is Stored! | halt }
  if (%Learning == $nick) { Notice $nick $Pokemon($Nick) $+ 0,1 is Learning a Move! | halt }  
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($Nick $+ .ini,$Nick,2Vs2) == yes) { Notice $nick Your Still in the 2vs2 Battle! | halt }
  if (%intourney. [ $+ [ $nick ] ] = yes) { halt }
  writeini $nick $+ .ini $nick Pokemon $2
  Msg %ChanSet $Name($Nick) $+ 9,1 Switched Pokemons!
}
on 1:TEXT:`Motto*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($2- == $null) { notice $nick Add Some Words! | halt }
  if (/ isin $2-) { Notice $nick Please reword it! | halt }
  if ($ isin $2-) { Notice $nick Please reword it! | halt }
  if (* isin $2-) { Notice $nick Please reword it! | halt }
  if (| isin $2-) { Notice $nick Please reword it! | halt }
  if (% isin $2-) { Notice $nick Please reword it! | halt }
  if (# isin $2-) { Notice $nick Please reword it! | halt }
  writeini -n $nick $+ .ini $nick Motto $2-
  Notice $nick 0You Have Changed Your Battle Motto To " $+ $2- $+ " 
}
alias Motto {
  return $readini($1 $+ .ini,$1,Motto)
}
on 1:TEXT:`Read*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($2 $+ .ini,Register,Complete) != Yes) { Notice $nick No Such User! | halt }
  Notice $nick $Name($2) $+ 0,1's Stats: $Pokemon($2) $+ 0,1 is $Poke($2) a $Stat($2,Type) Type Pokemon. 0Type 2:15 $Stat($2,Type2) 7-0 Hp:15 $Stat($2,Hp)
}
on *:text:*`Pokedex:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  Unset %Pokemon
  if ($readini($nick $+ .ini,Pokemon,Charmander) == yes) { Set %Pokemon %Pokemon Charmander }
  if ($readini($nick $+ .ini,Pokemon,Charmeleon) == yes) { Set %Pokemon %Pokemon Charmeleon }
  if ($readini($nick $+ .ini,Pokemon,Charizard) == yes) { Set %Pokemon %Pokemon Charizard }
  if ($readini($nick $+ .ini,Pokemon,Bulbasaur) == yes) { Set %Pokemon %Pokemon Bulbasaur }
  if ($readini($nick $+ .ini,Pokemon,Ivysaur) == yes) { Set %Pokemon %Pokemon Ivysaur }
  if ($readini($nick $+ .ini,Pokemon,Venusaur) == yes) { Set %Pokemon %Pokemon Venusaur }
  if ($readini($nick $+ .ini,Pokemon,Squirtle) == yes) { Set %Pokemon %Pokemon Squirtle }
  if ($readini($nick $+ .ini,Pokemon,Wartortle) == yes) { Set %Pokemon %Pokemon Wartortle }
  if ($readini($nick $+ .ini,Pokemon,Blastoise) == yes) { Set %Pokemon %Pokemon Blastoise }
  if ($readini($nick $+ .ini,Pokemon,Chikorita) == yes) { Set %Pokemon %Pokemon Chikorita }
  if ($readini($nick $+ .ini,Pokemon,Bayleef) == yes) { Set %Pokemon %Pokemon Bayleef }
  if ($readini($nick $+ .ini,Pokemon,Meganium) == yes) { Set %Pokemon %Pokemon Charizard }
  if ($readini($nick $+ .ini,Pokemon,Cyndaquil) == yes) { Set %Pokemon %Pokemon Cyndaquil }
  if ($readini($nick $+ .ini,Pokemon,Quilava) == yes) { Set %Pokemon %Pokemon Quilava }
  if ($readini($nick $+ .ini,Pokemon,Typhlosion) == yes) { Set %Pokemon %Pokemon Typhlosion }
  if ($readini($nick $+ .ini,Pokemon,Totodile) == yes) { Set %Pokemon %Pokemon Totodile }
  if ($readini($nick $+ .ini,Pokemon,Croconaw) == yes) { Set %Pokemon %Pokemon Croconaw }
  if ($readini($nick $+ .ini,Pokemon,Feraligatr) == yes) { Set %Pokemon %Pokemon Feraligatr }
  if ($readini($nick $+ .ini,Pokemon,Torchic) == yes) { Set %Pokemon %Pokemon Torchic }
  if ($readini($nick $+ .ini,Pokemon,Combusken) == yes) { Set %Pokemon %Pokemon Combusken }
  if ($readini($nick $+ .ini,Pokemon,Blaziken) == yes) { Set %Pokemon %Pokemon Blaziken }
  if ($readini($nick $+ .ini,Pokemon,Treecko) == yes) { Set %Pokemon %Pokemon Treecko }
  if ($readini($nick $+ .ini,Pokemon,Grovyle) == yes) { Set %Pokemon %Pokemon Grovyle }
  if ($readini($nick $+ .ini,Pokemon,Sceptile) == yes) { Set %Pokemon %Pokemon Sceptile }
  if ($readini($nick $+ .ini,Pokemon,Mudkip) == yes) { Set %Pokemon %Pokemon Mudkip }
  if ($readini($nick $+ .ini,Pokemon,Marshtomp) == yes) { Set %Pokemon %Pokemon Marshtomp }
  if ($readini($nick $+ .ini,Pokemon,Swampert) == yes) { Set %Pokemon %Pokemon Swampert }
  if ($readini($nick $+ .ini,Pokemon,Pichu) == yes) { Set %Pokemon %Pokemon Pichu }
  if ($readini($nick $+ .ini,Pokemon,Pikachu) == yes) { Set %Pokemon %Pokemon Pikachu }
  if ($readini($nick $+ .ini,Pokemon,Hoppip) == yes) { Set %Pokemon %Pokemon Hoppip }
  if ($readini($nick $+ .ini,Pokemon,Skiploom) == yes) { Set %Pokemon %Pokemon Skiploom }
  if ($readini($nick $+ .ini,Pokemon,Jumpluff) == yes) { Set %Pokemon %Pokemon Jumpluff }
  if ($readini($nick $+ .ini,Pokemon,Raichu) == yes) { Set %Pokemon %Pokemon Raichu }
  if ($readini($nick $+ .ini,Pokemon,Pidgey) == yes) { Set %Pokemon %Pokemon Pidgey }
  if ($readini($nick $+ .ini,Pokemon,Pidgeotto) == yes) { Set %Pokemon %Pokemon Pidgeotto }
  if ($readini($nick $+ .ini,Pokemon,Pidgeot) == yes) { Set %Pokemon %Pokemon Pidgeot }
  if ($readini($nick $+ .ini,Pokemon,Weedle) == yes) { Set %Pokemon %Pokemon Weedle }
  if ($readini($nick $+ .ini,Pokemon,Kakuna) == yes) { Set %Pokemon %Pokemon Kakuna }
  if ($readini($nick $+ .ini,Pokemon,Beedrill) == yes) { Set %Pokemon %Pokemon Beedrill }
  if ($readini($nick $+ .ini,Pokemon,Caterpie) == yes) { Set %Pokemon %Pokemon Caterpie }
  if ($readini($nick $+ .ini,Pokemon,Metapod) == yes) { Set %Pokemon %Pokemon Metapod }
  if ($readini($nick $+ .ini,Pokemon,Butterfree) == yes) { Set %Pokemon %Pokemon Butterfree }
  if (%Pokemon == $null) { Goto skip1 }
  Notice $nick 14Pokemon You Have Caught:15 %Pokemon
  :skip1
  Unset %Pokemon
  if ($readini($nick $+ .ini,Pokemon,Spearow) == yes) { Set %Pokemon %Pokemon Spearow }
  if ($readini($nick $+ .ini,Pokemon,Fearow) == yes) { Set %Pokemon %Pokemon Fearow }
  if ($readini($nick $+ .ini,Pokemon,Rattata) == yes) { Set %Pokemon %Pokemon Rattata }
  if ($readini($nick $+ .ini,Pokemon,Raticate) == yes) { Set %Pokemon %Pokemon Raticate }
  if ($readini($nick $+ .ini,Pokemon,Abra) == yes) { Set %Pokemon %Pokemon Abra }
  if ($readini($nick $+ .ini,Pokemon,Kadabra) == yes) { Set %Pokemon %Pokemon Kadabra }
  if ($readini($nick $+ .ini,Pokemon,Alakazam) == yes) { Set %Pokemon %Pokemon Alakazam }
  if ($readini($nick $+ .ini,Pokemon,Onix) == yes) { Set %Pokemon %Pokemon Onix }
  if ($readini($nick $+ .ini,Pokemon,Steelix) == yes) { Set %Pokemon %Pokemon Steelix }
  if ($readini($nick $+ .ini,Pokemon,Sandshrew) == yes) { Set %Pokemon %Pokemon Sandshrew }
  if ($readini($nick $+ .ini,Pokemon,Sandslash) == yes) { Set %Pokemon %Pokemon Sandslash }
  if ($readini($nick $+ .ini,Pokemon,Staryu) == yes) { Set %Pokemon %Pokemon Staryu }
  if ($readini($nick $+ .ini,Pokemon,Starmie) == yes) { Set %Pokemon %Pokemon Starmie }
  if ($readini($nick $+ .ini,Pokemon,Ekans) == yes) { Set %Pokemon %Pokemon Ekans }
  if ($readini($nick $+ .ini,Pokemon,Arbok) == yes) { Set %Pokemon %Pokemon Arbok }
  if ($readini($nick $+ .ini,Pokemon,Bellsprout) == yes) { Set %Pokemon %Pokemon Bellsprout }
  if ($readini($nick $+ .ini,Pokemon,Weepinbell) == yes) { Set %Pokemon %Pokemon Weepinbell }
  if ($readini($nick $+ .ini,Pokemon,Victreebell) == yes) { Set %Pokemon %Pokemon Victreebell }
  if ($readini($nick $+ .ini,Pokemon,Oddish) == yes) { Set %Pokemon %Pokemon Oddish }
  if ($readini($nick $+ .ini,Pokemon,Gloom) == yes) { Set %Pokemon %Pokemon Gloom }
  if ($readini($nick $+ .ini,Pokemon,Vileplume) == yes) { Set %Pokemon %Pokemon Vileplume }
  if ($readini($nick $+ .ini,Pokemon,Bellossom) == yes) { Set %Pokemon %Pokemon Bellossom }
  if ($readini($nick $+ .ini,Pokemon,Eevee) == yes) { Set %Pokemon %Pokemon Eevee }
  if ($readini($nick $+ .ini,Pokemon,Jolteon) == yes) { Set %Pokemon %Pokemon Jolteon }
  if ($readini($nick $+ .ini,Pokemon,Vaporeon) == yes) { Set %Pokemon %Pokemon Vaporeon }
  if ($readini($nick $+ .ini,Pokemon,Flareon) == yes) { Set %Pokemon %Pokemon Flareon }
  if ($readini($nick $+ .ini,Pokemon,Espeon) == yes) { Set %Pokemon %Pokemon Espeon }
  if ($readini($nick $+ .ini,Pokemon,Umbreon) == yes) { Set %Pokemon %Pokemon Umbreon }
  if ($readini($nick $+ .ini,Pokemon,Nidoran-M) == yes) { Set %Pokemon %Pokemon Nidoran-M }
  if ($readini($nick $+ .ini,Pokemon,Nidorino) == yes) { Set %Pokemon %Pokemon Nidorino }
  if ($readini($nick $+ .ini,Pokemon,Nidoking) == yes) { Set %Pokemon %Pokemon Nidoking }
  if ($readini($nick $+ .ini,Pokemon,Nidoran-F) == yes) { Set %Pokemon %Pokemon Nidoran-F }
  if ($readini($nick $+ .ini,Pokemon,Nidorina) == yes) { Set %Pokemon %Pokemon Nidorina }
  if ($readini($nick $+ .ini,Pokemon,Nidoqueen) == yes) { Set %Pokemon %Pokemon Nidoqueen }
  if ($readini($nick $+ .ini,Pokemon,Vulpix) == yes) { Set %Pokemon %Pokemon Vulpix }
  if ($readini($nick $+ .ini,Pokemon,Ninetales) == yes) { Set %Pokemon %Pokemon Ninetales }
  if ($readini($nick $+ .ini,Pokemon,Venonat) == yes) { Set %Pokemon %Pokemon Venonat }
  if ($readini($nick $+ .ini,Pokemon,Venomoth) == yes) { Set %Pokemon %Pokemon Venomoth }
  if ($readini($nick $+ .ini,Pokemon,Rhyhorn) == yes) { Set %Pokemon %Pokemon Rhyhorn }
  if ($readini($nick $+ .ini,Pokemon,Rhydon) == yes) { Set %Pokemon %Pokemon Rhydon }
  if ($readini($nick $+ .ini,Pokemon,Magikarp) == yes) { Set %Pokemon %Pokemon Magikarp }
  if ($readini($nick $+ .ini,Pokemon,Gyarados) == yes) { Set %Pokemon %Pokemon Gyarados }
  if ($readini($nick $+ .ini,Pokemon,Gastly) == yes) { Set %Pokemon %Pokemon Gastly }
  if ($readini($nick $+ .ini,Pokemon,Haunter) == yes) { Set %Pokemon %Pokemon Haunter }
  if ($readini($nick $+ .ini,Pokemon,Gengar) == yes) { Set %Pokemon %Pokemon Gengar }

  if ($readini($nick $+ .ini,Pokemon,Golduck) == yes) { Set %Pokemon %Pokemon Golduck }
  if ($readini($nick $+ .ini,Pokemon,Dratini) == yes) { Set %Pokemon %Pokemon Dratini }
  if ($readini($nick $+ .ini,Pokemon,Dragonair) == yes) { Set %Pokemon %Pokemon Dragonair }
  if ($readini($nick $+ .ini,Pokemon,Dragonite) == yes) { Set %Pokemon %Pokemon Dragonite }
  if ($readini($nick $+ .ini,Pokemon,Geodude) == yes) { Set %Pokemon %Pokemon Geodude }
  if ($readini($nick $+ .ini,Pokemon,Graveler) == yes) { Set %Pokemon %Pokemon Graveler }
  if ($readini($nick $+ .ini,Pokemon,Golem) == yes) { Set %Pokemon %Pokemon Golem }
  if ($readini($nick $+ .ini,Pokemon,Psyduck) == yes) { Set %Pokemon %Pokemon Psyduck }
  if ($readini($nick $+ .ini,Pokemon,Elekid) == yes) { Set %Pokemon %Pokemon Elekid }
  if ($readini($nick $+ .ini,Pokemon,Electabuzz) == yes) { Set %Pokemon %Pokemon Electabuzz }
  if ($readini($nick $+ .ini,Pokemon,Houndour) == yes) { Set %Pokemon %Pokemon Houndour }
  if ($readini($nick $+ .ini,Pokemon,Houndoom) == yes) { Set %Pokemon %Pokemon Houndoom }
  if ($readini($nick $+ .ini,Pokemon,Teddiursa) == yes) { Set %Pokemon %Pokemon Teddiursa }
  if ($readini($nick $+ .ini,Pokemon,Ursaring) == yes) { Set %Pokemon %Pokemon Ursaring }
  if (%Pokemon == $null) { goto skip2 }
  Notice $nick 15 $+ %Pokemon
  :skip2
  //unset %Pokemon
  if ($readini($nick $+ .ini,Pokemon,Mankey) == yes) { Set %Pokemon %Pokemon Mankey }
  if ($readini($nick $+ .ini,Pokemon,Primeape) == yes) { Set %Pokemon %Pokemon Primeape }
  if ($readini($nick $+ .ini,Pokemon,Zubat) == yes) { Set %Pokemon %Pokemon Zubat }
  if ($readini($nick $+ .ini,Pokemon,Golbat) == yes) { Set %Pokemon %Pokemon Golbat }
  if ($readini($nick $+ .ini,Pokemon,Crobat) == yes) { Set %Pokemon %Pokemon Crobat }
  if ($readini($nick $+ .ini,Pokemon,Machop) == yes) { Set %Pokemon %Pokemon Machop }
  if ($readini($nick $+ .ini,Pokemon,Machoke) == yes) { Set %Pokemon %Pokemon Machoke }
  if ($readini($nick $+ .ini,Pokemon,Machamp) == yes) { Set %Pokemon %Pokemon Machamp }
  if ($readini($nick $+ .ini,Pokemon,Kabuto) == yes) { Set %Pokemon %Pokemon Kabuto }
  if ($readini($nick $+ .ini,Pokemon,Kabutops) == yes) { Set %Pokemon %Pokemon Kabutops }
  if ($readini($nick $+ .ini,Pokemon,Omanyte) == yes) { Set %Pokemon %Pokemon Omanyte }
  if ($readini($nick $+ .ini,Pokemon,Omastar) == yes) { Set %Pokemon %Pokemon Omastar }
  if ($readini($nick $+ .ini,Pokemon,Aerodactyl) == yes) { Set %Pokemon %Pokemon Aerodactyl }
  if ($readini($nick $+ .ini,Pokemon,Lapras) == yes) { Set %Pokemon %Pokemon Lapras }

  if ($readini($nick $+ .ini,Pokemon,Poliwag) == yes) { Set %Pokemon %Pokemon Poliwag }
  if ($readini($nick $+ .ini,Pokemon,Poliwhirl) == yes) { Set %Pokemon %Pokemon Poliwhirl }
  if ($readini($nick $+ .ini,Pokemon,Poliwrath) == yes) { Set %Pokemon %Pokemon Poliwrath }
  if ($readini($nick $+ .ini,Pokemon,Politoed) == yes) { Set %Pokemon %Pokemon Politoed }
  if ($readini($nick $+ .ini,Pokemon,Snorlax) == yes) { Set %Pokemon %Pokemon Snorlax }
  if ($readini($nick $+ .ini,Pokemon,Tauros) == yes) { Set %Pokemon %Pokemon Tauros }
  if ($readini($nick $+ .ini,Pokemon,Larvitar) == yes) { Set %Pokemon %Pokemon Larvitar }
  if ($readini($nick $+ .ini,Pokemon,Pupitar) == yes) { Set %Pokemon %Pokemon Pupitar }
  if ($readini($nick $+ .ini,Pokemon,Tyranitar) == yes) { Set %Pokemon %Pokemon Tyranitar }
  if ($readini($nick $+ .ini,Pokemon,Gligar) == yes) { Set %Pokemon %Pokemon Gligar }
  if (%Pokemon == $null) { goto skip3 }
  Notice $nick 15 $+ %Pokemon
  :skip3
  //unset %Pokemon
  if ($readini($nick $+ .ini,Pokemon,Moltres) == yes) { Set %Pokemon %Pokemon Moltres }
  if ($readini($nick $+ .ini,Pokemon,Zapdos) == yes) { Set %Pokemon %Pokemon Zapdos }
  if ($readini($nick $+ .ini,Pokemon,Articuno) == yes) { Set %Pokemon %Pokemon Articuno }
  if ($readini($nick $+ .ini,Pokemon,MewTwo) == yes) { Set %Pokemon %Pokemon MewTwo }
  if ($readini($nick $+ .ini,Pokemon,Mew) == yes) { Set %Pokemon %Pokemon Mew }
  if ($readini($nick $+ .ini,Pokemon,Suicune) == yes) { Set %Pokemon %Pokemon Suicune }
  if ($readini($nick $+ .ini,Pokemon,Entei) == yes) { Set %Pokemon %Pokemon Entei }
  if ($readini($nick $+ .ini,Pokemon,Raikou) == yes) { Set %Pokemon %Pokemon Raikou }
  if (%Pokemon == $null) { halt }
  Notice $nick 15 $+ %Pokemon
}
on 1:text:`Battle*:*: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal Your Pokemon! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($readini($Nick $+ .ini,$Nick,2Vs2) == yes) { Notice $nick Your Still in the 2vs2 Battle! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if ($istok(%OpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the Open Challenge! | halt }
  if ($istok(%TOpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the 2 Vs 2 Open Challenge! | halt }
  if (%tourney = yes) { halt } 
  if ($2 != $Null) && ($readini($nick $+ .ini,Register,Complete) == Yes) && ($2 Ison %ChanSet) {
    if ($readini($2 $+ .ini,Register,Complete) != Yes) { Notice $nick $2 is Not Registered! `Register | halt }
    Set -u120 %Challenge. [ $+ [ $nick ] ] $2
    Msg %ChanSet $Name($Nick) $+ 8,1 Has Challenged $Name($2) $+ 8,1 To a Pokemon Battle! If You Want to Battle Type `Accept Challenge $Nick
    Halt
  }
  Msg %ChanSet $Name($Nick) $+ 8,1 Wants to Battle! If You Want to Battle $Name($Nick) $+ 8,1 Type `Accept Open $Nick
  Set %OpenChallenge %OpenChallenge $Nick 
}
on 1:text:`Accept*:*: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Already Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal Your Pokemon! | halt }
  if ($readini($3 $+ .ini,$Poke($3),Hp) <= 0) { Notice $nick $3 Must Heal Their Pokemon! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($readini($3 $+ .ini,$3,Fighting) == yes) { Notice $nick $3 Is Battling! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if ($readini($3 $+ .ini,Travel,Travel) == Yes) { Notice $nick $3 is Traveling | halt }
  if (%tourney = yes) { halt } 
  if ($3 == $Nick) { halt } 
  if ($2 == Challenge) {
    if (%Challenge. [ $+ [ $3 ] ] != $nick) { Notice $nick This person has not offered to Battle You! | halt }
    Inc %Battles
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho $3
    Writeini -n $3 $+ .ini $3 Fighting Yes
    Writeini -n $3 $+ .ini $3 Field Singles $+ %Battles
    Writeini -n $3 $+ .ini $3 FightingWho $Nick
    Msg %ChanSet $Name($Nick) $+ 8,1 Has Accepted $Name($3) $+ 8,1's Challenge! Begin!
  }
  if ($2 == Open) {
    if ($istok(%OpenChallenge,$3,32) != $true) { Notice $nick $3 is not Doing the Open Challenge! | halt }
    Inc %Battles
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho $3
    Writeini -n $3 $+ .ini $3 Fighting Yes
    Writeini -n $3 $+ .ini $3 Field Singles $+ %Battles
    Writeini -n $3 $+ .ini $3 FightingWho $Nick
    Msg %ChanSet $Name($Nick) $+ 8,1 Has Accepted $Name($3) $+ 8,1's Challenge! Begin!
    if ($readini($3 $+ .ini,$3,TNpc) == Yes) { SpecialNpc $3 }
    :Repeat
    set %OpenChallenge $remtok(%OpenChallenge,$3,1,32)
    if ($istok(%OpenChallenge,$3,32) == $true) { Goto Repeat }
  }
  if ($2 == 2vs2) {
    if ($istok(%TOpenChallenge,$3,32) != $true) { Notice $nick $3 is not Doing the 2 vs 2 Open Challenge! | halt }
    Set %Partner $readini($nick $+ .ini,Tag,Partner)
    Set %Partner2 $readini($3 $+ .ini,Tag,Partner)
    if ($readini(%Partner $+ .ini,%Partner,Fighting) == yes) { Notice $nick %Partner Is Battling! | halt }
    if ($timer(Heal $+ %Partner).secs != $null) { Notice $nick %Partner is Healing | halt }
    if ($readini(%Partner $+ .ini,Travel,Travel) == Yes) { Notice $nick %Partner is Traveling | halt }
    if ($readini(%Partner $+ .ini,$Poke(%Partner),Hp) <= 0) { Notice $nick %Partner Must Heal Their Pokemon! | halt }
    if ($readini(%Partner2 $+ .ini,%Partner2,Fighting) == yes) { Notice $nick %Partner2 Is Battling! | halt }
    if ($timer(Heal $+ %Partner2).secs != $null) { Notice $nick %Partner2 is Healing | halt }
    if ($readini(%Partner2 $+ .ini,Travel,Travel) == Yes) { Notice $nick %Partner2 is Traveling | halt }
    if ($readini(%Partner2 $+ .ini,$Poke(%Partner2),Hp) <= 0) { Notice $nick %Partner2 Must Heal Their Pokemon! | halt }
    Inc %Battles
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field 2vs2 $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho $3
    Writeini -n $Nick $+ .ini $nick 2vs2 Yes
    Writeini -n $3 $+ .ini $3 Fighting Yes
    Writeini -n $3 $+ .ini $3 Field 2vs2 $+ %Battles
    Writeini -n $3 $+ .ini $3 FightingWho $Nick
    Writeini -n $3 $+ .ini $3 2vs2 Yes
    Writeini -n %Partner $+ .ini %Partner Fighting Yes
    Writeini -n %Partner $+ .ini %Partner Field 2vs2 $+ %Battles
    Writeini -n %Partner $+ .ini %Partner FightingWho %Partner2
    Writeini -n %Partner $+ .ini %Partner 2vs2 Yes
    Writeini -n %Partner2 $+ .ini %Partner2 Fighting Yes
    Writeini -n %Partner2 $+ .ini %Partner2 Field 2vs2 $+ %Battles
    Writeini -n %Partner2 $+ .ini %Partner2 FightingWho %Partner
    Writeini -n %Partner2 $+ .ini %Partner2 2vs2 Yes
    Msg %ChanSet $Name($Nick) $+ 8,1 & $Name(%Partner) $+ 8,1 Have Accepted $Name($3) $+ 8,1 & $Name(%Partner2) $+ 8,1's Challenge! Begin!
    set %TOpenChallenge $remtok(%TOpenChallenge,$3,1,32)
    set %TOpenChallenge $remtok(%TOpenChallenge,%Partner2,1,32)
    Unset %Partner
    Unset %Partner2
  }
}
on 1:text:`Withdraw:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($istok(%OpenChallenge,$Nick,32) != $true) { Notice $Nick You Are not In The Open Challenge! | halt }
  set %OpenChallenge $remtok(%OpenChallenge,$Nick,1,32)
  Msg %ChanSet $Name($Nick) $+ 8,1 Has Withdrew out of the Open Challenge!
}
on *:text:*`PokeCenter:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == Yes) { Notice $nick You Are In Battle! Please leave The Battlefield.  | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($Nick $+ .ini,$Nick,2Vs2) == yes) { Notice $nick Your Still in the 2vs2 Battle! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if (%EliteBattle = yes) && (%EFighting == $Nick) { Notice $nick You are Fighting Elite 4! | halt }
  if (%tourneystarted = yes) { halt } 
  Set %Pokemon $readini($Nick $+ .ini,$Nick,Pokemon)
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Heal)
  Notice $nick 1,0Nurse Joy:0,1 %Pokemon Will Be Fully Healed In %Town Seconds $+ !
  Timerheal $+ $nick 1 %Town /Heal $nick
}
on *:text:`Enter Arena:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal Your Pokemon! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Already Battling! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if ($readini($Nick $+ .ini,$Nick,2Vs2) == yes) { Notice $nick Your Still in the 2vs2 Battle! | halt }
  if (%tourney = yes) { halt } 
  if ($Nick isin %batlist) && ($readini($nick $+ .ini,$nick,Fighting) != yes) { BatlistCheck $Nick }
  Writeini -n $nick $+ .ini $nick Fighting Yes
  set %batlist %batlist $nick
  Writeini -n $nick $+ .ini $nick Field Normal
  Msg %ChanSet $Name($Nick) $+ 8,1 Enters the Arena. $Name($Nick) $+ 8,1 Says:15 $Motto($Nick) $Name($Nick) $+ 8,1 Sends out $Pokemon($Nick) $+ 8,1! 
  if ($numtok(%NpcStopAttacking,32) >= 1) && (%NpcStopAttacking != $Null) { IdleNpcAttack }
}
on *:text:`Leave Arena:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != yes) { Notice $nick You Are Not In The Arena! | halt }
  if ($readini($nick $+ .ini,$nick,Field) != Normal) { Notice $nick You Cannot Leave! | halt }
  if ($timer(Leave $+ $nick).secs != $null) { Notice $nick You Are Already Leaving The Arena! | halt }
  if ($readini($Nick $+ .ini,$Nick,CantRun) == Yes) { Msg %ChanSet $BName($Nick) $+ 8,1 Cannot Run! Away! | halt }
  Msg %ChanSet $Name($Nick) $+ 8,1 is Running Away! $Name($Nick) $+ 8,1 Will Run Away In 60 Seconds!
  TimerLeave $+ $nick 1 60 /leave $nick
}
on 1:TEXT:`Entered:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  var %x = 1
  var %y = $numtok(%batlist,32)
  while (%x <= %y) {
    Set %Person $gettok(%batlist,%x,32)
    if ($readini(%Person $+ .ini,%Person,Fighting) == Yes) { set %entered %entered $gettok(%batlist,%x,32) $chr(45) }
    inc %x
  }
  Notice $nick 8People Who Are Battling:15 %Entered
  Unset %Entered
  Unset %Person
}
on 1:TEXT:`Open:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  Notice $nick 8People Who Have Offered Open Challenges:15 %OpenChallenge
}
on 1:TEXT:`Atl:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,Attacking) != Yes) { Notice $nick You Are Not Attacking! | halt }
  if ($timer(Attack $+ $nick).secs = $null) && ($readini($Nick $+ .ini,$Nick,Attacking) == yes) { Notice $Nick 8GLITCH!4 This Has Been Fixed! | Writeini -n $Nick $+ .ini $Nick Attacking no | Halt }
  Notice $nick 9Attack Time Left:15 $duration($timer(Attack $+ $nick).secs))
}
on 1:TEXT:`Cancel:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,Attacking) != Yes) { Notice $nick You Are Not Attacking! | halt }
  if ($readini($nick $+ .ini,$Nick,CantCancel) == Yes) { Notice $nick You Cannot Cancel! | halt }
  Writeini -n $nick $+ .ini $nick Attacking no
  Writeini -n $nick $+ .ini $Poke($Nick) SolarCharge No
  Writeini -n $nick $+ .ini $Poke($Nick) StockPile No
  Writeini -n $nick $+ .ini $Poke($Nick) Charging No
  Writeini -n $nick $+ .ini $Poke($Nick) CDamage 0
  TimerAttack $+ $nick off
  Notice $nick 15You Stopped Your $Pokemon($Nick) $+ 15,1's Attack!
}
on *:text:*`Learn *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%Learning != $nick) { Notice $nick Sorry You Are Not Learning A Move. | halt }  
  if (%Learn. [ $+ [ $nick ] ] != $2) { Notice $nick Sorry But $3 Is Not The Move Your Learning! | halt }  
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,$3,32) == $true) {
    writeini $Nick $+ .ini Learned %MoveLearning Yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 $2 }  
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 $2 }  
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 $2 }  
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 $2 }  
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Unset %Learn*
    Unset %Learning
    Unset %ALearn
    Unset %MoveLearning
    Unset %Attacks
    Msg %ChanSet $Pokemon($Nick) $+ 9,1 Foregot  $+ $3 $+  & Learned 4 $+ $2 $+ 
  }
}
on *:text:*`NotLearn:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%Learning != $nick) { Notice $nick Sorry You Are Not Learning A Move. | halt }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  Unset %Learn*
  Unset %Learning
  Unset %ALearn
  Unset %MoveLearning
  Msg %ChanSet $Pokemon($Nick) $+ 9,1 Did Not Learn a New Move.
}
on 1:TEXT:`Struggle:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($Nick $+ .ini,$Poke($Nick),Paralyzed) != Yes) { Notice $nick Your Pokemon is Not Paralyzed! | halt }
  if ($readini($Nick $+ .ini,$Poke($Nick),Sleeping) == Yes) { Notice $nick Your Pokemon is Sleeping! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
  TimerAttack $+ $nick 1 %Time /Struggle $Nick
  Msg %ChanSet $BName($Nick) $+ 8,1 Struggles to Get Free of Paralyze!
}
on 1:TEXT:`Wake Up:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($Nick $+ .ini,$Poke($Nick),Sleeping) != Yes) { Notice $nick Your Pokemon is not Sleeping! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
  TimerAttack $+ $nick 1 %Time /Wake $Nick
  Msg %ChanSet $Name($Nick) $+ 0,1 Tells his $Pokemon($Nick) $+ 0,1 to Wake Up!
}
on 1:TEXT:`Scratch*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Scratch
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Scratch
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Horn-Attack*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Horn-Attack
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Horn-Attack
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Stomp*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Stomp
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Stomp
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Horn-Drill*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Horn-Drill
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Horn-Drill
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Towards $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Fissure*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Fissure
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Fissure
    Msg %ChanSet $BName($Nick) $+ 5,1 Walks Towards $BName($2) $+ 5,1!
  }
}
on 1:TEXT:`Thrash*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Thrash
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6.3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Thrash
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Towards $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Thunder-Wave*:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Thunder-Wave
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Thunder-Wave
    Msg %ChanSet $BName($Nick) $+ 8,1 Charges Electricity at $BName($2) $+ 8,1!
  }
}
on 1:TEXT:`Pound*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Pound
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Pound
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Splash*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Splash
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Splash
    Msg %ChanSet $BName($Nick) $+ 0,1 Gets ready to Splash $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Slash*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Slash
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Slash
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Swift*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Swift
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Swift
    Msg %ChanSet $BName($Nick) $+ 0,1 Charges Stars at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Tackle*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Tackle
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Tackle
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Poison-Sting*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Poison-Sting
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Poison-Sting
    Msg %ChanSet $BName($Nick) $+ 6,1 Charges a Sharp Needle at $BName($2) $+ 6,1!
  }
}
on 1:TEXT:`Smog*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Smog
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Smog
    Msg %ChanSet $BName($Nick) $+ 6,1 Starts to Create Gas $BName($2) $+ 6,1!
  }
}
on 1:TEXT:`Acid-Armor:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Acid-Armor
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Acid-Armor
    Msg %ChanSet $BName($Nick) $+ 11,1 Starts to Shine with Purple Light!
  }
}
on 1:TEXT:`Acid*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Acid
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Acid
    Msg %ChanSet $BName($Nick) $+ 6,1 Charges Acid at $BName($2) $+ 6,1!
  }
}
on 1:TEXT:`Slam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Slam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.1 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Slam
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Bide*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Bide
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 10 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Bide
    Msg %ChanSet $BName($Nick) $+ 0,1 Curls up and Looks at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`BodySlam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack BodySlam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 BodySlam
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Lick*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Lick
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Lick
    Msg %ChanSet $BName($Nick) $+ 2,1 Sticks its tongue at $BName($2) $+ 2,1!
  }
}
on 1:TEXT:`Spite*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Spite
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Spite
    Msg %ChanSet $BName($Nick) $+ 2,1 Begins to do Spite at $BName($2) $+ 2,1!
  }
}
on 1:TEXT:`TakeDown*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($nick $+ .ini,$Poke($nick),Hp) <= 60) { Notice $nick You Cant, You Will Die! | halt }
  Set %Attack TakeDown
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 TakeDown
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Hyper-Fang*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Hyper-Fang
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Hyper-Fang
    Msg %ChanSet $BName($Nick) $+ 0,1 Jumps at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Poison-Fang*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Poison-Fang
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Poison-Fang
    Msg %ChanSet $BName($Nick) $+ 6,1's Fangs Start to Drip With Poison, Facing $BName($2) $+ 6,1!
  }
}
on 1:TEXT:`Super-Fang*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Super-Fang
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Super-Fang
    Msg %ChanSet $BName($Nick) $+ 0,1 Jumps at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Fury-Attack*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Fury-Attack
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.1 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Fury-Attack
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Spike-Cannon*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Spike-Cannon
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Spike-Cannon
    Msg %ChanSet $BName($Nick) $+ 0,1 Charges its Spike Cannon at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Fury-Swipes*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Fury-Swipes
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Fury-Swipes
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`False-Swipe*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack False-Swipe
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 False-Swipe
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Fury-Cutter*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Fury-Cutter
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Fury-Cutter
    Msg %ChanSet $BName($Nick) $+ 3,1 Runs Toward $BName($2) $+ 3,1!
  }
}
on 1:TEXT:`Quick-Attack*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Quick-Attack
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Quick-Attack
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`ExtremeSpeed*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack ExtremeSpeed
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 ExtremeSpeed
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Towards $BName($2) $+ 0,1 at Very High Speeds!
  }
}
on 1:TEXT:`Bite*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Bite
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Bite
    Msg %ChanSet $BName($Nick) $+ 14,1 Dashes Towards $BName($2) $+ 14,1!
  }
}
on 1:TEXT:`Astonish*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Astonish
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.1 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Astonish
    Msg %ChanSet $BName($Nick) $+ 2,1 Gets ready todo Astonish to $BName($2) $+ 2,1!
  }
}
on 1:TEXT:`Low-Kick*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Low-Kick
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Low-Kick
    Msg %ChanSet $BName($Nick) $+ 7,1 Gets on $PGender($1) Knees facing $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Karate-Chop*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Karate-Chop
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Karate-Chop
    Msg %ChanSet $BName($Nick) $+ 7,1 Raises $PGender($1) Right Hand, Opening it at $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Faint-Attack*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Faint-Attack
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Faint-Attack
    Msg %ChanSet $BName($Nick) $+ 14,1 Turns around & Bends over, Luring $BName($2) $+ 14,1!
  }
}
on 1:TEXT:`Pin-Missile*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Pin-Missile
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Pin-Missile
    Msg %ChanSet $BName($Nick) $+ 3,1 Charges Pin Missiles at $BName($2) $+ 3,1!
  }
}
on 1:TEXT:`Pursuit*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Pursuit
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Pursuit
    Msg %ChanSet $BName($Nick) $+ 14,1 Dashes Towards $BName($2) $+ 14,1!
  }
}
on 1:TEXT:`Crunch*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Crunch
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Crunch
    Msg %ChanSet $BName($Nick) $+ 14,1 Dashes Towards $BName($2) $+ 14,1!
  }
}
on 1:TEXT:`RapidSpin*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack RapidSpin
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 RapidSpin
    Msg %ChanSet $BName($Nick) $+ 0,1 Spins Around at High Speeds at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`NightShade*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack NightShade
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 NightShade
    Msg %ChanSet $BName($Nick) $+ 2,1 Prepares to do NightShade at $BName($2) $+ 2,1!
  }
}
on 1:TEXT:`Dream-Eater*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Sleeping) != Yes) { Notice $nick This Move Will not Effect $2 because $2 is not Sleeping! | halt }
  Set %Attack Dream-Eater
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Dream-Eater
    Msg %ChanSet $BName($Nick) $+ 13,1 Prepares to Eat $BName($2) $+ 13,1's Dreams!
  }
}
on 1:TEXT:`Growl*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Attack) <= 5) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Growl
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Growl
    Msg %ChanSet $BName($Nick) $+ 0,1 Stares at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Charm*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Attack) <= 5) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Charm
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Charm
    Msg %ChanSet $BName($Nick) $+ 0,1 Flirts with $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Sand-Attack*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Accuracy) <= 5) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Sand-Attack
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Sand-Attack
    Msg %ChanSet $BName($Nick) $+ 7,1 Looks for Sand $BName($2) $+ 7,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Mud-Slap*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Accuracy) <= 5) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Mud-Slap
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Mud-Slap
    Msg %ChanSet $BName($Nick) $+ 7,1 Looks for Mud, while facing $BName($2) $+ 7,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`TailWhip*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Defense) <= 5) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack TailWhip
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 TailWhip
    Msg %ChanSet $BName($Nick) $+ 0,1 Wags Tail at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Foresight*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Foresight
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Foresight
    Msg %ChanSet $BName($Nick) $+ 0,1 Focuses on $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Odor-Sleuth*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Odor-Sleuth
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Odor-Sleuth
    Msg %ChanSet $BName($Nick) $+ 0,1 Focuses on $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Leer*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Defense) <= 10) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Leer
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Leer
    Msg %ChanSet $BName($Nick) $+ 0,1's Eyes Glow at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Tickle*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Defense) <= 10) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Attack) <= 10) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Tickle
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Tickle
    Msg %ChanSet $BName($Nick) $+ 0,1 Grins at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Future-Sight*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($timer(Future $+ $2).secs != $null) { Notice $nick $2 is Already Being Future Sighted | halt }
  Set %Attack Future-Sight
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Future-Sight
    Msg %ChanSet $BName($Nick) $+ 13,1's Eyes Glow at $BName($2) $+ 13,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Kinesis*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Agility) <= 10) { Notice $nick $BName($2) $+ 13,1 Will not be Affected! | halt }
  Set %Attack Kinesis
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Kinesis
    Msg %ChanSet $BName($Nick) $+ 13,1's Eyes Glow at $BName($2) $+ 13,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Disable*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Disabled) == Yes) { Notice $nick $BName($2) $+ 13,1 Already has Had One of Its Moves Disabled!! | halt }
  Set %Attack Disable
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Disable
    Msg %ChanSet $BName($Nick) $+ 13,1's Eyes Glow at $BName($2) $+ 13,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Screech*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Defense) <= 10) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Screech
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Screech
    Msg %ChanSet $BName($Nick) $+ 0,1 Grinds its Teeth at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Metal-Sound*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Defense) <= 10) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Metal-Sound
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Metal-Sound
    Msg %ChanSet $BName($Nick) $+ 15,1 Grinds its Metal Parts at $BName($2) $+ 15,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Bind*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Bind) == Yes) { Notice $nick $BName($2) $+ 15,1 is Already Binded! | halt }
  Set %Attack Bind
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Bind
    Msg %ChanSet $BName($Nick) $+ 0,1 Flings at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Constrict*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Constrict) == Yes) { Notice $nick $BName($2) $+ 15,1 is Already Constricted! | halt }
  Set %Attack Constrict
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Constrict
    Msg %ChanSet $BName($Nick) $+ 0,1 Flings at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Wrap*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Bind) == Yes) { Notice $nick $BName($2) $+ 15,1 is Already Binded! | halt }
  Set %Attack Wrap
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Wrap
    Msg %ChanSet $BName($Nick) $+ 0,1 Flings at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`SuperSonic*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Bind) == Yes) { Notice $nick $BName($2) $+ 15,1 is Already Binded! | halt }
  Set %Attack SuperSonic
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 SuperSonic
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to do Super Sonic at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Sand-Tomb*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Tomb) == Yes) { Notice $nick $BName($2) $+ 15,1 is Already Tombed! | halt }
  Set %Attack Sand-Tomb
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Sand-Tomb
    Msg %ChanSet $BName($Nick) $+ 7,1 Focus's on the Ground, Aiming it at $BName($2) $+ 7,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Ember*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Ember
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Ember
    Msg %ChanSet $BName($Nick) $+ 4,1 Blazes with Fire At $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`Blaze-Kick*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Blaze-Kick
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Blaze-Kick
    Msg %ChanSet $BName($Nick) $+ 4,1 Blazes with Fire At $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`Flame-Wheel*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Flame-Wheel
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Flame-Wheel
    Msg %ChanSet $BName($Nick) $+ 4,1 Blazes with Fire At $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`Thunder-Shock*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Thunder-Shock
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Thunder-Shock
    Msg %ChanSet $BName($Nick) $+ 8,1 Charges Electricity at $BName($2) $+ 8,1!
  }
}
on 1:TEXT:`Thunder-Bolt*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Thunder-Bolt
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Thunder-Bolt
    Msg %ChanSet $BName($Nick) $+ 8,1 Charges Electricity at $BName($2) $+ 8,1!
  }
}
on 1:TEXT:`Thunder*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Thunder
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Thunder
    Msg %ChanSet $BName($Nick) $+ 8,1 Charges Electricity at $BName($2) $+ 8,1!
  }
}
on 1:TEXT:`Confusion*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Confusion
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Confusion
    Msg %ChanSet $BName($Nick) $+ 13,1's Eyes turn white at $BName($2) $+ 13,1!
  }
}
on 1:TEXT:`PsyBeam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack PsyBeam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 PsyBeam
    Msg %ChanSet $BName($Nick) $+ 13,1's Charges PsyBeam at $BName($2) $+ 13,1!
  }
}
on 1:TEXT:`Psychic*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Psychic
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Psychic
    Msg %ChanSet $BName($Nick) $+ 13,1's Prepares Psychic at $BName($2) $+ 13,1!
  }
}
on 1:TEXT:`Rock-Throw*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Rock-Throw
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Rock-Throw
    Msg %ChanSet $BName($Nick) $+ 5,1 Picks up a Rock and Aims it at $BName($2) $+ 5,1!
  }
}
on 1:TEXT:`Rock-Blast*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Rock-Blast
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Rock-Blast
    Msg %ChanSet $BName($Nick) $+ 5,1 Picks up a couple of Rocks and Aims it at $BName($2) $+ 5,1!
  }
}
on 1:TEXT:`Iron-Tail*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Iron-Tail
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Iron-Tail
    Msg %ChanSet $BName($Nick) $+ 15,1's Tail begins to Glow Silver at $BName($2) $+ 15,1!
  }
}
on 1:TEXT:`Gust*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Gust
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Gust
    Msg %ChanSet $BName($Nick) $+ 10,1 Flaps its Wings at $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Aerial-Ace*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Aerial-Ace
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Aerial-Ace
    Msg %ChanSet $BName($Nick) $+ 10,1 Flys Around $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Peck*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Peck
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Peck
    Msg %ChanSet $BName($Nick) $+ 10,1 Flys Around $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Drill-Peck*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Drill-Peck
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Drill-Peck
    Msg %ChanSet $BName($Nick) $+ 10,1 Flys Around $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Bubble*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Bubble
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Bubble
    Msg %ChanSet $BName($Nick) $+ 11,1 Starts to Create a Bubble at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`VineWhip*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack VineWhip
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 VineWhip
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Grow Vines at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`Shadow-Punch*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Shadow-Punch
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Shadow-Punch
    Msg %ChanSet $BName($Nick) $+ 2,1 Starts to Create Shadows At $BName($2) $+ 2,1!
  }
}
on 1:TEXT:`Absorb*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Absorb
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Absorb
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Glow at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`MegaDrain*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack MegaDrain
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 MegaDrain
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Glow at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`Leech-Life*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Leech-Life
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Leech-Life
    Msg %ChanSet $BName($Nick) $+ 3,1 Goes to Grab $BName($2) $+ 3,1!
  }
}
on 1:TEXT:`GigaDrain*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack GigaDrain
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 GigaDrain
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Glow at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`PetalDance*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack PetalDance
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 PetalDance
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Dance $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`LeechSeed*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack LeechSeed
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 LeechSeed
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Create a Seed at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`SmokeScreen*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack SmokeScreen
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 SmokeScreen
    Msg %ChanSet $BName($Nick) $+ 0,1 Stares at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`PoisonPowder*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Poisoned) == yes) { Notice $Nick $2 Is Already Poisoned! | halt }
  Set %Attack PoisonPowder
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 PoisonPowder
    Msg %ChanSet $BName($Nick) $+ 6,1 Starts to Create Powder at $BName($2) $+ 6,1!
  }
}
on 1:TEXT:`Stun-Spore*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Notice $Nick $2 Is Already Paralyzed! | halt }
  Set %Attack Stun-Spore
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Stun-Spore
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Create Powder at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`Cotton-Spore*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Notice $Nick $2 Is Already Paralyzed! | halt }
  Set %Attack Cotton-Spore
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Cotton-Spore
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Create Powder at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`Glare*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Notice $Nick $2 Is Already Paralyzed! | halt }
  Set %Attack Glare
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Glare
    Msg %ChanSet $BName($Nick) $+ 0,1 Stares at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`SleepPowder*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Notice $Nick $2 Is Already Sleeping! | halt }
  Set %Attack SleepPowder
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 SleepPowder
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Create Powder at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`Confuse-Ray*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Notice $Nick $2 Is Already Confused! | halt }
  Set %Attack Confuse-Ray
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Confuse-Ray
    Msg %ChanSet $BName($Nick) $+ 2,1 Charges a Ray at $BName($2) $+ 2,1!
  }
}
on 1:TEXT:`Hypnosis*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Notice $Nick $2 Is Already Sleeping! | halt }
  Set %Attack Hypnosis
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Hypnosis
    Msg %ChanSet $BName($Nick) $+ 13,1 Charges a Ray at $BName($2) $+ 13,1!
  }
}
on 1:TEXT:`Sing*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Notice $Nick $2 Is Already Sleeping! | halt }
  Set %Attack Sing
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Sing
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to Sing to $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Will-o-Wisp*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Burned) == yes) { Notice $Nick $2 Is Already Burned! | halt }
  Set %Attack Will-o-Wisp
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Will-o-Wisp
    Msg %ChanSet $BName($Nick) $+ 4,1 Charges with Fire at $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`Mean-Look*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$2,CantRun) == yes) { Notice $Nick $2 Cant Run, Already! | halt }
  Set %Attack Mean-Look
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Mean-Look
    Msg %ChanSet $BName($Nick) $+ 0,1 Makes Faces at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Imprison*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$2,CantRun) == yes) { Notice $Nick $2 Cant Run, Already! | halt }
  Set %Attack Imprison
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Imprison
    Msg %ChanSet $BName($Nick) $+ 13,1 Gets ready to do Imprison to $BName($2) $+ 13,1!
  }
}
on 1:TEXT:`Flatter*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Notice $Nick $2 Is Already Confused! | halt }
  Set %Attack Flatter
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Flatter
    Msg %ChanSet $BName($Nick) $+ 14,1 Gets ready to do Flatter at $BName($2) $+ 14,1!
  }
}
on 1:TEXT:`Sweet-Kiss*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Notice $Nick $2 Is Already Confused! | halt }
  Set %Attack Sweet-Kiss
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Sweet-Kiss
    Msg %ChanSet $BName($Nick) $+ 0,1 Gets Ready to Kiss $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Curse*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Cursed) == yes) { Notice $Nick $2 Is Already Cursed! | halt }
  Set %Attack Curse
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Curse
    Msg %ChanSet $BName($Nick) $+ 2,1 Gets ready to give $BName($2) $+ 2,1 Curse!
  }
}
on 1:TEXT:`SweetScent*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack SweetScent
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 SweetScent
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to Create Powder at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Rage*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Rage
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Rage
    Msg %ChanSet $BName($Nick) $+ 0,1 Gets Ready to use Rage at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`ScaryFace*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack ScaryFace
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 ScaryFace
    Msg %ChanSet $BName($Nick) $+ 0,1 Stares at $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`FlameThrower*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack FlameThrower
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 FlameThrower
    Msg %ChanSet $BName($Nick) $+ 4,1 Blazes with Fire At $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`BlastBurn*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack BlastBurn
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 BlastBurn
    Msg %ChanSet $BName($Nick) $+ 4,1 Charges Fire in its Mouth at $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`WaterGun*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack WaterGun
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 WaterGun
    Msg %ChanSet $BName($Nick) $+ 11,1 Charges Water at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`Bubble-Beam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Bubble-Beam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Bubble-Beam
    Msg %ChanSet $BName($Nick) $+ 11,1 Charges Water at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`Muddy-Water*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Muddy-Water
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Muddy-Water
    Msg %ChanSet $BName($Nick) $+ 11,1 Dips Mud in Water $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`SkullBash*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack SkullBash
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 SkullBash
    Msg %ChanSet $BName($Nick) $+ 0,1 Tucks $PGender($Nick) Head at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Double-Kick*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Double-Kick
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Double-Kick
    Msg %ChanSet $BName($Nick) $+ 7,1 Jumps at $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Sky-Uppercut*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Sky-Uppercut
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Sky-Uppercut
    Msg %ChanSet $BName($Nick) $+ 7,1 Dashes Towards $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Endeavor*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Endeavor
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Endeavor
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Towards $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Flail*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Flail
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Flail
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Towards $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Double-Edge*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Double-Edge
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Double-Edge
    Msg %ChanSet $BName($Nick) $+ 0,1 Dashes Towards $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`RazorLeaf*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack RazorLeaf
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 RazorLeaf
    Msg %ChanSet $BName($Nick) $+ 9,1 Sharpens Leafs at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`LeafBlade*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack LeafBlade
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.1 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 LeafBlade
    Msg %ChanSet $BName($Nick) $+ 9,1 Sharpens Giant Leaf at $BName($2) $+ 9,1!
  }
}
on 1:TEXT:`HydroPump*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack HydroPump
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 HydroPump
    Msg %ChanSet $BName($Nick) $+ 11,1 Charges Massive Amounts of Water at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`HyperBeam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack HyperBeam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 HyperBeam
    Msg %ChanSet $BName($Nick) $+ 0,1 Charges Massive Amounts of Energy at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`EarthQuake*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack EarthQuake
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 EarthQuake
    Msg %ChanSet $BName($Nick) $+ 7,1 Raises $PGender($Nick) Foot Up and looks at $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Twineedle*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Twineedle
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Twineedle
    Msg %ChanSet $BName($Nick) $+ 3,1 Dashes Towards $BName($2) $+ 3,1!
  }
}
on 1:TEXT:`MegaHorn*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack MegaHorn
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 8.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 MegaHorn
    Msg %ChanSet $BName($Nick) $+ 3,1 Dashes Towards $BName($2) $+ 3,1!
  }
}
on 1:TEXT:`FireSpin*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack FireSpin
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 FireSpin
    Msg %ChanSet $BName($Nick) $+ 4,1 Charges Massive Amounts of Fire at $BName($2) $+ 4,1!
  }
}
on 1:TEXT:`AuroraBeam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack AuroraBeam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 AuroraBeam
    Msg %ChanSet $BName($Nick) $+ 11,1 Charges Aurora Beam at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`IceBeam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack IceBeam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 IceBeam
    Msg %ChanSet $BName($Nick) $+ 11,1 Charges Ice Beam at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`WingAttack*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack WingAttack
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 WingAttack
    Msg %ChanSet $BName($Nick) $+ 10,1 Starts to Fly and Dashes Towards $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Air-Cutter*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Air-Cutter
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Air-Cutter
    Msg %ChanSet $BName($Nick) $+ 10,1 Starts to Flap its Wings At $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Slash*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Slash
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.8 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Slash
    Msg %ChanSet $BName($Nick) $+ 0,1 Runs Toward $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`DragonRage*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack DragonRage
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 DragonRage
    Msg %ChanSet $BName($Nick) $+ 12,1 Dashes Toward $BName($2) $+ 12,1!
  }
}
on 1:TEXT:`OutRage*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack OutRage
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 OutRage
    Msg %ChanSet $BName($Nick) $+ 12,1 Gets Ready to do OutRage to $BName($2) $+ 12,1!
  }
}
on 1:TEXT:`Twister*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Twister
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Twister
    Msg %ChanSet $BName($Nick) $+ 12,1 Dashes Toward $BName($2) $+ 12,1!
  }
}
on 1:TEXT:`Perish-Song*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Perish-Song
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Perish-Song
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to Sing to $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`Sheer-Cold*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Sheer-Cold
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Sheer-Cold
    Msg %ChanSet $BName($Nick) $+ 11,1 Blows out Coldness from $PGender($Nick) Mouth at $BName($2) $+ 11,1!
  }
}
on 1:TEXT:`Seismic-Toss*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Seismic-Toss
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Seismic-Toss
    Msg %ChanSet $BName($Nick) $+ 7,1 Picks up $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Revenge*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Revenge
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Revenge
    Msg %ChanSet $BName($Nick) $+ 7,1 Curls Up and Stares at $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Vital-Throw*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Vital-Throw
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Vital-Throw
    Msg %ChanSet $BName($Nick) $+ 7,1 Runs Towards $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Cross-Chop*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Cross-Chop
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Cross-Chop
    Msg %ChanSet $BName($Nick) $+ 7,1 Stands Still Facing $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Submission*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Submission
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Submission
    Msg %ChanSet $BName($Nick) $+ 7,1 Blunty Runs Towards $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Dynamic-Punch*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Dynamic-Punch
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Dynamic-Punch
    Msg %ChanSet $BName($Nick) $+ 7,1 Clenches its Fist at $BName($2) $+ 7,1!
  }
}
on 1:TEXT:`Growth:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Growth
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 1.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Growth
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to Grow!
  }
}
on 1:TEXT:`Synthesis:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Synthesis
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.9 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Synthesis
    Msg %ChanSet $BName($Nick) $+ 3,1 Begins to Shine!
  }
}
on 1:TEXT:`Moonlight:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Moonlight
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Moonlight
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to Shine!
  }
}
on 1:TEXT:`Morning-Sun:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Morning-Sun
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Morning-Sun
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to Shine!
  }
}
on *:text:`Charge SolarBeam:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Charging) == yes) { Notice $nick Your Already Charging! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  Set %Attack SolarBeam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    writeini $nick $+ .ini $Poke($Nick) SolarCharge Yes
    writeini $nick $+ .ini $Poke($Nick) Charging Yes
    writeini $nick $+ .ini $Poke($Nick) CDamage 0
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 0.75 ),0)
    TimerAttack $+ $nick 30 %Time /CSolarBeam $nick $2
    Msg %ChanSet $BName($Nick) $+ 9,1 Starts to Charge up a Solar Beam!
  }
}
on 1:TEXT:`SolarBeam*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),SolarCharge) != yes) { Notice $nick Your Are Not Charging a Solar Beam! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),CDamage) < 50) { Notice $nick You Cant Fire Yet! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack SolarBeam
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Writeini -n $nick $+ .ini $Poke($Nick) SolarCharge No
    Writeini -n $nick $+ .ini $Poke($Nick) Charging No
    GatheringInfo $Nick $2 SolarBeam
  }
}
on 1:TEXT:`Withdraw:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Withdraw
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    set %Defense $Round( $calc( $readini($nick $+ .ini,$Poke($nick),MDefense) * 0.25 ),0)
    writeini $nick $+ .ini $Poke($nick) Defense $calc($readini($nick $+ .ini,$Poke($nick),Defense) + %Defense)
    Writeini -n $nick $+ .ini $nick CantCancel Yes
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Withdraw
    Msg %ChanSet $BName($Nick) $+ 11,1 Goes into $PGender($Nick) Shell, Gaining %Defense Defense!
  }
}
on 1:TEXT:`Defense-Curl:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Defense-Curl
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    set %Defense $Round( $calc( $readini($nick $+ .ini,$Poke($nick),MDefense) * 0.30 ),0)
    writeini $nick $+ .ini $Poke($nick) Defense $calc($readini($nick $+ .ini,$Poke($nick),Defense) + %Defense)
    Writeini -n $nick $+ .ini $nick CantCancel Yes
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Defense-Curl
    Msg %ChanSet $BName($Nick) $+ 0,1 Curls into a Ball Gaining %Defense Defense!
  }
}
on 1:TEXT:`Protect:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Protect
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    writeini $nick $+ .ini $Poke($nick) Dodge Yes
    Writeini -n $nick $+ .ini $nick CantCancel Yes
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Protect
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to Protect Itself.
  }
}
on 1:TEXT:`RainDance:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini(Weather $+ .ini,Weather,Raining) == Yes) { Notice $nick Its Already Raining! | halt }
  Set %Attack RainDance
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey RainDance
    Msg %ChanSet $BName($Nick) $+ 11,1 Starts to Dance!
  }
}
on 1:TEXT:`SandStorm:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini(Weather $+ .ini,Weather,SandStorm) == Yes) { Notice $nick Its Already a SandStorm! | halt }
  Set %Attack SandStorm
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey SandStorm
    Msg %ChanSet $BName($Nick) $+ 5,1 Lets Out a Loud Roar and then start to Spin Around!
  }
}
on 1:TEXT:`WhirlWind*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack WhirlWind
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 WhirlWind
    Msg %ChanSet $BName($Nick) $+ 10,1 Starts to Flap its Wings at $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Roar*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Roar
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Roar
    Msg %ChanSet $BName($Nick) $+ 0,1 Looks at $BName($2) $+ 0,1!
  }
}
on 1:TEXT:`FeatherDance*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Attack) <= 15) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack FeatherDance
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 FeatherDance
    Msg %ChanSet $BName($Nick) $+ 10,1 Stares at $BName($2) $+ 10,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Helping-Hand*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),Attack) <= 15) { Notice $nick $BName($2) $+ 15,1 Will not be Affected! | halt }
  Set %Attack Helping-Hand
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Helping-Hand
    Msg %ChanSet $BName($Nick) $+ 0,1 Approaches $BName($2) $+ 0,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Agility:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($Nick $+ .ini,$Poke($Nick),FSpeed) >= 7) { Notice $nick You May Longer Raise Your Speed! | halt }
  Set %Attack Agility
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Agility
    Msg %ChanSet $BName($Nick) $+ 13,1 Starts to Focus on Speed!
  }
}
on 1:TEXT:`DragonDance:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($Nick $+ .ini,$Poke($Nick),FSpeed) >= 7) { Notice $nick You May Longer Raise Your Speed! | halt }
  Set %Attack DragonDance
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey DragonDance
    Msg %ChanSet $BName($Nick) $+ 12,1 Begins to Dance!
  }
}
on 1:TEXT:`Haze:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($Nick $+ .ini,$Poke($Nick),FSpeed) >= 7) { Notice $nick You May Longer Raise Your Speed! | halt }
  Set %Attack Haze
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Haze
    Msg %ChanSet $BName($Nick) $+ 11,1 Starts to Focus on its Status Abnormalities!
  }
}
on 1:TEXT:`Harden:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Harden
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Harden
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to Shine!
  }
}
on 1:TEXT:`Detect:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Detect
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Writeini -n $nick $+ .ini $nick CantCancel Yes
    Writeini -n $nick $+ .ini $Poke($nick) Dodge Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Detect
    Msg %ChanSet $BName($Nick) $+ 7,1 Focuses On The Enemy!
  }
}
on 1:TEXT:`Calm-Mind:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Calm-Mind
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Calm-Mind
    Msg %ChanSet $BName($Nick) $+ 13,1 Begins to Focus!
  }
}
on 1:TEXT:`BulkUp:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack BulkUp
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey BulkUp
    Msg %ChanSet $BName($Nick) $+ 13,1 Begins to Focus!
  }
}
on 1:TEXT:`Cosmic-Power:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Cosmic-Power
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Cosmic-Power
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to Shine!
  }
}
on 1:TEXT:`Light-Screen:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($nick),LScreen) == Yes) { Notice $nick You Already Have Light Screen on! | halt }
  Set %Attack Light-Screen
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Light-Screen
    Msg %ChanSet $BName($Nick) $+ 13,1 Starts To Make a Screen!
  }
}
on 1:TEXT:`Reflect:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($nick),Reflect) == Yes) { Notice $nick You Already Have Reflect on! | halt }
  Set %Attack Reflect
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Reflect
    Msg %ChanSet $BName($Nick) $+ 13,1 Starts To Make a Screen!
  }
}
on 1:TEXT:`Double-Team:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Double-Team
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Double-Team
    Msg %ChanSet $BName($Nick) $+ 0,1 Moves Around Really Fast!
  }
}
on 1:TEXT:`SafeGaurd:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),SafeGaurd) == Yes) { Notice $nick You Are Safe Gaurding already! | halt }
  Set %Attack SafeGaurd
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey SafeGaurd
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to SafeGaurd!
  }
}
on 1:TEXT:`Grudge:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Grudge) == Yes) { Notice $nick You Are Grudged already! | halt }
  Set %Attack Grudge
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Grudge
    Msg %ChanSet $BName($Nick) $+ 2,1 Begins to Grudge!
  }
}
on 1:TEXT:`Endure:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Endure) == Yes) { Notice $nick You Are Endured already! | halt }
  Set %Attack Endure
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 4 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Endure
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to Endure!
  }
}
on 1:TEXT:`Destiny-Bond:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Bond) == Yes) { Notice $nick You Are Bonded already! | halt }
  Set %Attack Destiny-Bond
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 7 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Destiny-Bond
    Msg %ChanSet $BName($Nick) $+ 2,1 Begins to Destiny-Bond!
  }
}
on 1:TEXT:`Haze:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Haze
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Haze
    Msg %ChanSet $BName($Nick) $+ 11,1 Begins to do Haze!
  }
}
on 1:TEXT:`Focus-Energy:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Focus-Energy
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Focus-Energy
    Msg %ChanSet $BName($Nick) $+ 0,1 Begins to Focus!
  }
}
on 1:TEXT:`SilverWind:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack SilverWind
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey SilverWind
    Msg %ChanSet $BName($Nick) $+ 3,1 Slowly Flaps Its Glowing Silver Wings!
  }
}
on 1:TEXT:`AncientPower:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack AncientPower
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey AncientPower
    Msg %ChanSet $BName($Nick) $+ 5,1 Starts todo AncientPower!
  }
}
on 1:TEXT:`Recover:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Recover
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 6 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Recover
    Msg %ChanSet $BName($Nick) $+ 0,1 Glows with White Light!
  }
}
on 1:TEXT:`Mist:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Mist
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Mist
    Msg %ChanSet $BName($Nick) $+ 11,1 Starts to Surround $PGender2($Nick) $+ self with mist!
  }
}
on 1:TEXT:`Teleport:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  Set %Attack Teleport
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 2 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick Hey Teleport
    Msg %ChanSet $BName($Nick) $+ 13,1 Prepares to Teleport itself out of Battle!
  }
}
on 1:TEXT:`String-Shot*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),FSpeed) >= 7) { Notice $nick You May Longer Decrease $2 $+ s Speed! | halt }
  Set %Attack String-Shot
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 String-Shot
    Msg %ChanSet $BName($Nick) $+ 3,1 Builds up strings at $BName($2) $+ 3,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Mud-Shot*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  if ($readini($2 $+ .ini,$Poke($2),FSpeed) >= 7) { Notice $nick You May Longer Decrease $2 $+ s Speed! | halt }
  Set %Attack Mud-Shot
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Mud-Shot
    Msg %ChanSet $BName($Nick) $+ 7,1 Looks for Mud, while facing $BName($2) $+ 7,1!
    Unset %Attacks
    Unset %Attack
  }
}
on 1:TEXT:`Mirror-Move*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Mirror-Move
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5.5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Mirror-Move
    Msg %ChanSet $BName($Nick) $+ 10,1 Starts to do Mirror Move at $BName($2) $+ 10,1!
  }
}
on 1:TEXT:`Roleplay*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack Roleplay
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 5 ),0)
    TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick $2 Roleplay
    Msg %ChanSet $BName($Nick) $+ 13,1 Pretends to be $BName($2) $+ 13,1!
  }
}
on *:text:`StockPile:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Charging) == yes) { Notice $nick Your Already Charging! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  Set %Attack StockPile
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    writeini $nick $+ .ini $Poke($Nick) StockPile Yes
    writeini $nick $+ .ini $Poke($Nick) Charging Yes
    writeini $nick $+ .ini $Poke($Nick) CDamage 0
    Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 0.90 ),0)
    TimerAttack $+ $nick 12 %Time /StockPile $nick $2
    Msg %ChanSet $BName($Nick) $+ 0,1 Starts to Save Energy in its Mouth!
  }
}
on 1:TEXT:`Swallow:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == Yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),StockPile) != yes) { Notice $nick Your Not Charging StockPile! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),CDamage) < 15) { Notice $nick You Cant Swallow Yet! | halt }
  Set %Attack Swallow
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    PPCheck $Nick %Attack
    Writeini -n $nick $+ .ini $nick Attacking Yes
    GatheringInfo $Nick Hey Swallow
  }
}
on 1:TEXT:`SpitUp*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($nick == $2) { Notice $nick Dont Abuse Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick Your Not Even Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) != Yes) { Notice $nick $2 Is Not Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),StockPile) != yes) { Notice $nick Your Are Not Charging a StockPile! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),CDamage) < 30) { Notice $nick You Cant Fire Yet! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($2 $+ .ini,$2,field)) { Notice $nick Sorry, $2 Is Somewhere Else! | halt }
  Set %Attack SpitUp
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) == $true) {
    StatusCheck $Nick %Attack $2
    Writeini -n $nick $+ .ini $nick Attacking Yes
    GatheringInfo $Nick $2 SpitUp
  }
}on *:text:`PokeMart:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%EliteBattle = yes) && (%EFighting == $Nick) { Notice $nick You are Fighting Elite 4! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,PokeMart,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a PokeMart! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Shop)
  if (%Town == $Null) { Set %Town None }
  Notice $nick 8Items We Have:15 %Town 8 To Buy: 3`Buy (Item) (Amount)
  Unset %Town
}
on *:text:`Places:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  Notice $nick 8Places To Go $+ %Town
  Unset %Town
}
on *:text:`buy*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%EliteBattle = yes) && (%EFighting == $Nick) { Notice $nick You are Fighting Elite 4! | halt }
  if (%tourneystarted = yes) { halt } 
  if (. isin $3) { Notice $nick Dont Use Decimals! | halt }
  if (- isin $3) { Notice $nick Dont Use -! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Items)
  if ($istok(%Town,$2,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Carry This Item! | halt }
  if ($istok(%Town,$2,32) == $true) {
    Set %3 $3
    if ($3 == $null) { set %3 1 }
    if (%3 !isnum) { set %3 1 }
    Set %Town $readini($nick $+ .ini,Travel,Town)
    Set %ItemPrice $readini(Map $+ .ini,%Town,$2)
    if (Potion == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (SuperPotion == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (HyperPotion == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (Antidote == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (ParaHeal == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (BurnHeal == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (IceHeal == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought $3 $2 $+ (s) for %Price Zenny
    }
    if (Awake == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (Ether == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (PokeBall == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (GreatBall == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought $3 $2 $+ (s) for %Price Zenny
    }
    if (UltraBall == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (GC == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      if ($readini($nick $+ .ini,Items,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (ThunderStone == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (WaterStone == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (LeafStone == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (FireStone == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
    if (RareCandy == $2) {
      set %Price $calc(%3 * %ItemPrice)
      Dec %Price 1
      if ($readini($nick $+ .ini,$nick,money) <= %Price) { Notice $nick Not Enough Money! | halt }
      Inc %Price 1
      writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
      writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
      Notice $nick You Bought %3 $2 $+ (s) for %Price Zenny
    }
  }
  Unset %Price
}
on 1:text:`Use Potion:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,potion) <= 0) { Notice $nick You Dont Have Potions! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Hp $calc($readini($nick $+ .ini,$Poke($Nick),Hp) + 20)
  Writeini -n $nick $+ .ini Items Potion $calc($readini($nick $+ .ini,Items,Potion) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses Potion On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Healing Its Hp By 20
  if ($Stat($nick,Hp) > $Stat($nick,MHp)) { writeini $Nick $+ .ini $Poke($Nick) Hp $Stat($nick,MHp) }
}
on 1:text:`Use SuperPotion:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,SuperPotion) <= 0) { Notice $nick You Dont Have Super Potions! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Hp $calc($readini($nick $+ .ini,$Poke($Nick),Hp) + 50)
  Writeini -n $nick $+ .ini Items SuperPotion $calc($readini($nick $+ .ini,Items,SuperPotion) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses Super Potion On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Healing Its Hp By 50
  if ($Stat($nick,Hp) > $Stat($nick,MHp)) { writeini $Nick $+ .ini $Poke($Nick) Hp $Stat($nick,MHp) }
}
on 1:text:`Use HyperPotion:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,HyperPotion) <= 0) { Notice $nick You Dont Have Hyper Potions! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Hp $calc($readini($nick $+ .ini,$Poke($Nick),Hp) + 200)
  Writeini -n $nick $+ .ini Items HyperPotion $calc($readini($nick $+ .ini,Items,HyperPotion) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses Hyper Potion On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Healing Its Hp By 200
  if ($Stat($nick,Hp) > $Stat($nick,MHp)) { writeini $Nick $+ .ini $Poke($Nick) Hp $Stat($nick,MHp) }
}
on 1:text:`Use Antidote:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,Antidote) <= 0) { Notice $nick You Dont Have Antidotes! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Poisoned) != Yes) { Notice $nick $Poke($Nick) is not Poisoned! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Poisoned No
  Writeini -n $nick $+ .ini Items Antidote $calc($readini($nick $+ .ini,Items,Antidote) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses Antidote On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Curing it of Poison!
}
on 1:text:`Use BurnHeal:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,BurnHeal) <= 0) { Notice $nick You Dont Have BurnHeals! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Burned) != Yes) { Notice $nick $Poke($Nick) is not Burned! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Burned No
  Writeini -n $nick $+ .ini Items BurnHeal $calc($readini($nick $+ .ini,Items,BurnHeal) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses BurnHeal On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Curing it of Burn!
}
on 1:text:`Use IceHeal:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,IceHeal) <= 0) { Notice $nick You Dont Have IceHeals! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Iced) != Yes) { Notice $nick $Poke($Nick) is not Iced! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Iced No
  Writeini -n $nick $+ .ini Items IceHeal $calc($readini($nick $+ .ini,Items,IceHeal) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses IceHeal On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Curing it of Iced!
}
on 1:text:`Use RareCandy:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Fighting! | halt }
  if ($readini($nick $+ .ini,Items,RareCandy) <= 0) { Notice $nick You Dont Have RareCandies! | halt }
  Writeini -n $nick $+ .ini $Poke($Nick) Exp $Stat($Nick,ExpNeeded)
  Writeini -n $nick $+ .ini Items RareCandy $calc($readini($nick $+ .ini,Items,RareCandy) - 1)
  LvLCheck $Nick
}
on 1:text:`Use Awake:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,Awake) <= 0) { Notice $nick You Dont Have Awakes! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Sleeping) != Yes) { Notice $nick $Poke($Nick) is not Asleep! | halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Writeini -n $nick $+ .ini $Poke($Nick) Sleeping No
  Writeini -n $nick $+ .ini Items Awake $calc($readini($nick $+ .ini,Items,Awake) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses Awake On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Curing it of Sleep!
}
on 1:text:`Use Ether*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,Ether) <= 0) { Notice $nick You Dont Have Ethers! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,$3,32) == $False) { Notice $Nick $3 is not a Move You Have! | Halt }
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Writeini -n $nick $+ .ini $nick CantCancel Yes
  TimerAttack $+ $nick 1 $rand(10,15) /AttackAgain $nick
  Set %Move $3 $+ PP
  Set %Move2 $3 $+ MPP
  writeini $Nick $+ .ini $Poke($Nick) %Move $calc($readini($nick $+ .ini,$Poke($Nick),%Move) + 10)
  Writeini -n $nick $+ .ini Items Ether $calc($readini($nick $+ .ini,Items,Ether) - 1)
  Msg %ChanSet $Name($Nick) $+ 0,1 Uses Ether On $Gender($Nick) $Pokemon($Nick) $+ 0,1 Attack 7' $+ $3 $+ 7'0 Making it Gain 10 PP!
  if ($readini($nick $+ .ini,$Poke($Nick),%Move) > $readini($nick $+ .ini,$Poke($Nick),%Move2)) { writeini $Nick $+ .ini $Poke($Nick) %Move $readini($nick $+ .ini,$Poke($Nick),%Move2) }
  Unset %Move
  Unset %Move2
}
on 1:text:`Throw PokeBall*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,items,PokeBall) <= 0) { Notice $nick You Dont Have The Balls, PokeBalls! | halt }
  if ($readini($nick $+ .ini,$nick,Party) == 6) { Notice $nick Your Party Is Full! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick You Are Not Fighting! | halt }
  if ($readini($3 $+ .ini,$3,Fighting) != Yes) { Notice $nick $3 Is not Fighting! | halt }
  if ($readini($nick $+ .ini,$3,Pokemon) != $Null) { Notice $nick You have Already Caught $3 $+ ! | halt }
  if ($readini($3 $+ .ini,$3,WNpc) != Yes) { Notice $nick $3 is Not a Wild Pokemon! | Halt }
  if ($readini($3 $+ .ini,$3,Type) == Ghost) && ($readini($nick $+ .ini,Items,SilphScope) != Yes) { Notice $nick You Cannot Catch a Ghost Pokemon with $2 $+ ! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($3 $+ .ini,$3,field)) { Notice $nick You Cannot! You are Somewhere Else! | halt }
  if ($readini($3 $+ .ini,$3,Hp) <= 1) { goto Catch }
  Writeini $nick $+ .ini Items PokeBall $calc($readini($nick $+ .ini,Items,Pokeball) - 1)
  Set %Hit $rand(5,$Stat($3,Hp))
  if (%Hit > 5) { Msg %ChanSet $Name($Nick) $+ 8,1 Throws A Pokeball at $Pokemon($3) $+ 8,1! | Msg %ChanSet $Name($Nick) $+ 8,1 Did Not Catch $Pokemon($3) $+ 8,1! | halt }
  :Catch
  Var %Hp = $readini($3 $+ .ini,$3,MHp)
  Var %SAttack = $readini($3 $+ .ini,$3,MSAttack)
  Var %Attack = $readini($3 $+ .ini,$3,MAttack)
  Var %SDefense = $readini($3 $+ .ini,$3,MSDefense)
  Var %Defense = $readini($3 $+ .ini,$3,MDefense)
  Var %Accuracy = $readini($3 $+ .ini,$3,MAccuracy)
  Var %Agility = $readini($3 $+ .ini,$3,MAgility)
  Var %Intelligence = $readini($3 $+ .ini,$3,MIntelligence)
  Var %Speed = $readini($3 $+ .ini,$3,MSpeed)
  Var %FSpeed = $readini($3 $+ .ini,$3,MFSpeed)
  Var %Level = $readini($3 $+ .ini,$3,Level)
  Var %ExpNeeded = $readini($3 $+ .ini,$3,ExpNeeded)
  Var %SExp = $readini($3 $+ .ini,$3,SExp)
  Var %SExpNeeded = $readini($3 $+ .ini,$3,SpeedExpNeeded)
  Var %Type = $readini($3 $+ .ini,$3,Type)
  Var %Type2 = $readini($3 $+ .ini,$3,Type2)
  Var %Aura = $readini($3 $+ .ini,$3,PAura)
  Var %BAura = $readini($3 $+ .ini,$3,PBAura)
  writeini -n $Nick $+ .ini $3 MHp %Hp
  writeini -n $Nick $+ .ini $3 MSAttack %SAttack
  writeini -n $Nick $+ .ini $3 MSDefense %SDefense
  writeini -n $Nick $+ .ini $3 MAttack %Attack
  writeini -n $Nick $+ .ini $3 MDefense %Defense
  writeini -n $Nick $+ .ini $3 MAccuracy %Accuracy
  writeini -n $Nick $+ .ini $3 MAgility %Agility
  writeini -n $Nick $+ .ini $3 MIntelligence %Intelligence
  writeini -n $Nick $+ .ini $3 MSpeed %Speed
  writeini -n $Nick $+ .ini $3 MFSpeed %FSpeed
  writeini -n $Nick $+ .ini $3 Level %Level
  writeini -n $Nick $+ .ini $3 Type %Type
  writeini -n $Nick $+ .ini $3 Type2 %Type2
  Writeini -n $Nick $+ .ini $3 $3 Yes
  writeini -n $Nick $+ .ini $3 Exp 0
  writeini -n $Nick $+ .ini $3 ExpNeeded %ExpNeeded
  writeini -n $Nick $+ .ini $3 SExp %SExp
  writeini -n $Nick $+ .ini $3 SpeedExpNeeded %SExpNeeded
  writeini -n $Nick $+ .ini $3 Aura %Aura
  writeini -n $Nick $+ .ini $3 BAura %bAura
  writeini -n $Nick $+ .ini $3 WantEvolve Yes
  Writeini -n $Nick $+ .ini $3 Pokemon $3
  Writeini -n $Nick $+ .ini Pokemon $3 yes
  Set %Gender $Rand(1,2)
  if (%Gender == 1) { writeini -n $nick $+ .ini $3 Gender Male }
  if (%Gender == 2) { writeini -n $nick $+ .ini $3 Gender Female }
  if ($readini($3 $+ .ini,$Poke($3),Attack1) != None) { Writeini -n $Nick $+ .ini $3 Attack1 $readini($3 $+ .ini,$3,Attack1) | Set %Attack1 $readini($3 $+ .ini,$3,Attack1) | writeini $Nick $+ .ini $3 L $+ %Attack1 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack1) | writeini -n $Nick $+ .ini $3 %Attack1 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack2) != None) { Writeini -n $Nick $+ .ini $3 Attack2 $readini($3 $+ .ini,$3,Attack2) | Set %Attack2 $readini($3 $+ .ini,$3,Attack2) | writeini $Nick $+ .ini $3 L $+ %Attack2 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack2) | writeini -n $Nick $+ .ini $3 %Attack2 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack3) != None) { Writeini -n $Nick $+ .ini $3 Attack3 $readini($3 $+ .ini,$3,Attack3) | Set %Attack3 $readini($3 $+ .ini,$3,Attack3) | writeini $Nick $+ .ini $3 L $+ %Attack3 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack3) | writeini -n $Nick $+ .ini $3 %Attack3 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack4) != None) { Writeini -n $Nick $+ .ini $3 Attack4 $readini($3 $+ .ini,$3,Attack4) | Set %Attack4 $readini($3 $+ .ini,$3,Attack4) | writeini $Nick $+ .ini $3 L $+ %Attack4 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack4) | writeini -n $Nick $+ .ini $3 %Attack4 $+ MPP %MovePP }
  if ($readini($Nick $+ .ini,$3,Attack1) == $Null) { Writeini -n $Nick $+ .ini $3 Attack1 None }
  if ($readini($Nick $+ .ini,$3,Attack2) == $Null) { Writeini -n $Nick $+ .ini $3 Attack2 None }
  if ($readini($Nick $+ .ini,$3,Attack3) == $Null) { Writeini -n $Nick $+ .ini $3 Attack3 None }
  if ($readini($Nick $+ .ini,$3,Attack4) == $Null) { Writeini -n $Nick $+ .ini $3 Attack4 None }
  Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
  Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
  set %Batlist $remtok(%Batlist,$3,1,32)
  TimerAttack $+ $3 off
  Writeini $3 $+ .ini $3 Fighting No
  Writeini $3 $+ .ini $3 Field None
  Msg %ChanSet $Name($Nick) $+ 8,1 Throws A Pokeball at $Pokemon($3) $+ 8,1!
  Msg %ChanSet $Name($Nick) $+ 8,1 Caught $Pokemon($3) $+ 8,1!
  writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 2)
}
on 1:text:`Throw GreatBall*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,items,GreatBall) <= 0) { Notice $nick You Dont Have The Balls, GreatBalls! | halt }
  if ($readini($nick $+ .ini,$nick,Party) == 6) { Notice $nick Your Party Is Full! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick You Are Not Fighting! | halt }
  if ($readini($3 $+ .ini,$3,Fighting) != Yes) { Notice $nick $3 Is not Fighting! | halt }
  if ($readini($nick $+ .ini,$3,Pokemon) != $Null) { Notice $nick You have Already Caught $3 $+ ! | halt }
  if ($readini($3 $+ .ini,$3,WNpc) != Yes) { Notice $nick $3 is Not a Wild Pokemon! | Halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($3 $+ .ini,$3,field)) { Notice $nick You Cannot! You are Somewhere Else! | halt }
  if ($readini($3 $+ .ini,$3,Type) == Ghost) && ($readini($nick $+ .ini,Items,SilphScope) != Yes) { Notice $nick You Cannot Catch a Ghost Pokemon with $2 $+ ! | halt }
  if ($readini($3 $+ .ini,$3,Hp) <= 1) { goto Catch }
  Writeini $nick $+ .ini Items GreatBall $calc($readini($nick $+ .ini,Items,GreatBall) - 1)
  Set %Hit $rand(10,$Stat($3,Hp))
  if (%Hit > 10) { Msg %ChanSet $Name($Nick) $+ 8,1 Throws A GreatBall at $Pokemon($3) $+ 8,1! | Msg %ChanSet $Name($Nick) $+ 8,1 Did Not Catch $Pokemon($3) $+ 8,1! | halt }
  :Catch
  Var %Hp = $readini($3 $+ .ini,$3,MHp)
  Var %SAttack = $readini($3 $+ .ini,$3,MSAttack)
  Var %Attack = $readini($3 $+ .ini,$3,MAttack)
  Var %SDefense = $readini($3 $+ .ini,$3,MSDefense)
  Var %Defense = $readini($3 $+ .ini,$3,MDefense)
  Var %Accuracy = $readini($3 $+ .ini,$3,MAccuracy)
  Var %Agility = $readini($3 $+ .ini,$3,MAgility)
  Var %Intelligence = $readini($3 $+ .ini,$3,MIntelligence)
  Var %Speed = $readini($3 $+ .ini,$3,MSpeed)
  Var %FSpeed = $readini($3 $+ .ini,$3,MFSpeed)
  Var %Level = $readini($3 $+ .ini,$3,Level)
  Var %ExpNeeded = $readini($3 $+ .ini,$3,ExpNeeded)
  Var %SExp = $readini($3 $+ .ini,$3,SExp)
  Var %SExpNeeded = $readini($3 $+ .ini,$3,SpeedExpNeeded)
  Var %Type = $readini($3 $+ .ini,$3,Type)
  Var %Type2 = $readini($3 $+ .ini,$3,Type2)
  Var %Aura = $readini($3 $+ .ini,$3,PAura)
  Var %BAura = $readini($3 $+ .ini,$3,PBAura)
  writeini -n $Nick $+ .ini $3 MHp %Hp
  writeini -n $Nick $+ .ini $3 MSAttack %SAttack
  writeini -n $Nick $+ .ini $3 MSDefense %SDefense
  writeini -n $Nick $+ .ini $3 MAttack %Attack
  writeini -n $Nick $+ .ini $3 MDefense %Defense
  writeini -n $Nick $+ .ini $3 MAccuracy %Accuracy
  writeini -n $Nick $+ .ini $3 MAgility %Agility
  writeini -n $Nick $+ .ini $3 MIntelligence %Intelligence
  writeini -n $Nick $+ .ini $3 MSpeed %Speed
  writeini -n $Nick $+ .ini $3 MFSpeed %FSpeed
  writeini -n $Nick $+ .ini $3 Level %Level
  writeini -n $Nick $+ .ini $3 Type %Type
  writeini -n $Nick $+ .ini $3 Type2 %Type2
  Writeini -n $Nick $+ .ini $3 $3 Yes
  writeini -n $Nick $+ .ini $3 Exp 0
  writeini -n $Nick $+ .ini $3 ExpNeeded %ExpNeeded
  writeini -n $Nick $+ .ini $3 SExp %SExp
  writeini -n $Nick $+ .ini $3 SpeedExpNeeded %SExpNeeded
  writeini -n $Nick $+ .ini $3 Aura %Aura
  writeini -n $Nick $+ .ini $3 BAura %bAura
  writeini -n $Nick $+ .ini $3 WantEvolve Yes
  Writeini -n $Nick $+ .ini $3 Pokemon $3
  Writeini -n $Nick $+ .ini Pokemon $3 yes
  Set %Gender $Rand(1,2)
  if (%Gender == 1) { writeini -n $nick $+ .ini $3 Gender Male }
  if (%Gender == 2) { writeini -n $nick $+ .ini $3 Gender Female }
  if ($readini($3 $+ .ini,$Poke($3),Attack1) != None) { Writeini -n $Nick $+ .ini $3 Attack1 $readini($3 $+ .ini,$3,Attack1) | Set %Attack1 $readini($3 $+ .ini,$3,Attack1) | writeini $Nick $+ .ini $3 L $+ %Attack1 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack1) | writeini -n $Nick $+ .ini $3 %Attack1 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack2) != None) { Writeini -n $Nick $+ .ini $3 Attack2 $readini($3 $+ .ini,$3,Attack2) | Set %Attack2 $readini($3 $+ .ini,$3,Attack2) | writeini $Nick $+ .ini $3 L $+ %Attack2 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack2) | writeini -n $Nick $+ .ini $3 %Attack2 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack3) != None) { Writeini -n $Nick $+ .ini $3 Attack3 $readini($3 $+ .ini,$3,Attack3) | Set %Attack3 $readini($3 $+ .ini,$3,Attack3) | writeini $Nick $+ .ini $3 L $+ %Attack3 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack3) | writeini -n $Nick $+ .ini $3 %Attack3 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack4) != None) { Writeini -n $Nick $+ .ini $3 Attack4 $readini($3 $+ .ini,$3,Attack4) | Set %Attack4 $readini($3 $+ .ini,$3,Attack4) | writeini $Nick $+ .ini $3 L $+ %Attack4 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack4) | writeini -n $Nick $+ .ini $3 %Attack4 $+ MPP %MovePP }
  if ($readini($Nick $+ .ini,$3,Attack1) == $Null) { Writeini -n $Nick $+ .ini $3 Attack1 None }
  if ($readini($Nick $+ .ini,$3,Attack2) == $Null) { Writeini -n $Nick $+ .ini $3 Attack2 None }
  if ($readini($Nick $+ .ini,$3,Attack3) == $Null) { Writeini -n $Nick $+ .ini $3 Attack3 None }
  if ($readini($Nick $+ .ini,$3,Attack4) == $Null) { Writeini -n $Nick $+ .ini $3 Attack4 None }
  Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
  Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
  set %Batlist $remtok(%Batlist,$3,1,32)
  TimerAttack $+ $3 off
  Writeini $3 $+ .ini $3 Fighting No
  Writeini $3 $+ .ini $3 Field None
  Msg %ChanSet $Name($Nick) $+ 8,1 Throws A GreatBall at $Pokemon($3) $+ 8,1!
  Msg %ChanSet $Name($Nick) $+ 8,1 Caught $Pokemon($3) $+ 8,1!
  writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 2)
}
on 1:text:`Throw UltraBall*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,items,UltraBall) <= 0) { Notice $nick You Dont Have The Balls, UltraBalls! | halt }
  if ($readini($nick $+ .ini,$nick,Party) == 6) { Notice $nick Your Party Is Full! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) != Yes) { Notice $nick You Are Not Fighting! | halt }
  if ($readini($3 $+ .ini,$3,Fighting) != Yes) { Notice $nick $3 Is not Fighting! | halt }
  if ($readini($nick $+ .ini,$3,Pokemon) != $Null) { Notice $nick You have Already Caught $3 $+ ! | halt }
  if ($readini($3 $+ .ini,$3,WNpc) != Yes) { Notice $nick $3 is Not a Wild Pokemon! | Halt }
  if ($readini($3 $+ .ini,$3,Type) == Ghost) && ($readini($nick $+ .ini,Items,SilphScope) != Yes) { Notice $nick You Cannot Catch a Ghost Pokemon with $2 $+ ! | halt }
  if ($readini($nick $+ .ini,$nick,field) != $readini($3 $+ .ini,$3,field)) { Notice $nick You Cannot! You are Somewhere Else! | halt }
  if ($readini($3 $+ .ini,$3,Hp) <= 1) { goto Catch }
  Writeini $nick $+ .ini Items UltraBall $calc($readini($nick $+ .ini,Items,UltraBall) - 1)
  Set %Hit $rand(15,$Stat($3,Hp))
  if (%Hit > 15) { Msg %ChanSet $Name($Nick) $+ 8,1 Throws A UltraBall at $Pokemon($3) $+ 8,1! | Msg %ChanSet $Name($Nick) $+ 8,1 Did Not Catch $Pokemon($3) $+ 8,1! | halt }
  :Catch
  Var %Hp = $readini($3 $+ .ini,$3,MHp)
  Var %SAttack = $readini($3 $+ .ini,$3,MSAttack)
  Var %Attack = $readini($3 $+ .ini,$3,MAttack)
  Var %SDefense = $readini($3 $+ .ini,$3,MSDefense)
  Var %Defense = $readini($3 $+ .ini,$3,MDefense)
  Var %Accuracy = $readini($3 $+ .ini,$3,MAccuracy)
  Var %Agility = $readini($3 $+ .ini,$3,MAgility)
  Var %Intelligence = $readini($3 $+ .ini,$3,MIntelligence)
  Var %Speed = $readini($3 $+ .ini,$3,MSpeed)
  Var %FSpeed = $readini($3 $+ .ini,$3,MFSpeed)
  Var %Level = $readini($3 $+ .ini,$3,Level)
  Var %ExpNeeded = $readini($3 $+ .ini,$3,ExpNeeded)
  Var %SExp = $readini($3 $+ .ini,$3,SExp)
  Var %SExpNeeded = $readini($3 $+ .ini,$3,SpeedExpNeeded)
  Var %Type = $readini($3 $+ .ini,$3,Type)
  Var %Type2 = $readini($3 $+ .ini,$3,Type2)
  Var %Aura = $readini($3 $+ .ini,$3,PAura)
  Var %BAura = $readini($3 $+ .ini,$3,PBAura)
  writeini -n $Nick $+ .ini $3 MHp %Hp
  writeini -n $Nick $+ .ini $3 MSAttack %SAttack
  writeini -n $Nick $+ .ini $3 MSDefense %SDefense
  writeini -n $Nick $+ .ini $3 MAttack %Attack
  writeini -n $Nick $+ .ini $3 MDefense %Defense
  writeini -n $Nick $+ .ini $3 MAccuracy %Accuracy
  writeini -n $Nick $+ .ini $3 MAgility %Agility
  writeini -n $Nick $+ .ini $3 MIntelligence %Intelligence
  writeini -n $Nick $+ .ini $3 MSpeed %Speed
  writeini -n $Nick $+ .ini $3 MFSpeed %FSpeed
  writeini -n $Nick $+ .ini $3 Level %Level
  writeini -n $Nick $+ .ini $3 Type %Type
  writeini -n $Nick $+ .ini $3 Type2 %Type2
  Writeini -n $Nick $+ .ini $3 $3 Yes
  writeini -n $Nick $+ .ini $3 Exp 0
  writeini -n $Nick $+ .ini $3 ExpNeeded %ExpNeeded
  writeini -n $Nick $+ .ini $3 SExp %SExp
  writeini -n $Nick $+ .ini $3 SpeedExpNeeded %SExpNeeded
  writeini -n $Nick $+ .ini $3 Aura %Aura
  writeini -n $Nick $+ .ini $3 BAura %bAura
  writeini -n $Nick $+ .ini $3 WantEvolve Yes
  Writeini -n $Nick $+ .ini $3 Pokemon $3
  Writeini -n $Nick $+ .ini Pokemon $3 yes
  Set %Gender $Rand(1,2)
  if (%Gender == 1) { writeini -n $nick $+ .ini $3 Gender Male }
  if (%Gender == 2) { writeini -n $nick $+ .ini $3 Gender Female }
  if ($readini($3 $+ .ini,$Poke($3),Attack1) != None) { Writeini -n $Nick $+ .ini $3 Attack1 $readini($3 $+ .ini,$3,Attack1) | Set %Attack1 $readini($3 $+ .ini,$3,Attack1) | writeini $Nick $+ .ini $3 L $+ %Attack1 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack1) | writeini -n $Nick $+ .ini $3 %Attack1 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack2) != None) { Writeini -n $Nick $+ .ini $3 Attack2 $readini($3 $+ .ini,$3,Attack2) | Set %Attack2 $readini($3 $+ .ini,$3,Attack2) | writeini $Nick $+ .ini $3 L $+ %Attack2 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack2) | writeini -n $Nick $+ .ini $3 %Attack2 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack3) != None) { Writeini -n $Nick $+ .ini $3 Attack3 $readini($3 $+ .ini,$3,Attack3) | Set %Attack3 $readini($3 $+ .ini,$3,Attack3) | writeini $Nick $+ .ini $3 L $+ %Attack3 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack3) | writeini -n $Nick $+ .ini $3 %Attack3 $+ MPP %MovePP }
  if ($readini($3 $+ .ini,$Poke($3),Attack4) != None) { Writeini -n $Nick $+ .ini $3 Attack4 $readini($3 $+ .ini,$3,Attack4) | Set %Attack4 $readini($3 $+ .ini,$3,Attack4) | writeini $Nick $+ .ini $3 L $+ %Attack4 Yes | Set %MovePP $readini(Pokemon_Status $+ .ini,PPCheck,%Attack4) | writeini -n $Nick $+ .ini $3 %Attack4 $+ MPP %MovePP }
  if ($readini($Nick $+ .ini,$3,Attack1) == $Null) { Writeini -n $Nick $+ .ini $3 Attack1 None }
  if ($readini($Nick $+ .ini,$3,Attack2) == $Null) { Writeini -n $Nick $+ .ini $3 Attack2 None }
  if ($readini($Nick $+ .ini,$3,Attack3) == $Null) { Writeini -n $Nick $+ .ini $3 Attack3 None }
  if ($readini($Nick $+ .ini,$3,Attack4) == $Null) { Writeini -n $Nick $+ .ini $3 Attack4 None }
  Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
  Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
  set %Batlist $remtok(%Batlist,$3,1,32)
  TimerAttack $+ $3 off
  Writeini $3 $+ .ini $3 Fighting No
  Writeini $3 $+ .ini $3 Field None
  Msg %ChanSet $Name($Nick) $+ 8,1 Throws A UltraBall at $Pokemon($3) $+ 8,1!
  Msg %ChanSet $Name($Nick) $+ 8,1 Caught $Pokemon($3) $+ 8,1!
  writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 2)
}
on 1:text:`Use FireStone:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,FireStone) <= 0) { Notice $nick You Dont Have FireStones! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Vulpix) {
    set %Pokemon2 Ninetales
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items FireStone $calc($readini($nick $+ .ini,Items,FireStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 4,1 Uses FireStone On $Gender($Nick) $Pokemon($Nick) $+ 4,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Fire
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 15
    writeini -n $Nick $+ .ini %Pokemon2 BAura 0
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 15,0 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
  if (%Pokemon == Growlithe) {
    set %Pokemon2 Arcanine
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items FireStone $calc($readini($nick $+ .ini,Items,FireStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 4,1 Uses FireStone On $Gender($Nick) $Pokemon($Nick) $+ 4,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Fire
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 0
    writeini -n $Nick $+ .ini %Pokemon2 BAura 4
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 0,4 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
  if (%Pokemon == Eevee) {
    set %Pokemon2 Flareon
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items FireStone $calc($readini($nick $+ .ini,Items,FireStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 4,1 Uses FireStone On $Gender($Nick) $Pokemon($Nick) $+ 4,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Fire
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 4
    writeini -n $Nick $+ .ini %Pokemon2 BAura 8
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 8,4 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use ThunderStone:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,ThunderStone) <= 0) { Notice $nick You Dont Have ThunderStones! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Pikachu) {
    set %Pokemon2 Raichu
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items ThunderStone $calc($readini($nick $+ .ini,Items,ThunderStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 8,1 Uses ThunderStone On $Gender($Nick) $Pokemon($Nick) $+ 8,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 14 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Electric
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 8
    writeini -n $Nick $+ .ini %Pokemon2 BAura 7
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 8,7 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
  if (%Pokemon == Eevee) {
    set %Pokemon2 Jolteon
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items ThunderStone $calc($readini($nick $+ .ini,Items,ThunderStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 8,1 Uses ThunderStone On $Gender($Nick) $Pokemon($Nick) $+ 8,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Electric
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 0
    writeini -n $Nick $+ .ini %Pokemon2 BAura 8
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 0,8 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use WaterStone:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,WaterStone) <= 0) { Notice $nick You Dont Have WaterStones! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Staryu) {
    set %Pokemon2 Starmie
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items WaterStone $calc($readini($nick $+ .ini,Items,WaterStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 11,1 Uses WaterStone On $Gender($Nick) $Pokemon($Nick) $+ 11,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Water
    writeini -n $Nick $+ .ini %Pokemon2 Type2 Psychic
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 8
    writeini -n $Nick $+ .ini %Pokemon2 BAura 6
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 8,6 $+ %Pokemon2 $+ 9,1!
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
  if (%Pokemon == Eevee) {
    set %Pokemon2 Vaporeon
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items WaterStone $calc($readini($nick $+ .ini,Items,WaterStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 11,1 Uses WaterStone On $Gender($Nick) $Pokemon($Nick) $+ 11,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Water
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 2
    writeini -n $Nick $+ .ini %Pokemon2 BAura 11
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve Yes
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 2,11 $+ %Pokemon2 $+ 9,1!
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use LeafStone:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,LeafStone) <= 0) { Notice $nick You Dont Have LeafStones! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Weepinbell) {
    set %Pokemon2 Victreebel
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items LeafStone $calc($readini($nick $+ .ini,Items,LeafStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 3,1 Uses LeafStone On $Gender($Nick) $Pokemon($Nick) $+ 3,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Grass
    writeini -n $Nick $+ .ini %Pokemon2 Type2 Poison
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 6
    writeini -n $Nick $+ .ini %Pokemon2 BAura 8
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve No
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 6,8 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
  if (%Pokemon == Gloom) {
    set %Pokemon2 Vileplume
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items LeafStone $calc($readini($nick $+ .ini,Items,LeafStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 3,1 Uses LeafStone On $Gender($Nick) $Pokemon($Nick) $+ 3,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Grass
    writeini -n $Nick $+ .ini %Pokemon2 Type2 Poison
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 4
    writeini -n $Nick $+ .ini %Pokemon2 BAura 2
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve No
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 4,2 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use SunStone:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,SunStone) <= 0) { Notice $nick You Dont Have SunStones! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Gloom) {
    set %Pokemon2 Bellossom
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items SunStone $calc($readini($nick $+ .ini,Items,SunStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 7,1 Uses SunStone On $Gender($Nick) $Pokemon($Nick) $+ 7,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 35 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Grass
    writeini -n $Nick $+ .ini %Pokemon2 Type2 None
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 8
    writeini -n $Nick $+ .ini %Pokemon2 BAura 3
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve No
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 8,3 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use MoonStone:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,MoonStone) <= 0) { Notice $nick You Dont Have MoonStones! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Nidorina) {
    set %Pokemon2 Nidoqueen
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items MoonStone $calc($readini($nick $+ .ini,Items,MoonStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 0,1 Uses MoonStone On $Gender($Nick) $Pokemon($Nick) $+ 0,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 35 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 11 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 11 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Poison
    writeini -n $Nick $+ .ini %Pokemon2 Type2 Ground
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 0
    writeini -n $Nick $+ .ini %Pokemon2 BAura 10
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve No
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 0,10 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
  if (%Pokemon == Nidorino) {
    set %Pokemon2 Nidoking
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items MoonStone $calc($readini($nick $+ .ini,Items,MoonStone) - 1)
    Msg %ChanSet $Name($Nick) $+ 0,1 Uses MoonStone On $Gender($Nick) $Pokemon($Nick) $+ 0,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 35 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 11 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 11 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Poison
    writeini -n $Nick $+ .ini %Pokemon2 Type2 Ground
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 0
    writeini -n $Nick $+ .ini %Pokemon2 BAura 6
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve No
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 0,6 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use MetalCoat:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,Items,MetalCoat) <= 0) { Notice $nick You Dont Have MetalCoats! | halt }
  Set %Pokemon $Poke($Nick)
  if (%Pokemon == Onix) {
    set %Pokemon2 Steelix
    if ($readini($Nick $+ .ini,%Pokemon2,%Pokemon2) == Yes) { Notice $Nick You Already have a %Pokemon2 $+ ! }
    Writeini -n $nick $+ .ini Items MetalCoat $calc($readini($nick $+ .ini,Items,MetalCoat) - 1)
    Msg %ChanSet $Name($Nick) $+ 15,1 Uses MetalCoat On $Gender($Nick) $Pokemon($Nick) $+ 15,1!
    Var %Hp = $readini($Nick $+ .ini,%Pokemon,MHp)
    Var %SAttack = $readini($Nick $+ .ini,%Pokemon,MSAttack)
    Var %Attack = $readini($Nick $+ .ini,%Pokemon,MAttack)
    Var %SDefense = $readini($Nick $+ .ini,%Pokemon,MSDefense)
    Var %Defense = $readini($Nick $+ .ini,%Pokemon,MDefense)
    Var %Accuracy = $readini($Nick $+ .ini,%Pokemon,MAccuracy)
    Var %Agility = $readini($Nick $+ .ini,%Pokemon,MAgility)
    Var %Intelligence = $readini($Nick $+ .ini,%Pokemon,MIntelligence)
    Var %Speed = $readini($Nick $+ .ini,%Pokemon,MSpeed)
    Var %FSpeed = $readini($Nick $+ .ini,%Pokemon,MFSpeed)
    Var %Level = $readini($Nick $+ .ini,%Pokemon,Level)
    Var %Exp = $readini($Nick $+ .ini,%Pokemon,Exp)
    Var %ExpNeeded = $readini($Nick $+ .ini,%Pokemon,ExpNeeded)
    Var %SExp = $readini($Nick $+ .ini,%Pokemon,SExp)
    Var %SExpNeeded = $readini($Nick $+ .ini,%Pokemon,SpeedExpNeeded)
    Var %Gender = $readini($Nick $+ .ini,%Pokemon,Gender)
    Var %Name = $readini($Nick $+ .ini,%Pokemon,Name)
    writeini -n $Nick $+ .ini %Pokemon2 MHp $Calc( %Hp + 35 )
    writeini -n $Nick $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 20 )
    writeini -n $Nick $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
    writeini -n $Nick $+ .ini %Pokemon2 MDefense $Calc( %Defense + 20 )
    writeini -n $Nick $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
    writeini -n $Nick $+ .ini %Pokemon2 MSpeed %Speed
    writeini -n $Nick $+ .ini %Pokemon2 MFSpeed %FSpeed
    writeini -n $Nick $+ .ini %Pokemon2 Level %Level
    writeini -n $Nick $+ .ini %Pokemon2 Type Steel
    writeini -n $Nick $+ .ini %Pokemon2 Type2 Ground
    Writeini -n $Nick $+ .ini %Pokemon2 %Pokemon2 Yes
    writeini -n $Nick $+ .ini %Pokemon2 Exp %Exp
    writeini -n $Nick $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
    writeini -n $Nick $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
    writeini -n $Nick $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
    writeini -n $Nick $+ .ini %Pokemon2 Gender %Gender
    writeini -n $Nick $+ .ini %Pokemon2 Aura 14
    writeini -n $Nick $+ .ini %Pokemon2 BAura 15
    writeini -n $Nick $+ .ini %Pokemon2 WantEvolve No
    Writeini -n $Nick $+ .ini %Pokemon2 Pokemon %Pokemon2
    writeini -n $Nick $+ .ini %Pokemon2 Attack1 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack2 None
    writeini -n $Nick $+ .ini %Pokemon2 Attack3 None
    Writeini -n $Nick $+ .ini %Pokemon2 Attack4 None
    Writeini -n $Nick $+ .ini Pokemon %Pokemon2 yes
    if ($readini($Nick $+ .ini,$Poke($Nick),Named) == Yes) { writeini -n $Nick $+ .ini %Pokemon2 Name %Name | writeini -n $Nick $+ .ini %Pokemon2 Named Yes }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($Nick $+ .ini,%Pokemon,Attack1) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($Nick $+ .ini,%Pokemon,Attack2) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($Nick $+ .ini,%Pokemon,Attack3) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
    if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) != None) { Writeini -n $Nick $+ .ini %Pokemon2 Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($Nick $+ .ini,%Pokemon,Attack4) | writeini $Nick $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($Nick $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $Nick $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
    Msg %ChanSet 9Whats This?!? $Pokemon($Nick) $+ 9,1 Is Evolving...
    Msg %ChanSet $Poke($Nick) $+ 9,1 Evolves Into 14,15 $+ %Pokemon2 $+ 9,1!
    Remini $Nick $+ .ini %Pokemon
    Writeini -n $Nick $+ .ini $Nick Pokemon %Pokemon2
    writeini $Nick $+ .ini $Nick TExp $calc($readini($Nick $+ .ini,$Nick,TExp) + 10)
    Unset %Pokemon
    Unset %Pokemon2
    Unset %Attack1
    Unset %Attack2
    Unset %Attack3
    Unset %Attack4
    Heal $Nick
    Halt
  }
}
on 1:text:`Use Tm34*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm34) != Yes) { Notice $nick You Dont Have Tm34! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning Mud-Slap
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (None isin %Choices) { Goto End }
  if (Rock isin %Choices) { Goto End }
  if (Ground isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm11*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm11) != Yes) { Notice $nick You Dont Have Tm11! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning Swift
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (None isin %Choices) { Goto End }
  if (Normal isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm24*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm24) != Yes) { Notice $nick You Dont Have Tm24! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning Thunder-Wave
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (Electric isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm21*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm21) != Yes) { Notice $nick You Dont Have Tm21! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning MegaDrain
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (Grass isin %Choices) { Goto End }
  if (Bug isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm46*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm46) != Yes) { Notice $nick You Dont Have Tm46! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning Calm-Mind
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (Psychic isin %Choices) { Goto End }
  if (Bug isin %Choices) { Goto End }
  if (Ghost isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm06*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm06) != Yes) { Notice $nick You Dont Have Tm06! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning Toxic
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (Poison isin %Choices) { Goto End }
  if (Bug isin %Choices) { Goto End }
  if (Omastar isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm26*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm26) != Yes) { Notice $nick You Dont Have Tm26! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning EarthQuake
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (Rock isin %Choices) { Goto End }
  if (Ground isin %Choices) { Goto End }
  if (Typhlosion isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on 1:text:`Use Tm27*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You Are Attacking! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Attacking! | halt }
  if ($3 == $Null) { Notice $nick Please Type `Use $2 (Move You Might Wanna Delete) | halt }
  if ($readini($nick $+ .ini,Tm,Tm27) != Yes) { Notice $nick You Dont Have Tm27! | halt }
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  Set %MoveLearning Fissure
  if ($istok(%Attacks,%MoveLearning,32) == $true) { Notice $Nick $Poke($Nick) Knows This Move Already! | Halt }
  if ($istok(%Attacks,$3,32) != $true) { Notice $Nick $Poke($Nick) Does not Know $3 | Halt }
  Set %Choices $Stat($Nick,Type) $Stat($Nick,Typ2) $Poke($Nick)
  if (Rock isin %Choices) { Goto End }
  if (Ground isin %Choices) { Goto End }
  Goto End
  :Here
  writeini $Nick $+ .ini Tm $2 No
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == None) {
    writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
    writeini -n $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
    Msg %ChanSet $Name($Nick) $+ 9,1's $Pokemon($Nick) $+ 9,1 Has Learned  $+ %MoveLearning $+ !
    Halt
  }
  writeini $Nick $+ .ini Learned %MoveLearning Yes
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack1) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack1 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack2) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack2 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack3) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack3 %MoveLearning }  
  if ($readini($Nick $+ .ini,$Poke($Nick),Attack4) == $3) { writeini $Nick $+ .ini $Poke($Nick) Attack4 %MoveLearning }  
  writeini $Nick $+ .ini $Poke($Nick) L $+ %MoveLearning Yes
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  writeini -n $Nick $+ .ini $Poke($Nick) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
  Unset %MoveLearning
  Unset %Attacks
  Halt
  :End
  Notice $Nick $Poke($Nick) Cannot Learn $2 $+ !
}
on *:text:`Sell*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,Items,$2) == $Null) { Notice $nick You Dont Have $2 $+ ! | halt }
  if (. isin $3) { Notice $nick Dont Use Decimals! | halt }
  if (- isin $3) { Notice $nick Dont Use -! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,PokeMart,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a PokeMart! | halt }
  Set %3 $3
  if ($3 == $null) { set %3 1 }
  if (%3 !isnum) { set %3 1 }
  if (GC == $2) {
    Set %ItemPrice 5
    set %Price $calc(%3 * %ItemPrice)
    if ($readini($nick $+ .ini,Items,$2) < %3) { Notice $nick Not Enough $2 $+ ! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) + %Price)
    writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) - %3)
    Notice $nick You Sold %3 $2 $+ (s) for %Price Zenny
  }
}
on 1:text:`Map:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) == $Null) { writeini $nick $+ .ini $nick TrainerLevel 1 }
  if ($readini($nick $+ .ini,$nick,TExpNeeded) == $Null) { writeini $nick $+ .ini $nick TExpNeeded 10 }
  Unset %Map
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 0) { Set %Map %Map Pallet-Town }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 2) { Set %Map %Map Viridian-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 3) { Set %Map %Map Pewter-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 3) { Set %Map %Map Mt.Moon }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 4) { Set %Map %Map Cerulean-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 5) { Set %Map %Map Vermilion-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 5) { Set %Map %Map Lavender-Town }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 6) { Set %Map %Map Celadon-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 6) { Set %Map %Map Saffron-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 7) { Set %Map %Map Fuchsia-City }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 8) { Set %Map %Map Cinnibar-Island }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) >= 9) { Set %Map %Map Indigo-Plateau }
  Notice $Nick 8Currently At:15 $readini($nick $+ .ini,Travel,Town) 9Places You Can Go:15 %Map
  TLvLCheck $Nick
  Unset %Map
}
on *:text:`Travel *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Town) == $2) { Notice $nick You Are Already At $2 $+ ! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }  
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if (%EliteBattle = yes) && (%EFighting == $Nick) { Notice $nick You are Fighting Elite 4! | halt }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) < $readini(Map $+ .ini,$2,Level)) { notice $nick 4You Dont Meet Trainer Level Standards. | Halt }
  if ($istok(%PlaceToGo,$2,32) == $true) {
    Msg %ChanSet $Name($nick) $+ 0,1 Starts to Travel To $2 $+ !
    Set %Town $readini($nick $+ .ini,Travel,Town)
    Set %Rank $readini(Map $+ .ini,%Town,Rank)
    Set %Rank2 $readini(Map $+ .ini,$2,Rank)
    if (%Rank < %Rank2) { Set %Time $Calc(%Rank2 * 40) | Set %Time3 $Calc(%Rank * 40 ) | Set %Time $Calc(%Time - %Time3) }
    if (%Rank > %Rank2) { Dec %Rank %Rank2 | Set %Time $Calc(%Rank * 40) }
    TimerTravel $+ $nick 1 %Time /Travel $nick $2 
    writeini -n $nick $+ .ini Travel Travel Yes
    writeini -n $nick $+ .ini Travel Traveling $2
    Halt
  }
  Notice $nick Sorry $2 Does not Excist
}
on 1:TEXT:`TTL:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) != yes) { halt }
  if ($timer(Travel $+ $nick).secs = $null) && ($readini($nick $+ .ini,Travel,Travel) == yes) { Notice $Nick 8GLITCH!4 This Has Been Fixed! | /Travel $nick $readini($nick $+ .ini,Travel,Traveling) | Halt }
  Notice $nick 0Travel Time Left:15 $duration($timer(Travel $+ $nick).secs))
}
on 1:text:`MT.Cave:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal! | halt }
  if (%SpecialFight = yes) { Notice $nick A Fight is Happening! By: %SpecialFighting | halt }
  Set %Time $time(hh)
  Set %TimeItsIn 10 12 02 04 06 
  if (%Time !IsIn %TimeItsIn) { Msg %ChanSet $Name($Nick) $+ 0,1 Looks in the Cave To Find Nothing!! | Unset %Time | UnSet %TimeItsIn | halt }
  if (%Time IsIn %TimeItsIn) {
    Set %Npc Brian
    if ($readini($nick $+ .ini,Mission,Brian) == Yes) { Notice $Nick $Name($Nick) $+ 0,1 Looks in the Cave To Find Nothing!! | halt }
    Msg %ChanSet $Name($Nick) $+ 13,1 Walks in! $Name(%Npc) $+ 13,1 "Soon all These Clefaries will be Mine!!, THEY WILL BECOME 1,6TEAM ROCKETS13,1 ARMY! MUAHAH! - - - Whats This? Who Are You? You Know too Much!!"
    Msg %ChanSet $Name(%Npc) $+ 13,1 Has Challenged $Name($Nick) $+ 13,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 13,1 Says "Team Rocket RULES!! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 13,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Other
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Other
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
}
on 1:text:`Talk RocketMember:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal! | halt }
  if ($readini($nick $+ .ini,Travel,Town) != Celadon-City) { Notice $Nick Your Not At Celadon-City! | Halt }
  if (%SpecialFight = yes) { Notice $nick A Fight is Happening! By: %SpecialFighting | halt }
  Set %Npc Jake
  if ($readini($nick $+ .ini,Mission,Jake) == Yes) { Notice $Nick You Beat Jake Already! | halt }
  Msg %ChanSet $Name(%Npc) $+ 13,1 "Team Rockets Plan for Fake Coins is Working - - - Whats This? Who Are You? You Know too Much!!"
  Msg %ChanSet $Name(%Npc) $+ 13,1 Has Challenged $Name($Nick) $+ 13,1 in To a Battle! This is a 1 Battle Match! Begin!
  Msg %ChanSet $Name(%Npc) $+ 13,1 Says "Team Rocket RULES!! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 13,1 Says $Motto($Nick)
  Set %SpecialFight Yes 
  Set %SpecialFighting $Nick 
  writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
  writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
  writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
  writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
  Writeini -n $nick $+ .ini $nick Fighting Yes
  Writeini -n $nick $+ .ini $nick Field Singles $+ Other
  Writeini -n $Nick $+ .ini $nick FightingWho %Npc
  Writeini -n %Npc $+ .ini %Npc Fighting Yes
  Writeini -n %Npc $+ .ini %Npc Field Singles $+ Other
  Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
  Heal %Npc
  SpecialNpc %Npc $Nick
  Heal $Nick
}
on 1:text:`Enter UnderGround:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal! | halt }
  if ($readini($nick $+ .ini,Travel,Town) != Celadon-City) { Notice $Nick Your Not At Celadon-City! | Halt }
  if (%SpecialFight = yes) { Notice $nick A Fight is Happening! By: %SpecialFighting | halt }
  Set %Npc Raj
  if ($readini($nick $+ .ini,Mission,Jake) != Yes) { Notice $Nick You Have not Beat Jake! | halt }
  if ($readini($nick $+ .ini,Mission,Raj) == Yes) { Notice $Nick You Beat Raj Already! | halt }
  Msg %ChanSet $Name(%Npc) $+ 13,1 "Hehe, They All Think this is a Casino, Little do they know that This is Team Rockets Phase 1 Plot on Taking over Kanto - - - Whats This? Who Are You? You Know too Much!!"
  Msg %ChanSet $Name(%Npc) $+ 13,1 Has Challenged $Name($Nick) $+ 13,1 in To a Battle! This is a 1 Battle Match! Begin!
  Msg %ChanSet $Name(%Npc) $+ 13,1 Says "Team Rocket RULES!! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 13,1 Says $Motto($Nick)
  Set %SpecialFight Yes 
  Set %SpecialFighting $Nick 
  writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
  writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
  writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
  writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
  Writeini -n $nick $+ .ini $nick Fighting Yes
  Writeini -n $nick $+ .ini $nick Field Singles $+ Other
  Writeini -n $Nick $+ .ini $nick FightingWho %Npc
  Writeini -n %Npc $+ .ini %Npc Fighting Yes
  Writeini -n %Npc $+ .ini %Npc Field Singles $+ Other
  Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
  Heal %Npc
  SpecialNpc %Npc $Nick
  Heal $Nick
}
on 1:text:`Laboratory:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Town) != Cinnibar-Island) { Notice $Nick Your Not At Cinnibar-Island! | Halt }
  Unset %Fossil
  if ($readini($nick $+ .ini,Items,Helix) == Yes) { Set %Fossil %Fossil 0Helix 7-0 }
  if ($readini($nick $+ .ini,Items,Dome) == Yes) { Set %Fossil %Fossil Dome 7-0 }
  if ($readini($nick $+ .ini,Items,Amber) == Yes) { Set %Fossil %Fossil Amber 7-0 }
  if (%Fossil == $Null) { Set %Fossil Nothing! }
  Notice $Nick Welcome! We Unfossilize Fossils, You Have the Following Fossils: %Fossil 
  Notice $Nick If You Want us to Unfossilize one of Your Fossils, It will cost 1,000 Gil, Type `Unfossilize FossilName
  Unset %Fossil
}
on 1:text:`Unfossilize*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Party) >= 6) { Notice $nick Your Party Is Full! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($readini($nick $+ .ini,Items,$2) != Yes) { Notice $nick You Dont Have $2 Fossil! | halt }
  if ($readini($nick $+ .ini,Travel,Town) != Cinnibar-Island) { Notice $Nick Your Not At Cinnibar-Island! | Halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($readini($nick $+ .ini,$nick,money) < 1000) { Notice $nick Not Enough Money! | halt }
  if (Dome == $2) {
    writeini -n $nick $+ .ini $Nick Money $calc($readini($nick $+ .ini,$Nick,Money) - 1000)
    Msg %ChanSet $Name($Nick) $+ 0,1's Dome Fossil, Starts to get Extracted!
    Writeini -n $nick $+ .ini Items $2 No
    Set %Pokemon Kabuto 
    Writeini -n $nick $+ .ini %Pokemon Pokemon %Pokemon
    Writeini -n $nick $+ .ini %Pokemon MAttack 10
    Writeini -n $nick $+ .ini %Pokemon MSAttack 10
    Writeini -n $nick $+ .ini %Pokemon MDefense 10
    Writeini -n $nick $+ .ini %Pokemon MSDefense 10
    Writeini -n $nick $+ .ini %Pokemon MIntelligence 3
    Writeini -n $nick $+ .ini %Pokemon MAccuracy 3
    Writeini -n $nick $+ .ini %Pokemon MAgility 3
    Writeini -n $nick $+ .ini %Pokemon Speed 11
    Writeini -n $nick $+ .ini %Pokemon MSpeed 11
    Writeini -n $nick $+ .ini %Pokemon FSpeed 1
    Writeini -n $nick $+ .ini %Pokemon MFSpeed 1
    Writeini -n $nick $+ .ini %Pokemon MHp 40
    Writeini -n $nick $+ .ini %Pokemon Type Rock
    Writeini -n $nick $+ .ini %Pokemon Type2 Water
    Writeini -n $nick $+ .ini %Pokemon %Pokemon Yes
    Writeini -n $nick $+ .ini %Pokemon Attack1 Scratch
    Writeini -n $nick $+ .ini %Pokemon Attack2 Harden
    Writeini -n $nick $+ .ini %Pokemon Attack3 None
    Writeini -n $nick $+ .ini %Pokemon Attack4 None
    Writeini -n $nick $+ .ini %Pokemon Level 1
    Writeini -n $nick $+ .ini %Pokemon ExpNeeded 20
    Writeini -n $nick $+ .ini %Pokemon Exp 0
    Writeini -n $nick $+ .ini %Pokemon SpeedExpNeeded 10
    Writeini -n $nick $+ .ini %Pokemon SExp 0
    writeini -n $nick $+ .ini %Pokemon Aura 5
    writeini -n $nick $+ .ini %Pokemon BAura 1
    Writeini -n $nick $+ .ini %Pokemon ScratchMPP 35 
    Writeini -n $nick $+ .ini %Pokemon HardenMPP 30
    Writeini -n $nick $+ .ini Pokemon %Pokemon yes
    Set %Gender $Rand(1,2)
    if (%Gender == 1) { writeini -n $nick $+ .ini %Pokemon Gender Male }
    if (%Gender == 2) { writeini -n $nick $+ .ini %Pokemon Gender Female }
    Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
    Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
    Msg %ChanSet 0From $Name($Nick) $+ 0,1's Dome Fossil, Emerges 5 $+ %Pokemon $+ 0!
    PkmnLateLvL $Nick %Pokemon 40
  }
  if (Helix == $2) {
    writeini -n $nick $+ .ini $Nick Money $calc($readini($nick $+ .ini,$Nick,Money) - 1000)
    Msg %ChanSet $Name($Nick) $+ 0,1's Helix Fossil, Starts to get Extracted!
    Writeini -n $nick $+ .ini Items $2 No
    Set %Pokemon Omanyte 
    Writeini -n $nick $+ .ini %Pokemon Pokemon %Pokemon
    Writeini -n $nick $+ .ini %Pokemon MAttack 10
    Writeini -n $nick $+ .ini %Pokemon MSAttack 10
    Writeini -n $nick $+ .ini %Pokemon MDefense 10
    Writeini -n $nick $+ .ini %Pokemon MSDefense 10
    Writeini -n $nick $+ .ini %Pokemon MIntelligence 3
    Writeini -n $nick $+ .ini %Pokemon MAccuracy 3
    Writeini -n $nick $+ .ini %Pokemon MAgility 3
    Writeini -n $nick $+ .ini %Pokemon Speed 11
    Writeini -n $nick $+ .ini %Pokemon MSpeed 11
    Writeini -n $nick $+ .ini %Pokemon FSpeed 1
    Writeini -n $nick $+ .ini %Pokemon MFSpeed 1
    Writeini -n $nick $+ .ini %Pokemon MHp 40
    Writeini -n $nick $+ .ini %Pokemon Type Rock
    Writeini -n $nick $+ .ini %Pokemon Type2 Water
    Writeini -n $nick $+ .ini %Pokemon %Pokemon Yes
    Writeini -n $nick $+ .ini %Pokemon Attack1 Constrict
    Writeini -n $nick $+ .ini %Pokemon Attack2 Withdraw
    Writeini -n $nick $+ .ini %Pokemon Attack3 None
    Writeini -n $nick $+ .ini %Pokemon Attack4 None
    Writeini -n $nick $+ .ini %Pokemon Level 1
    Writeini -n $nick $+ .ini %Pokemon ExpNeeded 20
    Writeini -n $nick $+ .ini %Pokemon Exp 0
    Writeini -n $nick $+ .ini %Pokemon SpeedExpNeeded 10
    Writeini -n $nick $+ .ini %Pokemon SExp 0
    writeini -n $nick $+ .ini %Pokemon Aura 10
    writeini -n $nick $+ .ini %Pokemon BAura 1
    Writeini -n $nick $+ .ini %Pokemon ConstrictMPP 35 
    Writeini -n $nick $+ .ini %Pokemon WithdrawMPP 40
    Writeini -n $nick $+ .ini Pokemon %Pokemon yes
    Set %Gender $Rand(1,2)
    if (%Gender == 1) { writeini -n $nick $+ .ini %Pokemon Gender Male }
    if (%Gender == 2) { writeini -n $nick $+ .ini %Pokemon Gender Female }
    Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
    Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
    Msg %ChanSet 0From $Name($Nick) $+ 0,1's Helix Fossil, Emerges 10 $+ %Pokemon $+ 0!
    PkmnLateLvL $Nick %Pokemon 40
  }
}
on 1:text:`Gym:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal! | halt }
  if (%SpecialFight = yes) { Notice $nick A Fight is Happening! By: %SpecialFighting | halt }
  if (%tourney = yes) { halt } 
  if (%EliteBattle = yes) { Notice $nick A Fight is Happening! By: %EFighting | halt }
  if ($readini($nick $+ .ini,Travel,Town) == Pewter-City) {
    Set %Npc Brock
    if ($readini($nick $+ .ini,Badge,Boulder) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 5,1 Has Challenged $Name(%Npc) $+ 5,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 5,1 Says "Get Ready for Something Long and Hard! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 5,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Cerulean-City) {
    Set %Npc Misty
    if ($readini($nick $+ .ini,Badge,Cascade) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 11,1 Has Challenged $Name(%Npc) $+ 11,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 11,1 Says "I'll get you wet! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 11,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Vermilion-City) {
    Set %Npc Lt.Surge
    if ($readini($nick $+ .ini,Badge,Thunder) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 8,1 Has Challenged $Name(%Npc) $+ 8,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 8,1 Says "Prepare to get Shocked! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 8,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Celadon-City) {
    Set %Npc Erika
    if ($readini($nick $+ .ini,Badge,Rainbow) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 9,1 Has Challenged $Name(%Npc) $+ 9,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 9,1 Says "Your going to BeLEAF (Laughs), I'm So funny! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 9,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Saffron-City) {
    Set %Npc Sabrina
    if ($readini($nick $+ .ini,Items,SilphScope) != Yes) { Notice $nick You Cannot! | halt }
    if ($readini($nick $+ .ini,Badge,Marsh) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 13,1 Has Challenged $Name(%Npc) $+ 13,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 13,1 Says "Prepare Yourself! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 13,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items Potion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Fuchsia-City) {
    Set %Npc Koga
    if ($readini($nick $+ .ini,Badge,Soul) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 6,1 Has Challenged $Name(%Npc) $+ 6,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 6,1 Says "The boys say I'm Easy But I'm not! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 6,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Cinnibar-Island) {
    Set %Npc Blaine
    if ($readini($nick $+ .ini,Badge,Volcano) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    Msg %ChanSet $Name($Nick) $+ 4,1 Has Challenged $Name(%Npc) $+ 4,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 4,1 Says "When You Play with fire You Will Get Burned! Go $Poke(%Npc) $+ !" $Name($Nick) $+ 4,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
  if ($readini($nick $+ .ini,Travel,Town) == Viridian-City) {
    Set %Npc Giovanni
    if ($readini($nick $+ .ini,Badge,Earth) == Yes) { Notice $nick You Already Beat %Npc $+ ! | halt }
    if ($readini($nick $+ .ini,Badge,Volcano) != Yes) { Notice $nick Sorry The Gym is Closed! | halt }
    Msg %ChanSet $Name($Nick) $+ 0,1 Has Challenged $Name(%Npc) $+ 0,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 0,1 Says "Welcome to The Final Gym in Kanto!!! You think your going to beat this Pokemon...? (Laughs) Pathetic fool I'll show you what real power is!" Go $Poke(%Npc) $+ !" $Name($Nick) $+ 0,1 Says $Motto($Nick)
    Set %SpecialFight Yes 
    Set %SpecialFighting $Nick 
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,3)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Gym
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Gym
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
    Heal $Nick
  }
}
on 1:text:`Start Elite4:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Badge,Boulder) != Yes) { Notice $nick You Dont Have Boulder Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Cascade) != Yes) { Notice $nick You Dont Have Cascade Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Thunder) != Yes) { Notice $nick You Dont Have Thunder Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Rainbow) != Yes) { Notice $nick You Dont Have Rainbow Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Marsh) != Yes) { Notice $nick You Dont Have Marsh Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Soul) != Yes) { Notice $nick You Dont Have Soul Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Volcano) != Yes) { Notice $nick You Dont Have Volcano Badge! | halt }
  if ($readini($nick $+ .ini,Badge,Earth) != Yes) { Notice $nick You Dont Have Earth Badge! | halt }
  if ($readini($nick $+ .ini,Badge,E4Win) == yes) { Notice $nick You Already Beat The Elite 4! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal! | halt }
  if ($readini($nick $+ .ini,Travel,Town) != Indigo-Plateau) { Notice $Nick Your Not At Indigo-Plateau! | Halt }
  if (%tourney = yes) { halt } 
  if (%EFighting = $Nick) { Goto Here } 
  if (%EliteBattle = yes) && (%EFighting != $Nick) { Notice $nick Elite Battle is Being Used By: %EFighting | halt }
  if (%SpecialFight = yes) { Notice $nick A Fight is Happening! By: %SpecialFighting | halt }
  :Here
  if (%Beaten == $Null) {
    Set %EFighting $nick
    Set %EliteBattle yes
    Set %SpecialFight Yes
    Set %Npc Lorelei
    Msg %ChanSet $Name($Nick) $+ 11,1 Has Challenged $Name(%Npc) $+ 11,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 11,1 Says "I am the First Elite 4 and Hopefully the last for you!" Go $Poke(%Npc) $+ !" $Name($Nick) $+ 11,1 Says $Motto($Nick)
    writeini -n %Npc $+ .ini Items HyperPotion 1
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,2)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Elite4
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Elite4
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
  }
  if (%Beaten == 2) {
    Set %EFighting $nick
    Set %EliteBattle yes
    Set %SpecialFight Yes
    Set %Npc Bruno
    Msg %ChanSet $Name($Nick) $+ 7,1 Has Challenged $Name(%Npc) $+ 7,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 7,1 Says "I'm The Second Member of the Elite 4 and I am Going To Show you The True Power Of Fighting Types!" Go $Poke(%Npc) $+ !" $Name($Nick) $+ 7,1 Says $Motto($Nick)
    writeini -n %Npc $+ .ini Items HyperPotion 1
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,2)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Elite4
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Elite4
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
  }
  if (%Beaten == 3) {
    Set %EFighting $nick
    Set %EliteBattle yes
    Set %SpecialFight Yes
    Set %Npc Agatha
    Msg %ChanSet $Name($Nick) $+ 2,1 Has Challenged $Name(%Npc) $+ 2,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 2,1 Says "I'm The 3rd Member of the Elite 4 and its time for you to Feel the pain!" Go $Poke(%Npc) $+ !" $Name($Nick) $+ 2,1 Says $Motto($Nick)
    writeini -n %Npc $+ .ini Items HyperPotion 1
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,2)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Elite4
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Elite4
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
  }
  if (%Beaten == 4) {
    Set %EFighting $nick
    Set %EliteBattle yes
    Set %SpecialFight Yes
    Set %Npc Lance
    Msg %ChanSet $Name($Nick) $+ 0,1 Has Challenged $Name(%Npc) $+ 0,1 in To a Battle! This is a 1 Battle Match! Begin!
    Msg %ChanSet $Name(%Npc) $+ 0,1 Says "So You've come This Far. I'm The Last of the Elite 4 and Now its time to show You The Force Of A Dragon!" Go $Poke(%Npc) $+ !" $Name($Nick) $+ 0,1 Says $Motto($Nick)
    writeini -n %Npc $+ .ini Items HyperPotion 1
    writeini -n %Npc $+ .ini Items SuperPotion $Rand(1,2)
    writeini -n %Npc $+ .ini Items Ether $Rand(1,2)
    writeini -n %Npc $+ .ini Items ParaHeal $Rand(1,2)
    writeini -n %Npc $+ .ini Items Awake $Rand(1,2)
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Singles $+ Elite4
    Writeini -n $Nick $+ .ini $nick FightingWho %Npc
    Writeini -n %Npc $+ .ini %Npc Fighting Yes
    Writeini -n %Npc $+ .ini %Npc Field Singles $+ Elite4
    Writeini -n %Npc $+ .ini %Npc FightingWho $Nick
    Heal %Npc
    SpecialNpc %Npc $Nick
  }
}
on 1:text:`Stop Elite4:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%EliteBattle != yes) { Notice $nick Elite Battle is Not Being Used! | halt }
  if (%EFighting != $Nick) { Notice $nick Your Not Facing the Elites | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  Unset %EFighting
  Unset %EliteBattle
  Unset %Beaten
  Msg %Chanset $Name($Nick) $+ 12,1 Has Stopped Battling the Elite 4!
}
on *:PONG:{
  unset %pingstatus
  if (%pingtime >= 10) { 
    msg %chanset 6!4Controlling Lag6!
    msg %chanset 6!4Hold Commands6!
    Remote off
    pausealltimers
    Unset %Racing
    ignore -u34 * SurrealChat
    .timersetback2 1 15 resumealltimers
    .timersetback3 1 33 msg %chanset 10!3Lag Fixed10!
    .timersetback4 1 34 remote on
    .timersetback5 1 35 unset %pingstatus
  }
}
on *:CONNECT: {
  umode +B
  JOIN #PokemonBattles
  unset %pingstatus
  Timerunlag 0 10 /pingme
  TimerWeatherChange 0 1800 /Weather
  Timernpcenter 0 260 /Npc
  if ($readini(Supa+Weak+Bag $+ .ini,Supa+Weak+Bag,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag $+ .ini,Supa+Weak+Bag,FightingWho) Supa+Weak+Bag }
  if ($readini(Supa+Weak+Bag2 $+ .ini,Supa+Weak+Bag2,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag2 $+ .ini,Supa+Weak+Bag2,FightingWho) Supa+Weak+Bag2 }
  if ($readini(Supa+Weak+Bag3 $+ .ini,Supa+Weak+Bag3,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag3 $+ .ini,Supa+Weak+Bag3,FightingWho) Supa+Weak+Bag3 }
  if ($readini(Weak+Bag $+ .ini,Weak+Bag,Fighting) == yes) { TrainingEnd $readini(Weak+Bag $+ .ini,Weak+Bag,FightingWho) Weak+Bag }
  if ($readini(Weak+Bag2 $+ .ini,Weak+Bag2,Fighting) == yes) { TrainingEnd $readini(Weak+Bag2 $+ .ini,Weak+Bag2,FightingWho) Weak+Bag2 }
  if ($readini(Weak+Bag3 $+ .ini,Weak+Bag3,Fighting) == yes) { TrainingEnd $readini(Weak+Bag3 $+ .ini,Weak+Bag3,FightingWho) Weak+Bag3 }
  if ($readini(Punch+Bag $+ .ini,Punch+Bag,Fighting) == yes) { TrainingEnd $readini(Punch+Bag $+ .ini,Punch+Bag,FightingWho) Punch+Bag }
  if ($readini(Punch+Bag2 $+ .ini,Punch+Bag2,Fighting) == yes) { TrainingEnd $readini(Punch+Bag2 $+ .ini,Punch+Bag2,FightingWho) Punch+Bag2 }
  if ($readini(Punch+Bag3 $+ .ini,Punch+Bag3,Fighting) == yes) { TrainingEnd $readini(Punch+Bag3 $+ .ini,Punch+Bag3,FightingWho) Punch+Bag3 }
  if ($readini(Strong+Bag $+ .ini,Strong+Bag,Fighting) == yes) { TrainingEnd $readini(Strong+Bag $+ .ini,Strong+Bag,FightingWho) Strong+Bag }
  if ($readini(Strong+Bag2 $+ .ini,Strong+Bag2,Fighting) == yes) { TrainingEnd $readini(Strong+Bag2 $+ .ini,Strong+Bag2,FightingWho) Strong+Bag2 }
  if ($readini(Strong+Bag3 $+ .ini,Strong+Bag3,Fighting) == yes) { TrainingEnd $readini(Strong+Bag3 $+ .ini,Strong+Bag3,FightingWho) Strong+Bag3 } 
  TimerOtherInfo 0 1000 /Msg %ChanSet Register at http://ircmalicious.proboards106.com/index.cgi And Get a Rare Candy! Tell Romeo, And Also Join #AnimeChat for Nothing!
  Unset %Choice
  Unset %Hit
  Unset %Rank
  Unset %Rank2
  Unset %Time3
  Unset %Times
  Unset %Gender 
  Unset %3
  Unset %ItemPrice 
  Unset %Rand 
  Unset %Storage 
  Unset %Choices
  Unset %normalfights
  Unset %match1
  Unset %match2
  Unset %x
  Unset %RacingPokemon
  Remote on
}
on *:chat:`Stats:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  LvLCheck $Nick
  msg =$nick 11Trainer: $Name($Nick) $+ 15,1 -11,1 Pokemon: $Pokemon($Nick) $+ 15,1 -11,1 Hp $+ / $+ Max Hp:15 $Stat($nick,Hp) $+ / $+ $Stat($nick,MHP) 15-11 SAttack:15 $Stat($nick,SAttack) 15-11 SDefense:15 $Stat($nick,SDefense) 15-11 Attack:15 $Stat($nick,Attack) 15-11 Defense:15 $Stat($nick,Defense) 15-11 Speed:15 $Stat($nick,FSpeed) $+ / $+ 10 15-11 Level:15 $Stat($nick,Level) 15-11 Exp:15 $Stat($nick,Exp) $+ / $+ $Stat($nick,ExpNeeded)
  Unset %Aura
  Unset %BAura
}
on *:chat:`Start Training *:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Msg =$nick Please Heal Your Pokemon! | halt }
  if ($readini($nick $+ .ini,$Nick,TrainUsed) == Yes) { Msg =$nick Please Type `TA TimeLeft. | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Msg =$nick You Are Healing | halt }
  if (%intourney. [ $+ [ $nick ] ] = yes) { halt }
  if ($istok(%batlist,$Nick,32) == $true) { set %batlist $remtok(%batlist,$Nick,1,32) }
  if ($istok(%OpenChallenge,$Nick,32) == $true) { Msg =$nick You are Doing the Open Challenge! | halt }
  if ($istok(%TOpenChallenge,$Nick,32) == $true) { Msg =$nick You are Doing the 2 Vs 2 Open Challenge! | halt }
  Set %Bag $3
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Supa+Weak+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 7) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Supa+Weak+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 7) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Supa+Weak+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 7) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Weak+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 20) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Weak+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 20) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Weak+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 20) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Punch+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 40) {
    Set %Price 75
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Msg =$nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Punch+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 40) {
    Set %Price 75
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Msg =$nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Punch+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 40) {
    Set %Price 75
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Msg =$nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Strong+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 100) {
    Set %Price 150
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Msg =$nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Strong+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 100) {
    Set %Price 150
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Msg =$nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Strong+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 100) {
    Set %Price 150
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Msg =$nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg =$nick $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Msg =$nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
}
on *:chat:`TEnd Time Left:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,Training) != Yes) { Msg =$nick You Are Not Training! | halt }
  if ($timer(EndTraining $+ $nick).secs = $null) && ($readini($Nick $+ .ini,$Nick,Training) == yes) { Msg =$nick 8GLITCH!4 This Has Been Fixed! | TrainingEnd $Nick | Halt }
  Msg =$nick 14Training Ends in:15 $duration($timer(EndTraining $+ $nick).secs))
}
on *:chat:`Train *:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,Training) != Yes) { Msg =$nick You are Not Training! | halt }
  if ($readini($nick $+ .ini,$Nick,Attacking) == Yes) { Msg =$nick You are Attacking! | halt }
  Set %Attack $2
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) != $true) { Msg =$nick You Dont Have $2 $+ ! | Halt }
  Unset %base.power
  GetBase $1 $2
  if (%base.power == $Null) { Msg =$nick This Move Is Not Aloud in Training! | halt }
  if (SolarBeam == $2) { Msg =$nick This Move Is Not Aloud in Training! | halt }
  if (SpitUp == $2) { Msg =$nick This Move Is Not Aloud in Training! | halt }
  Unset %base.power
  Set %Target [ $readini $nick $+ .ini $Nick FightingWho ]
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
  TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick %Target $2
  Msg =$nick $BName($Nick) $+ 15,1 Prepares to do $2 At $BName(%Target) $+ 15,1!
}
on *:chat:`Read *:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  if ($readini($2 $+ .ini,Register,Complete) != Yes) { Msg =$nick No Such User! | halt }
  Msg =$nick $Name($2) $+ 0,1's Stats: $Pokemon($2) $+ 0,1 is $Poke($2) a $Stat($2,Type) Type Pokemon. 0Type 2:15 $Stat($2,Type2) 7-0 Hp:15 $Stat($2,Hp)
}
on *:chat:`TA Time Left:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,TrainUsed) != Yes) { Msg =$nick You Have not Used Training! | halt }
  if ($timer(Tagain $+ $nick).secs = $null) && ($readini($Nick $+ .ini,$Nick,TrainUsed) == yes) { Msg =$nick 8GLITCH!4 This Has Been Fixed! | TAgain $Nick $readini($Nick $+ .ini,$Nick,FightingWho) | Halt }
  Msg =$nick 14Training Again in:15 $duration($timer(Tagain $+ $nick).secs))
}
on *:chat:`Slots:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if ($readini($nick $+ .ini,Items,GC) < 2) { Msg =$nick $nick Not Enough Game Coins! | halt }
  if ($readini($nick $+ .ini,Items,GC) == $null) { Msg =$nick $nick Not Enough Game Coins! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Msg =$nick $nick You are playing the Craps! | halt }
  if ($timer(Craps).secs != $null) { Msg =$nick $nick Please Wait 5 Seconds! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { Msg =$nick $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  TimerCraps 1 5 /Unset %Carps
  writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - 2)
  Set %Slot1 $Rand(1,4)
  Set %Slot2 $Rand(1,4)
  Set %Slot3 $Rand(1,4)
  Set %Slot4 $Rand(1,4)
  if (%Slot1 == 1) { Set %Slot1 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot1 == 2) { Set %Slot1 0,1[11,1 BaR 0,1] }
  if (%Slot1 == 3) { Set %Slot1 0,1[9,1 777 0,1] }
  if (%Slot1 == 4) { Set %Slot1 0,1[8,1 LeMoN 0,1] }
  if (%Slot2 == 1) { Set %Slot2 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot2 == 2) { Set %Slot2 0,1[11,1 BaR 0,1] }
  if (%Slot2 == 3) { Set %Slot2 0,1[9,1 777 0,1] }
  if (%Slot2 == 4) { Set %Slot2 0,1[8,1 LeMoN 0,1] }
  if (%Slot3 == 1) { Set %Slot3 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot3 == 2) { Set %Slot3 0,1[11,1 BaR 0,1] }
  if (%Slot3 == 3) { Set %Slot3 0,1[9,1 777 0,1] }
  if (%Slot3 == 4) { Set %Slot3 0,1[8,1 LeMoN 0,1] }
  if (%Slot4 == 1) { Set %Slot4 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot4 == 2) { Set %Slot4 0,1[11,1 BaR 0,1] }
  if (%Slot4 == 3) { Set %Slot4 0,1[9,1 777 0,1] }
  if (%Slot4 == 4) { Set %Slot4 0,1[8,1 LeMoN 0,1] }
  Msg =$nick 8The Slots Were: %Slot1 14- %Slot2 14- %Slot3 14- %Slot4
  if (%Slot1 == 0,1[4,1 JaCkPoT 0,1]) && (%Slot2 == 0,1[4,1 JaCkPoT 0,1]) && (%Slot3 == 0,1[4,1 JaCkPoT 0,1]) && (%Slot4 == 0,1[4,1 JaCkPoT 0,1]) { Msg =$nick 4JACKPOT! $Name($Nick) $+ 4,1 Won: 5000 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 5000) | Halt }
  if (%Slot1 == 0,1[11,1 BaR 0,1]) && (%Slot2 == 0,1[11,1 BaR 0,1]) && (%Slot3 == 0,1[11,1 BaR 0,1]) && (%Slot4 == 0,1[11,1 BaR 0,1]) { Msg =$nick $Name($Nick) $+ 0,1 Won: 50 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 50) | Halt }
  if (%Slot1 == 0,1[9,1 777 0,1]) && (%Slot2 == 0,1[9,1 777 0,1]) && (%Slot3 == 0,1[9,1 777 0,1]) && (%Slot4 == 0,1[9,1 777 0,1]) { Msg =$nick 9Lucky Sevens! $Name($Nick) $+ 0,1 Won: 1000 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 1000) | Halt }
  if (%Slot1 == 0,1[8,1 LeMoN 0,1]) && (%Slot2 == 0,1[8,1 LeMoN 0,1]) && (%Slot3 == 0,1[8,1 LeMoN 0,1]) && (%Slot4 == 0,1[8,1 LeMoN 0,1]) { Msg =$nick $Name($Nick) $+ 0,1 Has Won: 500 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 500) | Halt }
  Unset %Slot1
  Unset %Slot2
  Unset %Slot3
  Unset %Slot4
}
on *:chat:`Stop Craps:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if (%betting == yes) { Msg =$nick $nick You've Already placed a bet. | halt }
  if (%game.start != yes) { halt }
  if (%PlayingCraps != $nick) { halt }
  unset %point.set
  unset %point
  unset %game.start 
  unset %betting
  unset %bet
  unset %1roll
  unset %2roll
  unset %rolls
  set %game.start no 
  set %point.set no
  set %betting no
  Unset %PlayingCraps
  Msg =$nick $nick $Name($Nick) $+ 11,1 Has stopped Playing Craps, $Name($Nick) $+ 9,1 Walks Away with %CrapMoney GC!
  writeini $nick $+ .ini Items GC %CrapMoney
  unset %CrapMoney
}
on *:chat:`Craps:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if ($readini($nick $+ .ini,Items,GC) <= 1) { Msg =$nick $nick Not Enough Game Coins! | halt }
  if ($readini($nick $+ .ini,Items,GC) == $null) { Msg =$nick $nick Not Enough Game Coins! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { Msg =$nick $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  if (%game.start == yes) { halt }
  Set %PlayingCraps $nick | set %game.start yes | set %CrapMoney $readini($nick $+ .ini,Items,GC) | Msg =$nick $nick Welcome to Pokemon Craps in our Casino. type `Bet (Amount). You Have $readini($nick $+ .ini,Items,GC) GC. Type `Stop Craps at any time to walk away.
}
on *:chat:`Bet *:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if (%betting == yes) { Msg =$nick $nick You've already placed a bet! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  if ($2 !isnum) { Msg =$nick $nick Sorry $nick $+ , you need to Bet Numbers! | halt }
  if (%game.start != yes) { halt }
  if (%PlayingCraps != $nick) { halt }
  if (%CrapMoney < $2) { Msg =$nick $nick You Dont Have that Much GC! | halt }
  set %bet $round($2,0) | set %betting yes | set %CrapMoney $calc(%CrapMoney - %bet) | Msg =$nick $nick $Name($Nick) $+ 11,1 Puts down %bet GC! Type `Roll to start your Round.
  else { Msg =$nick $nick 11Either you didn't enter in a number, or you don't have that much money, $Name($Nick) $+ 11,1 Try again. }
}
on *:chat:`Roll:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  if (%game.start != yes) { halt }
  if (%PlayingCraps != $nick) { halt }
  if (%betting == yes) && (%point.set == no) {
    set %1roll $rand(1,6) | set %2roll $rand(1,6) | set %rolls $calc(%1roll + %2roll)
    Msg =$nick $nick $Name($Nick) $+ 11,1 Rolled %1roll and %2roll for a total of %rolls $+ .
    if (%rolls == 7 || %rolls == 11) { set %CrapMoney $calc(%bet * 2 + %CrapMoney) | set %betting no | Msg =$nick $Name($Nick) $+ 11,1 !4WINS11! On The Come Out Roll! | Msg =$nick $nick $Name($Nick) $+ 11,1 Has Won %bet GC, for a total of %CrapMoney GC. | /halt }
    if (%rolls == 2 || %rolls == 3 || %rolls == 12) { set %betting no | Msg =$nick $nick What a crappy roll (no pun intended). $Name($Nick) $+ 11,1 Loses on the come-out roll. | Msg =$nick $nick $Name($Nick) $+ 11,1 has lost %bet GC, for a total of %CrapMoney GC. | /halt }  
    else { set %point %rolls | set %point.set yes | Msg =$nick $nick Point set to %point $+ . }  
  }  
  if (%betting == no) { Msg =$nick $nick You have not yet placed a bet, $Name($Nick) $+ 11,1! }
  if (%betting == yes && %point.set == yes) {
    set %1roll $rand(1,6) | set %2roll $rand(1,6) | set %rolls $calc(%1roll + %2roll)
    Msg =$nick $nick $Name($Nick) $+ 11,1 Rolled %1roll and %2roll for a total of %rolls $+ .
    if (%rolls == %point) { set %CrapMoney $calc(%bet * 2 + %CrapMoney) | set %betting no | set %point.set no | Msg =$nick $Name($Nick) $+ 11,1 Hit the Point! | Msg =$nick $nick $Name($Nick) $+ 11,1 has won %bet GC, for a total of %CrapMoney GC. }
    if (%rolls == 7) { set %betting no | set %point.set no | Msg =$nick $nick Lucky sevens eh? Better luck next time. | Msg =$nick $nick $Name($Nick) $+ 11,1 has lost %bet GC, for a total of %CrapMoney GC. | /halt }    
    if (%rolls != %point) { Msg =$nick $nick You did not hit the point, $Name($Nick) $+ 11,1. Roll again. }
  }
}
on *:chat:`Pokemon Racing:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { Msg =$nick $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  if (%PlayingCraps == $nick) { Msg =$nick $nick You are playing the Craps! | halt }
  if (%Racing == On) { Msg =$nick $nick Cant! | halt }
  Msg =$nick $nick  Welcome To Pokemon Racing! To see the Pokemon Which are Racing type: 9`Racers
}
on *:chat:`Racers:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Msg =$nick $nick You are playing the Craps! | halt }
  if (%Racing == On) { Msg =$nick $nick Cant! | halt }
  Msg =$nick $nick The Pokemon Which are Racing: Blaze(Rapidash) Fang(Arcanine) Gira(Girafarig) Tails(Ninetales) Thunda(Jolteon)! Type: `RaceBet (Racer Your Betting On) (Amount)
}
on *:chat:`RaceBet *:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Msg =$nick $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Msg =$nick $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Msg =$nick $nick You are playing the Craps! | halt }
  if ($2 == $null) { Msg =$nick $nick Sorry $nick $+ , you need to put a Pokemon name! | halt }
  if ($3 == $null) { Msg =$nick $nick Sorry $nick $+ , you need to Bet Some GC! | halt }
  if ($3 !isnum) { Msg =$nick $nick Sorry $nick $+ , you need to Bet Numbers! | halt }
  if ($readini($nick $+ .ini,Items,GC) < $3) { Msg =$nick $nick You Dont Have That Much GC! | halt }
  if (%Racing == On) { Msg =$nick $nick Cant! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { Msg =$nick $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  Set %Racers Blaze Fang Gira Tails Thunda
  if ($istok(%Racers,$2,32) == $False) { Msg =$nick $nick Please Choose One of The Racers! | halt }
  Set %Racing On
  TimerRacing 1 360 Set %Racing off
  Set %WinningRacingPokemon $$gettok(%Racers,$r(1,$numtok(%Racers,32)),32)
  set %RacingPokemon $2 
  Msg =$nick The Pokemon are lining up . . . and they're OFF!
  TimerR1 1 2 Msg =$nick here they go, down the backstretch . . .
  TimerR2 1 5 Msg =$nick they're rounding the back turn . . .
  TimerR3 1 9 Msg =$nick down the stretch they come . . . the crowd roars . . .
  TimerR4 1 11 Msg =$nick here they come past the post . . .
  TimerR5 1 13 Msg =$nick and the winner is:4  %WinningRacingPokemon
  TimerRaceEnd 1 14 /Racers $nick $2 $3
}
on *:chat:`Top10:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Msg =$nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Msg =$nick Login! | halt }
  top10
  timerTopContro1 1 21 /Unset %Top*
  Msg =$nick 4Rank #1:  $+ %top1 $+  9Rank #2:  $+ %top2 $+  11Rank #3:  $+ %top3 $+  8Rank #4:  $+ %top4 $+  13Rank #5:  $+ %top5 $+ 
  Msg =$nick 12Rank #6:  $+ %top6 $+  10Rank #7:  $+ %top7 $+  3Rank #8:  $+ %top8 $+  7Rank #9:  $+ %top9 $+  14Rank #10:  $+ %top10 $+ 
}
on 1:text:`Start Training*:*: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal Your Pokemon! | halt }
  if ($readini($nick $+ .ini,$Nick,TrainUsed) == Yes) { Notice $nick Please Type `TA Time Left. | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if (%intourney. [ $+ [ $nick ] ] = yes) { halt }
  if (%tourneystarted = yes) { halt } 
  if ($istok(%batlist,$Nick,32) == $true) { set %batlist $remtok(%batlist,$Nick,1,32) }
  if ($istok(%OpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the Open Challenge! | halt }
  if ($istok(%TOpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the 2 Vs 2 Open Challenge! | halt }
  Set %Bag $3
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Supa+Weak+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 10) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Supa+Weak+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 10) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Supa+Weak+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 10) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Weak+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 20) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Weak+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 20) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Weak+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 20) {
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Punch+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 40) {
    Set %Price 75
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Notice $nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Punch+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 40) {
    Set %Price 75
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Notice $nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Punch+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 40) {
    Set %Price 75
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Notice $nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Strong+Bag) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 100) {
    Set %Price 150
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Notice $nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Strong+Bag2) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 100) {
    Set %Price 150
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Notice $nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
  if ($readini(%Bag $+ .ini,%Bag,Fighting) != Yes) && (%Bag == Strong+Bag3) && ($readini($nick $+ .ini,$Poke($Nick),Level) <= 100) {
    Set %Price 150
    if ($readini($nick $+ .ini,$Nick,Money) < %Price) { Notice $nick Not Enough Money! | halt }
    writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
    Writeini -n $nick $+ .ini $nick Training Yes
    Writeini -n $nick $+ .ini $nick Fighting Yes
    Writeini -n $nick $+ .ini $nick Field Training $+ %Battles
    Writeini -n $Nick $+ .ini $nick FightingWho %Bag
    Writeini -n %Bag $+ .ini %Bag Fighting Yes
    Writeini -n %Bag $+ .ini %Bag Field Training $+ %Battles
    Writeini -n %Bag $+ .ini %Bag FightingWho $Nick
    Msg %ChanSet $BName($Nick) $+ 15,1 Starts to Train on %Bag $+ !
    Notice $Nick Type `Train (Attack)
    TimerEndTraining $+ $Nick 1 600 /TrainingEnd $Nick %Bag
    Heal %Bag
    Heal $Nick
  }
}
on 1:TEXT:`TEnd Time Left:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,Training) != Yes) { Notice $nick You Are Not Training! | halt }
  if ($timer(EndTraining $+ $nick).secs = $null) && ($readini($Nick $+ .ini,$Nick,Training) == yes) { Notice $Nick 8GLITCH!4 This Has Been Fixed! | TrainingEnd $Nick $readini($Nick $+ .ini,$Nick,FightingWho) | Halt }
  Notice $nick 14Training Ends in:15 $duration($timer(EndTraining $+ $nick).secs))
}
On 1:Text:`Train *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,Training) != Yes) { Notice $nick You are Not Training! | halt }
  if ($readini($nick $+ .ini,$Nick,Attacking) == Yes) { Notice $Nick You are Attacking! | halt }
  Set %Attack $2
  Set %Attacks $readini($nick $+ .ini,$Poke($Nick),Attack1) $readini($nick $+ .ini,$Poke($Nick),Attack2) $readini($nick $+ .ini,$Poke($Nick),Attack3) $readini($nick $+ .ini,$Poke($Nick),Attack4)
  if ($istok(%Attacks,%Attack,32) != $true) { Notice $Nick You Dont Have $2 $+ ! | Halt }
  Unset %base.power
  GetBase $1 $2
  if (%base.power == $Null) { Notice $nick This Move Is Not Aloud in Training! | halt }
  if (SolarBeam == $2) { Notice $nick This Move Is Not Aloud in Training! | halt }
  if (SpitUp == $2) { Notice $nick This Move Is Not Aloud in Training! | halt }
  Unset %base.power
  Set %Target [ $readini $nick $+ .ini $Nick FightingWho ]
  Writeini -n $nick $+ .ini $nick Attacking Yes
  Set %Time $Round($Calc( $readini($nick $+ .ini,$Poke($Nick),Speed) * 3 ),0)
  TimerAttack $+ $nick 1 %Time /GatheringInfo $Nick %Target $2
  Msg %ChanSet $BName($Nick) $+ 15,1 Prepares to do $2 At $BName(%Target) $+ 15,1!
}
on 1:TEXT:`TA Time Left:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$Nick,TrainUsed) != Yes) { Notice $nick You Have not Used Training! | halt }
  if ($timer(Tagain $+ $nick).secs = $null) && ($readini($Nick $+ .ini,$Nick,TrainUsed) == yes) { Notice $Nick 8GLITCH!4 This Has Been Fixed! | TAgain $Nick | Halt }
  Notice $nick 14Training Again in:15 $duration($timer(Tagain $+ $nick).secs))
}
on 1:text:*`Start Pc:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,$nick,money) < 1000) { Notice $nick 1000 Zenny is Needed! | halt }
  if ($readini($nick $+ .ini,Pc,Made) == Yes) { Notice $nick You Already Have a Pc Account! | halt }
  writeini -n $nick $+ .ini Pc Made Yes
  writeini -n $nick $+ .ini Pc UpGradeCost 200
  writeini -n $nick $+ .ini Pc UpGrade 1
  writeini -n $nick $+ .ini Pc Storage 3
  writeini -n $nick $+ .ini Pc Stored 0
  writeini -n $nick $+ .ini Pc Trade No
  writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - 1000)
  Msg %ChanSet $Name($Nick) $+ 11,1 Has Started A Pc Account. 
  Notice $Nick You Have Space To Fit Up To 3 Pokemon. Check `Help Pc For Further Help!
}
on 1:text:*`Upgrade Pc:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Pc,Made) != Yes) { Notice $nick You do Not have a Pc Account! | halt }
  Set %Cost $readini($nick $+ .ini,Pc,UpGradeCost)
  if ($readini($nick $+ .ini,$nick,money) < %Cost) { Notice $nick Not Enough Money!! | halt }
  writeini -n $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Cost)
  writeini -n $nick $+ .ini Pc UpGradeCost $calc($readini($nick $+ .ini,Pc,UpGradeCost) + 200)
  writeini -n $nick $+ .ini Pc UpGrade $calc($readini($nick $+ .ini,Pc,UpGrade) + 1)
  writeini -n $nick $+ .ini Pc Storage $calc($readini($nick $+ .ini,Pc,Storage) + 3)
  Msg %ChanSet $Name($Nick) $+ 11,1 Upgrades $Gender($Nick) Account. 
}
on *:text:`Deposit *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Pc,Made) != Yes) { Notice $nick You do Not have a Pc Account! | halt }
  Set %Storage $readini($nick $+ .ini,Pc,Storage)
  if ($readini($nick $+ .ini,Pc,Stored) >= %Storage) { Notice $nick The Box is Full! | halt }
  if ($readini($nick $+ .ini,$2,Stored) == Yes) { Notice $nick $2 is Stored in the Box Already! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$2,Pokemon) == $Null) { Notice $nick You Dont Have $2 $+ ! | halt }
  if ($readini($nick $+ .ini,$nick,Pokemon) == $2) { Notice $nick You Must Remove $2 as your Starter. | halt }
  writeini -n $nick $+ .ini Pc Stored $calc($readini($nick $+ .ini,Pc,Stored) + 1)
  writeini -n $nick $+ .ini $2 Stored Yes
  writeini -n $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) - 1)
  Msg %ChanSet $Name($Nick) $+ 11,1 Stored $2 In to the Deposit Box!
}
on *:text:`WithDraw *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Pc,Made) != Yes) { Notice $nick You do Not have a Pc Account! | halt }
  if ($readini($nick $+ .ini,$nick,Party) == 6) { Notice $nick Your Party is Full! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,Pc,Stored) == 0) { Notice $nick Storage Box Is Empty. | halt }
  if ($readini($nick $+ .ini,$2,Stored) != Yes) { Notice $nick $2 is not Stored! | halt }
  if ($readini($nick $+ .ini,$2,Pokemon) == $Null) { Notice $nick You Dont Have $2 $+ ! | halt }
  writeini -n $nick $+ .ini Pc Stored $calc($readini($nick $+ .ini,Pc,Stored) - 1)
  writeini -n $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
  writeini -n $nick $+ .ini $2 Stored No
  Msg %ChanSet $Name($Nick) $+ 11,1 Withdrew $2 out of the Deposit Box!
}
on *:text:`Trade *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Pc,Made) != Yes) { Notice $nick You do Not have a Pc Account! | halt }
  if ($readini($2 $+ .ini,Pc,Made) != Yes) { Notice $nick $2 does Not have a Pc Account! | halt }
  if ($readini($nick $+ .ini,$3,Pokemon) == $Null) { Notice $nick You Dont Have $3 $+ ! | halt }
  if ($readini($2 $+ .ini,$4,Pokemon) == $Null) { Notice $nick $2 Does not Have $4 $+ ! | halt }
  if ($readini($nick $+ .ini,$5,Pokemon) != $Null) { Notice $nick You Already Have $5 $+ ! | halt }
  if ($readini($nick $+ .ini,$3,Stored) == Yes) { Notice $nick $3 is Stored! | halt }
  if ($readini($2 $+ .ini,$4,Stored) == Yes) { Notice $nick $4 is Stored! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Pokemon) != $3) { Notice $nick $3 is Not in Your Starter! | halt }
  if ($readini($2 $+ .ini,$2,Pokemon) != $4) { Notice $nick $4 is Not in Your Starter! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) == yes) { Notice $nick $2 is Battling! | halt }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) < 3) { Notice $Nick Your Trainer Level is to Low to Trade | Halt }
  if ($readini($2 $+ .ini,$2,TrainerLevel) < 3) { Notice $Nick $2 $+ 's Trainer Level is to Low to Trade | Halt }
  if ($2 == $nick) { Notice $nick You Cannot Trade with Yourself! | halt }
  if ($2 ison %ChanSet) {
    set -u120 %trade. [ $+ [ $nick ] ] $2 
    writeini -n $nick $+ .ini Trade Offer $3
    writeini -n $nick $+ .ini Trade Want $4
    writeini -n $2 $+ .ini Trade Offer $4
    writeini -n $2 $+ .ini Trade Want $3
    Msg %ChanSet $Name($Nick) $+ 11,1 Offers to Trade $Gender($Nick) $Pokemon($Nick) $+ 11,1 for $Name($2) $+ 11,1's $Pokemon($2) $+ 11,1!
    Notice $2 Type `Accept Trade $Nick $4 $3 - If Not Dont Type anything! 
  }
}
on *:text:`Accept Trade *:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Pc,Made) != Yes) { Notice $nick You do Not have a Pc Account! | halt }
  if (%trade. [ $+ [ $3 ] ] != $nick) { Notice $nick $3 did not Offer to Trade! | halt }  
  if ($readini($nick $+ .ini,$5,Pokemon) != $Null) { Notice $nick You Already Have $5 $+ ! | halt }
  if ($readini($nick $+ .ini,Trade,Offer) != $4) && ($readini($2 $+ .ini,Trade,Offer) != $5) && ($readini($nick $+ .ini,Trade,Want) != $5) && ($readini($2 $+ .ini,Trade,Want) != $4) { Notice $nick Something is Wrong! Please Check if Your Doing it Right. | halt }
  if ($readini($nick $+ .ini,$4,Stored) == Yes) { Notice $nick $4 is Stored | halt }
  if ($readini($3 $+ .ini,$5,Stored) == Yes) { Notice $nick $3 has $5 Stored! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$4,Pokemon) == $Null) { Notice $nick You Dont Have $4 $+ ! | halt }
  if ($readini($3 $+ .ini,$5,Pokemon) == $Null) { Notice $nick $3 Does not Have $5 $+ ! | halt }
  if ($readini($nick $+ .ini,$nick,Pokemon) != $4) { Notice $nick $4 is Not in Your Starter! | halt }
  if ($readini($3 $+ .ini,$3,Pokemon) != $5) { Notice $nick $5 is Not in Your Starter! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$nick,TrainerLevel) < 3) { Notice $Nick Your Trainer Level is to Low to Trade | Halt }
  if ($readini($3 $+ .ini,$3,TrainerLevel) < 3) { Notice $Nick $3 $+ 's Trainer Level is to Low to Trade | Halt }
  if ($readini($3 $+ .ini,$3,Fighting) == yes) { Notice $nick $3 is Battling! | halt }
  if ($3 ison %ChanSet) {
    GivingPokemon $Nick $3 $4
    GivingPokemon $3 $Nick $5
    Writeini -n $3 $+ .ini $3 Pokemon $4
    Writeini -n $Nick $+ .ini $Nick Pokemon $5
    Heal $3
    Heal $Nick
    Msg %Chanset $Name($Nick) $+ 15,1( $+ $Pokemon($Nick) $+ 15,1) 4<=======> $Name($3) $+ 15,1( $+ $Pokemon($3) $+ 15,1) $+ 4!
  }
}
on 1:text:`Tournament*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($istok(%Access,$Nick,32) == $False) { Notice $nick You Dont Have Access! | halt }
  if (%Tourney == yes) { Notice $nick There Is Tournament Going on! | halt }
  if ($istok(%Admin,$Nick,32) == $False) && ($3 > 2000) { Notice $nick Sorry But You Dont Have That Much Access To Make The Prize That! | halt }
  if ($2 == $Null) { Notice $nick Please Put a Level Limit! | halt }
  if ($2 !isnum) { halt }
  if ($3 == $Null) { Notice $nick Please Put a Money Prize! | halt }
  if ($3 !isnum) { halt }
  Set %TourneyLvLLimit $2
  unset %tourneyover
  unset %tourneyparticipants
  unset %TEntered
  Set %WinningGil $3
  set %Tourney yes
  Msg %ChanSet 8Tournament!4 A Tournament Has Started, Type `Join Tournament To Join 8Tournament!
  Msg %ChanSet 8Tournament!4 9Prize:15 $3 8-9 Second Prize:15 $Calc($3 / 2) 9Level Limit:15 $2 8Tournament!
  if ($readini(Supa+Weak+Bag $+ .ini,Supa+Weak+Bag,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag $+ .ini,Supa+Weak+Bag,FightingWho) Supa+Weak+Bag }
  if ($readini(Supa+Weak+Bag2 $+ .ini,Supa+Weak+Bag2,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag2 $+ .ini,Supa+Weak+Bag2,FightingWho) Supa+Weak+Bag2 }
  if ($readini(Supa+Weak+Bag3 $+ .ini,Supa+Weak+Bag3,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag3 $+ .ini,Supa+Weak+Bag3,FightingWho) Supa+Weak+Bag3 }
  if ($readini(Weak+Bag $+ .ini,Weak+Bag,Fighting) == yes) { TrainingEnd $readini(Weak+Bag $+ .ini,Weak+Bag,FightingWho) Weak+Bag }
  if ($readini(Weak+Bag2 $+ .ini,Weak+Bag2,Fighting) == yes) { TrainingEnd $readini(Weak+Bag2 $+ .ini,Weak+Bag2,FightingWho) Weak+Bag2 }
  if ($readini(Weak+Bag3 $+ .ini,Weak+Bag3,Fighting) == yes) { TrainingEnd $readini(Weak+Bag3 $+ .ini,Weak+Bag3,FightingWho) Weak+Bag3 }
  if ($readini(Punch+Bag $+ .ini,Punch+Bag,Fighting) == yes) { TrainingEnd $readini(Punch+Bag $+ .ini,Punch+Bag,FightingWho) Punch+Bag }
  if ($readini(Punch+Bag2 $+ .ini,Punch+Bag2,Fighting) == yes) { TrainingEnd $readini(Punch+Bag2 $+ .ini,Punch+Bag2,FightingWho) Punch+Bag2 }
  if ($readini(Punch+Bag3 $+ .ini,Punch+Bag3,Fighting) == yes) { TrainingEnd $readini(Punch+Bag3 $+ .ini,Punch+Bag3,FightingWho) Punch+Bag3 }
  if ($readini(Strong+Bag $+ .ini,Strong+Bag,Fighting) == yes) { TrainingEnd $readini(Strong+Bag $+ .ini,Strong+Bag,FightingWho) Strong+Bag }
  if ($readini(Strong+Bag2 $+ .ini,Strong+Bag2,Fighting) == yes) { TrainingEnd $readini(Strong+Bag2 $+ .ini,Strong+Bag2,FightingWho) Strong+Bag2 }
  if ($readini(Strong+Bag3 $+ .ini,Strong+Bag3,Fighting) == yes) { TrainingEnd $readini(Strong+Bag3 $+ .ini,Strong+Bag3,FightingWho) Strong+Bag3 }
}
on 1:text:`Join Tournament:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%Tourney != yes) { Notice $nick There Is No Tournament! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Level) > %TourneyLvLLimit) { Notice $nick You Are Above The LvL Limit. | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal! | halt }
  if (%intourney. [ $+ [ $nick ] ] = yes) { halt }
  if (%tourneystarted = yes) { halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal Your Pokemon! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if ($istok(%OpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the Open Challenge! | halt }
  if ($istok(%TOpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the 2 Vs 2 Open Challenge! | halt }
  set %intourney. [ $+ [ $nick ] ] yes
  notice $nick 15You Have Been Entered In The Tournament!
  write TP2.txt $nick
  inc %tourneyparticipants 1
  set %TEntered %TEntered $nick
}
on 1:text:`Start Tournament:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($istok(%Access,$Nick,32) == $False) { Notice $nick You Dont Have Access! | halt }
  if ($lines(TP2.txt) < 3) { Notice $nick Not Enough People! | halt }
  if ($lines(TP2.txt) > 12) { Notice $nick Enough People! | halt }
  RandomTourament
  set %tourneystarted yes
  set %nextmatchnumber 1
  UnSet %TourneyLvLLimit
  msg %ChanSet Match #1:15 $read(TP1.txt,1) 9VS15 $read(TP1.txt,2) 
  set %normalfights off
  set %currentmatch. [ $+ [ $read(TP1.txt,1) ] ] yes
  set %currentmatch. [ $+ [ $read(TP1.txt,2) ] ] yes
  set %match1 $read(TP1.txt,1)
  set %match2 $read(TP1.txt,2)
  write -dl1 TP1.txt
  write -dl1 TP1.txt
  Inc %Battles
  if ($readini(Supa+Weak+Bag $+ .ini,Supa+Weak+Bag,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag $+ .ini,Supa+Weak+Bag,FightingWho) Supa+Weak+Bag }
  if ($readini(Supa+Weak+Bag2 $+ .ini,Supa+Weak+Bag2,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag2 $+ .ini,Supa+Weak+Bag2,FightingWho) Supa+Weak+Bag2 }
  if ($readini(Supa+Weak+Bag3 $+ .ini,Supa+Weak+Bag3,Fighting) == yes) { TrainingEnd $readini(Supa+Weak+Bag3 $+ .ini,Supa+Weak+Bag3,FightingWho) Supa+Weak+Bag3 }
  if ($readini(Weak+Bag $+ .ini,Weak+Bag,Fighting) == yes) { TrainingEnd $readini(Weak+Bag $+ .ini,Weak+Bag,FightingWho) Weak+Bag }
  if ($readini(Weak+Bag2 $+ .ini,Weak+Bag2,Fighting) == yes) { TrainingEnd $readini(Weak+Bag2 $+ .ini,Weak+Bag2,FightingWho) Weak+Bag2 }
  if ($readini(Weak+Bag3 $+ .ini,Weak+Bag3,Fighting) == yes) { TrainingEnd $readini(Weak+Bag3 $+ .ini,Weak+Bag3,FightingWho) Weak+Bag3 }
  if ($readini(Punch+Bag $+ .ini,Punch+Bag,Fighting) == yes) { TrainingEnd $readini(Punch+Bag $+ .ini,Punch+Bag,FightingWho) Punch+Bag }
  if ($readini(Punch+Bag2 $+ .ini,Punch+Bag2,Fighting) == yes) { TrainingEnd $readini(Punch+Bag2 $+ .ini,Punch+Bag2,FightingWho) Punch+Bag2 }
  if ($readini(Punch+Bag3 $+ .ini,Punch+Bag3,Fighting) == yes) { TrainingEnd $readini(Punch+Bag3 $+ .ini,Punch+Bag3,FightingWho) Punch+Bag3 }
  if ($readini(Strong+Bag $+ .ini,Strong+Bag,Fighting) == yes) { TrainingEnd $readini(Strong+Bag $+ .ini,Strong+Bag,FightingWho) Strong+Bag }
  if ($readini(Strong+Bag2 $+ .ini,Strong+Bag2,Fighting) == yes) { TrainingEnd $readini(Strong+Bag2 $+ .ini,Strong+Bag2,FightingWho) Strong+Bag2 }
  if ($readini(Strong+Bag3 $+ .ini,Strong+Bag3,Fighting) == yes) { TrainingEnd $readini(Strong+Bag3 $+ .ini,Strong+Bag3,FightingWho) Strong+Bag3 }
  Writeini -n %match1 $+ .ini %match1 Training No
  Writeini -n %match2 $+ .ini %match2 Training No
  Writeini -n %match1 $+ .ini %match1 Fighting Yes
  Writeini -n %match1 $+ .ini %match1 Field Singles $+ %Battles
  Writeini -n %match1 $+ .ini %match1 FightingWho %match2
  Writeini -n %match2 $+ .ini %match2 Fighting Yes
  Writeini -n %match2 $+ .ini %match2 Field Singles $+ %Battles
  Writeini -n %match2 $+ .ini %match2 FightingWho %match1
  Msg %ChanSet $Name(%match1) $+ 8,1 Enters the Arena. $Name(%match1) $+ 8,1 Says:15 $readini(%match1 $+ .ini,%match1,Motto) $Name(%match1) $+ 8,1 Sends out $Pokemon(%match1) $+ 8,1! 
  Msg %ChanSet $Name(%match2) $+ 8,1 Enters the Arena. $Name(%match2) $+ 8,1 Says:15 $readini(%match2 $+ .ini,%match2,Motto) $Name(%match2) $+ 8,1 Sends out $Pokemon(%match2) $+ 8,1! 
}
on 1:text:`Enterees:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%Tourney != yes) { Notice $nick There Is No Tournament! | halt }
  notice $nick 13People Entered 15-9 %TEntered $+ . 13A Total of4 %tourneyparticipants 13People Are Entered.
}
on 1:text:`End Tournament:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($istok(%Access,$Nick,32) == $False) { Notice $nick You Dont Have Access! | halt }
  unset %currentmatch* 
  unset %tourney 
  unset %tourneystarted
  unset %matchesdone
  unset %nextmatchnumber
  Unset %Tentered
  set %tourneyover yes 
  unset %intourney*  
  Unset %WinningGil*
  Unset %TourneyLvLLimit
  Timer -o 1 1 { /write -c TP1.txt }  
  Timer -o 1 1 { /write -c TP2.txt }  
  Msg %ChanSet 4The Tournament Has Been Ended15!
}
on 1:text:`Top5:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($timer(TopContro1).secs != $null) { Notice $nick Please Wait 20 Seconds! | halt }
  top5
  timerTopContro1 1 21 /Unset %Top*
  notice $nick 4,1Rank #1:  $+ %top1 $+  9Rank #2:  $+ %top2 $+  11Rank #3:  $+ %top3 $+  8Rank #4:  $+ %top4 $+  13Rank #5:  $+ %top5 $+ 
}
on 1:text:`Top10:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($timer(TopContro1).secs != $null) { Notice $nick Please Wait 20 Seconds! | halt }
  top10
  timerTopContro1 1 21 /Unset %Top*
  notice $nick 4Rank #1:  $+ %top1 $+  9Rank #2:  $+ %top2 $+  11Rank #3:  $+ %top3 $+  8Rank #4:  $+ %top4 $+  13Rank #5:  $+ %top5 $+ 
  notice $nick 12Rank #6:  $+ %top6 $+  10Rank #7:  $+ %top7 $+  3Rank #8:  $+ %top8 $+  7Rank #9:  $+ %top9 $+  14Rank #10:  $+ %top10 $+ 
}
alias TopCheck {
  return $1- $char($1)
}
alias num {
  if ($1- !isnum) { Return $1- }
  unset %num.len
  unset %num.out
  unset %num.lef
  if ($chr(46) isin $1) {
    set %num.len $mid($1,1,$calc($pos($1,$chr(46),1)-1))
    set %num.lef $mid($1,$pos($1,$chr(46),1),$len($1))
  }
  else { set %num.len $1 }
  while ($len(%num.len) >= 3) {
    set %num.out , $+ $right(%num.len,3) $+ %num.out
    set %num.len $left(%num.len,$calc($len(%num.len) - 3))
  }
  set %num.out %num.len $+ %num.out $+ %num.lef
  return $iif($left(%num.out,1) == $chr(44),$mid($gettok(%num.out,1,32),2,99),%num.out)
}
alias top5 {
  var %x 1
  unset %top*
  :blue
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto blue }
    %top = %top $RTop($read(registered+.txt,%x))
    inc %x
  }
  var %x 1
  %top = $gettok($sorttok(%top,32,nr),1-5,32)
  :start
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto start }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto start }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,1,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top1 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 2
    }
    inc %x
  }
  :2
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 2 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 2 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,2,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top2 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 3
    }
    inc %x
  }
  :3
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 3 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 3 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,3,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top3 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 4
    }
    inc %x
  }
  :4
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 4 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 4 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,4,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top4 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 5
    }
    inc %x
  }
  :5
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 5 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 5 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,5,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top5 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      goto end
    }
    inc %x
  }
  :end
}
alias top10 {
  set %x 1
  unset %top*
  :blue
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto blue }
    var %top = %top $RTop($read(registered+.txt,%x))
    inc %x
  }
  set %x 1
  var %top = $gettok($sorttok(%top,32,nr),1-10,32)
  :start
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto start }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto start }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,1,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top1 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 2
    }
    inc %x
  }
  :2
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 2 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 2 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,2,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top2 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 3
    }
    inc %x
  }
  :3
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 3 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 3 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,3,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top3 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 4
    }
    inc %x
  }
  :4
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 4 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 4 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,4,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top4 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 5
    }
    inc %x
  }
  :5
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 5 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 5 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,5,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top5 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 6
    }
    inc %x
  }
  :6
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 6 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 6 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,6,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top6 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 7
    }
    inc %x
  }
  :7
  while (%x <= $lines(registered+.txt)) {
    echo ha
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 7 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 7 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,7,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top7 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 8
    }
    inc %x
  }
  :8
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 8 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 8 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,8,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top8 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 9
    }
    inc %x
  }
  :9
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 9 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 9 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,9,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top9 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      var %x 1
      goto 10
    }
    inc %x
  }
  :10
  while (%x <= $lines(registered+.txt)) {
    if ($read(registered+.txt,%x) == punch+bag) { inc %x | goto 10 }
    if (%topadd. [ $+ [ $read(registered+.txt,%x) ] ] == yes) { inc %x | goto 10 }
    if ($RTop($read(registered+.txt,%x)) == $gettok(%top,10,32)) {
      set %topadd. [ $+ [ $read(registered+.txt,%x) ] ] yes
      set %top10 $TopCheck($read(registered+.txt,%x)) $+ 12(15 $+ $num($RTop($read(registered+.txt,%x))) $+ 12)
      goto end
    }
    inc %x
  }
  :end
  Unset %x
}
alias RTop {
  return $Calc($readini($1 $+ .ini,$1,TrainerLevel) * ($readini($1 $+ .ini,$Poke($1),Level) * ( ($readini($1 $+ .ini,$Poke($1),MAttack) + $readini($1 $+ .ini,$Poke($1),MHP) + $readini($1 $+ .ini,$Poke($1),MDefense) + $readini($1 $+ .ini,$Poke($1),MSAttack) + $readini($1 $+ .ini,$Poke($1),MSDefense) + $readini($1 $+ .ini,$Poke($1),Accuracy) + $readini($1 $+ .ini,$Poke($1),Intelligence) + $readini($1 $+ .ini,$Poke($1),Agility)))) )
}
on *:text:`GameStore:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  Notice $nick Welcome To The Game Store! 5 Zenny Per Game Coin. Please Type `Buy GC (Amount)
  Notice $nick Why Dont You Try Gambling? Type `Games too see What Games You Can Play With GCs! Trade In That GCs for Tms(`GameStore Tm) Or Pokemon(`GameStore Pokemon) Or Items(`GameStore Items) Or Just Trade In your GCs For Money by `Sell GC (Amount).
  Unset %Town
}
on *:text:`Games:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  Notice $nick Games You Can Play For GC:8 Slots15(12`Slots15) 7-8 Craps15(12`Craps15) 7-8 Pokemon Racing15(12`Pokemon Racing15)
  Unset %Town
}
on 1:text:`Cbuy*:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Party) >= 6) { Notice $nick Your Party Is Full! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if (. isin $3) { Notice $nick Dont Use Decimals! | halt }
  if (- isin $3) { Notice $nick Dont Use -! | halt }
  Set %3 $3
  if ($3 == $null) { set %3 1 }
  if (%3 !isnum) { set %3 1 }
  if (Abra == $2) {
    set %Price 10000
    if ($readini($nick $+ .ini,Items,GC) < %Price) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Items,GC) == $Null) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,$2,Pokemon) != $Null) { Notice $nick You Already Have $2 $+ ! | halt }
    writeini -n $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - %Price)
    Notice $nick You Bought an $2 for %Price GC!
    Writeini -n $nick $+ .ini $2 Pokemon $2
    Writeini -n $nick $+ .ini $2 MAttack 10
    Writeini -n $nick $+ .ini $2 MSAttack 10
    Writeini -n $nick $+ .ini $2 MDefense 10
    Writeini -n $nick $+ .ini $2 MSDefense 10
    Writeini -n $nick $+ .ini $2 MIntelligence 3
    Writeini -n $nick $+ .ini $2 MAccuracy 3
    Writeini -n $nick $+ .ini $2 MAgility 3
    Writeini -n $nick $+ .ini $2 Speed 11
    Writeini -n $nick $+ .ini $2 MSpeed 11
    Writeini -n $nick $+ .ini $2 FSpeed 1
    Writeini -n $nick $+ .ini $2 MFSpeed 1
    Writeini -n $nick $+ .ini $2 MHp 40
    Writeini -n $nick $+ .ini $2 Type Psychic
    Writeini -n $nick $+ .ini $2 Type2 None
    Writeini -n $nick $+ .ini $2 $2 Yes
    Writeini -n $nick $+ .ini $2 Attack1 Teleport
    Writeini -n $nick $+ .ini $2 Attack2 None
    Writeini -n $nick $+ .ini $2 Attack3 None
    Writeini -n $nick $+ .ini $2 Attack4 None
    Writeini -n $nick $+ .ini $2 Level 1
    Writeini -n $nick $+ .ini $2 ExpNeeded 20
    Writeini -n $nick $+ .ini $2 Exp 0
    Writeini -n $nick $+ .ini $2 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $2 SExp 0
    writeini -n $nick $+ .ini $2 Aura 8
    writeini -n $nick $+ .ini $2 BAura 1
    Writeini -n $nick $+ .ini $2 TeleportMPP 20 
    Writeini -n $nick $+ .ini Pokemon $2 yes
    Set %Gender $Rand(1,2)
    if (%Gender == 1) { writeini -n $nick $+ .ini $2 Gender Male }
    if (%Gender == 2) { writeini -n $nick $+ .ini $2 Gender Female }
    Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
    Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
    PkmnLateLvL $Nick $2 15
  }
  if (Hoppip == $2) {
    set %Price 4000
    if ($readini($nick $+ .ini,Items,GC) < %Price) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Items,GC) == $Null) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,$2,Pokemon) != $Null) { Notice $nick You Already Have $2 $+ ! | halt }
    writeini -n $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - %Price)
    Notice $nick You Bought an $2 for %Price GC!
    Writeini -n $nick $+ .ini $2 Pokemon $2
    Writeini -n $nick $+ .ini $2 MAttack 10
    Writeini -n $nick $+ .ini $2 MSAttack 10
    Writeini -n $nick $+ .ini $2 MDefense 10
    Writeini -n $nick $+ .ini $2 MSDefense 10
    Writeini -n $nick $+ .ini $2 MIntelligence 3
    Writeini -n $nick $+ .ini $2 MAccuracy 3
    Writeini -n $nick $+ .ini $2 MAgility 3
    Writeini -n $nick $+ .ini $2 Speed 11
    Writeini -n $nick $+ .ini $2 MSpeed 11
    Writeini -n $nick $+ .ini $2 FSpeed 1
    Writeini -n $nick $+ .ini $2 MFSpeed 1
    Writeini -n $nick $+ .ini $2 MHp 40
    Writeini -n $nick $+ .ini $2 Type Grass
    Writeini -n $nick $+ .ini $2 Type2 Flying
    Writeini -n $nick $+ .ini $2 $2 Yes
    Writeini -n $nick $+ .ini $2 Attack1 Splash
    Writeini -n $nick $+ .ini $2 Attack2 None
    Writeini -n $nick $+ .ini $2 Attack3 None
    Writeini -n $nick $+ .ini $2 Attack4 None
    Writeini -n $nick $+ .ini $2 Level 1
    Writeini -n $nick $+ .ini $2 ExpNeeded 20
    Writeini -n $nick $+ .ini $2 Exp 0
    Writeini -n $nick $+ .ini $2 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $2 SExp 0
    writeini -n $nick $+ .ini $2 Aura 7
    writeini -n $nick $+ .ini $2 BAura 1
    Writeini -n $nick $+ .ini $2 SplashMPP 40 
    Writeini -n $nick $+ .ini Pokemon $2 yes
    Set %Gender $Rand(1,2)
    if (%Gender == 1) { writeini -n $nick $+ .ini $2 Gender Male }
    if (%Gender == 2) { writeini -n $nick $+ .ini $2 Gender Female }
    Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
    Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
    PkmnLateLvL $Nick $2 15
  }
  if (Magikarp == $2) {
    set %Price 4000
    if ($readini($nick $+ .ini,Items,GC) < %Price) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Items,GC) == $Null) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,$2,Pokemon) != $Null) { Notice $nick You Already Have $2 $+ ! | halt }
    writeini -n $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - %Price)
    Notice $nick You Bought an $2 for %Price GC!
    Writeini -n $nick $+ .ini $2 Pokemon $2
    Writeini -n $nick $+ .ini $2 MAttack 10
    Writeini -n $nick $+ .ini $2 MSAttack 10
    Writeini -n $nick $+ .ini $2 MDefense 10
    Writeini -n $nick $+ .ini $2 MSDefense 10
    Writeini -n $nick $+ .ini $2 MIntelligence 3
    Writeini -n $nick $+ .ini $2 MAccuracy 3
    Writeini -n $nick $+ .ini $2 MAgility 3
    Writeini -n $nick $+ .ini $2 Speed 11
    Writeini -n $nick $+ .ini $2 MSpeed 11
    Writeini -n $nick $+ .ini $2 FSpeed 1
    Writeini -n $nick $+ .ini $2 MFSpeed 1
    Writeini -n $nick $+ .ini $2 MHp 40
    Writeini -n $nick $+ .ini $2 Type Water
    Writeini -n $nick $+ .ini $2 Type2 None
    Writeini -n $nick $+ .ini $2 $2 Yes
    Writeini -n $nick $+ .ini $2 Attack1 Splash
    Writeini -n $nick $+ .ini $2 Attack2 None
    Writeini -n $nick $+ .ini $2 Attack3 None
    Writeini -n $nick $+ .ini $2 Attack4 None
    Writeini -n $nick $+ .ini $2 Level 1
    Writeini -n $nick $+ .ini $2 ExpNeeded 20
    Writeini -n $nick $+ .ini $2 Exp 0
    Writeini -n $nick $+ .ini $2 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $2 SExp 0
    writeini -n $nick $+ .ini $2 Aura 4
    writeini -n $nick $+ .ini $2 BAura 1
    Writeini -n $nick $+ .ini $2 SplashMPP 40 
    Writeini -n $nick $+ .ini Pokemon $2 yes
    Set %Gender $Rand(1,2)
    if (%Gender == 1) { writeini -n $nick $+ .ini $2 Gender Male }
    if (%Gender == 2) { writeini -n $nick $+ .ini $2 Gender Female }
    Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
    Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
    PkmnLateLvL $Nick $2 15
  }
  if (Onix == $2) {
    set %Price 4000
    if ($readini($nick $+ .ini,Items,GC) < %Price) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Items,GC) == $Null) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,$2,Pokemon) != $Null) { Notice $nick You Already Have $2 $+ ! | halt }
    writeini -n $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - %Price)
    Notice $nick You Bought an $2 for %Price GC!
    Writeini -n $nick $+ .ini $2 Pokemon $2
    Writeini -n $nick $+ .ini $2 MAttack 10
    Writeini -n $nick $+ .ini $2 MSAttack 10
    Writeini -n $nick $+ .ini $2 MDefense 10
    Writeini -n $nick $+ .ini $2 MSDefense 10
    Writeini -n $nick $+ .ini $2 MIntelligence 3
    Writeini -n $nick $+ .ini $2 MAccuracy 3
    Writeini -n $nick $+ .ini $2 MAgility 3
    Writeini -n $nick $+ .ini $2 Speed 11
    Writeini -n $nick $+ .ini $2 MSpeed 11
    Writeini -n $nick $+ .ini $2 FSpeed 1
    Writeini -n $nick $+ .ini $2 MFSpeed 1
    Writeini -n $nick $+ .ini $2 MHp 40
    Writeini -n $nick $+ .ini $2 Type Rock
    Writeini -n $nick $+ .ini $2 Type2 Ground
    Writeini -n $nick $+ .ini $2 $2 Yes
    Writeini -n $nick $+ .ini $2 Attack1 Tackle
    Writeini -n $nick $+ .ini $2 Attack2 Screech
    Writeini -n $nick $+ .ini $2 Attack3 None
    Writeini -n $nick $+ .ini $2 Attack4 None
    Writeini -n $nick $+ .ini $2 Level 1
    Writeini -n $nick $+ .ini $2 ExpNeeded 20
    Writeini -n $nick $+ .ini $2 Exp 0
    Writeini -n $nick $+ .ini $2 SpeedExpNeeded 10
    Writeini -n $nick $+ .ini $2 SExp 0
    writeini -n $nick $+ .ini $2 Aura 14
    writeini -n $nick $+ .ini $2 BAura 1
    Writeini -n $nick $+ .ini $2 TackleMPP 35
    Writeini -n $nick $+ .ini $2 ScreechMPP 40
    Writeini -n $nick $+ .ini Pokemon $2 yes
    Set %Gender $Rand(1,2)
    if (%Gender == 1) { writeini -n $nick $+ .ini $2 Gender Male }
    if (%Gender == 2) { writeini -n $nick $+ .ini $2 Gender Female }
    Writeini $nick $+ .ini $nick Party $calc($readini($nick $+ .ini,$nick,Party) + 1)
    Writeini $nick $+ .ini $nick MParty $calc($readini($nick $+ .ini,$nick,MParty) + 1)
    PkmnLateLvL $Nick $2 15
  }
  if (Tm26 == $2) {
    set %Price 2000
    if ($readini($nick $+ .ini,Items,GC) < %Price) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Items,GC) == $Null) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Tm,$2) == Yes) { Notice $nick You Already have $2 $+ ! | halt }
    writeini -n $nick $+ .ini Tm $2 Yes
    writeini -n $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - %Price)
    Notice $nick You Bought an $2 for %Price GC!
  }
  if (MetalCoat == $2) {
    set %Price 500
    if ($readini($nick $+ .ini,Items,GC) < %Price) { Notice $nick Not Enough GC! | halt }
    if ($readini($nick $+ .ini,Items,GC) == $Null) { Notice $nick Not Enough GC! | halt }
    writeini -n $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - %Price)
    writeini -n $nick $+ .ini Items $2 $calc($readini($nick $+ .ini,Items,$2) + %3)
    Notice $nick You Bought a $2 for %Price GC!
  }
  Unset %Price
}
on 1:text:`GameStore Pokemon:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  Notice $nick 8Welcome! 4We Only Accept GC!8
  Notice $nick Abra(10,000 GC - Level 15) - Hoppip(4,000 GC - Level 15) - Magikarp(4,000 - Level 15) Onix(4,000 - Level 15)! Type `CBuy (Pokemon)
}
on 1:text:`GameStore Tm:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  Notice $nick 8Welcome! 4We Only Accept GC!8
  Notice $nick Tm26(EarthQuake - 2000)! Type `CBuy (Tm)
}
on 1:text:`GameStore Items:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  Notice $nick 8Welcome! 4We Only Accept GC!8
  Notice $nick MetalCoat(500)! Type `CBuy (Item)
}
on 1:text:`Slots:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Items,GC) < 2) { Notice $nick Not Enough Game Coins! | halt }
  if ($readini($nick $+ .ini,Items,GC) == $null) { Notice $nick Not Enough Game Coins! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($timer(Craps).secs != $null) { Notice $nick Please Wait 5 Seconds! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  TimerCraps 1 5 /Unset %Carps
  writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) - 2)
  Set %Slot1 $Rand(1,4)
  Set %Slot2 $Rand(1,4)
  Set %Slot3 $Rand(1,4)
  Set %Slot4 $Rand(1,4)
  if (%Slot1 == 1) { Set %Slot1 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot1 == 2) { Set %Slot1 0,1[11,1 BaR 0,1] }
  if (%Slot1 == 3) { Set %Slot1 0,1[9,1 777 0,1] }
  if (%Slot1 == 4) { Set %Slot1 0,1[8,1 LeMoN 0,1] }
  if (%Slot2 == 1) { Set %Slot2 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot2 == 2) { Set %Slot2 0,1[11,1 BaR 0,1] }
  if (%Slot2 == 3) { Set %Slot2 0,1[9,1 777 0,1] }
  if (%Slot2 == 4) { Set %Slot2 0,1[8,1 LeMoN 0,1] }
  if (%Slot3 == 1) { Set %Slot3 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot3 == 2) { Set %Slot3 0,1[11,1 BaR 0,1] }
  if (%Slot3 == 3) { Set %Slot3 0,1[9,1 777 0,1] }
  if (%Slot3 == 4) { Set %Slot3 0,1[8,1 LeMoN 0,1] }
  if (%Slot4 == 1) { Set %Slot4 0,1[4,1 JaCkPoT 0,1] }
  if (%Slot4 == 2) { Set %Slot4 0,1[11,1 BaR 0,1] }
  if (%Slot4 == 3) { Set %Slot4 0,1[9,1 777 0,1] }
  if (%Slot4 == 4) { Set %Slot4 0,1[8,1 LeMoN 0,1] }
  Msg %ChanSet The Slots Were: %Slot1 14- %Slot2 14- %Slot3 14- %Slot4
  if (%Slot1 == 0,1[4,1 JaCkPoT 0,1]) && (%Slot2 == 0,1[4,1 JaCkPoT 0,1]) && (%Slot3 == 0,1[4,1 JaCkPoT 0,1]) && (%Slot4 == 0,1[4,1 JaCkPoT 0,1]) { Msg %ChanSet 4JACKPOT! $Name($Nick) $+ 4,1 Won: 5000 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 5000) | Halt }
  if (%Slot1 == 0,1[11,1 BaR 0,1]) && (%Slot2 == 0,1[11,1 BaR 0,1]) && (%Slot3 == 0,1[11,1 BaR 0,1]) && (%Slot4 == 0,1[11,1 BaR 0,1]) { Msg %ChanSet $Name($Nick) $+ 0,1 Won: 50 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 50) | Halt }
  if (%Slot1 == 0,1[9,1 777 0,1]) && (%Slot2 == 0,1[9,1 777 0,1]) && (%Slot3 == 0,1[9,1 777 0,1]) && (%Slot4 == 0,1[9,1 777 0,1]) { Msg %ChanSet 9Lucky Sevens! $Name($Nick) $+ 0,1 Won: 1000 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 1000) | Halt }
  if (%Slot1 == 0,1[8,1 LeMoN 0,1]) && (%Slot2 == 0,1[8,1 LeMoN 0,1]) && (%Slot3 == 0,1[8,1 LeMoN 0,1]) && (%Slot4 == 0,1[8,1 LeMoN 0,1]) { Msg %ChanSet $Name($Nick) $+ 0,1 Has Won: 500 Game Coins! 12Congratulations $Name($Nick) $+ 0,1! | writeini $nick $+ .ini Items GC $calc($readini($nick $+ .ini,Items,GC) + 500) | Halt }
  Unset %Slot1
  Unset %Slot2
  Unset %Slot3
  Unset %Slot4
}
on *:TEXT:`Stop Craps:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%betting == yes) { Notice $nick You've Already placed a bet. | halt }
  if (%game.start != yes) { halt }
  if (%PlayingCraps != $nick) { halt }
  unset %point.set
  unset %point
  unset %game.start 
  unset %betting
  unset %bet
  unset %1roll
  unset %2roll
  unset %rolls
  set %game.start no 
  set %point.set no
  set %betting no
  Unset %PlayingCraps
  Notice $nick $Name($Nick) $+ 11,1 Has stopped Playing Craps, $Name($Nick) $+ 9,1 Walks Away with %CrapMoney GC!
  writeini $nick $+ .ini Items GC %CrapMoney
  unset %CrapMoney
}
on *:TEXT:`Craps:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Items,GC) <= 1) { Notice $nick Not Enough Game Coins! | halt }
  if ($readini($nick $+ .ini,Items,GC) == $null) { Notice $nick Not Enough Game Coins! | halt }
  Set %Town $readini($nick $+ .ini,Travel,Town)
  Set %Town $readini(Map $+ .ini,%Town,Places)
  if ($istok(%Town,GameStore,32) == $False) { notice $nick $readini($nick $+ .ini,Travel,Town) Does Not Have a GameStore! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%game.start == yes) { halt }
  Set %PlayingCraps $nick | set %game.start yes | set %CrapMoney $readini($nick $+ .ini,Items,GC) | Notice $nick Welcome to Pokemon Craps in our Casino. type `Bet (Amount). You Have $readini($nick $+ .ini,Items,GC) GC. Type `Stop Craps at any time to walk away.
}
on *:TEXT:`Bet*:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if (%betting == yes) { Notice $nick You've already placed a bet! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($2 !isnum) { Notice $nick Sorry $nick $+ , you need to Bet Numbers! | halt }
  if (%game.start != yes) { halt }
  if (%PlayingCraps != $nick) { halt }
  if (%CrapMoney <= $2) { Notice $nick You Dont Have that Much GC! | halt }
  set %bet $round($2,0) | set %betting yes | set %CrapMoney $calc(%CrapMoney - %bet) | Notice $nick $Name($Nick) $+ 11,1 Puts down %bet GC! Type `Roll to start your Round.
  else { Notice $nick 11Either you didn't enter in a number, or you don't have that much money, $Name($Nick) $+ 11,1 Try again. }
}
on *:TEXT:`Roll:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%game.start != yes) { halt }
  if (%PlayingCraps != $nick) { halt }
  if (%betting == yes) && (%point.set == no) {
    set %1roll $rand(1,6) | set %2roll $rand(1,6) | set %rolls $calc(%1roll + %2roll)
    Notice $nick $Name($Nick) $+ 11,1 Rolled %1roll and %2roll for a total of %rolls $+ .
    if (%rolls == 7 || %rolls == 11) { set %CrapMoney $calc(%bet * 2 + %CrapMoney) | set %betting no | Msg %Chanset $Name($Nick) $+ 11,1 !4WINS11! On The Come Out Roll! | Notice $nick $Name($Nick) $+ 11,1 Has Won %bet GC, for a total of %CrapMoney GC. | /halt }
    if (%rolls == 2 || %rolls == 3 || %rolls == 12) { set %betting no | Notice $nick What a crappy roll (no pun intended). $Name($Nick) $+ 11,1 Loses on the come-out roll. | Notice $nick $Name($Nick) $+ 11,1 has lost %bet GC, for a total of %CrapMoney GC. | /halt }  
    else { set %point %rolls | set %point.set yes | Notice $nick Point set to %point $+ . }  
  }  
  if (%betting == no) { Notice $nick You have not yet placed a bet, $Name($Nick) $+ 11,1! }
  if (%betting == yes && %point.set == yes) {
    set %1roll $rand(1,6) | set %2roll $rand(1,6) | set %rolls $calc(%1roll + %2roll)
    Notice $nick $Name($Nick) $+ 11,1 Rolled %1roll and %2roll for a total of %rolls $+ .
    if (%rolls == %point) { set %CrapMoney $calc(%bet * 2 + %CrapMoney) | set %betting no | set %point.set no | Msg %Chanset $Name($Nick) $+ 11,1 Hit the Point! | Notice $nick $Name($Nick) $+ 11,1 has won %bet GC, for a total of %CrapMoney GC. }
    if (%rolls == 7) { set %betting no | set %point.set no | Notice $nick Lucky sevens eh? Better luck next time. | Notice $nick $Name($Nick) $+ 11,1 has lost %bet GC, for a total of %CrapMoney GC. | /halt }    
    if (%rolls != %point) { Notice $nick You did not hit the point, $Name($Nick) $+ 11,1. Roll again. }
  }
}
on 1:text:*`Pokemon Racing:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if (%Racing == On) { Notice $nick Cant! | halt }
  Notice $nick  Welcome To Pokemon Racing! To see the Pokemon Which are Racing type: 9`Racers
}
on 1:text:*`Racers:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if (%Racing == On) { Notice $nick Cant! | halt }
  Notice $nick The Pokemon Which are Racing: Blaze(Rapidash) Fang(Arcanine) Gira(Girafarig) Tails(Ninetales) Thunda(Jolteon)! Type: `RaceBet (Racer Your Betting On) (Amount)
}
on *:text:`RaceBet*:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($2 == $null) { Notice $nick Sorry $nick $+ , you need to put a Pokemon name! | halt }
  if ($3 == $null) { Notice $nick Sorry $nick $+ , you need to Bet Some GC! | halt }
  if ($3 !isnum) { Notice $nick Sorry $nick $+ , you need to Bet Numbers! | halt }
  if ($readini($nick $+ .ini,Items,GC) < $3) { Notice $nick You Dont Have That Much GC! | halt }
  if (%Racing == On) { Notice $nick Cant! | halt }
  Set %Racers Blaze Fang Gira Tails Thunda
  if ($istok(%Racers,$2,32) == $False) { notice $nick Please Choose One of The Racers! | halt }
  Set %Racing On
  TimerRacing 1 360 Set %Racing off
  Set %WinningRacingPokemon $$gettok(%Racers,$r(1,$numtok(%Racers,32)),32)
  set %RacingPokemon $2 
  Msg %ChanSet The Pokemon are lining up . . . and they're OFF!
  TimerR1 1 2 Msg %ChanSet here they go, down the backstretch . . .
  TimerR2 1 5 Msg %ChanSet they're rounding the back turn . . .
  TimerR3 1 9 Msg %ChanSet down the stretch they come . . . the crowd roars . . .
  TimerR4 1 11 Msg %ChanSet here they come past the post . . .
  TimerR5 1 13 Msg %ChanSet and the winner is:4  %WinningRacingPokemon
  TimerRaceEnd 1 14 /Racers $nick $2 $3
}
on 1:text:`Partner *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($2 $+ .ini,Register,Complete) != Yes) { Notice $nick $2 Is Not Registered! | halt }
  if ($readini($nick $+ .ini,Tag,Tagging) == Yes) { Notice $nick You Already Have A Partner! Please Type `Drop Partner | halt }
  if ($readini($2 $+ .ini,Tag,Tagging) == Yes) { Notice $nick $2 Already Has A Partner! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($2 $+ .ini,$2,Fighting) == yes) { Notice $nick $2 Is Battling! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if ($readini($2 $+ .ini,Travel,Travel) == Yes) { Notice $nick $2 is Traveling | halt }
  If ($2 == $nick) { notice $nick Cant!! | halt }
  //set -u120 %Partner. [ $+ [ $nick ] ] $2
  Notice $nick You Asked $2 To Be Your Partner!
  Notice $2 You Have been Asked to be $Nick $+ 's Partner, Please Type `Accept Partner ( $+ $Nick $+ )!
}
on 1:text:`Accept Partner *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($3 $+ .ini,Register,Complete) != Yes) { Notice $nick $3 Is Not Registered! | halt }
  if ($readini($nick $+ .ini,Tag,Tagging) == Yes) { Notice $nick You Already Have A Partner! Please Type `Drop Partner | halt }
  if ($readini($3 $+ .ini,Tag,Tagging) == Yes) { Notice $nick $3 Already Has A Partner! | halt }
  if ($readini($3 $+ .ini,$3,Fighting) == yes) { Notice $nick $3 Is Battling! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  If ($3 == $nick) { notice $nick Cant!! | halt }
  if (%Partner. [ $+ [ $3 ] ] != $nick) { Notice $nick This person has not offered to Partner With You! | halt }
  writeini $nick $+ .ini Tag Tagging Yes
  writeini $nick $+ .ini Tag Partner $3
  writeini $3 $+ .ini Tag Tagging Yes
  writeini $3 $+ .ini Tag Partner $nick
  Msg %ChanSet $Name($Nick) $+ 11,1 & $Name($3) $+ 11,1 Are now Partners!
}
on 1:text:`Drop Partner:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Tag,Tagging) != Yes) { Notice $nick You Dont Have a Partner! | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  Set %Partner $readini($nick $+ .ini,Tag,Partner)
  if ($readini(%Partner $+ .ini,%Partner,Fighting) == yes) { Notice $nick %Partner is Battling! | halt }
  writeini $nick $+ .ini Tag Tagging No
  writeini $nick $+ .ini Tag Partner None
  writeini %Partner $+ .ini Tag Tagging No
  writeini %Partner $+ .ini Tag Partner None
  Msg %ChanSet $Name($Nick) $+ 11,1 & $Name(%Partner) $+ 11,1 Are No Longer Partners!
}
on 1:text:`TBattle:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($readini($nick $+ .ini,Travel,Travel) == Yes) { Notice $nick You Are Traveling | halt }
  if ($readini($nick $+ .ini,$nick,Fighting) == yes) { Notice $nick You Are Battling! | halt }
  if ($readini($nick $+ .ini,$Poke($Nick),Hp) <= 0) { Notice $nick Please Heal Your Pokemon! | halt }
  if ($readini($nick $+ .ini,Tag,Tagging) != Yes) { Notice $nick You Dont Have a Partner! | halt }
  if (%PlayingCraps == $nick) { Notice $nick You are playing the Craps! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { Notice $nick You Are Healing | halt }
  if ($istok(%OpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the Open Challenge! | halt }
  if ($istok(%TOpenChallenge,$Nick,32) == $true) { Notice $nick You are Doing the 2 Vs 2 Open Challenge! | halt }
  if (%tourney = yes) { halt } 
  Set %Partner $readini($nick $+ .ini,Tag,Partner)
  if ($readini(%Partner $+ .ini,%Partner,Fighting) == yes) { Notice $nick %Partner is Battling! | halt }
  if ($readini(%Partner $+ .ini,$Poke(%Partner),Hp) <= 0) { Notice $nick %Partner Must Heal! | halt }
  if ($readini(%Partner $+ .ini,Travel,Travel) == Yes) { Notice $nick %Partner is Traveling | halt }
  if ($readini(%Partner $+ .ini,Register,Complete) == Yes) && (%Partner Ison %ChanSet) {
    Msg %ChanSet $Name($Nick) $+ 8,1 & $Name(%Partner) $+ 8,1 Want to Battle! If You Want to Battle $Name($Nick) $+ 8,1 & $Name(%Partner) $+ 8,1 Type `Accept 2vs2 $Nick or %Partner
    Set %TOpenChallenge %TOpenChallenge $Nick %Partner
    Unset %Partner
  }
}
on 1:text:`TWithdraw:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { Notice $nick Login! | halt }
  if ($istok(%OpenChallenge,$Nick,32) != $true) { Notice $Nick You Are not In The 2vs2 Open Challenge! | halt }
  Set %Partner $readini($nick $+ .ini,Tag,Partner)
  set %TOpenChallenge $remtok(%TOpenChallenge,$Nick,1,32)
  set %TOpenChallenge $remtok(%TOpenChallenge,%Partner,1,32)
  Msg %ChanSet $Name($Nick) $+ 8,1 & $Name(%Partner) $+ 8,1 Have Withdrew out of the 2vs2 Open Challenge!
  Unset %Partner
}