Ok, Here is the alias for Pokemon Rpg.
/umode /mode $me $1 $2
/msg /Msg $1 4,1¦11>12-11<4¦15 $2- 4,1¦11>12-11<4¦
/notice /Notice $1 4,1¦11>12-11<4¦15 $2- 4,1¦11>12-11<4¦
Heal {
Set %Pokemon $readini($1 $+ .ini,$1,Pokemon)
:Repeat
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
writeini -n $1 $+ .ini %Pokemon Hp %Hp
writeini -n $1 $+ .ini %Pokemon SAttack %SAttack
writeini -n $1 $+ .ini %Pokemon SDefense %SDefense
writeini -n $1 $+ .ini %Pokemon Attack %Attack
writeini -n $1 $+ .ini %Pokemon Defense %Defense
writeini -n $1 $+ .ini %Pokemon Accuracy %Accuracy
writeini -n $1 $+ .ini %Pokemon Agility %Agility
writeini -n $1 $+ .ini %Pokemon Intelligence %Intelligence
writeini -n $1 $+ .ini %Pokemon Speed %Speed
writeini -n $1 $+ .ini %Pokemon FSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon Paralyzed No
writeini -n $1 $+ .ini %Pokemon Sleeping No
writeini -n $1 $+ .ini %Pokemon Burned No
writeini -n $1 $+ .ini %Pokemon Leeched No
writeini -n $1 $+ .ini %Pokemon Iced No
writeini -n $1 $+ .ini %Pokemon Poisoned No
writeini -n $1 $+ .ini %Pokemon Confused No
writeini -n $1 $+ .ini %Pokemon SafeGaurd No
writeini -n $1 $+ .ini %Pokemon CantCancel No
writeini -n $1 $+ .ini %Pokemon Imprison No
writeini -n $1 $+ .ini %Pokemon Grudge No
writeini -n $1 $+ .ini %Pokemon Tomb No
writeini -n $1 $+ .ini %Pokemon Bind No
writeini -n $1 $+ .ini %Pokemon Constrict No
writeini -n $1 $+ .ini %Pokemon Endure No
writeini -n $1 $+ .ini %Pokemon Cursed No
writeini -n $1 $+ .ini %Pokemon WPool No
Writeini -n $1 $+ .ini $1 CantCancel No
Writeini -n $1 $+ .ini $1 CantRun No
Writeini -n $1 $+ .ini %Pokemon Dodge No
Writeini -n $1 $+ .ini %Pokemon CDamage 0
Writeini -n $1 $+ .ini %Pokemon Disabled No
PPHeal $1
if ($readini($1 $+ .ini,$1,WNpc) != Yes) && ($readini($1 $+ .ini,$1,SNpc) != Yes) && ($readini($1 $+ .ini,$1,Bag) != Yes) { Notice $1 Your Pokemon Have Been Fully Healed! }
Unset %Check
}
PingMe {
if (!$window(@PongReply)) window -n @PongReply
if (!%pingstatus) {
set %pingtime 0
set %pingstatus $true
inc -c %pingtime
raw -q Ping PingCheck
}
}
pausealltimers {
%tvar = 1
while ($timer(%tvar)) {
/.timer $+ $timer(%tvar) -p
inc %tvar
}
echo -a ::[Paused all( $+ %tvar $+ ) timers.]::
}
resumealltimers {
%tvar = 1
while ($timer(%tvar)) {
/.timer $+ $timer(%tvar) -r
inc %tvar
}
echo -a ::[Resumed all( $+ %tvar $+ ) timers.]::
}
PPGone {
Set %Move $readini($2 $+ .ini,$2,LastMoveUsed) $+ PP
writeini $2 $+ .ini $Poke($2) %Move 0
Msg %ChanSet $BName($1) $+ 2,1 Used Grudge Cause $BName($2) $+ 2, to Lose all PP for %Move $+ !
}
PPHeal {
if ($readini($1 $+ .ini,%Pokemon,Attack1) != None) {
Var %Attack1 = $readini($1 $+ .ini,%Pokemon,Attack1)
Var %MPP = $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP)
writeini $1 $+ .ini %Pokemon $readini($1 $+ .ini,%Pokemon,Attack1) $+ PP %MPP
}
if ($readini($1 $+ .ini,%Pokemon,Attack2) != None) {
Var %Attack2 = $readini($1 $+ .ini,%Pokemon,Attack2)
Var %MPP = $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP)
writeini $1 $+ .ini %Pokemon $readini($1 $+ .ini,%Pokemon,Attack2) $+ PP %MPP
}
if ($readini($1 $+ .ini,%Pokemon,Attack3) != None) {
Var %Attack3 = $readini($1 $+ .ini,%Pokemon,Attack3)
Var %MPP = $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP)
writeini $1 $+ .ini %Pokemon $readini($1 $+ .ini,%Pokemon,Attack3) $+ PP %MPP
}
if ($readini($1 $+ .ini,%Pokemon,Attack4) != None) {
Var %Attack4 = $readini($1 $+ .ini,%Pokemon,Attack4)
Var %MPP = $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP)
writeini $1 $+ .ini %Pokemon $readini($1 $+ .ini,%Pokemon,Attack4) $+ PP %MPP
}
}
Leave {
if ($readini($1 $+ .ini,$1,Fighting) != Yes) { halt }
if ($readini($1 $+ .ini,$1,CantRun) == Yes) { Msg %ChanSet $BName($1) $+ 8,1 Could not Run Away! | halt }
Writeini -n $1 $+ .ini $1 Fighting no
Writeini -n $1 $+ .ini $1 Attacking no
Writeini -n $1 $+ .ini $1 Field None
set %batlist $remtok(%batlist,$1,1,32)
Msg %ChanSet $Name($1) $+ 8,1 Ran Away!
BatlistCheck $1
}
BatlistCheck {
Goto end
:Repeat
set %batlist $remtok(%batlist,$1,1,32)
if ($1 isin %batlist) { Goto Repeat }
:end
}
StatusCheck {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == Yes) {
Msg %ChanSet $BName($1) $+ 8,1 is Paralyzed!
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { Msg %ChanSet $BName($1) $+ 8,1 Struggles to Get Free of Paralyze! | TimerAttack $+ $1 1 15 /Struggle $1 }
Halt
}
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == Yes) {
Msg %ChanSet $BName($1) $+ 0,1 is Sleeping!
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { Msg %ChanSet $Name($1) $+ 0,1 Tells $Gender($1) $Pokemon($1) $+ 0,1 to Wake Up! | TimerAttack $+ $1 1 15 /Wake $1 }
Halt
}
if ($readini($1 $+ .ini,$Poke($1),Burned) == Yes) {
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.05 ),0)
Msg %ChanSet $BName($1) $+ 4,1 Was Burned So Took %Damage Damage!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
SelfDeadCheck $1
}
if ($readini($1 $+ .ini,$Poke($1),Iced) == Yes) {
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.05 ),0)
Msg %ChanSet $BName($1) $+ 11,1 Was Iced So Took %Damage Damage!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
SelfDeadCheck $1
}
if ($readini($1 $+ .ini,$Poke($1),Poisoned) == Yes) {
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.05 ),0)
Msg %ChanSet $BName($1) $+ 6,1 Was Poisoned So Took %Damage Damage!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
SelfDeadCheck $1
}
if ($readini($1 $+ .ini,$Poke($1),Cursed) == Yes) {
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.08 ),0)
Msg %ChanSet $BName($1) $+ 2,1 Was Cursed So Took %Damage Damage!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
SelfDeadCheck $1
}
if ($readini($1 $+ .ini,$Poke($1),Leeched) == Yes) {
set %Person $readini($1 $+ .ini,$Poke($1),LeechedBy)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.05 ),0)
Msg %ChanSet $BName($1) $+ 3,1 Had Leech Seeds So Took %Damage Damage And $BName(%Person) $+ 3,1 Gained %Damage Hp!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
writeini -n %Person $+ .ini $Poke(%Person) Hp $calc($readini(%Person $+ .ini,$Poke(%Person),Hp) + %Damage)
set %Hp $readini(%Person $+ .ini,$Poke(%Person),Hp)
set %MHp $readini(%Person $+ .ini,$Poke(%Person),MHp)
if (%Hp >= %MHp) { writeini %Person $+ .ini $Poke(%Person) Hp %MHp }
Unset %Hp
Unset %MHp
BattleVictory %Person $1
}
if ($readini($1 $+ .ini,$Poke($1),Bind) == Yes) {
set %Person $readini($1 $+ .ini,$Poke($1),BindBy)
Set %Action $Rand(1,3)
if (%Action == 1) { Bind %Person $1 }
if (%Action == 2) { set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.07 ),0) | Msg %ChanSet $BName(%Person) $+ 0,1 Squeezes $BName($1) $+ 0,1 Doing %Damage Damage! | writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage) | BattleVictory %Person $1 }
Unset %Action
}
if ($readini($1 $+ .ini,$Poke($1),Tomb) == Yes) {
set %Person $readini($1 $+ .ini,$Poke($1),TombBy)
Set %Action $Rand(1,3)
if (%Action == 1) { Tomb %Person $1 }
if (%Action == 2) { set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.14 ),0) | Msg %ChanSet $BName(%Person) $+ 7,1 Causes the Sand Tomb to Crush $BName($1) $+ 7,1 Doing %Damage Damage! | writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage) | BattleVictory %Person $1 }
Unset %Action
}
if ($readini($1 $+ .ini,$Poke($1),Constrict) == Yes) {
set %Person $readini($1 $+ .ini,$Poke($1),ConstrictBy)
Set %Action $Rand(1,3)
if (%Action == 1) { Constrict %Person $1 }
if (%Action == 2) {
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.09 ),0)
Msg %ChanSet $BName(%Person) $+ 0,1 Constricts $BName($1) $+ 0,1 Doing %Damage Damage!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
Set %Action $Rand(1,2)
if (%Action == 1) && ($readini($1 $+ .ini,$Poke($1),FSpeed) > 2) { Msg %ChanSet $BName($1) $+ 0,1's Speed Falls! | writeini $1 $+ .ini $Poke($1) Speed $calc($readini($1 $+ .ini,$Poke($1),Speed) + 1) | writeini $1 $+ .ini $Poke($1) FSpeed $calc($readini($1 $+ .ini,$Poke($1),FSpeed) - 1) }
BattleVictory %Person $1
Unset %Action
}
}
if ($readini($1 $+ .ini,$Poke($1),WPool) == Yes) {
set %Person $readini($1 $+ .ini,$Poke($1),WPoolBy)
Set %Action $Rand(1,3)
if (%Action == 1) { WPool %Person $1 }
if (%Action == 2) { set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MHp) * 0.14 ),0) | Msg %ChanSet $BName(%Person) $+ 11,1 Causes the Water Tornado to Crush $BName($1) $+ 11,1 Doing %Damage Damage! | writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage) | BattleVictory %Person $1 }
Unset %Action
}
if ($readini($1 $+ .ini,$Poke($1),Confused) == Yes) {
Set %Hit $Rand(1,2)
if (%Hit == 1) {
set %Damage $calc( 25 + ( [ $readini $1 $+ .ini $Poke($1) SAttack ] - [ $readini $1 $+ .ini $Poke($1) Defense ] ))
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 8,1 Was Confused and Hit $PGender2($1) $+ self doing %Damage Damage!
writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
Writeini -n $1 $+ .ini $1 CantCancel Yes
Writeini -n $1 $+ .ini $1 Attacking Yes
TimerAttack $+ $1 1 15 /AttackAgain $1
SelfDeadCheck $1
Halt
}
}
if ($readini($1 $+ .ini,$Poke($1),Disabled) == Yes) {
set %Attack $readini($1 $+ .ini,$Poke($1),DisabledWhat)
if (%Attack == $2) { Msg %ChanSet $BName($1) $+ 13,1 Cannot Use %Attack $+ ! | Halt }
Unset %Action
}
if ($readini($1 $+ .ini,$Poke($1),Imprison) == Yes) {
Set %Attacks $readini($3 $+ .ini,$Poke($3),Attack1) $readini($3 $+ .ini,$Poke($3),Attack2) $readini($3 $+ .ini,$Poke($3),Attack3) $readini($3 $+ .ini,$Poke($3),Attack4)
if ($2 isin %Attacks) { Msg %ChanSet $BName($1) $+ 13,1 Cannot Use $2 $+ ! }
Unset %Action
Unset %Attacks
}
Unset %Person
}
PPCheck {
if ($readini($1 $+ .ini,$1,Training) == Yes) { Notice $1 You Are Training! | halt }
Set %Move $2 $+ PP
if ($readini($1 $+ .ini,$Poke($1),%Move) <= 0) { Msg %ChanSet $BName($1) $+ 0,1 Not Enough PP To Use $2 $+ ! | halt }
writeini -n $1 $+ .ini $Poke($1) %Move $calc($readini($1 $+ .ini,$Poke($1),%Move) - 1)
Unset %Move
Unset %Move2
Unset %Attack
}
AttackAgain {
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { TimerAttack $+ $1 1 1 /SpecialNpc $1 }
Writeini -n $1 $+ .ini $1 Attacking No
Writeini -n $1 $+ .ini $1 CantCancel No
Notice $1 You May Attack Now!
}
Bind {
Writeini -n $2 $+ .ini $2 Attacking No
Writeini -n $2 $+ .ini $2 CantCancel No
Writeini -n $2 $+ .ini $Poke($2) Bind No
TimerAttack $+ $2 off
Msg %ChanSet $BName($1) $+ 0,1 Lets go of $BName($2) $+ 0,1!
}
Constrict {
Writeini -n $2 $+ .ini $2 Attacking No
Writeini -n $2 $+ .ini $2 CantCancel No
Writeini -n $2 $+ .ini $Poke($2) Constrict No
TimerAttack $+ $2 off
Msg %ChanSet $BName($1) $+ 0,1 Lets go of $BName($2) $+ 0,1!
}
Tomb {
Writeini -n $2 $+ .ini $2 Attacking No
Writeini -n $2 $+ .ini $2 CantCancel No
Writeini -n $2 $+ .ini $Poke($2) Tomb No
TimerAttack $+ $2 off
Msg %ChanSet $BName($1) $+ 7,1's Sand Tomb, Lets go off $BName($2) $+ 7,1!
}
WPool {
Writeini -n $2 $+ .ini $2 Attacking No
Writeini -n $2 $+ .ini $2 CantCancel No
Writeini -n $2 $+ .ini $Poke($2) WPool No
TimerAttack $+ $2 off
Msg %ChanSet $BName($1) $+ 11,1's Water Tornado, Lets go off $BName($2) $+ 11,1!
}
Weather {
:Repeat
Set %Weather Night Sunny Raining SandStorm Snowing DayTime ThunderStorm Windy
Set %Weather $gettok(%Weather,$r(1,$numtok(%Weather,32)),32)
if ($readini(Weather $+ .ini,Weather,%Weather) == Yes) { Goto Repeat }
writeini Weather $+ .ini Weather Night No
writeini Weather $+ .ini Weather Sunny No
writeini Weather $+ .ini Weather Raining No
writeini Weather $+ .ini Weather SandStorm No
writeini Weather $+ .ini Weather Snowing No
writeini Weather $+ .ini Weather DayTime No
writeini Weather $+ .ini Weather ThunderStorm No
writeini Weather $+ .ini Weather Windy No
writeini Weather $+ .ini Weather %Weather Yes
if ($readini(Weather $+ .ini,Weather,Night) == Yes) { Msg %ChanSet 14It Is Now Night Time. }
if ($readini(Weather $+ .ini,Weather,Sunny) == Yes) { Msg %ChanSet 7It Is Now Sunny. }
if ($readini(Weather $+ .ini,Weather,Raining) == Yes) { Msg %ChanSet 12It Is Now Raining. }
if ($readini(Weather $+ .ini,Weather,SandStorm) == Yes) { Msg %ChanSet 5It Is Now a Sand Storm. }
if ($readini(Weather $+ .ini,Weather,Snowing) == Yes) { Msg %ChanSet 11It Is Now Snowing. }
if ($readini(Weather $+ .ini,Weather,DayTime) == Yes) { Msg %ChanSet 0It Is Now Day Time. }
if ($readini(Weather $+ .ini,Weather,ThunderStorm) == Yes) { Msg %ChanSet 8It Is Now a Thunder Storm. }
if ($readini(Weather $+ .ini,Weather,Windy) == Yes) { Msg %ChanSet 10It Is Now Windy. }
}
WeatherChange {
if ($1 == Night) { Msg %ChanSet 14It Is Now Night Time. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == Sunny) { Msg %ChanSet 7It Is Now Sunny. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == Raining) { Msg %ChanSet 12It Is Now Raining. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == SandStorm) { Msg %ChanSet 5It Is Now a Sand Storm. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == Snowing) { Msg %ChanSet 11It Is Now Snowing. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == DayTime) { Msg %ChanSet 0It Is Now Day Time. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == ThunderStorm) { Msg %ChanSet 8It Is Now a Thunder Storm. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
if ($1 == Windy) { Msg %ChanSet 10It Is Now Windy. | writeini Weather $+ .ini Weather $2 N | writeini Weather $+ .ini Weather $1 Yes }
}
Flinch {
if ($readini($1 $+ .ini,$1,Attacking) == Yes) {
if ($readini($1 $+ .ini,$1,CantCancel) == Yes) { Goto End }
Set %Flinch $Rand(1,10)
if (%Flinch != 1) { Goto End }
Msg %ChanSet $BName($1) $+ 14,1 Flinched!
Writeini -n $1 $+ .ini $Poke($1) SolarCharge No
Writeini -n $1 $+ .ini $Poke($1) StockPile No
Writeini -n $1 $+ .ini $Poke($1) Charging No
Writeini -n $1 $+ .ini $Poke($1) CDamage 0
Writeini -n $1 $+ .ini $1 Attacking No
Writeini -n $1 $+ .ini $1 CantCancel No
TimerAttack $+ $1 off
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { TimerAttack $+ $1 1 1 /SpecialNpc $1 }
}
Unset %Flinch
:End
}
Npc {
if (%tourneystarted = yes) { halt }
:Repeat
Set %Npc $read(PokeMonList.txt)
if (%Npc == $null) { goto Repeat }
if ($readini(%Npc $+ .ini,%Npc,Fighting) == Yes) { Halt }
Heal %Npc
Writeini -n %Npc $+ .ini %Npc Fighting Yes
Set %batlist %batlist %Npc
Writeini -n %Npc $+ .ini %Npc Field Normal
Msg %ChanSet $BName(%Npc) $+ 0,1 Has Entered The Battle Arena!
NpcAttack %Npc
}
IdleNpcAttack {
if (%tourneystarted = yes) { halt }
:Repeat
if (%NpcStopAttacking == $Null) { Goto End }
Set %Target $$gettok(%NpcStopAttacking,$r(1,$numtok(%NpcStopAttacking,32)),32)
if (%Target == $Null) { Goto Repeat }
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { set %NpcStopAttacking $remtok(%Target,%NpcStopAttacking,1,32) | Goto Repeat }
if ($readini(%Target $+ .ini,$Poke(%Target),Hp) <= 0) { set %NpcStopAttacking $remtok(%Target,%NpcStopAttacking,1,32) | Goto Repeat }
Set %NpcStopAttacking $remtok(%Target,%NpcStopAttacking,1,32)
NpcAttack %Target
:End
}
NpcAttack {
if (%tourneystarted = yes) { halt }
Unset %Repeat
:Repeat
Inc %Repeat 1
if (%Repeat >= 3) { Set %NpcStopAttacking %NpcStopAttacking $1 | halt }
if (%Batlist == $null) { halt }
writeini $1 $+ .ini $1 Attacking No
if ($numtok(%batlist,32) == 1) { Set %NpcStopAttacking %NpcStopAttacking $1 | Halt }
Set %Target $$gettok(%batlist,$r(1,$numtok(%batlist,32)),32)
if ($readini(%Target $+ .ini,%Target,WNpc) == Yes) { Goto Repeat }
if (%Target == $1) { goto repeat }
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
if ($readini($1 $+ .ini,$1,Fighting) != Yes) { halt }
If ($readini($1 $+ .ini,$Poke($1),Hp) <= 0) { writeini $1 $+ .ini $1 Attacking No | writeini $1 $+ .ini $1 Fighting No | writeini $1 $+ .ini $1 Field None | set %batlist $remtok(%batlist,$1,1,32) | Halt }
Set %Attacks $readini($1 $+ .ini,$Poke($1),Attack1) $readini($1 $+ .ini,$Poke($1),Attack2) $readini($1 $+ .ini,$Poke($1),Attack3) $readini($1 $+ .ini,$Poke($1),Attack4)
:Repeat2
Set %Attack $$gettok(%Attacks,$r(1,$numtok(%Attacks,32)),32)
if (%Attack == None) { goto repeat2 }
StatusCheck $1 %Attack
writeini $1 $+ .ini $1 Attacking yes
Msg %ChanSet $BName($1) $+ 15,1 Prepares to hit $BName(%Target) $+ 15,1 With %Attack $+ !
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target %Attack
Unset %Repeat
}
LvLCheck {
if ($readini($1 $+ .ini,$Poke($1),WNpc) == Yes) { Goto End }
if ($readini($1 $+ .ini,$Poke($1),Level) >= 100) { Goto End }
set %Exp [ $readini $1 $+ .ini $Poke($1) Exp ]
set %ExpNeeded [ $readini $1 $+ .ini $Poke($1) ExpNeeded ]
Evolve $1
If (%Exp >= %ExpNeeded) {
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 2)
writeini $1 $+ .ini $Poke($1) Exp 0
Msg %ChanSet $BName($1) $+ 9,1 Leveled Up!
Set %Attack [ $readini Pokemon_Status $+ .ini $Poke($1) Attack ]
Set %SAttack [ $readini Pokemon_Status $+ .ini $Poke($1) SAttack ]
Set %Defense [ $readini Pokemon_Status $+ .ini $Poke($1) Defense ]
Set %SDefense [ $readini Pokemon_Status $+ .ini $Poke($1) SDefense ]
Set %Agility [ $readini Pokemon_Status $+ .ini $Poke($1) Agility ]
Set %HP [ $readini Pokemon_Status $+ .ini $Poke($1) Hp ]
Set %Accuracy [ $readini Pokemon_Status $+ .ini $Poke($1) Accuracy ]
Set %Intelligence [ $readini Pokemon_Status $+ .ini $Poke($1) Intelligence ]
Set %Speed [ $readini Pokemon_Status $+ .ini $Poke($1) Speed ]
Set %Exp [ $readini Pokemon_Status $+ .ini $Poke($1) Exp ]
writeini $1 $+ .ini $Poke($1) Level $calc($readini($1 $+ .ini,$Poke($1),Level) + 1)
writeini $1 $+ .ini $Poke($1) ExpNeeded $calc($readini($1 $+ .ini,$Poke($1),ExpNeeded) + %Exp)
writeini $1 $+ .ini $Poke($1) Attack $calc($readini($1 $+ .ini,$Poke($1),Attack) + %Attack)
writeini $1 $+ .ini $Poke($1) SAttack $calc($readini($1 $+ .ini,$Poke($1),SAttack) + %SAttack)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) + %Defense)
writeini $1 $+ .ini $Poke($1) SDefense $calc($readini($1 $+ .ini,$Poke($1),SDefense) + %SDefense)
writeini $1 $+ .ini $Poke($1) Agility $calc($readini($1 $+ .ini,$Poke($1),Agility) + %Agility)
writeini $1 $+ .ini $Poke($1) HP $calc($readini($1 $+ .ini,$Poke($1),HP) + %HP)
writeini $1 $+ .ini $Poke($1) Accuracy $calc($readini($1 $+ .ini,$Poke($1),Accuracy) + %Accuracy)
writeini $1 $+ .ini $Poke($1) Intelligence $calc($readini($1 $+ .ini,$Poke($1),Intelligence) + %Intelligence)
writeini $1 $+ .ini $Poke($1) SExp $calc($readini($1 $+ .ini,$Poke($1),SExp) + %Speed)
writeini $1 $+ .ini $Poke($1) MAttack $calc($readini($1 $+ .ini,$Poke($1),MAttack) + %Attack)
writeini $1 $+ .ini $Poke($1) MSAttack $calc($readini($1 $+ .ini,$Poke($1),MSAttack) + %SAttack)
writeini $1 $+ .ini $Poke($1) MDefense $calc($readini($1 $+ .ini,$Poke($1),MDefense) + %Defense)
writeini $1 $+ .ini $Poke($1) MSDefense $calc($readini($1 $+ .ini,$Poke($1),MSDefense) + %SDefense)
writeini $1 $+ .ini $Poke($1) MAgility $calc($readini($1 $+ .ini,$Poke($1),MAgility) + %Agility)
writeini $1 $+ .ini $Poke($1) MHP $calc($readini($1 $+ .ini,$Poke($1),MHP) + %HP)
writeini $1 $+ .ini $Poke($1) MAccuracy $calc($readini($1 $+ .ini,$Poke($1),MAccuracy) + %Accuracy)
writeini $1 $+ .ini $Poke($1) MIntelligence $calc($readini($1 $+ .ini,$Poke($1),MIntelligence) + %Intelligence)
LearnMoves $1
SpeedCheck $1
TLvLCheck $1
Evolve $1
Unset %Exp
Unset %ExpNeeded
Unset %Intelligence
Unset %Accuracy
Unset %HP
Unset %Agility
Unset %SDefense
Unset %Defense
Unset %SAttack
Unset %Attack
Unset %Speed
}
:End
}
PkmnLateLvL {
Unset %Exp
Unset %ExpNeeded
Unset %Intelligence
Unset %Accuracy
Unset %HP
Unset %Agility
Unset %SDefense
Unset %Defense
Unset %SAttack
Unset %Attack
Unset %Speed
Set %Level $3
Set %Pokemon $2
:Repeat
if ($readini($1 $+ .ini,$2,Level) >= $3) { Goto End }
Set %Exp [ $readini Pokemon_Status $+ .ini %Pokemon Exp ]
Set %Attack [ $readini Pokemon_Status $+ .ini %Pokemon Attack ]
Set %SAttack [ $readini Pokemon_Status $+ .ini %Pokemon SAttack ]
Set %Defense [ $readini Pokemon_Status $+ .ini %Pokemon Defense ]
Set %SDefense [ $readini Pokemon_Status $+ .ini %Pokemon SDefense ]
Set %Agility [ $readini Pokemon_Status $+ .ini %Pokemon Agility ]
Set %HP [ $readini Pokemon_Status $+ .ini %Pokemon Hp ]
Set %Accuracy [ $readini Pokemon_Status $+ .ini %Pokemon Accuracy ]
Set %Intelligence [ $readini Pokemon_Status $+ .ini %Pokemon Intelligence ]
Set %Speed [ $readini Pokemon_Status $+ .ini %Pokemon Speed ]
writeini $1 $+ .ini %Pokemon Level $calc($readini($1 $+ .ini,%Pokemon,Level) + 1)
writeini $1 $+ .ini %Pokemon ExpNeeded $calc($readini($1 $+ .ini,%Pokemon,ExpNeeded) + %Exp)
writeini $1 $+ .ini %Pokemon Attack $calc($readini($1 $+ .ini,%Pokemon,Attack) + %Attack)
writeini $1 $+ .ini %Pokemon SAttack $calc($readini($1 $+ .ini,%Pokemon,SAttack) + %SAttack)
writeini $1 $+ .ini %Pokemon Defense $calc($readini($1 $+ .ini,%Pokemon,Defense) + %Defense)
writeini $1 $+ .ini %Pokemon SDefense $calc($readini($1 $+ .ini,%Pokemon,SDefense) + %SDefense)
writeini $1 $+ .ini %Pokemon Agility $calc($readini($1 $+ .ini,%Pokemon,Agility) + %Agility)
writeini $1 $+ .ini %Pokemon HP $calc($readini($1 $+ .ini,%Pokemon,HP) + %HP)
writeini $1 $+ .ini %Pokemon Accuracy $calc($readini($1 $+ .ini,%Pokemon,Accuracy) + %Accuracy)
writeini $1 $+ .ini %Pokemon Intelligence $calc($readini($1 $+ .ini,%Pokemon,Intelligence) + %Intelligence)
writeini $1 $+ .ini %Pokemon SExp $calc($readini($1 $+ .ini,%Pokemon,SExp) + %Speed)
writeini $1 $+ .ini %Pokemon MAttack $calc($readini($1 $+ .ini,%Pokemon,MAttack) + %Attack)
writeini $1 $+ .ini %Pokemon MSAttack $calc($readini($1 $+ .ini,%Pokemon,MSAttack) + %SAttack)
writeini $1 $+ .ini %Pokemon MDefense $calc($readini($1 $+ .ini,%Pokemon,MDefense) + %Defense)
writeini $1 $+ .ini %Pokemon MSDefense $calc($readini($1 $+ .ini,%Pokemon,MSDefense) + %SDefense)
writeini $1 $+ .ini %Pokemon MAgility $calc($readini($1 $+ .ini,%Pokemon,MAgility) + %Agility)
writeini $1 $+ .ini %Pokemon MHP $calc($readini($1 $+ .ini,%Pokemon,MHP) + %HP)
writeini $1 $+ .ini %Pokemon MAccuracy $calc($readini($1 $+ .ini,%Pokemon,MAccuracy) + %Accuracy)
writeini $1 $+ .ini %Pokemon MIntelligence $calc($readini($1 $+ .ini,%Pokemon,MIntelligence) + %Intelligence)
Goto Repeat
:End
}
SpeedCheck {
set %Exp [ $readini $1 $+ .ini $Poke($1) SExp ]
set %ExpNeeded [ $readini $1 $+ .ini $Poke($1) SpeedExpNeeded ]
If (%Exp >= %ExpNeeded) {
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
Set %Exp $Calc( [ $readini $1 $+ .ini $Poke($1) SExp ] - [ $readini $1 $+ .ini $Poke($1) SpeedExpNeeded ] )
writeini $1 $+ .ini $Poke($1) SExp %Exp
Msg %ChanSet $BName($1) $+ 8,1 Became Faster!
Set %Exp [ $readini Pokemon_Status $+ .ini $Poke($1) SExp ]
writeini $1 $+ .ini $Poke($1) SpeedExpNeeded $calc($readini($1 $+ .ini,$Poke($1),SpeedExpNeeded) + %Exp)
writeini $1 $+ .ini $Poke($1) Speed $calc($readini($1 $+ .ini,$Poke($1),Speed) - 1)
writeini $1 $+ .ini $Poke($1) FSpeed $calc($readini($1 $+ .ini,$Poke($1),FSpeed) + 1)
writeini $1 $+ .ini $Poke($1) MSpeed $calc($readini($1 $+ .ini,$Poke($1),MSpeed) - 1)
writeini $1 $+ .ini $Poke($1) MFSpeed $calc($readini($1 $+ .ini,$Poke($1),MFSpeed) + 1)
if ($readini($1 $+ .ini,$Poke($1),MFSpeed) >= 6) { writeini $1 $+ .ini $Poke($1) SpeedExpNeeded $calc($readini($1 $+ .ini,$Poke($1),SpeedExpNeeded) + 100) }
TLvLCheck $1
}
}
TLvLCheck {
set %Exp [ $readini $1 $+ .ini $1 TExp ]
set %ExpNeeded [ $readini $1 $+ .ini $1 TExpNeeded ]
If (%Exp >= %ExpNeeded) {
Set %Exp [ $readini $1 $+ .ini $1 TExp ]
Set %Exp $Calc( [ $readini $1 $+ .ini $1 TExp ] - [ $readini $1 $+ .ini $1 TExpNeeded ] )
writeini $1 $+ .ini $1 TrainerLevel $calc($readini($1 $+ .ini,$1,TrainerLevel) + 1)
writeini $1 $+ .ini $1 TExpNeeded $calc($readini($1 $+ .ini,$1,TExpNeeded) + 10)
writeini $1 $+ .ini $1 TExp %Exp
Msg %ChanSet $Name($1) $+ 4,1's Trainer Level Went Up!
Unset %Exp
Unset %ExpNeeded
}
}
Travel {
if ($readini($1 $+ .ini,Travel,Travel) != Yes) { Goto End }
writeini -n $1 $+ .ini Travel Travel No
writeini -n $1 $+ .ini Travel Town $2
Msg %ChanSet $Name($1) $+ 0,1 Has Arrived at $2 $+ .
Notice $1 Type `Places To See What Is in $2 $+ .
:End
}
Struggle {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) != Yes) { Goto Here }
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { TimerAttack $+ $1 1 1 /SpecialNpc $1 }
Set %Free $Rand(1,3)
If (%Free == 1) {
Msg %ChanSet $BName($1) $+ 8,1 Is No Longer Paralyzed!
Writeini -n $1 $+ .ini $1 Attacking No
Writeini -n $1 $+ .ini $1 CantCancel No
Writeini -n $1 $+ .ini $Poke($1) Paralyzed No
Unset %Free
Halt
}
If (%Free != 1) {
Msg %ChanSet $BName($1) $+ 8,1 Is Still Paralyzed!
Writeini -n $1 $+ .ini $1 Attacking No
Writeini -n $1 $+ .ini $1 CantCancel No
Unset %Free
Halt
}
:Here
Unset %Free
}
Wake {
if ($readini($1 $+ .ini,$Poke($1),Sleeping) != Yes) { Goto Here }
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { TimerAttack $+ $1 1 1 /SpecialNpc $1 }
Set %Free $Rand(1,3)
If (%Free == 1) {
Msg %ChanSet $BName($1) $+ 0,1 Is No Longer Sleeping!
Writeini -n $1 $+ .ini $1 Attacking No
Writeini -n $1 $+ .ini $1 CantCancel No
Writeini -n $1 $+ .ini $Poke($1) Sleeping No
Unset %Free
Halt
}
If (%Free != 1) {
Msg %ChanSet $BName($1) $+ 0,1 Is Still Sleeping!
Writeini -n $1 $+ .ini $1 Attacking No
Writeini -n $1 $+ .ini $1 CantCancel No
Unset %Free
Halt
}
:Here
Unset %Free
}
TrainingEnd {
Writeini -n $1 $+ .ini $1 Training No
Writeini -n $1 $+ .ini $1 Fighting No
Writeini -n $1 $+ .ini $1 Field None
Writeini -n $1 $+ .ini $1 FightingWho None
Writeini -n $1 $+ .ini $1 TrainUsed Yes
TimerEndTraining $+ $1 off
TimerTagain $+ $1 1 300 /TAgain $1
Set %Bag $2
Msg %ChanSet $BName($1) $+ 15,1 Has Finished Training on $BName(%Bag) $+ 15,1!
Writeini -n %Bag $+ .ini %Bag Fighting No
Writeini -n %Bag $+ .ini %Bag Field None
Writeini -n %Bag $+ .ini %Bag FightingWho None
Writeini -n %Bag $+ .ini %Bag Training No
Unset %Bag
}
TAgain {
Writeini -n $1 $+ .ini $1 TrainUsed No
Notice $1 You May Train Again!
}
GivingPokemon {
Set %Pokemon $3
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
Var %Aura = $readini($1 $+ .ini,%Pokemon,Aura)
Var %BAura = $readini($1 $+ .ini,%Pokemon,BAura)
Var %Type = $readini($1 $+ .ini,%Pokemon,Type)
Var %Type2 = $readini($1 $+ .ini,%Pokemon,Type2)
writeini -n $2 $+ .ini %Pokemon MHp %Hp
writeini -n $2 $+ .ini %Pokemon MSAttack %SAttack
writeini -n $2 $+ .ini %Pokemon MSDefense %SDefense
writeini -n $2 $+ .ini %Pokemon MAttack %Attack
writeini -n $2 $+ .ini %Pokemon MDefense %Defense
writeini -n $2 $+ .ini %Pokemon MAccuracy %Accuracy
writeini -n $2 $+ .ini %Pokemon MAgility %Agility
writeini -n $2 $+ .ini %Pokemon MIntelligence %Intelligence
writeini -n $2 $+ .ini %Pokemon MSpeed %Speed
writeini -n $2 $+ .ini %Pokemon MFSpeed %FSpeed
writeini -n $2 $+ .ini %Pokemon Level %Level
writeini -n $2 $+ .ini %Pokemon Type %Type
writeini -n $2 $+ .ini %Pokemon Type2 %Type2
Writeini -n $2 $+ .ini %Pokemon %Pokemon Yes
writeini -n $2 $+ .ini %Pokemon Exp %Exp
writeini -n $2 $+ .ini %Pokemon ExpNeeded %ExpNeeded
writeini -n $2 $+ .ini %Pokemon SExp %SExp
writeini -n $2 $+ .ini %Pokemon SpeedExpNeeded %SExpNeeded
writeini -n $2 $+ .ini %Pokemon Gender %Gender
writeini -n $2 $+ .ini %Pokemon Aura %Aura
writeini -n $2 $+ .ini %Pokemon BAura %BAura
writeini -n $2 $+ .ini %Pokemon WantEvolve Yes
Writeini -n $2 $+ .ini %Pokemon Pokemon %Pokemon
writeini -n $2 $+ .ini %Pokemon Attack1 None
writeini -n $2 $+ .ini %Pokemon Attack2 None
writeini -n $2 $+ .ini %Pokemon Attack3 None
Writeini -n $2 $+ .ini %Pokemon Attack4 None
Writeini -n $2 $+ .ini Pokemon %Pokemon yes
if ($readini($1 $+ .ini,%Pokemon,Named) == Yes) { writeini -n $2 $+ .ini %Pokemon Name %Name | writeini -n $2 $+ .ini %Pokemon Named Yes }
if ($readini($1 $+ .ini,%Pokemon,Attack1) != None) { Writeini -n $2 $+ .ini %Pokemon Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $2 $+ .ini %Pokemon L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $2 $+ .ini %Pokemon %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,%Pokemon,Attack2) != None) { Writeini -n $2 $+ .ini %Pokemon Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $2 $+ .ini %Pokemon L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $2 $+ .ini %Pokemon %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,%Pokemon,Attack3) != None) { Writeini -n $2 $+ .ini %Pokemon Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $2 $+ .ini %Pokemon L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $2 $+ .ini %Pokemon %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,%Pokemon,Attack4) != None) { Writeini -n $2 $+ .ini %Pokemon Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $2 $+ .ini %Pokemon L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $2 $+ .ini %Pokemon %Attack4 $+ MPP %MovePP }
Remini $1 $+ .ini %Pokemon
Writeini -n $2 $+ .ini %Pokemon Traded Yes
Unset %Pokemon
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
}
FindItems {
Set %Rand $Rand(1,50)
if ($readini($1 $+ .ini,Travel,Town) == Mt.Moon) && (%Rand == 5) { Msg %ChanSet $Name($1) $+ 0,1 Found a Moon Stone! | Writeini -n $1 $+ .ini Items MoonStone $calc($readini($1 $+ .ini,Items,MoonStone) + 1) }
}
Racers {
if ($2 != %WinningRacingPokemon) { Msg %ChanSet Sorry $Name($1) $+ 4,1The Pokemon $Name($1) $+ 4,1 betted on LOST! You Lose $3 GC! | writeini $1 $+ .ini Items GC $calc($readini($1 $+ .ini,Items,GC) - $3) }
if ($2 == %WinningRacingPokemon) { Set %Won $calc( $3 * 3 ) | Msg %ChanSet 9Congratulations! $Name($1) $+ 9,1 The Pokemon you betted on WON! You Have Won %Won GC! | Writeini $1 $+ .ini Items GC $calc($readini($1 $+ .ini,Items,GC) + %Won) | Unset %Won }
Unset %WinningRacingPokemon
}
GatheringInfo {
Set %User $1
Set %Target $2
Set %Attack $3
Writeini -n %User $+ .ini %User LastMoveUsed %Attack
if ($readini($1 $+ .ini,$1,WNpc) == Yes) { TimerAttack $+ $1 1 1 /NpcAttack $1 }
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { TimerAttack $+ $1 1 1 /SpecialNpc $1 }
if ($readini(%User $+ .ini,%User,Attacking) != Yes) { halt }
if ($readini(%User $+ .ini,%User,Fighting) != Yes) { writeini %User $+ .ini %User Attacking No | halt }
if ($readini(%Target $+ .ini,%Target,Bag) == Yes) { Goto Here }
if (%Attack == Growth) { Goto Here }
if (%Attack == Synthesis) { Goto Here }
if (%Attack == Withdraw) { Goto Here }
if (%Attack == Protect) { Goto Here }
if (%Attack == RainDance) { Goto Here }
if (%Attack == DragonDance) { Goto Here }
if (%Attack == SandStorm) { Goto Here }
if (%Attack == Agility) { Goto Here }
if (%Attack == Harden) { Goto Here }
if (%Attack == SafeGaurd) { Goto Here }
if (%Attack == SilverWind) { Goto Here }
if (%Attack == Double-Team) { Goto Here }
if (%Attack == Light-Screen) { Goto Here }
if (%Attack == Aerial-Ace) { Goto Here }
if (%Attack == Defense-Curl) { Goto Here }
if (%Attack == Recover) { Goto Here }
if (%Attack == Cosmic-Power) { Goto Here }
if (%Attack == StockPile) { Goto Here }
if (%Attack == Focus-Energy) { Goto Here }
if (%Attack == Haze) { Goto Here }
if (%Attack == Swallow) { Goto Here }
if (%Attack == Moonlight) { Goto Here }
if (%Attack == Teleport) { Goto Here }
if (%Attack == Future-Sight) { Goto Here }
if (%Attack == Detect) { Goto Here }
if (%Attack == Acid-Armor) { Goto Here }
if (%Attack == BulkUp) { Goto Here }
if (%Attack == Calm-Mind) { Goto Here }
if (%Attack == Mud-Shot) { Goto Here }
if (%Attack == String-Shot) { Goto Here }
if (%Attack == Helping-Hand) { Goto Here }
if (%Attack == Faint-Attack) { Goto Here }
if (%Attack == Mean-Look) { Goto Here }
if (%Attack == Grudge) { Goto Here }
if (%Attack == Destiny-Bond) { Goto Here }
if (%Attack == Reflect) { Goto Here }
if (%Attack == Shadow-Punch) { Goto Here }
if (%Attack == Swift) { Goto Here }
if (%Attack == Endure) { Goto Here }
if (%Attack == AncientPower) { Goto Here }
if (%Attack == Vital-Throw) { Goto Here }
if (%Attack == Mist) { Goto Here }
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { writeini %Target $+ .ini %Target Attacking No | halt }
set %Agility2 [ $readini %User $+ .ini $Poke(%User) Agility ]
set %Agility3 [ $readini %Target $+ .ini $Poke(%Target) Agility ]
set %Agility2 $round($calc(%Agility2 * 1.5),0)
set %Agility3 $round($calc(%Agility3 * 1.5),0)
set %Agility $calc(%Agility3 - %Agility2)
if (%Agility > 2) { /Dodge %User %Target }
if ($readini(%Target $+ .ini,$Poke(%Target),Dodge) == Yes) { Dodge %User %Target }
set %Intelligence2 [ $readini %User $+ .ini $Poke(%User) Intelligence ]
set %Intelligence3 [ $readini %Target $+ .ini $Poke(%Target) Intelligence ]
set %Intelligence2 $round($calc(%Intelligence2 * 1.5),0)
set %Intelligence3 $round($calc(%Intelligence3 * 1.5),0)
set %Countering $calc(%Intelligence3 - %Accuracy2)
set %Counter $Rand(1,15)
if (%Countering > 2) && (%Counter == 1) { /Counter %Target %User | Halt }
:Here
writeini %User $+ .ini %User Attacking No
$3 %User %Target %Attack
}
GetBase {
if ($2 == Scratch) { set %base.power $Rand(5,8) }
if ($2 == Pound) { set %base.power $Rand(5,8) }
if ($2 == Peck) { set %base.power $Rand(7,8) }
if ($2 == Slash) { set %base.power $Rand(10,16) }
if ($2 == Tackle) { set %base.power $Rand(5,6) }
if ($2 == Low-Kick) { set %base.power $Rand(8,10) }
if ($2 == Karate-Chop) { set %base.power $Rand(10,14) }
if ($2 == Vital-Throw) { set %base.power $Rand(18,20) }
if ($2 == Submission) { set %base.power $Rand(20,30) }
if ($2 == Swift) { set %base.power $Rand(18,23) }
if ($2 == Lick) { set %base.power $Rand(6,9) }
if ($2 == Poison-Sting) { set %base.power $Rand(5,6) }
if ($2 == Smog) { set %base.power $Rand(7,9) }
if ($2 == Double-Edge) { set %base.power $Round($Calc( $readini($1 $+ .ini,$Poke($1),Attack) / 2 ),0) }
if ($2 == Bide) { set %base.power $Round($Calc( $readini($1 $+ .ini,$Poke($1),MHp) - $readini($1 $+ .ini,$Poke($1),Hp) ),0) }
if ($2 == SkullBash) { set %base.power $Rand(24,30) }
if ($2 == RapidSpin) { set %base.power $Rand(18,22) }
if ($2 == Acid) { set %base.power $Rand(18,22) }
if ($2 == Shadow-Punch) { set %base.power $Rand(14,22) }
if ($2 == Quick-Attack) { set %base.power $Rand(13,15) }
if ($2 == Bite) { set %base.power $Rand(15,16) }
if ($2 == Astonish) { set %base.power $Rand(11,14) }
if ($2 == Faint-Attack) { set %base.power $Rand(20,24) }
if ($2 == Hyper-Fang) { set %base.power $Rand(18,21) }
if ($2 == Poison-Fang) { set %base.power $Rand(25,35) }
if ($2 == Crunch) { set %base.power $Rand(17,22) }
if ($2 == Pursuit) { set %base.power $Rand(15,18) }
if ($2 == Twineedle) { set %base.power $Rand(14,16) }
if ($2 == Gust) { set %base.power $Rand(9,14) }
if ($2 == Aerial-Ace) { set %base.power $Rand(10,15) }
if ($2 == Drill-Peck) { set %base.power $Rand(16,21) }
if ($2 == Rock-Throw) { set %base.power $Rand(9,14) }
if ($2 == Rock-Blast) { Set %Times $Rand(2,5) | set %base.power $Calc( $Rand(4,6) * %Times ) }
if ($2 == Spike-Cannon) { Set %Times $Rand(2,5) | set %base.power $Calc( $Rand(7,10) * %Times ) }
if ($2 == Fury-Cutter) { Set %Times $Rand(2,5) | set %base.power $Calc( $Rand(3,6) * %Times ) }
if ($2 == Fury-Attack) { Set %Times $Rand(2,5) | set %base.power $Calc( $Rand(3,5) * %Times ) }
if ($2 == Pin-Missile) { Set %Times $Rand(2,5) | set %base.power $Calc( $Rand(5,7) * %Times ) }
if ($2 == Fury-Swipes) { Set %Times $Rand(3,5) | set %base.power $Calc( $Rand(3,6) * %Times ) }
if ($2 == OutRage) { Set %Times $Rand(2,3) | set %base.power $Calc( $Rand(15,20) * %Times ) }
if ($2 == Thrash) { Set %Times $Rand(5,7) | set %base.power $Calc( $Rand(6,7) * %Times ) }
if ($2 == False-Swipe) { set %base.power 30 }
if ($2 == Rock-Throw) { set %base.power $Rand(9,14) }
if ($2 == Double-Kick) { set %base.power $Rand(11,15) }
if ($2 == Horn-Attack) { set %base.power $Rand(13,16) }
if ($2 == Stomp) { set %base.power $Rand(15,18) }
if ($2 == Ember) { set %base.power $Rand(9,14) }
if ($2 == Flame-Wheel) { set %base.power $Rand(14,18) }
if ($2 == Revenge) { set %base.power $Rand(9,14) }
if ($2 == Confusion) { set %base.power $Rand(9,14) }
if ($2 == Thunder-Shock) { set %base.power $Rand(9,14) }
if ($2 == Thunder-Bolt) { set %base.power $Rand(18,28) }
if ($2 == Bubble) { set %base.power $Rand(9,14) }
if ($2 == Absorb) { set %base.power $Rand(9,14) }
if ($2 == Leech-Life) { set %base.power $Rand(12,18) }
if ($2 == MegaDrain) { set %base.power $Rand(15,18) }
if ($2 == GigaDrain) { set %base.power $Rand(18,25) }
if ($2 == VineWhip) { set %base.power $Rand(9,14) }
if ($2 == Iron-Tail) { set %base.power $Rand(15,18) }
if ($2 == Rage) { set %base.power $Rand(11,16) }
if ($2 == Slam) { set %base.power $Rand(12,15) }
if ($2 == BodySlam) { set %base.power $Rand(14,18) }
if ($2 == TakeDown) { set %base.power $Rand(16,20) }
if ($2 == FlameThrower) { set %base.power $Rand(18,28) }
if ($2 == Blaze-Kick) { set %base.power $Rand(20,25) }
if ($2 == WaterGun) { set %base.power $Rand(17,19) }
if ($2 == Bubble-Beam) { set %base.power $Rand(17,25) }
if ($2 == Muddy-Water) { set %base.power $Rand(20,25) }
if ($2 == WingAttack) { set %base.power $Rand(14,18) }
if ($2 == Air-Cutter) { set %base.power $Rand(18,22) }
if ($2 == Slash) { set %base.power $Rand(11,18) }
if ($2 == PsyBeam) { set %base.power $Rand(21,26) }
if ($2 == DragonRage) { set %base.power 40 }
if ($2 == Seismic-Toss) { set %base.power $readini($1 $+ .ini,$Poke($1),Level) }
if ($2 == Endeavor) { set %base.power $Rand(20,30) }
if ($2 == Flail) { set %base.power 20 }
if ($2 == Twister) { set %base.power 25 }
if ($2 == Sky-Uppercut) { set %base.power $Rand(25,35) }
if ($2 == AuroraBeam) { set %base.power $Rand(20,30) }
if ($2 == IceBeam) { set %base.power $Rand(30,45) }
if ($2 == PetalDance) { Set %Times $Rand(2,3) | set %base.power $Calc( $Rand(11,14) * %Times ) }
if ($2 == FireSpin) { Set %Times $Rand(2,6) | set %base.power $Calc( $Rand(11,14) * %Times ) }
if ($2 == HydroPump) { set %base.power 50 }
if ($2 == ExtremeSpeed) { set %base.power $Rand(30,40) }
if ($2 == Thunder) { set %base.power $Rand(30,40) }
if ($2 == Psychic) { set %base.power $Rand(30,40) }
if ($2 == Cross-Chop) { set %base.power $Rand(30,40) }
if ($2 == EarthQuake) { set %base.power 50 }
if ($2 == Dream-Eater) { set %base.power 70 }
if ($2 == HyperBeam) { set %base.power 70 }
if ($2 == BlastBurn) { set %base.power $Rand(40,50) }
if ($2 == RazorLeaf) { Set %Times $Rand(2,4) | set %base.power $Calc( $Rand(4,6) * %Times ) }
if ($2 == LeafBlade) { set %base.power 30 }
if ($2 == Dynamic-Punch) { set %base.power $Rand(40,55) }
if ($2 == MegaHorn) { set %base.power $Rand(55,70) }
if ($2 == SolarBeam) { set %base.power $readini($1 $+ .ini,$Poke($1),CDamage) | Writeini -n $1 $+ .ini $Poke($1) CDamage 0 }
if ($2 == SpitUp) { set %base.power $readini($1 $+ .ini,$Poke($1),CDamage) | Writeini -n $1 $+ .ini $Poke($1) CDamage 0 }
}
TypePower {
Set %Types $readini($2 $+ .ini,$Poke($2),Type) $readini($2 $+ .ini,$Poke($2),Type2)
if ($3 == Fire) && (Grass isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fire) && (Ice isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fire) && (Bug isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fire) && (Steel isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Water) && (Fire isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Water) && (Rock isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! | Goto Here }
if ($3 == Water) && (Ground isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Grass) && (Water isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Grass) && (Ground isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Grass) && (Grass isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Electric) && (Flying isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Electric) && (Water isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fighting) && (Normal isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Flying) && (Bug isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ice) && (Grass isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ice) && (Flying isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ice) && (Dragon isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Psychic) && (Fighting isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fighting) && (Normal isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fighting) && (Ice isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Fighting) && (Rock isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Poison) && (Grass isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Poison) && (Bug isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ground) && (Fire isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ground) && (Electric isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ground) && (Rock isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Flying) && (Grass isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Flying) && (Bug isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Flying) && (Fighting isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Psychic) && (Poison isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Psychic) && (Fighting isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Bug) && (Grass isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Bug) && (Poison isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Bug) && (Psychic isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Rock) && (Fire isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Rock) && (Ice isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Rock) && (Flying isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Rock) && (Bug isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Ghost) && (Ghost isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
if ($3 == Dragon) && (Dragon isin %Types) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 9Type Advantage! }
:Here
if ($3 == Fire) && (Water isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Fire) && (Rock isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Water) && (Grass isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Water) && (Dragon isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Grass) && (Fire isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Grass) && (Poison isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Grass) && (Flying isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Grass) && (Bug isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Grass) && (Dragon isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Ice) && (Water isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Flying) && (Rock isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Electric) && (Grass isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Electric) && (Rock isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Electric) && (Dragon isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Fighting) && (Poison isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Fighting) && (Flying isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Fighting) && (Bug isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Fighting) && (Psychic isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Poison) && (Ground isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Poison) && (Rock isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Poison) && (Ghost isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Ground) && (Grass isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Ground) && (Bug isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Flying) && (Electric isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Flying) && (Rock isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Bug) && (Fire isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Bug) && (Fighting isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Bug) && (Flying isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Bug) && (Ghost isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Rock) && (Fighting isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Rock) && (Ground isin %Types) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 4Type Disadvantage! }
if ($3 == Fire) && (Fire isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Ice) && (Ice isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Water) && (Water isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Grass) && (Grass isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Electric) && (Electric isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Poison) && (Poison isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Psychic) && (Psychic isin %Types) { set %base.power $Round($calc( %base.power / 4),0) | Set %Critical 4Same Type! }
if ($3 == Fire) && ($readini(Weather $+ .ini,Weather,Sunny) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Water) && ($readini(Weather $+ .ini,Weather,Raining) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Grass) && ($readini(Weather $+ .ini,Weather,Sunny) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Rock) && ($readini(Weather $+ .ini,Weather,SandStorm) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Ground) && ($readini(Weather $+ .ini,Weather,SandStorm) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Electric) && ($readini(Weather $+ .ini,Weather,ThunderStorm) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Flying) && ($readini(Weather $+ .ini,Weather,Windy) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Dark) && ($readini(Weather $+ .ini,Weather,NightTime) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Ice) && ($readini(Weather $+ .ini,Weather,Snowing) == yes) { set %base.power $Round($calc( %base.power * 2),0) | Set %Critical 8Weather Advantage! }
if ($3 == Fire) && ($readini(Weather $+ .ini,Weather,Raining) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Water) && ($readini(Weather $+ .ini,Weather,ThunderStorm) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Electric) && ($readini(Weather $+ .ini,Weather,SandStorm) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Flying) && ($readini(Weather $+ .ini,Weather,Thundertorm) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Rock) && ($readini(Weather $+ .ini,Weather,Raining) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Ground) && ($readini(Weather $+ .ini,Weather,Raining) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Dark) && ($readini(Weather $+ .ini,Weather,DayTime) == yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Weather Disadvantage! }
if ($3 == Ground) && (Flying isin %Types) { Msg %ChanSet $BName($1) $+ 5,1's Attack Did Not Affect $BName($2) $+ 5,1! 12(10Missed12) | Halt }
if ($3 == Electric) && (Ground isin %Types) { Msg %ChanSet $BName($1) $+ 5,1's Attack Did Not Affect $BName($2) $+ 5,1! 12(10Missed12) | Halt }
if ($readini($2 $+ .ini,$Poke($2),LScreen) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Light Screen! }
Unset %Types
}
Scratch {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Scratches $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Horn-Attack {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Jabs its Horn into $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Stomp {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Stomps on $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
Slash {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Slashes $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Swift {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Releases Stars at $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Horn-Drill {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
Set %Hit $Rand(1,8)
if (%Hit != 1) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 4,1! | halt }
Set %Exp $Rand(13,16)
Msg %ChanSet $BName($1) $+ 4,1 Gores its Horn into $BName($2) $+ 0,1! 15(14Gained9 %Exp 14Exp15) 15(4 $+ Beat $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Hp -1
BattleVictory $1 $2
}
Fissure {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,8)
if (%Hit != 1) { Msg %ChanSet $BName($1) $+ 5,1 Missed $BName($2) $+ 5,1 KOing $PGender2($2) Instantly! | halt }
Set %Exp $Rand(13,16)
Msg %ChanSet $BName($1) $+ 4,1 Touches $BName($2) $+ 4,1! 15(14Gained9 %Exp 14Exp15) 15(4 $+ Beat $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Hp -1
BattleVictory $1 $2
}
Tackle {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Tackles $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Splash {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Splashes $BName($2) $+ 0,1 But is did Nothing! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
}
Pound {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Pounds $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
HyperBeam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Fires a Massive Blast of Energy at $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Paralyzed Yes
Msg %ChanSet $BName($1) $+ 8,1 Has Become Paralyzed!
DamageSystem $1 $2
}
BlastBurn {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fire
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 4,1 Fires a Massive Blast of Fire at $BName($2) $+ 4,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Burn $Rand(1,10)
if (%Burn == 5) && ($readini($2 $+ .ini,$Poke($2),Burned) != yes) { Msg %ChanSet $BName($2) $+ 4,1 Has been Burned! 15(4Burn!15) | writeini $2 $+ .ini $Poke($2) Burned Yes }
Unset %Burn
writeini $1 $+ .ini $Poke($1) Paralyzed Yes
Msg %ChanSet $BName($1) $+ 8,1 Has Become Paralyzed!
DamageSystem $1 $2
}
Slam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Slams $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Bide {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Launches off the Ground and Hurls Itself at $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Fury-Attack {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Stabs $BName($2) $+ 0,1 %Times Times Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Spike-Cannon {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Fires %Times Spikes $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Thrash {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Thrashes $BName($2) $+ 0,1 %Times Times Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Fury-Cutter {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 3,1 Cuts $BName($2) $+ 3,1 %Times Times Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Fury-Swipes {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Swipes $BName($2) $+ 0,1 %Times Times Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
False-Swipe {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Swipes $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini -n $2 $+ .ini $Poke($2) Hp $calc($readini($2 $+ .ini,$Poke($2),Hp) - %Damage)
if ($readini($2 $+ .ini,$Poke($2),Hp) < 1) { writeini $2 $+ .ini $Poke($2) Hp 1 }
}
Quick-Attack {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Quickly Attacks $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
ExtremeSpeed {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Attacks $BName($2) $+ 0,1 In High Speeds, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
SkullBash {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Bashes $PGender($1) Head onto $BName($2) $+ 0,1's Head, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Endeavor {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
if ($Stat($1,Hp) < $Stat($2,Hp)) { Set %Base.power $Round( $Calc( %Base.power * 1.5 ),0) }
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Slams Into $PGender($1) Head onto $BName($2) $+ 0,1's Head, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Flail {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
if ($Stat($2,Hp) < 40) { Set %Base.power $Round( $Calc( %Base.power * 1.5 ),0) }
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Does Flail to $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Double-Edge {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %Hit $Rand(1,3)
set %Base.power2 $Calc( %Base.Power - [ $readini $1 $+ .ini $Poke($1) Defense ] )
if (%Base.power2 < 1) { set %Base.power2 1 }
if (%Hit == 3) { Set %Base.Power %Base.power2 | Msg %ChanSet $BName($1) $+ 0,1 Slams Into a Wall Doing %base.power To Himself! 15(9Missed15) | writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Base.Power) | Unset %Base.power2 | SelfDeadCheck $1 | halt }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Bashes into $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Unset %Base.power2
DamageSystem $1 $2
}
RapidSpin {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Launches At $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Hyper-Fang {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
if ($readini($2 $+ .ini,$Poke($2),Reflect) == Yes) { set %base.power $Round($calc( %base.power / 2),0) | Set %Critical 8Reflect Screen! }
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Bites $BName($2) $+ 0,1 With $PGender($1) Fangs, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
Super-Fang {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
Set %Hit $Rand(1,3)
if (%Hit != 3) { Msg %ChanSet $BName($1) $+ 0,1 Went to Bite $BName($2) $+ 0,1 But Missed!! 15(9Missed15) | halt }
Set %ExpGain $Rand(3,6)
Set %Exp $Rand(3,6)
set %Damage $Round($Calc( $readini($2 $+ .ini,$Poke($2),Hp) / 2),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Bites $BName($2) $+ 0,1 Really Hard, With $PGender($1) Fangs, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
Dynamic-Punch {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,2)
if (%Hit != 2) { Msg %ChanSet $BName($1) $+ 7,1 Went to Punch $BName($2) $+ 7,1 But Missed!! 15(9Missed15) | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1's Fist Slams $BName($2) $+ 7,1 on the face, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Confuse 5
if (%Confuse == 5) && ($readini($2 $+ .ini,$Poke($2),Confused) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != Yes) { Msg %ChanSet $BName($2) $+ 8,1 is Confused! 15(8Confused!15) | writeini $2 $+ .ini $Poke($2) Confused Yes }
Unset %Confuse
DamageSystem $1 $2
}
Helping-Hand {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAttack) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Helps $BName($2) $+ 0,1 Making $BName($2) $+ 0,1's Attack Increase By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Attack $calc($readini($2 $+ .ini,$Poke($2),Attack) + %Damage)
}
Growl {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAttack) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Growls At $BName($2) $+ 0,1 Making $BName($2) $+ 0,1's Attack Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Attack $calc($readini($2 $+ .ini,$Poke($2),Attack) - %Damage)
}
Charm {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAttack) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Flirts with $BName($2) $+ 0,1 Making $BName($2) $+ 0,1's Attack Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Attack $calc($readini($2 $+ .ini,$Poke($2),Attack) - %Damage)
}
FeatherDance {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAttack) * 0.10 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Flaps its Wings In a Strange way at $BName($2) $+ 10,1 Making $BName($2) $+ 10,1's Attack Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Attack $calc($readini($2 $+ .ini,$Poke($2),Attack) - %Damage)
}
TailWhip {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MDefense) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Whips $BName($2) $+ 0,1 With $PGender($1) Tail Making $BName($2) $+ 0,1's Defense Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Defense $calc($readini($2 $+ .ini,$Poke($2),Defense) - %Damage)
}
Leer {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MDefense) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Scares $BName($2) $+ 0,1 With $PGender($1) Eyes Making $BName($2) $+ 0,1's Defense Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Defense $calc($readini($2 $+ .ini,$Poke($2),Defense) - %Damage)
}
Tickle {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MDefense) * 0.05 ),0)
set %Damage2 $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAttack) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Tickles $BName($2) $+ 0,1 Causing $PGender($2) Defense to Decrease By %Damage & Attack By %Damage2 $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Defense $calc($readini($2 $+ .ini,$Poke($2),Defense) - %Damage)
writeini $2 $+ .ini $Poke($2) Attack $calc($readini($2 $+ .ini,$Poke($2),Attack) - %Damage2)
}
Screech {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MDefense) * 0.10 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Screeches at $BName($2) $+ 0,1 Making $BName($2) $+ 0,1's Defense Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Defense $calc($readini($2 $+ .ini,$Poke($2),Defense) - %Damage)
}
String-Shot {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),FSpeed) <= 1) { Msg %ChanSet $BName($1) $+ 9,1 Releases a Sticky Subtance on $BName($2) $+ 9,1 But Nothing Happened! 15(4Missed15) | Halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 9,1 Releases a Sticky Subtance on $BName($2) $+ 9,1 Making $BName($2) $+ 9,1's Speed Fall By 1 $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Speed $calc($readini($2 $+ .ini,$Poke($2),Speed) + 1)
writeini $2 $+ .ini $Poke($2) FSpeed $calc($readini($2 $+ .ini,$Poke($2),FSpeed) - 1)
}
Cotton-Spore {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 9,1 Releases the Paralyzing Powder at $BName($2) $+ 9,1 But $BName($1) $+ 9,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 9,1 Releases the Paralyzing Powder at $BName($2) $+ 9,1 But $BName($1) $+ 9,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 9,1 Missed $BName($2) $+ 3,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 9,1 Releases the Paralyzing Powder at $BName($2) $+ 9,1 Causing $BName($2) $+ 9,1 to become Paralyzed, Also Making $PGender($2) Speed Fall By 1! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Paralyzed Yes
writeini $2 $+ .ini $Poke($2) Speed $calc($readini($2 $+ .ini,$Poke($2),Speed) + 1)
writeini $2 $+ .ini $Poke($2) FSpeed $calc($readini($2 $+ .ini,$Poke($2),FSpeed) - 1)
}
Mud-Shot {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),FSpeed) <= 1) { Msg %ChanSet $BName($1) $+ 7,1 Throws Sticky Mud at $BName($2) $+ 7,1 But Nothing Happened! 15(4Missed15) | Halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 7,1 Throws Sticky Mud at $BName($2) $+ 7,1 Making $BName($2) $+ 7,1's Speed Fall By 1 $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Speed $calc($readini($2 $+ .ini,$Poke($2),Speed) + 1)
writeini $2 $+ .ini $Poke($2) FSpeed $calc($readini($2 $+ .ini,$Poke($2),FSpeed) - 1)
}
Growth {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MSAttack) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Grows, Making, Raises $PGender($1) SAttack By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) SAttack $calc($readini($1 $+ .ini,$Poke($1),SAttack) + %Damage)
}
Withdraw {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MDefense) * 0.25 ),0)
if (%Damage < 1) { set %Damage 1 }
Writeini -n $1 $+ .ini $1 CantCancel No
Msg %ChanSet $BName($1) $+ 11,1 Comes out of $PGender($1) Shell, Losing %Damage Defense! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) - %Damage)
}
Detect {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Writeini -n $1 $+ .ini $1 CantCancel No
Msg %ChanSet $BName($1) $+ 7,1 Loses Focus On The Enemy! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Dodge No
}
Defense-Curl {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MDefense) * 0.30 ),0)
if (%Damage < 1) { set %Damage 1 }
Writeini -n $1 $+ .ini $1 CantCancel No
Msg %ChanSet $BName($1) $+ 0,1 Comes out of The Curl, Losing %Damage Defense! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) - %Damage)
}
Protect {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Writeini -n $1 $+ .ini $1 CantCancel No
Writeini -n $1 $+ .ini $Poke($1) Dodge No
Msg %ChanSet $BName($1) $+ 0,1 is no Longer Protecting Itself! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
}
Agility {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,3)
if (%Hit != 3) { Msg %ChanSet $BName($1) $+ 13,1's Speed did not Rise! 15(4Miss15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1's Speed has Risen! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Speed $calc($readini($1 $+ .ini,$Poke($1),Speed) - 1)
writeini $1 $+ .ini $Poke($1) FSpeed $calc($readini($1 $+ .ini,$Poke($1),FSpeed) + 1)
}
DragonDance {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MAttack) * 0.10 ),0)
Msg %ChanSet $BName($1) $+ 12,1's Gains %Damage Attack! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Attack $calc($readini($1 $+ .ini,$Poke($1),Attack) + %Damage)
Unset %Damage
Set %Hit $Rand(1,3)
if (%Hit != 3) { Msg %ChanSet $BName($1) $+ 12,1's Speed did not Rise! 15(4Miss15) | halt }
writeini $1 $+ .ini $Poke($1) Speed $calc($readini($1 $+ .ini,$Poke($1),Speed) - 1)
writeini $1 $+ .ini $Poke($1) FSpeed $calc($readini($1 $+ .ini,$Poke($1),FSpeed) + 1)
Msg %ChanSet $BName($1) $+ 12,1's Speed has Risen!
Unset %Hit
}
Harden {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MDefense) * 0.10 ),0)
Msg %ChanSet $BName($1) $+ 0,1's Gets Harder! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) + %Damage)
}
Acid-Armor {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MDefense) * 0.15 ),0)
Msg %ChanSet $BName($1) $+ 0,1's Defense Increases! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) + %Damage)
}
Calm-Mind {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MSAttack) * 0.10 ),0)
set %Damage2 $Round( $calc( $readini($1 $+ .ini,$Poke($1),MSDefense) * 0.10 ),0)
Msg %ChanSet $BName($1) $+ 13,1's Gains %Damage Special Attack & %Damage2 Special Defense! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) SAttack $calc($readini($1 $+ .ini,$Poke($1),SAttack) + %Damage)
writeini $1 $+ .ini $Poke($1) SDefense $calc($readini($1 $+ .ini,$Poke($1),SDefense) + %Damage2)
Unset %Damage
Unset %Damage2
}
BulkUp {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MAttack) * 0.10 ),0)
set %Damage2 $Round( $calc( $readini($1 $+ .ini,$Poke($1),MDefense) * 0.10 ),0)
Msg %ChanSet $BName($1) $+ 7,1's Gains %Damage Attack & %Damage2 Defense! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Attack $calc($readini($1 $+ .ini,$Poke($1),Attack) + %Damage)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) + %Damage2)
Unset %Damage
Unset %Damage2
}
Cosmic-Power {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MDefense) * 0.10 ),0)
set %Damage2 $Round( $calc( $readini($1 $+ .ini,$Poke($1),MSDefense) * 0.10 ),0)
Msg %ChanSet $BName($1) $+ 0,1's Gains %Damage Defense & %Damage2 Special Defense! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) + %Damage)
writeini $1 $+ .ini $Poke($1) SDefense $calc($readini($1 $+ .ini,$Poke($1),SDefense) + %Damage2)
Unset %Damage
Unset %Damage2
}
Light-Screen {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1's Creates a Light Screen! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) LScreen Yes
}
Reflect {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1's Creates a Reflect Screen! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Reflect Yes
}
Double-Team {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($1 $+ .ini,$Poke($1),MAgility) * 0.10 ),0)
Msg %ChanSet $BName($1) $+ 0,1's Makes Illusions of $PGender2($1) $+ self! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Agility $calc($readini($1 $+ .ini,$Poke($1),Agility) + %Damage)
}
SafeGaurd {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1's is Now Safe Gaurded! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) SafeGaurd Yes
}
Grudge {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 2,1 is holding a Grudge! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Grudge Yes
}
Endure {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 is now Enduring! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Endure Yes
}
Destiny-Bond {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 2,1 is holding a Destiny-Bond! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Bond Yes
}
Focus-Energy {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 is Focus! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Focus Yes
}
RainDance {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Makes it Rain! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Weather Raining
if ($readini(Weather $+ .ini,Weather,Night) == yes) { writeini Weather $+ .ini Weather Night No | TimerWeatherChange $+ $1 1 60 /WeatherChange Night Raining }
if ($readini(Weather $+ .ini,Weather,Sunny) == yes) { writeini Weather $+ .ini Weather Sunny No | TimerWeatherChange $+ $1 1 60 /WeatherChange Sunny Raining }
if ($readini(Weather $+ .ini,Weather,SandStorm) == yes) { writeini Weather $+ .ini Weather SandStorm No | TimerWeatherChange $+ $1 1 60 /WeatherChange SandStorm Raining }
if ($readini(Weather $+ .ini,Weather,Snowing) == yes) { writeini Weather $+ .ini Weather Snowing No | TimerWeatherChange $+ $1 1 60 /WeatherChange Snowing Raining }
if ($readini(Weather $+ .ini,Weather,DayTime) == yes) { writeini Weather $+ .ini Weather DayTime No | TimerWeatherChange $+ $1 1 60 /WeatherChange DayTime Raining }
if ($readini(Weather $+ .ini,Weather,ThunderStorm) == yes) { writeini Weather $+ .ini Weather ThunderStorm No | TimerWeatherChange $+ $1 1 60 /WeatherChange ThunderStorm Raining }
if ($readini(Weather $+ .ini,Weather,Windy) == yes) { writeini Weather $+ .ini Weather Windy No | TimerWeatherChange $+ $1 1 60 /WeatherChange Windy Raining }
writeini Weather $+ .ini Weather %Weather Yes
Msg %ChanSet 12It Is Now Raining.
}
SandStorm {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 5,1 Makes a Sand Storm!! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Weather SandStorm
if ($readini(Weather $+ .ini,Weather,Night) == yes) { writeini Weather $+ .ini Weather Night No | TimerWeatherChange $+ $1 1 60 /WeatherChange Night SandStorm }
if ($readini(Weather $+ .ini,Weather,Sunny) == yes) { writeini Weather $+ .ini Weather Sunny No | TimerWeatherChange $+ $1 1 60 /WeatherChange Sunny SandStorm }
if ($readini(Weather $+ .ini,Weather,Raining) == yes) { writeini Weather $+ .ini Weather Raining No | TimerWeatherChange $+ $1 1 60 /WeatherChange Raining SandStorm }
if ($readini(Weather $+ .ini,Weather,Snowing) == yes) { writeini Weather $+ .ini Weather Snowing No | TimerWeatherChange $+ $1 1 60 /WeatherChange Snowing SandStorm }
if ($readini(Weather $+ .ini,Weather,DayTime) == yes) { writeini Weather $+ .ini Weather DayTime No | TimerWeatherChange $+ $1 1 60 /WeatherChange DayTime SandStorm }
if ($readini(Weather $+ .ini,Weather,ThunderStorm) == yes) { writeini Weather $+ .ini Weather ThunderStorm No | TimerWeatherChange $+ $1 1 60 /WeatherChange ThunderStorm SandStorm }
if ($readini(Weather $+ .ini,Weather,Windy) == yes) { writeini Weather $+ .ini Weather Windy No | TimerWeatherChange $+ $1 1 60 /WeatherChange Windy SandStorm }
writeini Weather $+ .ini Weather %Weather Yes
Msg %ChanSet 5It Is Now a SandStorm.
}
Synthesis {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
if ($readini(Weather $+ .ini,Weather,Sunny) == Yes) { Set %Damage 0.90 }
if ($readini(Weather $+ .ini,Weather,Night) == Yes) { Set %Damage 0.20 }
if ($readini(Weather $+ .ini,Weather,Windy) == Yes) { Set %Damage 0.25 }
if ($readini(Weather $+ .ini,Weather,Raining) == Yes) { Set %Damage 0.50 }
if ($readini(Weather $+ .ini,Weather,DayTime) == Yes) { Set %Damage 0.65 }
if ($readini(Weather $+ .ini,Weather,SandStorm) == Yes) { Set %Damage 0.35 }
if ($readini(Weather $+ .ini,Weather,ThunderStorm) == Yes) { Set %Damage 0.15 }
if ($readini(Weather $+ .ini,Weather,Snowing) == Yes) { Set %Damage 0.05 }
Set %Damage $Round($calc( $readini($1 $+ .ini,$Poke($1),MHp) * %Damage ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Recovers %Damage Hp! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Damage)
set %Hp $readini($1 $+ .ini,$Poke($1),Hp)
set %MHp $readini($1 $+ .ini,$Poke($1),MHp)
if (%Hp >= %MHp) { writeini $1 $+ .ini $Poke($1) Hp %MHp }
Unset %Hp
Unset %MHp
}
Moonlight {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
if ($readini(Weather $+ .ini,Weather,Sunny) == Yes) { Set %Damage 0.05 }
if ($readini(Weather $+ .ini,Weather,Night) == Yes) { Set %Damage 0.90 }
if ($readini(Weather $+ .ini,Weather,Windy) == Yes) { Set %Damage 0.30 }
if ($readini(Weather $+ .ini,Weather,Raining) == Yes) { Set %Damage 0.25 }
if ($readini(Weather $+ .ini,Weather,DayTime) == Yes) { Set %Damage 0.10 }
if ($readini(Weather $+ .ini,Weather,SandStorm) == Yes) { Set %Damage 0.40 }
if ($readini(Weather $+ .ini,Weather,ThunderStorm) == Yes) { Set %Damage 0.20 }
if ($readini(Weather $+ .ini,Weather,Snowing) == Yes) { Set %Damage 0.15 }
Set %Damage $Round($calc( $readini($1 $+ .ini,$Poke($1),MHp) * %Damage ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Recovers %Damage Hp! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Damage)
set %Hp $readini($1 $+ .ini,$Poke($1),Hp)
set %MHp $readini($1 $+ .ini,$Poke($1),MHp)
if (%Hp >= %MHp) { writeini $1 $+ .ini $Poke($1) Hp %MHp }
Unset %Hp
Unset %MHp
}
Morning-Sun {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
if ($readini(Weather $+ .ini,Weather,Sunny) == Yes) { Set %Damage 0.50 }
if ($readini(Weather $+ .ini,Weather,Night) == Yes) { Set %Damage 0.05 }
if ($readini(Weather $+ .ini,Weather,Windy) == Yes) { Set %Damage 0.30 }
if ($readini(Weather $+ .ini,Weather,Raining) == Yes) { Set %Damage 0.25 }
if ($readini(Weather $+ .ini,Weather,DayTime) == Yes) { Set %Damage 0.90 }
if ($readini(Weather $+ .ini,Weather,SandStorm) == Yes) { Set %Damage 0.05 }
if ($readini(Weather $+ .ini,Weather,ThunderStorm) == Yes) { Set %Damage 0.20 }
if ($readini(Weather $+ .ini,Weather,Snowing) == Yes) { Set %Damage 0.15 }
Set %Damage $Round($calc( $readini($1 $+ .ini,$Poke($1),MHp) * %Damage ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Recovers %Damage Hp! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Damage)
set %Hp $readini($1 $+ .ini,$Poke($1),Hp)
set %MHp $readini($1 $+ .ini,$Poke($1),MHp)
if (%Hp >= %MHp) { writeini $1 $+ .ini $Poke($1) Hp %MHp }
Unset %Hp
Unset %MHp
}
Bite {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Dark
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 14,1 Bites $BName($2) $+ 14,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
Astonish {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Ghost
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 2,1 Does Astonish to $BName($2) $+ 2,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
NightShade {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Base.power [ $readini $2 $+ .ini $Poke($2) Level ]
Set %Critical 0Normal Hit
TypePower $1 $2 Ghost
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 2,1 Does NightShade to $BName($2) $+ 2,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Faint-Attack {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Dark
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 14,1 Jumps Behind and Thrust $PGender2($1) $+ self into $BName($2) $+ 14,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
Sky-Uppercut {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Punches $BName($2) $+ 7,1 Into the Sky, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Peck {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Pecks $BName($2) $+ 10,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Drill-Peck {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Drills his Beak Into $BName($2) $+ 10,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
OutRage {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 12,1 Does OutRage to $BName($2) $+ 12,1 %Times Times, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Pursuit {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
if ($3 == Pursuit) && ($timer(Leave $+ $2).secs != $null) { set %base.power $Calc( %base.power * 2 ) }
Set %Critical 0Normal Hit
TypePower $1 $2 Dark
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 14,1 Slams into $BName($2) $+ 14,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Flinch $2
DamageSystem $1 $2
}
Pin-Missile {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Bug
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 3,1 Fires %Times Times Pin Missiles at $BName($2) $+ 3,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Low-Kick {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Spreads $PGender($1) legs Apart, Spins Around, Hitting $BName($2) $+ 7,1 on the side of its legs, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Double-Kick {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Kicks $BName($2) $+ 7,1 Twice, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Cross-Chop {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Slams the Back of $PGender($1) hand on $BName($2) $+ 7,1's chest, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Revenge {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
Set %Base.power $Calc( %Base.power + $Rand(1,( $Stat($1,MHp) - $Stat($1,Hp) )))
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Uncurls & Jump Kicks $BName($2) $+ 7,1 in the chest, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Karate-Chop {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Open Fist Slams $BName($2) $+ 7,1 on the chest, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Submission {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Slams into $BName($2) $+ 7,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Damage2 $Round($Calc( %Damage / 2.5 ),0)
if (%Damage2 < 1) { set %Damage2 1 }
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage2)
Msg %ChanSet $BName($1) $+ 4,1 Took %Damage2 Damage!
DamageSystem $1 $2
SelfDeadCheck $1
}
Vital-Throw {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Picks up $BName($2) $+ 7,1 and throws $BName($2) $+ 7,1 into a wall, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Crunch {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Dark
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 14,1 Crunches $BName($2) $+ 14,1 with $PGender($1) Fangs, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
Set %SP $Rand(1,2)
if (%Sp == 2) { Set %SP $Round( $calc( $readini($2 $+ .ini,$Poke($2),MSDefense) * 0.05 ),0) | Msg %ChanSet $BName($2) $+ 0,1 Lost %Sp Special Defense! | Unset %SP | writeini $2 $+ .ini $Poke($2) SDefense $calc($readini($2 $+ .ini,$Poke($2),SDefense) - %Sp) }
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Unset %Sp
DamageSystem $1 $2
}
Kinesis {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1 Does Kinesis on $BName($2) $+ 13,1! 15(14Gained9 %Exp 14Exp15)
Set %SP $Rand(1,2)
if (%Sp == 2) { Set %SP $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAgility) * 0.05 ),0) | Msg %ChanSet $BName($2) $+ 13,1 Lost %Sp Agility! | Unset %SP | writeini $2 $+ .ini $Poke($2) Agility $calc($readini($2 $+ .ini,$Poke($2),Agility) - %Sp) }
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Unset %Sp
Flinch $2
}
WhirlWind {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,4)
if (%Hit != 4) { Msg %ChanSet $BName($1) $+ 10,1 Releases High Gust of Winds at $BName($2) $+ 10,1 But it Did Nothing! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 10,1 Releases High Gust of Winds at $BName($2) $+ 10,1 Causing $BName($2) $+ 10,1 To be Thrown out of Battle! 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $2 Fighting no
writeini $2 $+ .ini $2 Attacking no
If ($readini($2 $+ .ini,$2,Field) != Normal) && ($readini($1 $+ .ini,$1,FightingWho) == $2) { writeini $1 $+ .ini $1 FightingWho None | writeini $1 $+ .ini $1 Fighting No | writeini $1 $+ .ini $1 Field None | writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 1) | writeini $2 $+ .ini $2 FightingWho None }
If ($readini($2 $+ .ini,$2,Field) == Normal) { set %batlist $remtok(%batlist,$2,1,32) }
}
Roar {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,4)
if (%Hit != 4) { Msg %ChanSet $BName($1) $+ 0,1 Roars at $BName($2) $+ 0,1 But it Did Nothing! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Roars at $BName($2) $+ 0,1 Causing $BName($2) $+ 0,1 To Run Away! 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $2 Fighting no
writeini $2 $+ .ini $2 Attacking no
If ($readini($2 $+ .ini,$2,Field) != Normal) && ($readini($1 $+ .ini,$1,FightingWho) == $2) { writeini $1 $+ .ini $1 FightingWho None | writeini $1 $+ .ini $1 Fighting No | writeini $1 $+ .ini $1 Field None | writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 1) | writeini $2 $+ .ini $2 FightingWho None }
If ($readini($2 $+ .ini,$2,Field) == Normal) { set %batlist $remtok(%batlist,$2,1,32) }
}
Bind {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,4)
if (%Hit != 4) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),Bind) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Binds $BName($2) $+ 0,1! 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Bind Yes
writeini $2 $+ .ini $Poke($2) BindBy $1
}
Constrict {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,3)
if (%Hit != 3) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),Bind) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Constricts $BName($2) $+ 0,1! 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Constrict Yes
writeini $2 $+ .ini $Poke($2) ConstrictBy $1
}
Disable {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,2)
if (%Hit != 2) { Msg %ChanSet $BName($1) $+ 13,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),Bind) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1 Fires a Ray at $BName($2) $+ 13,1! 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
:Repeat
Set %Attacks $readini($2 $+ .ini,$Poke($2),Attack1) $readini($2 $+ .ini,$Poke($2),Attack2) $readini($2 $+ .ini,$Poke($2),Attack3) $readini($2 $+ .ini,$Poke($2),Attack4)
Set %Attack $$gettok(%Attacks,$r(1,$numtok(%Attacks,32)),32)
if (%Attack == None) { Goto Repeat }
Msg %ChanSet $BName($2) $+ 13,1's %Attack is Disabled!
writeini $2 $+ .ini $Poke($2) Disabled Yes
writeini $2 $+ .ini $Poke($2) DisabledWhat %Attack
Unset %Attack
Unset %Attacks
}
Wrap {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,3)
if (%Hit != 3) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),Bind) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Wraps Around $BName($2) $+ 0,1! 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Bind Yes
writeini $2 $+ .ini $Poke($2) BindBy $1
}
Foresight {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Changes $BName($2) $+ 0,1's Stats back to Normal! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini -n $2 $+ .ini $Poke($2) SAttack $Stat($2,MSAttack)
writeini -n $2 $+ .ini $Poke($2) SDefense $Stat($2,MSDefense)
writeini -n $2 $+ .ini $Poke($2) Attack $Stat($2,MAttack)
writeini -n $2 $+ .ini $Poke($2) Defense $Stat($2,MDefense)
writeini -n $2 $+ .ini $Poke($2) Accuracy $Stat($2,MAccuracy)
writeini -n $2 $+ .ini $Poke($2) Agility $Stat($2,MAgility)
writeini -n $2 $+ .ini $Poke($2) Intelligence $Stat($2,MIntelligence)
}
Odor-Sleuth {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Changes $BName($2) $+ 0,1's Agility back to Normal! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini -n $2 $+ .ini $Poke($2) Agility $Stat($2,MAgility)
}
SuperSonic {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,3)
if (%Hit != 3) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1 Because of SafeGaurd! 15(9Safe15) | halt }
if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Msg %ChanSet $BName($1) $+ 0,1's Super Sonic Waves Missed $BName($2) $+ 0,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1's Super Sonic Waves hit $BName($2) $+ 0,1! 15(14Gained9 %Exp 14Exp15) 15(9Hit15)
Msg %ChanSet $BName($2) $+ 8,1 Is now Confused!
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Confused Yes
}
Mean-Look {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$2,Field) != Normal) { Msg %ChanSet $BName($1) $+ 0,1's Mean Look did not Effect $BName($2) $+ 0,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1's Gives $BName($2) $+ 0,1 a Mean Look! 15(14Gained9 %Exp 14Exp15) 15(9Hit15)
Msg %ChanSet $BName($2) $+ 0,1 Cant Run Away!
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $2 CantRun Yes
}
Imprison {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1's Imprisons $BName($2) $+ 13,1! 15(14Gained9 %Exp 14Exp15) 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Imprison Yes
}
Sand-Tomb {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,4)
if (%Hit != 4) { Msg %ChanSet $BName($1) $+ 7,1 Missed $BName($2) $+ 7,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),Tomb) == yes) { Msg %ChanSet $BName($1) $+ 7,1 Missed $BName($2) $+ 7,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 7,1 Surrounds $BName($2) $+ 7,1 With Sand! 15(14Gained9 %Exp 14Exp15) 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Tomb Yes
writeini $2 $+ .ini $Poke($2) TombBy $1
}
WhirlPool {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Hit $Rand(1,4)
if (%Hit != 4) { Msg %ChanSet $BName($1) $+ 11,1 Missed $BName($2) $+ 11,1! 15(9Missed15) | halt }
if ($readini($2 $+ .ini,$Poke($2),WPool) == yes) { Msg %ChanSet $BName($1) $+ 11,1 Missed $BName($2) $+ 11,1! 15(9Missed15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 11,1 Sends a Tornado of Water at $BName($2) $+ 11,1! 15(14Gained9 %Exp 14Exp15) 15(9Hit15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) WPool Yes
writeini $2 $+ .ini $Poke($2) WPoolBy $1
}
Ember {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fire
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 4,1 Unleashes Embers of Fire at $BName($2) $+ 4,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Burn $Rand(1,10)
if (%Burn == 5) && ($readini($2 $+ .ini,$Poke($2),Burned) != yes) { Msg %ChanSet $BName($2) $+ 4,1 Has been Burned! 15(4Burn!15) | writeini $2 $+ .ini $Poke($2) Burned Yes }
Unset %Burn
DamageSystem $1 $2
}
Blaze-Kick {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fire
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 4,1 Does a Fiery Kick to $BName($2) $+ 4,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Burn $Rand(1,10)
if (%Burn == 5) && ($readini($2 $+ .ini,$Poke($2),Burned) != yes) { Msg %ChanSet $BName($2) $+ 4,1 Has been Burned! 15(4Burn!15) | writeini $2 $+ .ini $Poke($2) Burned Yes }
Unset %Burn
DamageSystem $1 $2
}
Flame-Wheel {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fire
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 4,1 Unleashes a Wheel of Fire at $BName($2) $+ 4,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Burn $Rand(1,10)
if (%Burn == 5) && ($readini($2 $+ .ini,$Poke($2),Burned) != yes) { Msg %ChanSet $BName($2) $+ 4,1 Has been Burned! 15(4Burn!15) | writeini $2 $+ .ini $Poke($2) Burned Yes }
Unset %Burn
DamageSystem $1 $2
}
Twineedle {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Bug
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 3,1 Stabs $BName($2) $+ 3,1 With Both Needles, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
MegaHorn {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Bug
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 3,1 Stabs $BName($2) $+ 3,1 With its Horns and Throws $BName($2) $+ 3,1 into a wall, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Poison-Sting {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Poison
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 6,1 Fires a Sharp Needle at $BName($2) $+ 6,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Poison $Rand(1,7)
if (%Poison == 5) && ($readini($2 $+ .ini,$Poke($2),Poisoned) != yes) { Msg %ChanSet $BName($2) $+ 6,1 Has been Poisoned! 15(6Poisoned!15) | writeini $2 $+ .ini $Poke($2) Poisoned Yes }
Unset %Poison
DamageSystem $1 $2
}
Smog {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Poison
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 6,1 releases a Blob of Smog at $BName($2) $+ 6,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Poison $Rand(1,5)
if (%Poison == 5) && ($readini($2 $+ .ini,$Poke($2),Poisoned) != yes) { Msg %ChanSet $BName($2) $+ 6,1 Has been Poisoned! 15(6Poisoned!15) | writeini $2 $+ .ini $Poke($2) Poisoned Yes }
Unset %Poison
DamageSystem $1 $2
}
BodySlam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Slams into $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Paralyzed $Rand(1,10)
if (%Paralyzed == 5) && ($readini($2 $+ .ini,$Poke($2),Paralyzed) != yes) { Msg %ChanSet $BName($2) $+ 8,1 Has been Paralyzed! 15(6Paralyzed!15) | writeini $2 $+ .ini $Poke($2) Paralyzed Yes }
Unset %Paralyzed
DamageSystem $1 $2
}
TakeDown {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Slams into $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Damage2 $Round($Calc( %Damage / 3 ),0)
if (%Damage2 < 1) { set %Damage2 1 }
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage2)
Msg %ChanSet $BName($1) $+ 4,1 Took %Damage2 Damage!
DamageSystem $1 $2
SelfDeadCheck $1
}
Dream-Eater {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Sleeping) != yes) { Msg %ChanSet $BName($1) $+ 13,1's Attack Fails! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Psychic
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 13,1 Hits $BName($2) $+ 13,1 Mentally, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Damage2 $Round($Calc( %Damage / 2 ),0)
if (%Damage2 < 1) { set %Damage2 1 }
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Damage2)
Msg %ChanSet $BName($1) $+ 9,1 Recovers %Damage2 Damage!
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
DamageSystem $1 $2
}
Thunder-Shock {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Electric
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 8,1 Lets out a Little Shock of Electricity at $BName($2) $+ 8,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Lick {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Ghost
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 2,1 Licks $BName($2) $+ 2,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Paralyzed $Rand(1,10)
if (%Paralyzed == 5) && ($readini($2 $+ .ini,$Poke($2),Paralyzed) != yes) { Msg %ChanSet $BName($2) $+ 8,1 Has been Paralyzed! 15(6Paralyzed!15) | writeini $2 $+ .ini $Poke($2) Paralyzed Yes }
Unset %Paralyzed
DamageSystem $1 $2
}
Thunder-Bolt {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Electric
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 8,1 Lets out a Bolt of Electricity at $BName($2) $+ 8,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Thunder {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Electric
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 8,1 Lets out a Massive Bolt of Electricity at $BName($2) $+ 8,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Acid {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Poison
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 6,1 Spits Acid at $BName($2) $+ 6,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Lower $Rand(1,2)
if (%Lower == 1) && ($readini($1 $+ .ini,$Poke($1),Defense) >= 20) { Set %Defense $Round($Calc( $Stat($2,Defense) * 0.05),0) | writeini $1 $+ .ini $Poke($1) Defense $calc($readini($1 $+ .ini,$Poke($1),Defense) - %Defense) | Msg %ChanSet $BName($2) $+ 6,1 Lost %Defense Defense! }
Unset %Lower
Unset %Defense
Set %Poison $Rand(1,5)
if (%Poison == 5) && ($readini($2 $+ .ini,$Poke($2),Poisoned) != yes) { Msg %ChanSet $BName($2) $+ 6,1 Has been Poisoned! 15(6Poisoned!15) | writeini $2 $+ .ini $Poke($2) Poisoned Yes }
Unset %Poison
DamageSystem $1 $2
}
Poison-Fang {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Poison
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 6,1 Bites $BName($2) $+ 6,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Poison $Rand(1,3)
if (%Poison == 3) && ($readini($2 $+ .ini,$Poke($2),Poisoned) != yes) { Msg %ChanSet $BName($2) $+ 6,1 Has been Poisoned! 15(6Poisoned!15) | writeini $2 $+ .ini $Poke($2) Poisoned Yes }
Unset %Poison
DamageSystem $1 $2
}
Confusion {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Psychic
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 13,1 Does Confusion at $BName($2) $+ 13,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Confuse $Rand(1,10)
if (%Confuse == 5) && ($readini($2 $+ .ini,$Poke($2),Confused) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != Yes) { Msg %ChanSet $BName($2) $+ 8,1 is Confused! 15(8Confused!15) | writeini $2 $+ .ini $Poke($2) Confused Yes }
Unset %Confuse
DamageSystem $1 $2
}
PetalDance {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 9,1 Makes Petals Appear & Fires them at $BName($2) $+ 9,1 %Times Times Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Confuse $Rand(1,7)
if (%Confuse == 5) && ($readini($2 $+ .ini,$Poke($2),Confused) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != Yes) { Msg %ChanSet $BName($2) $+ 8,1 is Confused! 15(8Confused!15) | writeini $2 $+ .ini $Poke($2) Confused Yes }
Unset %Confuse
DamageSystem $1 $2
}
PsyBeam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Psychic
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 13,1 Fires a Psy Beam at $BName($2) $+ 13,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Confuse $Rand(1,7)
if (%Confuse == 5) && ($readini($2 $+ .ini,$Poke($2),Confused) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != Yes) { Msg %ChanSet $BName($2) $+ 8,1 is Confused! 15(8Confused!15) | writeini $2 $+ .ini $Poke($2) Confused Yes }
Unset %Confuse
DamageSystem $1 $2
}
Shadow-Punch {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Ghost
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 2,1 Punches Towards a Shadow But Somehow the Punch Ended up Hitting $BName($2) $+ 2,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Psychic {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Psychic
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 13,1 Does Psychic at $BName($2) $+ 13,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Confuse $Rand(1,7)
if (%Confuse == 5) && ($readini($2 $+ .ini,$Poke($2),Confused) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != Yes) { Msg %ChanSet $BName($2) $+ 8,1 is Confused! 15(8Confused!15) | writeini $2 $+ .ini $Poke($2) Confused Yes }
Unset %Confuse
DamageSystem $1 $2
}
Rock-Throw {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Rock
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 5,1 Throws a Rock at $BName($2) $+ 5,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Rock-Blast {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Rock
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 5,1 Hurls %Times Rocks at $BName($2) $+ 5,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
EarthQuake {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Flying) { Msg %ChanSet $BName($1) $+ 7,1's Attack Did Not Affect $BName($2) $+ 7,1! 12(10Missed12) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Type2) == Flying) { Msg %ChanSet $BName($1) $+ 7,1's Attack Did Not Affect $BName($2) $+ 7,1! 12(10Missed12) | Halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Ground
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Stomps $PGender($1) Foot to the Ground, Sending a Shock of an Earth Quake at $BName($2) $+ 7,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Gust {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Unleashes Gust of Winds at $BName($2) $+ 10,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Aerial-Ace {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Sweepes down tackling $BName($2) $+ 10,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Bubble {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Water
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Unleashes a Bubble at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Muddy-Water {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Water
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Flings the Watery Mud at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Accuracy $Rand(1,2)
if (%Accuracy == 2) { Set %Accuracy $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAccuracy) * 0.05 ),0) | Msg %ChanSet $BName($2) $+ 0,1 Lost %Accuracy Accuracy! | Unset %Accuracy | writeini $2 $+ .ini $Poke($2) Accuracy $calc($readini($2 $+ .ini,$Poke($2),Accuracy) - %Accuracy) }
Unset %Accuracy
DamageSystem $1 $2
}
Iron-Tail {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Steel
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 15,1 Whips $BName($2) $+ 15,1 With $PGender($1) Tail, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
VineWhip {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 9,1 Whips $BName($2) $+ 9,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Absorb {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Set %Hp $Round($Calc( %Damage / 4 ),0)
Msg %ChanSet $BName($1) $+ 9,1 Touches $BName($2) $+ 9,1 Doing %Damage Damage, Also Absorbing %Hp Hp! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Hp)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
DamageSystem $1 $2
}
MegaDrain {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Set %Hp $Round($Calc( %Damage / 3 ),0)
Msg %ChanSet $BName($1) $+ 9,1 Touches $BName($2) $+ 9,1 Doing %Damage Damage, Also Absorbing %Hp Hp! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Hp)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
DamageSystem $1 $2
}
GigaDrain {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Set %Hp $Round($Calc( %Damage / 2 ),0)
Msg %ChanSet $BName($1) $+ 9,1 Touches $BName($2) $+ 9,1 Doing %Damage Damage, Also Absorbing %Hp Hp! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Hp)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
DamageSystem $1 $2
}
Leech-Life {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Bug
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Set %Hp $Round($Calc( %Damage / 2 ),0)
Msg %ChanSet $BName($1) $+ 3,1 Touches $BName($2) $+ 3,1 Doing %Damage Damage, Also Absorbing %Hp Hp! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Hp)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
DamageSystem $1 $2
}
Mirror-Move {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Msg %ChanSet $BName($1) $+ 10,1 Does Mirror Move!
Set %Move $readini($2 $+ .ini,$2,LastMoveUsed)
%Move $1 $2 %Move
}
Spite {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Move $readini($2 $+ .ini,$2,LastMoveUsed)
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 2,1 Does Spite to $BName($2) $+ 2,1 Causing $BName($2) $+ 2,1's %Move PP Be Divided By 2! 15(14Gained9 %Exp 14Exp15)
Set %Move $readini($2 $+ .ini,$2,LastMoveUsed) $+ PP
Set %Move2 $Round( $Calc( [ $readini $2 $+ .ini $Poke($2) %Move ] / 2 ),0)
writeini $2 $+ .ini $Poke($2) %Move %Move2
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Unset %Move
Unset %Move2
}
Roleplay {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Msg %ChanSet $BName($1) $+ 13,1 Does a Move Through Roleplay!
Set %Move $readini($1 $+ .ini,$1,LastMoveUsed)
%Move $1 $2 %Move
}
LeechSeed {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp == 1) { Msg %ChanSet $BName($1) $+ 3,1 Tosses a Leech Seed at $BName($2) $+ 3,1 But $BName($1) $+ 3,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Leeched) == yes) { Msg %ChanSet $BName($1) $+ 3,1 Tosses a Leech Seed at $BName($2) $+ 3,1 But $BName($1) $+ 3,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 9,1 Tosses a Leech Seed at $BName($2) $+ 9,1 Causing the Seeds to Spread onto $BName($2) $+ 9,1! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Leeched Yes
writeini $2 $+ .ini $Poke($2) LeechedBy $1
}
SmokeScreen {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAccuracy) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Releases a Gas of Smoke At $BName($2) $+ 0,1 Making $BName($2) $+ 0,1's Accuracy Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Accuracy $calc($readini($2 $+ .ini,$Poke($2),Accuracy) - %Damage)
}
PoisonPowder {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 6,1 Releases the Poison Powder at $BName($2) $+ 6,1 But $BName($1) $+ 6,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Poisoned) == yes) { Msg %ChanSet $BName($1) $+ 6,1 Releases the Poison Powder at $BName($2) $+ 6,1 But $BName($1) $+ 6,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 6,1 Missed $BName($2) $+ 6,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 6,1 Releases the Poison Powder at $BName($2) $+ 6,1 Causing $BName($2) $+ 6,1 to become Poisoned! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Poisoned Yes
}
Confuse-Ray {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 2,1 Fires a Confuse Ray at $BName($2) $+ 2,1 But $BName($1) $+ 2,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Msg %ChanSet $BName($1) $+ 2,1 Fires a Confuse Ray $BName($2) $+ 2,1 But $BName($1) $+ 2,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 2,1 Missed $BName($2) $+ 2,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 2,1 Releases a Confuse Ray at $BName($2) $+ 2,1 Causing $BName($2) $+ 2,1 to become Confused! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Confused Yes
}
Hypnosis {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 13,1 Fires a Hypnosis Ray at $BName($2) $+ 13,1 But $BName($1) $+ 13,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Msg %ChanSet $BName($1) $+ 13,1 Fires a Hypnosis Ray $BName($2) $+ 13,1 But $BName($1) $+ 13,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 13,1 Missed $BName($2) $+ 13,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1 Releases a Hypnosis Ray at $BName($2) $+ 13,1 Causing $BName($2) $+ 13,1 to become Asleep! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Sleeping Yes
}
Sing {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 0,1 Sings to $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Failed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Sings to $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Failed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Sings to $BName($2) $+ 0,1 Causing $BName($2) $+ 0,1 to become Asleep! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Sleeping Yes
}
Perish-Song {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,6)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 0,1 Sings to $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Failed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Sings to $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Failed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Sings to $BName($2) $+ 0,1 Causing $BName($2) $+ 0,1 to Faint! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Hp -1
BattleVictory $1 $2
}
Sheer-Cold {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,4)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 11,1 Makes it Cold for $BName($2) $+ 11,1 But $BName($1) $+ 11,1 Failed! 15(4 $+ Missed $+ 15) | Halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 11,1 Makes it so cold for $BName($2) $+ 11,1 That it Makes $BName($2) $+ 11,1 Faint! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Hp -1
BattleVictory $1 $2
}
Will-o-Wisp {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 4,1 Fires a Fiery Lash of fire at $BName($2) $+ 4,1 But $BName($1) $+ 4,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Msg %ChanSet $BName($1) $+ 4,1 Fires a Fiery Lash of fire at $BName($2) $+ 4,1 But $BName($1) $+ 4,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 4,1 Missed $BName($2) $+ 4,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 4,1 Fires a Fiery Lash of fire at $BName($2) $+ 4,1 Causing $BName($2) $+ 4,1 to become Burned! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Burned Yes
}
Flatter {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MSAttack) * 0.05 ),0)
writeini $2 $+ .ini $Poke($2) SAttack $calc($readini($2 $+ .ini,$Poke($2),SAttack) + %Damage)
Msg %ChanSet $BName($2) $+ 14,1 Gained %Damage Special Attack!
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 14,1 Does Flatter at $BName($2) $+ 14,1 But $BName($1) $+ 14,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Msg %ChanSet $BName($1) $+ 14,1 Does Flatter at $BName($2) $+ 14,1 But $BName($1) $+ 14,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 14,1 Missed $BName($2) $+ 14,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 14,1 Does Flatter $BName($2) $+ 14,1 Causing $BName($2) $+ 14,1 to become Confused! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Confused Yes
}
Stun-Spore {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 9,1 Releases the Paralyzing Powder at $BName($2) $+ 9,1 But $BName($1) $+ 9,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 9,1 Releases the Paralyzing Powder at $BName($2) $+ 9,1 But $BName($1) $+ 9,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 9,1 Missed $BName($2) $+ 3,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 9,1 Releases the Paralyzing Powder at $BName($2) $+ 9,1 Causing $BName($2) $+ 9,1 to become Paralyzed! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Paralyzed Yes
}
Glare {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 0,1 Tries to Intimidate $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Failed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Tries to Intimidate $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Fails! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Tries to Intimidate $BName($2) $+ 0,1 Causing $BName($2) $+ 0,1 to become Paralyzed! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Paralyzed Yes
}
Thunder-Wave {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 8,1 Releases a Shock of Electricity at $BName($2) $+ 8,1 But $BName($1) $+ 8,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 Releases a Shock of Electricity at $BName($2) $+ 8,1 But $BName($1) $+ 8,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 8,1 Missed $BName($2) $+ 8,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 8,1 Releases a Shock of Electricity at $BName($2) $+ 8,1 Causing $BName($2) $+ 8,1 to become Paralyzed! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Paralyzed Yes
}
SleepPowder {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 3,1 Releases the Sleep Powder at $BName($2) $+ 3,1 But $BName($1) $+ 3,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Sleeping) == yes) { Msg %ChanSet $BName($1) $+ 9,1 Releases the Sleep Powder at $BName($2) $+ 9,1 But $BName($1) $+ 9,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 9,1 Missed $BName($2) $+ 9,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 9,1 Releases the Sleep Powder at $BName($2) $+ 9,1 Causing $BName($2) $+ 9,1 to go Asleep! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Sleeping Yes
}
Sweet-Kiss {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 0,1 Goes to Kiss $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Confused) == yes) { Msg %ChanSet $BName($1) $+ 0,1 Goes to Kiss $BName($2) $+ 0,1 But $BName($1) $+ 0,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 0,1 Missed $BName($2) $+ 0,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Locks Lips with $BName($2) $+ 0,1 Causing $BName($2) $+ 0,1 to Become Confused! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Confused Yes
}
Curse {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp != 1) { Msg %ChanSet $BName($1) $+ 2,1 Goes to Curse $BName($2) $+ 2,1 But $BName($1) $+ 2,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),Cursed) == yes) { Msg %ChanSet $BName($1) $+ 2,1 Goes to Curse $BName($2) $+ 2,1 But $BName($1) $+ 2,1 Missed! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($2 $+ .ini,$Poke($2),SafeGaurd) == Yes) { Msg %ChanSet $BName($1) $+ 2,1 Missed $BName($2) $+ 2,1 Because of SafeGaurd! 15(9Safe15) | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 2,1 Locks Lips with $BName($2) $+ 2,1 Causing $BName($2) $+ 2,1 to Become Cursed! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Confused Yes
}
Future-Sight {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 13,1 Shutters Something at $BName($2) $+ 13,1! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
TimerFuture $+ $2 1 120 /FSEffect $2
}
FSEffect {
if ($readini($1 $+ .ini,$1,Fighting) != Yes) { halt }
Set %Damage $Rand(20,30)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) - %Damage)
Msg %ChanSet $BName($1) $+ 13,1 Took %Damage Damage!
SelfDeadCheck $1
}
SweetScent {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MIntelligence) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Releases a Sweet Scent At $BName($2) $+ 0,1 Making $BName($2) $+ 0,1's Evasionious Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Intelligence $calc($readini($2 $+ .ini,$Poke($2),Intelligence) - %Damage)
}
Sand-Attack {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAccuracy) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Throws Sand At $BName($2) $+ 0,1 Making $BName($2) $+ 7,1's Accuracy Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Accuracy $calc($readini($2 $+ .ini,$Poke($2),Accuracy) - %Damage)
}
Mud-Slap {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
set %Damage $Round( $calc( $readini($2 $+ .ini,$Poke($2),MAccuracy) * 0.05 ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 7,1 Throws Mud At $BName($2) $+ 0,1 Making $BName($2) $+ 7,1's Accuracy Decrease By %Damage $+ ! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Accuracy $calc($readini($2 $+ .ini,$Poke($2),Accuracy) - %Damage)
}
Rage {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Unleashes Rage On $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
set %Attack $Round( $calc( $readini($1 $+ .ini,$Poke($1),MAttack) * 0.05 ),0)
writeini $1 $+ .ini $Poke($1) Attack $calc($readini($1 $+ .ini,$Poke($1),Attack) + %Attack)
Msg %ChanSet $BName($1) $+ 4,1 Is Getting Pumped Up!
DamageSystem $1 $2
}
ScaryFace {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(1,2)
if (%Exp == 1) { Msg %ChanSet $BName($1) $+ 0,1 Makes a Scary Face at $BName($2) $+ 0,1 But $BName($2) $+ 0,1 Was Not Effected! 15(4 $+ Missed $+ 15) | Halt }
if ($readini($1 $+ .ini,$Poke($1),FSpeed) == yes) == 1) { Msg %ChanSet $BName($1) $+ 0,1 Makes a Scary Face at $BName($2) $+ 0,1 But $BName($2) $+ 0,1 Was Not Effected! 15(4 $+ Missed $+ 15) | Halt }
Set %Exp $Rand(3,6)
Msg %ChanSet $BName($1) $+ 0,1 Makes a Scary Face at $BName($2) $+ 0,1 Causing $BName($2) $+ 0,1's Speed Decrease By 1! 15(14Gained9 %Exp 14Exp15) 15( $+ 4Hit! $+ 15)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Speed $calc($readini($2 $+ .ini,$Poke($2),Speed) + 1)
writeini $2 $+ .ini $Poke($2) FSpeed $calc($readini($2 $+ .ini,$Poke($2),FSpeed) - 1)
}
FlameThrower {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fire
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 4,1 Fires Massive Row Of Flames at $BName($2) $+ 4,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Burn $Rand(1,10)
if (%Burn == 5) && ($readini($2 $+ .ini,$Poke($2),Burned) != yes) { Msg %ChanSet $BName($2) $+ 4,1 Has been Burned! 15(4Burn!15) | writeini $2 $+ .ini $Poke($2) Burned Yes }
Unset %Burn
DamageSystem $1 $2
}
WaterGun {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Water
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Squirts a Spray of Water at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Bubble-Beam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Water
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Fires a Beam of Bubbles at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
RazorLeaf {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 9,1 Fires %Times Leafs at $BName($2) $+ 9,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
LeafBlade {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 9,1 Slams $BName($2) $+ 9,1 on the head with a Leaf, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
WingAttack {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Slams $PGender($1) Wings onto $BName($2) $+ 10,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Air-Cutter {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Flying
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 10,1 Releases a Striking Wind at $BName($2) $+ 10,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Slash {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($2 $+ .ini,$Poke($2),Type) == Ghost) && ($readini($1 $+ .ini,$Poke($1),ForeSighted) != Yes) { Msg %ChanSet $BName($1) $+ 10,1's Attack Did Not Affect $BName($2) $+ 10,1! 12(10Missed12) | Halt }
GetBase $1 $3
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical 0Normal Hit
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Slashes $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
DragonRage {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Dragon
Set %Exp $Rand(3,6)
set %Damage %Base.power
if (%Damage < 40) { set %Damage 40 }
Msg %ChanSet $BName($1) $+ 12,1 Slams into $BName($2) $+ 12,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Seismic-Toss {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fighting
Set %Exp $Rand(3,6)
set %Damage %Base.power
Msg %ChanSet $BName($1) $+ 7,1 Slams $BName($2) $+ 7,1 into the ground Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
Twister {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Dragon
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 12,1 Flaps its Wings Releasing a Twister at $BName($2) $+ 12,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
FireSpin {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Fire
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 4,1 Breathes out Swirling Fire which surround $BName($2) $+ 4,1 & then Englufing $BName($2) $+ 4,1 %Times Times, Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Burn $Rand(1,10)
if (%Burn == 5) && ($readini($2 $+ .ini,$Poke($2),Burned) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != yes) { Msg %ChanSet $BName($2) $+ 4,1 Has been Burned! 15(4Burn!15) | writeini $2 $+ .ini $Poke($2) Burned Yes }
Unset %Burn
DamageSystem $1 $2
}
AuroraBeam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Ice
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Fires the Aurora Beam at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Iced $Rand(1,10)
if (%Iced == 5) && ($readini($2 $+ .ini,$Poke($2),Iced) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != yes) { Msg %ChanSet $BName($2) $+ 11,1 Has been Iced! 15(4Iced!15) | writeini $2 $+ .ini $Poke($2) Iced Yes }
Unset %Iced
DamageSystem $1 $2
}
IceBeam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Ice
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Fires the Ice Beam at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Iced $Rand(1,10)
if (%Iced == 5) && ($readini($2 $+ .ini,$Poke($2),Iced) != yes) && ($readini($2 $+ .ini,$Poke($2),SafeGaurd) != yes) { Msg %ChanSet $BName($2) $+ 11,1 Has been Iced! 15(4Iced!15) | writeini $2 $+ .ini $Poke($2) Iced Yes }
Unset %Iced
DamageSystem $1 $2
}
HydroPump {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Water
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 11,1 Fires a Massive About of Water at $BName($2) $+ 11,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
CSolarBeam {
if ($readini($1 $+ .ini,$1,Attacking) != Yes) { TimerAttack $+ $1 off | halt }
if ($readini($1 $+ .ini,$1,Fighting) != Yes) { writeini $1 $+ .ini $1 Attacking No | TimerAttack $+ $1 off | halt }
writeini $1 $+ .ini Charging Damage $calc($readini($1 $+ .ini,Charging,Damage) + 5)
Notice $1 SolarBeam Got Stronger
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 5) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Began to take form! }
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 50) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Began to Shine! }
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 100) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Began to Expand! }
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 150) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Reached its Max Limit! }
}
SolarBeam {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
TypePower $1 $2 Grass
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) SDefense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) SAttack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 9,1 Blasts a Mighty Solar Beam at $BName($2) $+ 9,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
SilverWind {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Effect $Rand(1,5)
if (%Effect == 1) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) | Msg %ChanSet $BName($1) $+ 3,1's Silver Wind Heals $PGender2($1) $+ Self Fully! 15(14Gained9 %Exp 14Exp15) | Goto Here }
if (%Effect == 2) { writeini $1 $+ .ini $Poke($1) Defense $Calc( ($Stat($1,Defense) * 0.15) + $Stat($1,MDefense) ) | Msg %ChanSet $BName($1) $+ 3,1's Defense Went Up! 15(14Gained9 %Exp 14Exp15) | Goto Here }
if (%Effect == 3) { writeini $1 $+ .ini $Poke($1) Attack $Calc( ($Stat($1,Attack) * 0.15) + $Stat($1,MAttack) ) | Msg %ChanSet $BName($1) $+ 3,1's Attack Went Up! 15(14Gained9 %Exp 14Exp15) | Goto Here }
if (%Effect == 4) { writeini $1 $+ .ini $Poke($1) SDefense $Calc( ($Stat($1,SDefense) * 0.15) + $Stat($1,MSDefense) ) | Msg %ChanSet $BName($1) $+ 3,1's Special Defenese Went Up! 15(14Gained9 %Exp 14Exp15) | Goto Here }
if (%Effect == 5) { writeini $1 $+ .ini $Poke($1) SAttack $Calc( ($Stat($1,SAttack) * 0.15) + $Stat($1,MSAttack) ) | Msg %ChanSet $BName($1) $+ 3,1's Special Attack Went Up! 15(14Gained9 %Exp 14Exp15) | Goto Here }
:Here
Unset %Effect
Unset %Exp
}
Recover {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Hp $Round($Calc( $Stat($1,MHp) / 2 ),0)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Hp)
Msg %ChanSet $BName($1) $+ 0,1's Gains %HP Hp! 15(14Gained9 %Exp 14Exp15)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
Unset %Hp
Unset %Exp
}
Mist {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini $1 $+ .ini $Poke($1) Attack $Stat($1,MAttack)
writeini $1 $+ .ini $Poke($1) SAttack $Stat($1,MSAttack)
writeini $1 $+ .ini $Poke($1) Defense $Stat($1,MDefense)
writeini $1 $+ .ini $Poke($1) SDefense $Stat($1,MSDefense)
Msg %ChanSet $BName($1) $+ 11,1's Status Have Returned to Normal! 15(14Gained9 %Exp 14Exp15)
Unset %Exp
}
Teleport {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
if ($readini($1 $+ .ini,$1,Field) != Normal) { Msg %ChanSet $BName($1) $+ 13,1 Was Unable to Leave Battle! | halt }
Set %Exp $Rand(8,12)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
If ($readini($1 $+ .ini,$1,Field) == Normal) { set %batlist $remtok(%batlist,$1,1,32) | writeini $1 $+ .ini $1 Field None | TimerAttack + $1 off }
writeini $1 $+ .ini $1 Fighting no
writeini $1 $+ .ini $1 Attacking no
Msg %ChanSet $BName($1) $+ 13,1 Teleports out of Battle! 15(14Gained9 %Exp 14Exp15)
Unset %Exp
}
AncientPower {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Effect $Rand(1,2)
if (%Effect == 1) { Msg %ChanSet $BName($1) $+ 8,1 Fails! | Goto Here }
if (%Effect == 2) {
Set %Exp $Rand(3,6)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Msg %ChanSet $BName($1) $+ 5,1's Power Increases! 15(14Gained9 %Exp 14Exp15)
writeini $1 $+ .ini $Poke($1) Defense $Calc( ($Stat($1,Defense) * 0.15) + $Stat($1,MDefense) )
writeini $1 $+ .ini $Poke($1) Attack $Calc( ($Stat($1,Attack) * 0.15) + $Stat($1,MAttack) )
writeini $1 $+ .ini $Poke($1) SDefense $Calc( ($Stat($1,SDefense) * 0.15) + $Stat($1,MSDefense) )
writeini $1 $+ .ini $Poke($1) SAttack $Calc( ($Stat($1,SAttack) * 0.15) + $Stat($1,MSAttack) )
Unset %Effect
Unset %Exp
}
:Here
}
Haze {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
writeini -n $1 $+ .ini $Poke($1) Paralyzed No
writeini -n $1 $+ .ini $Poke($1) Sleeping No
writeini -n $1 $+ .ini $Poke($1) Burned No
writeini -n $1 $+ .ini $Poke($1) Leeched No
writeini -n $1 $+ .ini $Poke($1) Iced No
writeini -n $1 $+ .ini $Poke($1) Poisoned No
writeini -n $1 $+ .ini $Poke($1) Confused No
Msg %ChanSet $BName($1) $+ 11,1 is cured of All Status Abnormalities! 15(14Gained9 %Exp 14Exp15)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
Unset %Hp
Unset %Exp
}
Swallow {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
Set %Exp $Rand(3,6)
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
Set %Hp $readini($1 $+ .ini,$Poke($1),CDamage)
writeini $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + %Hp)
writeini $1 $+ .ini $Poke($1) StockPile No
writeini $1 $+ .ini $Poke($1) Charging No
writeini $1 $+ .ini $Poke($1) CDamage 0
Msg %ChanSet $BName($1) $+ 0,1 Swallows $PGender($1) Stock Pile & %HP Hp! 15(14Gained9 %Exp 14Exp15)
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
Unset %Hp
Unset %Exp
}
StockPile {
if ($readini($1 $+ .ini,$1,Attacking) != Yes) { TimerAttack $+ $1 off | halt }
if ($readini($1 $+ .ini,$1,Fighting) != Yes) { writeini $1 $+ .ini $1 Attacking No | TimerAttack $+ $1 off | halt }
writeini $1 $+ .ini Charging Damage $calc($readini($1 $+ .ini,Charging,Damage) + 5)
Notice $1 SolarBeam Got Stronger
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 10) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Began to take form! }
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 30) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Began to Shine! }
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 50) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Began to Expand! }
if ($readini($1 $+ .ini,$Poke($1),CDamage) == 60) { Msg %ChanSet $Name($1) $+ 4,1 $Pokemon($1) $+ 9,1's Solar Beam Reached its Max Limit! }
}
SpitUp {
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == yes) { Msg %ChanSet $BName($1) $+ 8,1 is Unable To Move! | halt }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) == yes) && ($readini($1 $+ .ini,$Poke($1),Snore) != yes) { Msg %ChanSet $BName($1) $+ 8,1 is Asleep! | halt }
GetBase $1 $3
Set %Critical 0Normal Hit
Set %ExpGain $Rand(3,6)
set %Power $calc( %base.power * 5)
Set %Critical2 $rand(1,20)
Set %Accuracy [ $readini $1 $+ .ini $Poke($1) Accuracy ]
Set %Ender $round($calc(%Accuracy * .5 * .5 * .5 + 1),0)
Set %Exp %ExpGain
Set %CritConnect $rand(1,6)
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Set %CritConnect $Rand(2,4) | Set %Critical2 -1000 | writeini $1 $+ .ini $Poke($1) Focus No }
if (%Critical2 <= %Ender) && (%CritConnect == 3) { Set %Critical 4Critical | inc %base.power %Power | Set %Exp $Calc( %ExpGain * 3 ) }
set %Defense.power [ $readini $2 $+ .ini $Poke($2) Defense ]
set %Attack.power [ $readini $1 $+ .ini $Poke($1) Attack ]
set %Damage $Round( $calc( %Base.power + ( %Attack.power - %Defense.power ) ),0)
if (%Damage < 1) { set %Damage 1 }
Msg %ChanSet $BName($1) $+ 0,1 Spits Out a Massive Amount of Energy at $BName($2) $+ 0,1 Doing %Damage Damage! 15(14Gained9 %Exp 14Exp15) 15( $+ %Critical $+ 15)15,1
writeini $1 $+ .ini $Poke($1) Exp $calc($readini($1 $+ .ini,$Poke($1),Exp) + %Exp)
DamageSystem $1 $2
}
DamageSystem {
LvLCheck $1
LvLCheck $2
FindItems $1
writeini -n $2 $+ .ini $Poke($2) Hp $calc($readini($2 $+ .ini,$Poke($2),Hp) - %Damage)
unset %ExpGain
unset %Critical
unset %Critical2
unset %Base.power
Unset %Attack.Power
Unset %Defense.Power
Unset %Target
Unset %User
Unset %Attack
Unset %Attacks
unset %Exp
unset %Damage
Unset %Power
Unset %Pokemon
Unset %CritConnect
Unset %Ender
Unset %Accuracy
Unset %Counter
Unset %Countering
Unset %Intelligence3
Unset %Intelligence2
Unset %Agility2
Unset %Agility3
Unset %Agility
Unset %Time
BattleVictory $1 $2
}
BattleVictory {
If ($readini($2 $+ .ini,$Poke($2),Hp) <= 0) {
if ($readini($2 $+ .ini,$2,Bag) == Yes) { BagLost $1 $2 | halt }
if ($readini($2 $+ .ini,$2,SNpc) == yes) { NpcLost $1 $2 | halt }
if ($readini($1 $+ .ini,$1,SNpc) == yes) { NpcWin $1 $2 | halt }
if ($readini($2 $+ .ini,$Poke($2),Grudge) == Yes) { PPGone $2 $1 }
if ($readini($2 $+ .ini,$Poke($2),Endure) == Yes) { writeini -n $2 $+ .ini $Poke($2) Hp 1 | writeini -n $2 $+ .ini $Poke($2) Endure No | Msg %ChanSet $BName($2) $+ 0,1 Endured The Attack!! | Halt }
if ($readini($2 $+ .ini,$Poke($2),Bond) == Yes) { writeini -n $1 $+ .ini $Poke($1) Hp 1 | Msg %ChanSet $BName($1) $+ 2,1's Hp Was Put to 1! }
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
Set %Exp2 $Round($Calc(%Exp * 0.10),0)
if (%Exp < 3) { set %Exp 3 }
if (%Exp2 < 1) { set %Exp2 1 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
writeini $2 $+ .ini $Poke($2) Exp $calc($readini($2 $+ .ini,$Poke($2),exp) + %Exp2)
Msg %ChanSet $Pokemon($2) $+ 4,1 Has Fainted! $Name($1) $+ 15,1's $Pokemon($1) $+ 15,1 Got9 %Exp 15Experience for Beating $Pokemon($2) $+ 15,1! $Pokemon($2) $+ 14,1 Recieves9 %Exp2 14Experience!
Set %Money $Rand(30,40)
Set %Money2 $Rand(10,20)
Msg %ChanSet $Name($1) $+ 15,1 Got %Money Zenny! $Name($2) $+ 14,1 Got %Money2 Zenny!
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
writeini $2 $+ .ini $2 Money $calc($readini($2 $+ .ini,$2,Money) + %Money2)
writeini $2 $+ .ini $2 Fighting no
writeini $2 $+ .ini $2 Attacking no
If ($readini($2 $+ .ini,$2,Field) != Normal) && ($readini($1 $+ .ini,$1,FightingWho) == $2) && ($readini($1 $+ .ini,$1,2vs2) != Yes) { writeini $1 $+ .ini $1 FightingWho None | writeini $1 $+ .ini $1 Fighting No | writeini $1 $+ .ini $1 Field None | writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 1) | writeini $2 $+ .ini $2 FightingWho None }
If ($readini($1 $+ .ini,$1,2vs2) == Yes) && ($readini($2 $+ .ini,$2,2vs2) == Yes) { TBattleVictory $1 $2 }
If ($readini($2 $+ .ini,$2,Field) == Normal) { set %batlist $remtok(%batlist,$2,1,32) }
if (%tourneystarted == yes) { TimerTourny $+ $2 1 2 /Tournament $2 $1 }
LvLCheck $1
LvLCheck $2
unset %Money
Unset %Money2
unset %Exp
unset %Exp2
}
}
SelfDeadCheck {
If ($readini($1 $+ .ini,$Poke($1),Hp) <= 0) {
if ($readini($1 $+ .ini,$Poke($1),Endure) == Yes) { writeini -n $1 $+ .ini $Poke($1) Hp 1 | writeini -n $1 $+ .ini $Poke($1) Endure No | Msg %ChanSet $BName($1) $+ 0,1 Endured The Attack!! | Halt }
If ($readini($1 $+ .ini,$1,Field) != Normal) && ($readini($1 $+ .ini,$1,FightingWho) != None) && ($readini($1 $+ .ini,$1,2vs2) != Yes) { BattleVictory $readini($1 $+ .ini,$1,FightingWho) $1 | Halt }
Msg %ChanSet $Pokemon($1) $+ 4,1 Has Fainted!
If ($readini($1 $+ .ini,$1,Field) != Normal) && ($readini($1 $+ .ini,$1,FightingWho) != None) && ($readini($1 $+ .ini,$1,2vs2) == Yes) { TBattleVictory $readini($1 $+ .ini,$1,FightingWho) $1 | Halt }
writeini $1 $+ .ini $1 Fighting no
writeini $1 $+ .ini $1 Attacking no
writeini $1 $+ .ini $1 Field None
set %batlist $remtok(%batlist,$1,1,32)
Halt
}
}
TBattleVictory {
Set %Partner $readini($1 $+ .ini,Tag,Partner)
Set %Partner2 $readini($2 $+ .ini,Tag,Partner)
If ($readini(%Partner2 $+ .ini,$Poke(%Partner2),Hp) <= 0) && ($readini($2 $+ .ini,$Poke($2),Hp) <= 0) {
Writeini -n $1 $+ .ini $1 Fighting No
Writeini -n $1 $+ .ini $1 2vs2 No
Writeini -n $1 $+ .ini $1 Field None
Writeini -n $2 $+ .ini $2 Fighting No
Writeini -n $2 $+ .ini $2 2vs2 No
Writeini -n $2 $+ .ini $2 Field None
Writeini -n %Partner $+ .ini %Partner Fighting No
Writeini -n %Partner $+ .ini %Partner 2vs2 No
Writeini -n %Partner $+ .ini %Partner Field None
Writeini -n %Partner2 $+ .ini %Partner2 Fighting No
Writeini -n %Partner2 $+ .ini %Partner2 2vs2 No
Writeini -n %Partner2 $+ .ini %Partner2 Field None
TimerAttack $+ $1 off
TimerAttack $+ $2 off
TimerAttack $+ %Partner off
TimerAttack $+ %Partner2 off
Msg %ChanSet $Name($1) $+ 8,1 & $Name(%Partner) $+ 8,1 Have Beaten $Name($2) $+ 8,1 & $Name(%Partner2) $+ 8,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 2)
writeini %Partner $+ .ini %Partner TExp $calc($readini(%Partner $+ .ini,%Partner,TExp) + 2)
Unset %Partner
Unset %Partner2
}
}
Counter {
:Here
Set %Attacks $readini($1 $+ .ini,$Poke($1),Attack1) $readini($1 $+ .ini,$Poke($1),Attack2) $readini($1 $+ .ini,$Poke($1),Attack3) $readini($1 $+ .ini,$Poke($1),Attack4)
Set %Attack $$gettok(%Attacks,$r(1,$numtok(%Attacks,32)),32)
if (%Attack == None) { Goto Here }
if (%Attack == Growth) { Goto Here }
if (%Attack == Synthesis) { Goto Here }
if (%Attack == Withdraw) { Goto Here }
if (%Attack == Protect) { Goto Here }
if (%Attack == RainDance) { Goto Here }
if (%Attack == Agility) { Goto Here }
if (%Attack == Harden) { Goto Here }
if (%Attack == Acid-Armor) { Goto Here }
if (%Attack == WhirlWind) { Goto Here }
if (%Attack == SafeGaurd) { Goto Here }
if (%Attack == SilverWind) { Goto Here }
if (%Attack == Double-Team) { Goto Here }
if (%Attack == Light-Screen) { Goto Here }
if (%Attack == Defense-Curl) { Goto Here }
if (%Attack == Recover) { Goto Here }
if (%Attack == SolarBeam) { Goto Here }
if (%Attack == Cosmic-Power) { Goto Here }
if (%Attack == StockPile) { Goto Here }
if (%Attack == SpitUp) { Goto Here }
if (%Attack == Swallow) { Goto Here }
if (%Attack == Focus-Energy) { Goto Here }
if (%Attack == Haze) { Goto Here }
if (%Attack == Moonlight) { Goto Here }
if (%Attack == Teleport) { Goto Here }
if (%Attack == Future-Sight) { Goto Here }
if (%Attack == Detect) { Goto Here }
if (%Attack == BulkUp) { Goto Here }
if (%Attack == Calm-Mind) { Goto Here }
if (%Attack == WhirlPool) { Goto Here }
if (%Attack == Mud-Shot) { Goto Here }
if (%Attack == String-Shot) { Goto Here }
if (%Attack == Helping-Hand) { Goto Here }
if (%Attack == Confuse-Ray) { Goto Here }
if (%Attack == Horn-Drill) { Goto Here }
if (%Attack == Grudge) { Goto Here }
if (%Attack == Destiny-Bond) { Goto Here }
if (%Attack == Reflect) { Goto Here }
if (%Attack == Haze) { Goto Here }
if (%Attack == DragonDance) { Goto Here }
if (%Attack == Endure) { Goto Here }
if (%Attack == AncientPower) { Goto Here }
if (%Attack == Mist) { Goto Here }
writeini $2 $+ .ini $2 Attacking No
If ($readini($2 $+ .ini,$Poke($2),CDamage) >= 5) { Writeini -n $2 $+ .ini $Poke($2) CDamage 0 }
Msg %ChanSet $BName($1) $+ 4,1 Countered $BName($2) $+ 4,1 With %Attack $+ ! 15(4Counter!15)
%Attack $1 $2 %Attack
}
Dodge {
if ($readini($2 $+ .ini,$Poke($2),Dodge) == Yes) { Goto Here }
var %speeder = $round($calc(%Agility / 2.7),0)
var %rander = $rand(0,%Agility)
var %rander4 = $rand(1,3)
if (%rander <= %speeder) || (%rander4 < 3) { set %dodge false }
else {
if (%Agility > 10) { var %rander2 = $rand(1,3) }
if (%rander2 == 3) { set %dodge true }
}
if (%dodge == true) {
:Here
writeini $1 $+ .ini $1 Attacking No
If ($readini($1 $+ .ini,$Poke($1),CDamage) >= 5) { Writeini -n $1 $+ .ini $Poke($1) CDamage 0 }
msg %ChanSet $BName($1) $+ 4,1 Was Going to Attack $BName($2) $+ 4,1 but $BName($2) $+ 4,1 dodged! 15(4Dodge!15)
Halt
}
Unset %Dodge
}
BagLost {
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
Msg %ChanSet $BName($2) $+ 4,1 Has Broken! $Name($1) $+ 15,1's $Pokemon($1) $+ 15,1 Got9 %Exp 15Experience for Beating $Pokemon($2) $+ 15,1!
Heal $2
}LearnMoves {
if (%ALearn == On) { goto end }
if ($readini($1 $+ .ini,$1,WNpc) == Yes) { goto end }
if ($readini($1 $+ .ini,$1,TNpc) == Yes) { goto end }
if ($readini($1 $+ .ini,$1,SNpc) == Yes) { goto end }
set %Pokemon $readini($1 $+ .ini,$Poke($1),Pokemon)
If (%Pokemon == Charmander) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LEmber) != Yes) { Set %MoveLearning Ember | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LSmokeScreen) != Yes) { Set %MoveLearning SmokeScreen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning ScaryFace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 48) && ($readini($1 $+ .ini,%Pokemon,LDragonRage) != Yes) { Set %MoveLearning DragonRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 54) && ($readini($1 $+ .ini,%Pokemon,LFireSpin) != Yes) { Set %MoveLearning FireSpin | Goto Skip }
}
If (%Pokemon == Charmeleon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning ScaryFace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LDragonRage) != Yes) { Set %MoveLearning DragonRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 59) && ($readini($1 $+ .ini,%Pokemon,LFireSpin) != Yes) { Set %MoveLearning FireSpin | Goto Skip }
}
If (%Pokemon == Charizard) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LWingattack) != Yes) { Set %MoveLearning Wingattack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 44) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LDragonRage) != Yes) { Set %MoveLearning DragonRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 67) && ($readini($1 $+ .ini,%Pokemon,LFireSpin) != Yes) { Set %MoveLearning FireSpin | Goto Skip }
}
If (%Pokemon == Cyndaquil) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LSmokeScreen) != Yes) { Set %MoveLearning SmokeScreen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 12) && ($readini($1 $+ .ini,%Pokemon,LEmber) != Yes) { Set %MoveLearning Ember | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LFlame-Wheel) != Yes) { Set %MoveLearning Flame-Wheel | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
}
If (%Pokemon == Quilava) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LFlame-Wheel) != Yes) { Set %MoveLearning Flame-Wheel | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 54) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
}
If (%Pokemon == Typhlosion) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 60) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
}
If (%Pokemon == Torchic) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LFocus-Energy) != Yes) { Set %MoveLearning Focus-Energy | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LEmber) != Yes) { Set %MoveLearning Ember | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LPeck) != Yes) { Set %MoveLearning Peck | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
}
If (%Pokemon == Combusken) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LDouble-Kick) != Yes) { Set %MoveLearning Double-Kick | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LBulkUp) != Yes) { Set %MoveLearning BulkUp | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 32) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LSky-Uppercut) != Yes) { Set %MoveLearning Sky-Uppercut | Goto Skip }
}
If (%Pokemon == Blaziken) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LBlaze-Kick) != Yes) { Set %MoveLearning Blaze-Kick | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LSky-Uppercut) != Yes) { Set %MoveLearning Sky-Uppercut | Goto Skip }
}
If (%Pokemon == Bulbasaur) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LLeechSeed) != Yes) { Set %MoveLearning LeechSeed | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LVineWhip) != Yes) { Set %MoveLearning VineWhip | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LRazorLeaf) != Yes) { Set %MoveLearning RazorLeaf | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LSweetScent) != Yes) { Set %MoveLearning SweetScent | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 32) && ($readini($1 $+ .ini,%Pokemon,LGrowth) != Yes) { Set %MoveLearning Growth | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LSynthesis) != Yes) { Set %MoveLearning Synthesis | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LSolarBeam) != Yes) { Set %MoveLearning SolarBeam | Goto Skip }
}
If (%Pokemon == Ivysaur) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LRazorLeaf) != Yes) { Set %MoveLearning RazorLeaf | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LSweetScent) != Yes) { Set %MoveLearning SweetScent | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LGrowth) != Yes) { Set %MoveLearning Growth | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSynthesis) != Yes) { Set %MoveLearning Synthesis | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LSolarBeam) != Yes) { Set %MoveLearning SolarBeam | Goto Skip }
}
If (%Pokemon == Venasaur) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 32) && ($readini($1 $+ .ini,%Pokemon,LGrowth) != Yes) { Set %MoveLearning Growth | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSynthesis) != Yes) { Set %MoveLearning Synthesis | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LSolarBeam) != Yes) { Set %MoveLearning SolarBeam | Goto Skip }
}
If (%Pokemon == Chikorita) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LRazorLeaf) != Yes) { Set %MoveLearning RazorLeaf | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 12) && ($readini($1 $+ .ini,%Pokemon,LReflect) != Yes) { Set %MoveLearning Reflect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LSynthesis) != Yes) { Set %MoveLearning Synthesis | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LBodySlam) != Yes) { Set %MoveLearning BodySlam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LSolarBeam) != Yes) { Set %MoveLearning SolarBeam | Goto Skip }
}
If (%Pokemon == Bayleef) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LSynthesis) != Yes) { Set %MoveLearning Synthesis | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LBodySlam) != Yes) { Set %MoveLearning BodySlam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LSolarBeam) != Yes) { Set %MoveLearning SolarBeam | Goto Skip }
}
If (%Pokemon == Meganium) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 60) && ($readini($1 $+ .ini,%Pokemon,LSolarBeam) != Yes) { Set %MoveLearning SolarBeam | Goto Skip }
}
If (%Pokemon == Treecko) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LAbsorb) != Yes) { Set %MoveLearning Absorb | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LMegaDrain) != Yes) { Set %MoveLearning MegaDrain | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LDetect) != Yes) { Set %MoveLearning Detect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LGigaDrain) != Yes) { Set %MoveLearning GigaDrain | Goto Skip }
}
If (%Pokemon == Grovyle) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LFury-Cutter) != Yes) { Set %MoveLearning Fury-Cutter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LLeafBlade) != Yes) { Set %MoveLearning LeafBlade | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LDetect) != Yes) { Set %MoveLearning Detect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LFalse-Swipe) != Yes) { Set %MoveLearning False-Swipe | Goto Skip }
}
If (%Pokemon == Sceptile) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 51) && ($readini($1 $+ .ini,%Pokemon,LDetect) != Yes) { Set %MoveLearning Detect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 59) && ($readini($1 $+ .ini,%Pokemon,LFalse-Swipe) != Yes) { Set %MoveLearning False-Swipe | Goto Skip }
}
If (%Pokemon == Squirtle) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LBubble) != Yes) { Set %MoveLearning Bubble | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LWithdraw) != Yes) { Set %MoveLearning Withdraw | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LWaterGun) != Yes) { Set %MoveLearning WaterGun | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LRapidSpin) != Yes) { Set %MoveLearning RapidSpin | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LProtect) != Yes) { Set %MoveLearning Protect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LRainDance) != Yes) { Set %MoveLearning RainDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSkullBash) != Yes) { Set %MoveLearning SkullBash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Wartortle) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LRapidSpin) != Yes) { Set %MoveLearning RapidSpin | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LProtect) != Yes) { Set %MoveLearning Protect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LRainDance) != Yes) { Set %MoveLearning RainDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LSkullBash) != Yes) { Set %MoveLearning SkullBash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Blastoise) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LRainDance) != Yes) { Set %MoveLearning RainDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LSkullBash) != Yes) { Set %MoveLearning SkullBash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 60) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Totodile) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LWaterGun) != Yes) { Set %MoveLearning WaterGun | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning Scary-Face | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Croconaw) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LScary-Face) != Yes) { Set %MoveLearning Scary-Face | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Feraligatr) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 58) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Mudkip) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LMud-Slap) != Yes) { Set %MoveLearning Mud-Slap | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LWaterGun) != Yes) { Set %MoveLearning WaterGun | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LBide) != Yes) { Set %MoveLearning Bide | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LForesight) != Yes) { Set %MoveLearning Foresight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LWhirlPool) != Yes) { Set %MoveLearning WhirlPool | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LProtect) != Yes) { Set %MoveLearning Protect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LEndeavor) != Yes) { Set %MoveLearning Endeavor | Goto Skip }
}
If (%Pokemon == Marshtomp) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LMud-Shot) != Yes) { Set %MoveLearning Mud-Shot | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LForesight) != Yes) { Set %MoveLearning Foresight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LWhirlPool) != Yes) { Set %MoveLearning WhirlPool | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LMuddy-Water) != Yes) { Set %MoveLearning Muddy-Water | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LProtect) != Yes) { Set %MoveLearning Protect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LEarthquake) != Yes) { Set %MoveLearning Earthquake | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LEndeavor) != Yes) { Set %MoveLearning Endeavor | Goto Skip }
}
If (%Pokemon == Swampert) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LMuddy-Water) != Yes) { Set %MoveLearning Muddy-Water | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LProtect) != Yes) { Set %MoveLearning Protect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LEarthquake) != Yes) { Set %MoveLearning Earthquake | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 61) && ($readini($1 $+ .ini,%Pokemon,LEndeavor) != Yes) { Set %MoveLearning Endeavor | Goto Skip }
}
If (%Pokemon == Pidgey) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 5) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 9) && ($readini($1 $+ .ini,%Pokemon,LGust) != Yes) { Set %MoveLearning Gust | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LWhirlWind) != Yes) { Set %MoveLearning WhirlWind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LWingAttack) != Yes) { Set %MoveLearning WingAttack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LFeatherDance) != Yes) { Set %MoveLearning FeatherDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LRainDance) != Yes) { Set %MoveLearning RainDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
}
If (%Pokemon == Pidgeotto) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LWhirlWind) != Yes) { Set %MoveLearning WhirlWind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LWingAttack) != Yes) { Set %MoveLearning WingAttack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LFeatherDance) != Yes) { Set %MoveLearning FeatherDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 48) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
}
If (%Pokemon == Pidgeot) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
}
If (%Pokemon == Onix) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 9) && ($readini($1 $+ .ini,%Pokemon,LBind) != Yes) { Set %MoveLearning Bind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LRock-Throw) != Yes) { Set %MoveLearning Rock-Throw | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LHarden) != Yes) { Set %MoveLearning Harden | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSandStorm) != Yes) { Set %MoveLearning SandStorm | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LIron-Tail) != Yes) { Set %MoveLearning Iron-Tail | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LSand-Tomb) != Yes) { Set %MoveLearning Sand-Tomb | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 57) && ($readini($1 $+ .ini,%Pokemon,LDouble-Edge) != Yes) { Set %MoveLearning Double-Edge | Goto Skip }
}
If (%Pokemon == Steelix) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 9) && ($readini($1 $+ .ini,%Pokemon,LBind) != Yes) { Set %MoveLearning Bind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LRock-Throw) != Yes) { Set %MoveLearning Rock-Throw | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LHarden) != Yes) { Set %MoveLearning Harden | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSandStorm) != Yes) { Set %MoveLearning SandStorm | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LIron-Tail) != Yes) { Set %MoveLearning Iron-Tail | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LSand-Tomb) != Yes) { Set %MoveLearning Sand-Tomb | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LCrunch) != Yes) { Set %MoveLearning Crunch | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 65) && ($readini($1 $+ .ini,%Pokemon,LDouble-Edge) != Yes) { Set %MoveLearning Double-Edge | Goto Skip }
}
If (%Pokemon == Metapod) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LHarden) != Yes) { Set %MoveLearning Harden | Goto Skip }
}
If (%Pokemon == Butterfree) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LConfusion) != Yes) { Set %MoveLearning Confusion | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 14) && ($readini($1 $+ .ini,%Pokemon,LStun-Spore) != Yes) { Set %MoveLearning Stun-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LSuperSonic) != Yes) { Set %MoveLearning SuperSonic | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LWhirlWind) != Yes) { Set %MoveLearning WhirlWind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LGust) != Yes) { Set %MoveLearning Gust | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LPsyBeam) != Yes) { Set %MoveLearning PsyBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LSilver-Wind) != Yes) { Set %MoveLearning Silver-Wind | Goto Skip }
}
If (%Pokemon == Pichu) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LTailWhip) != Yes) { Set %MoveLearning TailWhip | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LThunder-Wave) != Yes) { Set %MoveLearning Thunder-Wave | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LSweet-Kiss) != Yes) { Set %MoveLearning Sweet-Kiss | Goto Skip }
}
If (%Pokemon == Pikachu) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LDouble-Team) != Yes) { Set %MoveLearning Double-Team | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LThunder-Bolt) != Yes) { Set %MoveLearning Thunder-Bolt | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LThunder) != Yes) { Set %MoveLearning Thunder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
}
If (%Pokemon == Raichu) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LDouble-Team) != Yes) { Set %MoveLearning Double-Team | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LThunder-Bolt) != Yes) { Set %MoveLearning Thunder-Bolt | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LThunder) != Yes) { Set %MoveLearning Thunder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
}
If (%Pokemon == Kakuna) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LHarden) != Yes) { Set %MoveLearning Harden | Goto Skip }
}
If (%Pokemon == Beedrill) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LFury-Attack) != Yes) { Set %MoveLearning Fury-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LFocus-Energy) != Yes) { Set %MoveLearning Focus-Energy | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LTwineedle) != Yes) { Set %MoveLearning Twineedle | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LPin-Missile) != Yes) { Set %MoveLearning Pin-Missile | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 58) && ($readini($1 $+ .ini,%Pokemon,LEndeavor) != Yes) { Set %MoveLearning Endeavor | Goto Skip }
}
If (%Pokemon == Rattata) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LHyper-Fang) != Yes) { Set %MoveLearning Hyper-Fang | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LFocus-Energy) != Yes) { Set %MoveLearning Focus-Energy | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LSuper-Fang) != Yes) { Set %MoveLearning Super-Fang | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LEndeavor) != Yes) { Set %MoveLearning Endeavor | Goto Skip }
}
If (%Pokemon == Raticate) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LScary-Face) != Yes) { Set %MoveLearning Scary-Face | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSuper-Fang) != Yes) { Set %MoveLearning Super-Fang | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LEndeavor) != Yes) { Set %MoveLearning Endeavor | Goto Skip }
}
If (%Pokemon == Spearow) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LFury-Attack) != Yes) { Set %MoveLearning Fury-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LAerial-Ace) != Yes) { Set %MoveLearning Aerial-Ace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LDrill-Peck) != Yes) { Set %MoveLearning Drill-Peck | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
}
If (%Pokemon == Fearow) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LAerial-Ace) != Yes) { Set %MoveLearning Aerial-Ace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LMirror-Move) != Yes) { Set %MoveLearning Mirror-Move | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LDrill-Peck) != Yes) { Set %MoveLearning Drill-Peck | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
}
If (%Pokemon == Sandshrew) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LDefense-Curl) != Yes) { Set %MoveLearning Defense-Curl | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LPoison-Sting) != Yes) { Set %MoveLearning Poison-Sting | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LFury-Swipes) != Yes) { Set %MoveLearning Fury-Swipes | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LSand-Tomb) != Yes) { Set %MoveLearning Sand-Tomb | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LSandStorm) != Yes) { Set %MoveLearning SandStorm | Goto Skip }
}
If (%Pokemon == Sandslash) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 24) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LFury-Swipes) != Yes) { Set %MoveLearning Fury-Swipes | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LSand-Tomb) != Yes) { Set %MoveLearning Sand-Tomb | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 62) && ($readini($1 $+ .ini,%Pokemon,LSandStorm) != Yes) { Set %MoveLearning SandStorm | Goto Skip }
}
If (%Pokemon == Staryu) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LWaterGun) != Yes) { Set %MoveLearning WaterGun | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LRapidSpin) != Yes) { Set %MoveLearning RapidSpin | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LRecover) != Yes) { Set %MoveLearning Recover | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 24) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LBubble-Beam) != Yes) { Set %MoveLearning Bubble-Beam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LCosmic-Power) != Yes) { Set %MoveLearning Cosmic-Power | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Starmie) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LRecover) != Yes) { Set %MoveLearning Recover | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LBubble-Beam) != Yes) { Set %MoveLearning Bubble-Beam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LLight-Screen) != Yes) { Set %MoveLearning Light-Screen | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LCosmic-Power) != Yes) { Set %MoveLearning Cosmic-Power | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Ekans) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LPoison-Sting) != Yes) { Set %MoveLearning Poison-Sting | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LGlare) != Yes) { Set %MoveLearning Glare | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 32) && ($readini($1 $+ .ini,%Pokemon,LAcid) != Yes) { Set %MoveLearning Acid | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LStockPile) != Yes) { Set %MoveLearning StockPile | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSpitUp) != Yes) { Set %MoveLearning SpitUp | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSwallow) != Yes) { Set %MoveLearning Swallow | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 44) && ($readini($1 $+ .ini,%Pokemon,LHaze) != Yes) { Set %MoveLearning Haze | Goto Skip }
}
If (%Pokemon == Arbok) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LAcid) != Yes) { Set %MoveLearning Acid | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LStockPile) != Yes) { Set %MoveLearning StockPile | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LSpitUp) != Yes) { Set %MoveLearning SpitUp | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LSwallow) != Yes) { Set %MoveLearning Swallow | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 48) && ($readini($1 $+ .ini,%Pokemon,LHaze) != Yes) { Set %MoveLearning Haze | Goto Skip }
}
If (%Pokemon == Bellsprout) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LGrowth) != Yes) { Set %MoveLearning Growth | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LWrap) != Yes) { Set %MoveLearning Wrap | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LStun-Spore) != Yes) { Set %MoveLearning Stun-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LAcid) != Yes) { Set %MoveLearning Acid | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LSweetScent) != Yes) { Set %MoveLearning SweetScent | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LRazorLeaf) != Yes) { Set %MoveLearning RazorLeaf | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
}
If (%Pokemon == Weepinbell) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 24) && ($readini($1 $+ .ini,%Pokemon,LAcid) != Yes) { Set %MoveLearning Acid | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSweetScent) != Yes) { Set %MoveLearning SweetScent | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LRazorLeaf) != Yes) { Set %MoveLearning RazorLeaf | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 54) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
}
If (%Pokemon == Victreebell) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSweetScent) != Yes) { Set %MoveLearning SweetScent | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LRazorLeaf) != Yes) { Set %MoveLearning RazorLeaf | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 54) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
}
If (%Pokemon == Oddish) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LSweetScent) != Yes) { Set %MoveLearning SweetScent | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 14) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LStun-Spore) != Yes) { Set %MoveLearning Stun-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LAcid) != Yes) { Set %MoveLearning Acid | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 32) && ($readini($1 $+ .ini,%Pokemon,LMoonLight) != Yes) { Set %MoveLearning MoonLight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LPetalDance) != Yes) { Set %MoveLearning PetalDance | Goto Skip }
}
If (%Pokemon == Gloom) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LAcid) != Yes) { Set %MoveLearning Acid | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LMoonLight) != Yes) { Set %MoveLearning MoonLight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LPetalDance) != Yes) { Set %MoveLearning PetalDance | Goto Skip }
}
If (%Pokemon == Kadabra) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LConfusion) != Yes) { Set %MoveLearning Confusion | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 18) && ($readini($1 $+ .ini,%Pokemon,LDisable) != Yes) { Set %MoveLearning Disable | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LPsyBeam) != Yes) { Set %MoveLearning PsyBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LReflect) != Yes) { Set %MoveLearning Reflect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LRecover) != Yes) { Set %MoveLearning Recover | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LFuture-Sight) != Yes) { Set %MoveLearning Future-Sight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LRolePlay) != Yes) { Set %MoveLearning RolePlay | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LPsychic) != Yes) { Set %MoveLearning Psychic | Goto Skip }
}
If (%Pokemon == Alakazam) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LConfusion) != Yes) { Set %MoveLearning Confusion | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LDisable) != Yes) { Set %MoveLearning Disable | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LRecover) != Yes) { Set %MoveLearning Recover | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LPsyBeam) != Yes) { Set %MoveLearning PsyBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LReflect) != Yes) { Set %MoveLearning Reflect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LFuture-Sight) != Yes) { Set %MoveLearning Future-Sight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LRolePlay) != Yes) { Set %MoveLearning RolePlay | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LPsychic) != Yes) { Set %MoveLearning Psychic | Goto Skip }
}
If (%Pokemon == Eevee) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LGrowl) != Yes) { Set %MoveLearning Growl | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
}
If (%Pokemon == Umbreon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LPursuit) != Yes) { Set %MoveLearning Pursuit | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LFaint-Attack) != Yes) { Set %MoveLearning Faint-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LMean-Look) != Yes) { Set %MoveLearning Mean-Look | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LMoonlight) != Yes) { Set %MoveLearning Moonlight | Goto Skip }
}
If (%Pokemon == Espeon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LConfusion) != Yes) { Set %MoveLearning Confusion | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LSwift) != Yes) { Set %MoveLearning Swift | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LPsy-beam) != Yes) { Set %MoveLearning Psy-beam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LCalm-Mind) != Yes) { Set %MoveLearning Calm-Mind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LPsychic) != Yes) { Set %MoveLearning Psychic | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LMorning-Sun) != Yes) { Set %MoveLearning Morning-Sun | Goto Skip }
}
If (%Pokemon == Jolteon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LThunder-Shock) != Yes) { Set %MoveLearning Thunder-Shock | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LDouble-Kick) != Yes) { Set %MoveLearning Double-Kick | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LPin-Missile) != Yes) { Set %MoveLearning Pin-Missile | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LThunder-Wave) != Yes) { Set %MoveLearning Thunder-Wave | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LThunder) != Yes) { Set %MoveLearning Thunder | Goto Skip }
}
If (%Pokemon == Vaporeon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LWaterGun) != Yes) { Set %MoveLearning WaterGun | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LAuroraBeam) != Yes) { Set %MoveLearning AuroraBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LHaze) != Yes) { Set %MoveLearning Haze | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LAcid-Armor) != Yes) { Set %MoveLearning Acid-Armor | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Flareon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LEmber) != Yes) { Set %MoveLearning Ember | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LFireSpin) != Yes) { Set %MoveLearning AuroraBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LSmog) != Yes) { Set %MoveLearning Smog | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
}
If (%Pokemon == Nidoran-F) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LTailWhip) != Yes) { Set %MoveLearning TailWhip | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 12) && ($readini($1 $+ .ini,%Pokemon,LDouble-Kick) != Yes) { Set %MoveLearning Double-Kick | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LPoison-Sting) != Yes) { Set %MoveLearning Poison-Sting | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LFury-Swipes) != Yes) { Set %MoveLearning Fury-Swipes | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 38) && ($readini($1 $+ .ini,%Pokemon,LFlatter) != Yes) { Set %MoveLearning Flatter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LCrunch) != Yes) { Set %MoveLearning Crunch | Goto Skip }
}
If (%Pokemon == Nidorina) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LFury-Swipes) != Yes) { Set %MoveLearning Fury-Swipes | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LFlatter) != Yes) { Set %MoveLearning Flatter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LCrunch) != Yes) { Set %MoveLearning Crunch | Goto Skip }
}
If (%Pokemon == Nidoqueen) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LBodySlam) != Yes) { Set %MoveLearning BodySlam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LFury-Swipes) != Yes) { Set %MoveLearning Fury-Swipes | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LFlatter) != Yes) { Set %MoveLearning Flatter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LCrunch) != Yes) { Set %MoveLearning Crunch | Goto Skip }
}
If (%Pokemon == Nidoran-M) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LFocus-Energy) != Yes) { Set %MoveLearning Focus-Energy | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 12) && ($readini($1 $+ .ini,%Pokemon,LDouble-Kick) != Yes) { Set %MoveLearning Double-Kick | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LPoison-Sting) != Yes) { Set %MoveLearning Poison-Sting | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LHorn-Attack) != Yes) { Set %MoveLearning Horn-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LFury-Attack) != Yes) { Set %MoveLearning Fury-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 38) && ($readini($1 $+ .ini,%Pokemon,LFlatter) != Yes) { Set %MoveLearning Flatter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LHorn-Drill) != Yes) { Set %MoveLearning Horn-Drill | Goto Skip }
}
If (%Pokemon == Nidorino) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LHorn-Attack) != Yes) { Set %MoveLearning Horn-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LFury-Attack) != Yes) { Set %MoveLearning Fury-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LFlatter) != Yes) { Set %MoveLearning Flatter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LHorn-Drill) != Yes) { Set %MoveLearning Horn-Drill | Goto Skip }
}
If (%Pokemon == Nidoking) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LHorn-Attack) != Yes) { Set %MoveLearning Horn-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 23) && ($readini($1 $+ .ini,%Pokemon,LThrash) != Yes) { Set %MoveLearning Thrash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 34) && ($readini($1 $+ .ini,%Pokemon,LFury-Attack) != Yes) { Set %MoveLearning Fury-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LFlatter) != Yes) { Set %MoveLearning Flatter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 53) && ($readini($1 $+ .ini,%Pokemon,LHorn-Drill) != Yes) { Set %MoveLearning Horn-Drill | Goto Skip }
}
If (%Pokemon == Vulpix) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 5) && ($readini($1 $+ .ini,%Pokemon,LTailWhip) != Yes) { Set %MoveLearning TailWhip | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 9) && ($readini($1 $+ .ini,%Pokemon,LRoar) != Yes) { Set %MoveLearning Roar | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LQuick-Attack) != Yes) { Set %MoveLearning Quick-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LWill-o-Wisp) != Yes) { Set %MoveLearning Will-o-Wisp | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LImprison) != Yes) { Set %MoveLearning Imprison | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LGrudge) != Yes) { Set %MoveLearning Grudge | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LFireSpin) != Yes) { Set %MoveLearning FireSpin | Goto Skip }
}
If (%Pokemon == Ninetales) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LWill-o-Wisp) != Yes) { Set %MoveLearning Will-o-Wisp | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LImprison) != Yes) { Set %MoveLearning Imprison | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LGrudge) != Yes) { Set %MoveLearning Grudge | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LFireSpin) != Yes) { Set %MoveLearning FireSpin | Goto Skip }
}
If (%Pokemon == Gastly) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LSpite) != Yes) { Set %MoveLearning Spite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LMean-Look) != Yes) { Set %MoveLearning Mean-Look | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LCurse) != Yes) { Set %MoveLearning Curse | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LNightShade) != Yes) { Set %MoveLearning NightShade | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LDream-Eater) != Yes) { Set %MoveLearning Dream-Eater | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LDestiny-Bond) != Yes) { Set %MoveLearning Destiny-Bond | Goto Skip }
}
If (%Pokemon == Haunter) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LShadow-Punch) != Yes) { Set %MoveLearning Shadow-Punch | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LDream-Eater) != Yes) { Set %MoveLearning Dream-Eater | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 48) && ($readini($1 $+ .ini,%Pokemon,LDestiny-Bond) != Yes) { Set %MoveLearning Destiny-Bond | Goto Skip }
}
If (%Pokemon == Gengar) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LShadow-Punch) != Yes) { Set %MoveLearning Shadow-Punch | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LDream-Eater) != Yes) { Set %MoveLearning Dream-Eater | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 48) && ($readini($1 $+ .ini,%Pokemon,LDestiny-Bond) != Yes) { Set %MoveLearning Destiny-Bond | Goto Skip }
}
If (%Pokemon == Venonat) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 3) && ($readini($1 $+ .ini,%Pokemon,LDisable) != Yes) { Set %MoveLearning Disable | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LForesight) != Yes) { Set %MoveLearning Foresight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 9) && ($readini($1 $+ .ini,%Pokemon,LSuperSonic) != Yes) { Set %MoveLearning SuperSonic | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LConfusion) != Yes) { Set %MoveLearning Confusion | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LLeech-Life) != Yes) { Set %MoveLearning Leech-Life | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LStun-Spore) != Yes) { Set %MoveLearning Stun-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LPsyBeam) != Yes) { Set %MoveLearning PsyBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LPsychic) != Yes) { Set %MoveLearning Psychic | Goto Skip }
}
If (%Pokemon == Venomoth) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LSilverWind) != Yes) { Set %MoveLearning SilverWind | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 32) && ($readini($1 $+ .ini,%Pokemon,LGust) != Yes) { Set %MoveLearning Gust | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LPsyBeam) != Yes) { Set %MoveLearning PsyBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 56) && ($readini($1 $+ .ini,%Pokemon,LPsychic) != Yes) { Set %MoveLearning Psychic | Goto Skip }
}
If (%Pokemon == Mankey) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 9) && ($readini($1 $+ .ini,%Pokemon,LLow-Kick) != Yes) { Set %MoveLearning Low-Kick | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LKarate-Chop) != Yes) { Set %MoveLearning Karate-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LFury-Swipes) != Yes) { Set %MoveLearning Fury-Swipes | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 27) && ($readini($1 $+ .ini,%Pokemon,LFocus-Energy) != Yes) { Set %MoveLearning Focus-Energy | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LSeismic-Toss) != Yes) { Set %MoveLearning Seismic-Toss | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 39) && ($readini($1 $+ .ini,%Pokemon,LCross-Chop) != Yes) { Set %MoveLearning Cross-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 51) && ($readini($1 $+ .ini,%Pokemon,LThrash) != Yes) { Set %MoveLearning Thrash | Goto Skip }
}
If (%Pokemon == Primeape) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LRage) != Yes) { Set %MoveLearning Rage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LSeismic-Toss) != Yes) { Set %MoveLearning Seismic-Toss | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LCross-Chop) != Yes) { Set %MoveLearning Cross-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 54) && ($readini($1 $+ .ini,%Pokemon,LScreech) != Yes) { Set %MoveLearning Screech | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 63) && ($readini($1 $+ .ini,%Pokemon,LThrash) != Yes) { Set %MoveLearning Thrash | Goto Skip }
}
If (%Pokemon == Hoppip) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 5) && ($readini($1 $+ .ini,%Pokemon,LSynthesis) != Yes) { Set %MoveLearning Synthesis | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 5) && ($readini($1 $+ .ini,%Pokemon,LTailWhip) != Yes) { Set %MoveLearning TailWhip | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LTackle) != Yes) { Set %MoveLearning Tackle | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LPoisonPowder) != Yes) { Set %MoveLearning PoisonPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LStun-Spore) != Yes) { Set %MoveLearning Stun-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 17) && ($readini($1 $+ .ini,%Pokemon,LSleepPowder) != Yes) { Set %MoveLearning SleepPowder | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LLeechSeed) != Yes) { Set %MoveLearning LeechSeed | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LCotton-Spore) != Yes) { Set %MoveLearning Cotton-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LMegaDrain) != Yes) { Set %MoveLearning MegaDrain | Goto Skip }
}
If (%Pokemon == Skiploom) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LLeechSeed) != Yes) { Set %MoveLearning LeechSeed | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LCotton-Spore) != Yes) { Set %MoveLearning Cotton-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LMegaDrain) != Yes) { Set %MoveLearning MegaDrain | Goto Skip }
}
If (%Pokemon == Jumpluff) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LCotton-Spore) != Yes) { Set %MoveLearning Cotton-Spore | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 44) && ($readini($1 $+ .ini,%Pokemon,LMegaDrain) != Yes) { Set %MoveLearning MegaDrain | Goto Skip }
}
If (%Pokemon == Growlithe) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LEmber) != Yes) { Set %MoveLearning Ember | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LOdor-Sleuth) != Yes) { Set %MoveLearning Odor-Sleuth | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LFlame-Wheel) != Yes) { Set %MoveLearning Flame-Wheel | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
}
If (%Pokemon == Arcanine) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LEmber) != Yes) { Set %MoveLearning Ember | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LOdor-Sleuth) != Yes) { Set %MoveLearning Odor-Sleuth | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LFlame-Wheel) != Yes) { Set %MoveLearning Flame-Wheel | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LHelping-Hand) != Yes) { Set %MoveLearning Helping-Hand | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LFlameThrower) != Yes) { Set %MoveLearning FlameThrower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LExtremeSpeed) != Yes) { Set %MoveLearning ExtremeSpeed | Goto Skip }
}
If (%Pokemon == Magikarp) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LTackle) != Yes) { Set %MoveLearning Tackle | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LFlail) != Yes) { Set %MoveLearning Flail | Goto Skip }
}
If (%Pokemon == Gyarados) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LThrash) != Yes) { Set %MoveLearning Thrash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 20) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LDragonRage) != Yes) { Set %MoveLearning DragonRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 30) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LTwister) != Yes) { Set %MoveLearning Twister | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 45) && ($readini($1 $+ .ini,%Pokemon,LRainDance) != Yes) { Set %MoveLearning RainDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LDragonDance) != Yes) { Set %MoveLearning DragonDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LHyperBeam) != Yes) { Set %MoveLearning HyperBeam | Goto Skip }
}
If (%Pokemon == Kabuto) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LAbsorb) != Yes) { Set %MoveLearning Absorb | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LMud-Shot) != Yes) { Set %MoveLearning Mud-Shot | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LSand-Attack) != Yes) { Set %MoveLearning Sand-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LEndure) != Yes) { Set %MoveLearning Endure | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LMetal-Sound) != Yes) { Set %MoveLearning Metal-Sound | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LMegaDrain) != Yes) { Set %MoveLearning MegaDrain | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LAncientPower) != Yes) { Set %MoveLearning AncientPower | Goto Skip }
}
If (%Pokemon == Kabutops) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSlash) != Yes) { Set %MoveLearning Slash | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LMetal-Sound) != Yes) { Set %MoveLearning Metal-Sound | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LMegaDrain) != Yes) { Set %MoveLearning MegaDrain | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 65) && ($readini($1 $+ .ini,%Pokemon,LAncientPower) != Yes) { Set %MoveLearning AncientPower | Goto Skip }
}
If (%Pokemon == Omanyte) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LWaterGun) != Yes) { Set %MoveLearning WaterGun | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LMud-Shot) != Yes) { Set %MoveLearning Mud-Shot | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LLeer) != Yes) { Set %MoveLearning Leer | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LProtect) != Yes) { Set %MoveLearning Protect | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LTickle) != Yes) { Set %MoveLearning Tickle | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LAncientPower) != Yes) { Set %MoveLearning AncientPower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Omastar) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LSpike-Cannon) != Yes) { Set %MoveLearning Spike-Cannon | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LTickle) != Yes) { Set %MoveLearning Tickle | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LAncientPower) != Yes) { Set %MoveLearning AncientPower | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 65) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
}
If (%Pokemon == Rhyhorn) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 10) && ($readini($1 $+ .ini,%Pokemon,LStomp) != Yes) { Set %MoveLearning Stomp | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LFury-Attack) != Yes) { Set %MoveLearning Fury-Attack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 24) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning ScaryFace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LRock-Blast) != Yes) { Set %MoveLearning Rock-Blast | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 38) && ($readini($1 $+ .ini,%Pokemon,LHorn-Drill) != Yes) { Set %MoveLearning Horn-Drill | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 52) && ($readini($1 $+ .ini,%Pokemon,LEarthQuake) != Yes) { Set %MoveLearning EarthQuake | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 57) && ($readini($1 $+ .ini,%Pokemon,LMegaHorn) != Yes) { Set %MoveLearning MegaHorn | Goto Skip }
}
If (%Pokemon == Rhydon) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LTakeDown) != Yes) { Set %MoveLearning TakeDown | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 58) && ($readini($1 $+ .ini,%Pokemon,LEarthQuake) != Yes) { Set %MoveLearning EarthQuake | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 66) && ($readini($1 $+ .ini,%Pokemon,LMegaHorn) != Yes) { Set %MoveLearning MegaHorn | Goto Skip }
}
If (%Pokemon == Zubat) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 6) && ($readini($1 $+ .ini,%Pokemon,LSuperSonic) != Yes) { Set %MoveLearning SuperSonic | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 11) && ($readini($1 $+ .ini,%Pokemon,LAstonish) != Yes) { Set %MoveLearning Astonish | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 16) && ($readini($1 $+ .ini,%Pokemon,LBite) != Yes) { Set %MoveLearning Bite | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 21) && ($readini($1 $+ .ini,%Pokemon,LWingAttack) != Yes) { Set %MoveLearning WingAttack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 26) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LAir-Cutter) != Yes) { Set %MoveLearning Air-Cutter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LPoison-Fang) != Yes) { Set %MoveLearning Poison-Fang | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 46) && ($readini($1 $+ .ini,%Pokemon,LHaze) != Yes) { Set %MoveLearning Haze | Goto Skip }
}
If (%Pokemon == Goldbat) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 28) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LAir-Cutter) != Yes) { Set %MoveLearning Air-Cutter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LMean-Look) != Yes) { Set %MoveLearning Mean-Look | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LPoison-Fang) != Yes) { Set %MoveLearning Poison-Fang | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 56) && ($readini($1 $+ .ini,%Pokemon,LHaze) != Yes) { Set %MoveLearning Haze | Goto Skip }
}
If (%Pokemon == Crobat) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 35) && ($readini($1 $+ .ini,%Pokemon,LAir-Cutter) != Yes) { Set %MoveLearning Air-Cutter | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 42) && ($readini($1 $+ .ini,%Pokemon,LMean-Look) != Yes) { Set %MoveLearning Mean-Look | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LPoison-Fang) != Yes) { Set %MoveLearning Poison-Fang | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 56) && ($readini($1 $+ .ini,%Pokemon,LHaze) != Yes) { Set %MoveLearning Haze | Goto Skip }
}
If (%Pokemon == Machop) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LFocus-Energy) != Yes) { Set %MoveLearning Focus-Energy | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LKarate-Chop) != Yes) { Set %MoveLearning Karate-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LSeismic-Toss) != Yes) { Set %MoveLearning Seismic-Toss | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LForesight) != Yes) { Set %MoveLearning Foresight | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LRevenge) != Yes) { Set %MoveLearning Revenge | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LVital-Throw) != Yes) { Set %MoveLearning Vital-Throw | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LSubmission) != Yes) { Set %MoveLearning Submission | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 40) && ($readini($1 $+ .ini,%Pokemon,LCross-Chop) != Yes) { Set %MoveLearning Cross-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning ScaryFace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LDynamic-Punch) != Yes) { Set %MoveLearning Dynamic-Punch | Goto Skip }
}
If (%Pokemon == Machoke) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LVital-Throw) != Yes) { Set %MoveLearning Vital-Throw | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LSubmission) != Yes) { Set %MoveLearning Submission | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LCross-Chop) != Yes) { Set %MoveLearning Cross-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 51) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning ScaryFace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 59) && ($readini($1 $+ .ini,%Pokemon,LDynamic-Punch) != Yes) { Set %MoveLearning Dynamic-Punch | Goto Skip }
}
If (%Pokemon == Machamp) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 33) && ($readini($1 $+ .ini,%Pokemon,LVital-Throw) != Yes) { Set %MoveLearning Vital-Throw | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 41) && ($readini($1 $+ .ini,%Pokemon,LSubmission) != Yes) { Set %MoveLearning Submission | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LCross-Chop) != Yes) { Set %MoveLearning Cross-Chop | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 51) && ($readini($1 $+ .ini,%Pokemon,LScaryFace) != Yes) { Set %MoveLearning ScaryFace | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 59) && ($readini($1 $+ .ini,%Pokemon,LDynamic-Punch) != Yes) { Set %MoveLearning Dynamic-Punch | Goto Skip }
}
If (%Pokemon == Lapras) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 7) && ($readini($1 $+ .ini,%Pokemon,LMist) != Yes) { Set %MoveLearning Mist | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 13) && ($readini($1 $+ .ini,%Pokemon,LBodySlam) != Yes) { Set %MoveLearning BodySlam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 19) && ($readini($1 $+ .ini,%Pokemon,LConfuse-Ray) != Yes) { Set %MoveLearning Confuse-Ray | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 25) && ($readini($1 $+ .ini,%Pokemon,LPerish-Song) != Yes) { Set %MoveLearning Perish-Song | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 31) && ($readini($1 $+ .ini,%Pokemon,LIceBeam) != Yes) { Set %MoveLearning IceBeam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 37) && ($readini($1 $+ .ini,%Pokemon,LRainDance) != Yes) { Set %MoveLearning RainDance | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 49) && ($readini($1 $+ .ini,%Pokemon,LHydroPump) != Yes) { Set %MoveLearning HydroPump | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LSheer-Cold) != Yes) { Set %MoveLearning Sheer-Cold | Goto Skip }
}
If (%Pokemon == Dratini) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 8) && ($readini($1 $+ .ini,%Pokemon,LThunder-Wave) != Yes) { Set %MoveLearning Thunder-Wave | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 15) && ($readini($1 $+ .ini,%Pokemon,LTwister) != Yes) { Set %MoveLearning Twister | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 22) && ($readini($1 $+ .ini,%Pokemon,LDragonRage) != Yes) { Set %MoveLearning DragonRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 29) && ($readini($1 $+ .ini,%Pokemon,LSlam) != Yes) { Set %MoveLearning Slam | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 36) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 43) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 50) && ($readini($1 $+ .ini,%Pokemon,LOutRage) != Yes) { Set %MoveLearning OutRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 57) && ($readini($1 $+ .ini,%Pokemon,LHyperBeam) != Yes) { Set %MoveLearning HyperBeam | Goto Skip }
}
If (%Pokemon == Dragonair) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 38) && ($readini($1 $+ .ini,%Pokemon,LAgility) != Yes) { Set %MoveLearning Agility | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 47) && ($readini($1 $+ .ini,%Pokemon,LSafeGaurd) != Yes) { Set %MoveLearning SafeGaurd | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 56) && ($readini($1 $+ .ini,%Pokemon,LOutRage) != Yes) { Set %MoveLearning OutRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 65) && ($readini($1 $+ .ini,%Pokemon,LHyperBeam) != Yes) { Set %MoveLearning HyperBeam | Goto Skip }
}
If (%Pokemon == Dragonite) {
If ($readini($1 $+ .ini,%Pokemon,Level) >= 55) && ($readini($1 $+ .ini,%Pokemon,LWingAttack) != Yes) { Set %MoveLearning WingAttack | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 61) && ($readini($1 $+ .ini,%Pokemon,LOutRage) != Yes) { Set %MoveLearning OutRage | Goto Skip }
If ($readini($1 $+ .ini,%Pokemon,Level) >= 75) && ($readini($1 $+ .ini,%Pokemon,LHyperBeam) != Yes) { Set %MoveLearning HyperBeam | Goto Skip }
}
Halt
:Skip
if ($readini($1 $+ .ini,$Poke($1),Attack1) == None) {
writeini $1 $+ .ini $Poke($1) L $+ %MoveLearning Yes
writeini -n $1 $+ .ini $Poke($1) Attack1 %MoveLearning
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
Msg %ChanSet $Name($1) $+ 9,1's $Pokemon($1) $+ 9,1 Has Learned $+ %MoveLearning $+ !
Halt
}
if ($readini($1 $+ .ini,$Poke($1),Attack2) == None) {
writeini $1 $+ .ini $Poke($1) L $+ %MoveLearning Yes
writeini -n $1 $+ .ini $Poke($1) Attack2 %MoveLearning
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
Msg %ChanSet $Name($1) $+ 9,1's $Pokemon($1) $+ 9,1 Has Learned $+ %MoveLearning $+ !
Halt
}
if ($readini($1 $+ .ini,$Poke($1),Attack3) == None) {
writeini $1 $+ .ini $Poke($1) L $+ %MoveLearning Yes
writeini -n $1 $+ .ini $Poke($1) Attack3 %MoveLearning
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
Msg %ChanSet $Name($1) $+ 9,1's $Pokemon($1) $+ 9,1 Has Learned $+ %MoveLearning $+ !
Halt
}
if ($readini($1 $+ .ini,$Poke($1),Attack4) == None) {
writeini $1 $+ .ini $Poke($1) L $+ %MoveLearning Yes
writeini -n $1 $+ .ini $Poke($1) Attack4 %MoveLearning
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ MPP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
writeini -n $1 $+ .ini $Poke($1) %MoveLearning $+ PP $readini(Pokemon_Status $+ .ini,PPCheck,%MoveLearning)
Msg %ChanSet $Name($1) $+ 9,1's $Pokemon($1) $+ 9,1 Has Learned $+ %MoveLearning $+ !
Halt
}
if ($readini($1 $+ .ini,$1,Move1) != None) && ($readini($1 $+ .ini,$1,Move2) != None) && ($readini($1 $+ .ini,$1,Move3) != None) && ($readini($1 $+ .ini,$1,Move4) != None) {
Msg %ChanSet $Name($1) $+ 9,1's $Pokemon($1) $+ 9,1 Is Trying To Learn $+ %MoveLearning $+ But $Pokemon($1) $+ 9,1 Already Knows 4 Attacks, Would You like To Erase A move? Please Remove A Move From Attack List By: `Learn NewMove ForegettingOldMove or `NotLearn
Set %Learn. [ $+ [ $1 ] ] %MoveLearning
Set %Learning $1
Set %ALearn On
Halt
}
Unset %MovePP
:End
}Evolve {
if ($readini($1 $+ .ini,$Poke($1),WantEvolve) != Yes) { goto end }
set %Pokemon $readini($1 $+ .ini,$Poke($1),Pokemon)
If (%Pokemon == Charmander) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Charmeleon
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fire
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 1
writeini -n $1 $+ .ini %Pokemon2 BAura 4
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 1,4 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Heal $1
Halt
}
If (%Pokemon == Charmeleon) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Charizard
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fire
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 4
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,4 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Torchic) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Combusken
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fire
writeini -n $1 $+ .ini %Pokemon2 Type2 Fighting
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 7
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,7 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Heal $1
Halt
}
If (%Pokemon == Combusken) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Blaziken
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fire
writeini -n $1 $+ .ini %Pokemon2 Type2 Fighting
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 8
writeini -n $1 $+ .ini %Pokemon2 BAura 4
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 8,4 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Cyndaquil) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 14) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Quilava
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fire
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 2
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,2 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Heal $1
Halt
}
If (%Pokemon == Quilava) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Typhlosion
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fire
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 2
writeini -n $1 $+ .ini %Pokemon2 BAura 4
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 2,4 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Bulbasaur) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Ivysaur
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 1
writeini -n $1 $+ .ini %Pokemon2 BAura 3
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 1,3 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Ivysaur) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 32) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Venasaur
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
writeini -n $1 $+ .ini %Pokemon2 Level %Level
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 3
writeini -n $1 $+ .ini %Pokemon2 BAura 9
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 3,9 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Chikorita) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Bayleef
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 3
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 3,8 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Bayleef) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Meganium
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 None
writeini -n $1 $+ .ini %Pokemon2 Level %Level
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 13
writeini -n $1 $+ .ini %Pokemon2 BAura 3
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 13,3 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Treecko) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Grovyle
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 3
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,3 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Grovyle) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Sceptile
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 None
writeini -n $1 $+ .ini %Pokemon2 Level %Level
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 9
writeini -n $1 $+ .ini %Pokemon2 BAura 9
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 9,9 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Squirtle) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Wartortle
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 11
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 11,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Wartortle) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Blastoise
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 5
writeini -n $1 $+ .ini %Pokemon2 BAura 11
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 11,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Totodile) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 18) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Croconaw
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 11
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 11,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Croconaw) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 30) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Feraligatr
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Mudkip) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Marshtomp
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 Ground
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 14
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 14,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Marshtomp) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Swampert
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 Ground
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 10
writeini -n $1 $+ .ini %Pokemon2 BAura 11
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 10,11 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Pidgey) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 18) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Pidgeotto
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 13 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 11 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Normal
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 8
writeini -n $1 $+ .ini %Pokemon2 BAura 5
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 8,5 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Pidgeotto) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 36) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Pidgeot
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 5 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Normal
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 5
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,5 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Caterpie) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 7) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Metapod
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 2 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Bug
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 15 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 2 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 3
writeini -n $1 $+ .ini %Pokemon2 BAura 3
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 3,3 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Metapod) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 10) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Butterfree
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 6 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 6 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Bug
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 0
writeini -n $1 $+ .ini %Pokemon2 BAura 2
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 0,2 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Pichu) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 12) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) && ($readini(Weather $+ .ini,Weather,ThunderStorm) != Yes) { goto end }
set %Pokemon2 Pikachu
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 14 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Electric
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 1
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 1,8 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Weedle) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 7) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Kakuna
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 2 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Bug
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 15 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 2 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 8
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 8,8 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Kakuna) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 10) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Beedrill
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Bug
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 1
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 1,8 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Rattata) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 20) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Raticate
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 11 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 11 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Normal
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 7
writeini -n $1 $+ .ini %Pokemon2 BAura 0
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 7,0 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Spearow) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 20) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Fearow
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 13 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 13 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 13 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Normal
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 7
writeini -n $1 $+ .ini %Pokemon2 BAura 5
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 7,5 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Sandshrew) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 22) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Sandslash
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 35 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 16 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 13 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 16 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Ground
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 5
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 5,8 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Ekans) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 22) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Arbok
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 17 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 13 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 17 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 13 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Poison
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 13
writeini -n $1 $+ .ini %Pokemon2 BAura 6
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 13,6 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Bellsprout) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 21) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Weepinbell
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 3
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 3,8 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Oddish) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 21) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Gloom
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 7
writeini -n $1 $+ .ini %Pokemon2 BAura 2
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 7,2 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Abra) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Kadabra
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Psychic
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 6
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 6,8 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Kadabra) {
if ($readini($1 $+ .ini,%Pokemon,Traded) != Yes) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Alakazam
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Type Psychic
writeini -n $1 $+ .ini %Pokemon2 Type2 None
writeini -n $1 $+ .ini %Pokemon2 Level %Level
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 5
writeini -n $1 $+ .ini %Pokemon2 BAura 8
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 5,8 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Nidoran-F) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Nidorina
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 11 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Poison
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 6
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 6,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Nidoran-M) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 16) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Nidorino
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 11 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Poison
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 3
writeini -n $1 $+ .ini %Pokemon2 BAura 6
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 3,6 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Eevee) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 21) { goto end }
if ($readini(Weather $+ .ini,Weather,Night) == Yes) {
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Umbreon
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 5 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 5 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Dark
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 8
writeini -n $1 $+ .ini %Pokemon2 BAura 1
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 8,1 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
if ($readini(Weather $+ .ini,Weather,DayTime) == Yes) {
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Espeon
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 5 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 5 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Psychic
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 3 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 6
writeini -n $1 $+ .ini %Pokemon2 BAura 13
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 6,13 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
}
If (%Pokemon == Gastly) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 25) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Haunter
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 13 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 13 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Ghost
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 6
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,6 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Haunter) {
if ($readini($1 $+ .ini,%Pokemon,Traded) != Yes) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Gengar
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Type Ghost
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
writeini -n $1 $+ .ini %Pokemon2 Level %Level
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 6
writeini -n $1 $+ .ini %Pokemon2 BAura 6
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 6,6 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Venonat) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 31) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Venomoth
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 40 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Bug
writeini -n $1 $+ .ini %Pokemon2 Type2 Poison
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 5
writeini -n $1 $+ .ini %Pokemon2 BAura 13
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 5,13 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Mankey) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 28) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Primeape
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 5 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 3 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Fighting
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 5
writeini -n $1 $+ .ini %Pokemon2 BAura 0
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 5,0 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Hoppip) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 18) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Skiploom
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 8
writeini -n $1 $+ .ini %Pokemon2 BAura 9
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 8,9 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Skiploom) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 27) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Jumpluff
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Grass
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 0
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 0,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Magikarp) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 20) { goto end }
Set %Evolve $Rand(1,5)
if (%Evolve != 5) { goto end }
set %Pokemon2 Gyarados
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 25 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Water
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 0
writeini -n $1 $+ .ini %Pokemon2 BAura 11
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 0,11 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Kabuto) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 40) { goto end }
Set %Evolve $Rand(1,5)
if (%Evolve != 5) { goto end }
set %Pokemon2 Kabutops
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Rock
writeini -n $1 $+ .ini %Pokemon2 Type2 Water
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 15
writeini -n $1 $+ .ini %Pokemon2 BAura 5
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 15,5 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Omanyte) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 40) { goto end }
Set %Evolve $Rand(1,5)
if (%Evolve != 5) { goto end }
set %Pokemon2 Omastar
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Rock
writeini -n $1 $+ .ini %Pokemon2 Type2 Water
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 8
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 8,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Rhyhorn) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 42) { goto end }
Set %Evolve $Rand(1,5)
if (%Evolve != 5) { goto end }
set %Pokemon2 Rhydon
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Ground
writeini -n $1 $+ .ini %Pokemon2 Type2 Rock
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 14
writeini -n $1 $+ .ini %Pokemon2 BAura 15
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 14,15 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Zubat) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 22) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Golbat
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 2 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Poison
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 6
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 6,10 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Heal $1
Halt
}
If (%Pokemon == Golbat) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 32) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) && ($readini(Weather $+ .ini,Weather,Windy) != Yes) { goto end }
set %Pokemon2 Crobat
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 15 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 4 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Poison
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 12
writeini -n $1 $+ .ini %Pokemon2 BAura 6
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 12,6 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Machop) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 28) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Machoke
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 15 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 8 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 10 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 8 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 3 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 2 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 2 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Figthing
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 4
writeini -n $1 $+ .ini %Pokemon2 BAura 6
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 4,6 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Heal $1
Halt
}
If (%Pokemon == Machoke) {
if ($readini($1 $+ .ini,%Pokemon,Traded) != Yes) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Machamp
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 12 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 10 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 16 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 12 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 4 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 3 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 4 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Type Figthing
writeini -n $1 $+ .ini %Pokemon2 Type2 None
writeini -n $1 $+ .ini %Pokemon2 Level %Level
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 14
writeini -n $1 $+ .ini %Pokemon2 BAura 10
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 14,10 $+ %Pokemon2 $+ 9,1!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
If (%Pokemon == Dratini) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 30) { goto end }
Set %Evolve $Rand(1,3)
if (%Evolve != 3) { goto end }
set %Pokemon2 Dragonair
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 20 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 18 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 14 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 14 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 6 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 6 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 6 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Dragon
writeini -n $1 $+ .ini %Pokemon2 Type2 None
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 0
writeini -n $1 $+ .ini %Pokemon2 BAura 12
writeini -n $1 $+ .ini %Pokemon2 WantEvolve Yes
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 0,12 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Heal $1
Halt
}
If (%Pokemon == Dragonair) {
if ($readini($1 $+ .ini,%Pokemon,Level) < 55) { goto end }
Set %Evolve $Rand(1,10)
if (%Evolve != 10) { goto end }
set %Pokemon2 Dragonite
Var %Hp = $readini($1 $+ .ini,%Pokemon,MHp)
Var %SAttack = $readini($1 $+ .ini,%Pokemon,MSAttack)
Var %Attack = $readini($1 $+ .ini,%Pokemon,MAttack)
Var %SDefense = $readini($1 $+ .ini,%Pokemon,MSDefense)
Var %Defense = $readini($1 $+ .ini,%Pokemon,MDefense)
Var %Accuracy = $readini($1 $+ .ini,%Pokemon,MAccuracy)
Var %Agility = $readini($1 $+ .ini,%Pokemon,MAgility)
Var %Intelligence = $readini($1 $+ .ini,%Pokemon,MIntelligence)
Var %Speed = $readini($1 $+ .ini,%Pokemon,MSpeed)
Var %FSpeed = $readini($1 $+ .ini,%Pokemon,MFSpeed)
Var %Level = $readini($1 $+ .ini,%Pokemon,Level)
Var %Exp = $readini($1 $+ .ini,%Pokemon,Exp)
Var %ExpNeeded = $readini($1 $+ .ini,%Pokemon,ExpNeeded)
Var %SExp = $readini($1 $+ .ini,%Pokemon,SExp)
Var %SExpNeeded = $readini($1 $+ .ini,%Pokemon,SpeedExpNeeded)
Var %Gender = $readini($1 $+ .ini,%Pokemon,Gender)
Var %Name = $readini($1 $+ .ini,%Pokemon,Name)
writeini -n $1 $+ .ini %Pokemon2 MHp $Calc( %Hp + 30 )
writeini -n $1 $+ .ini %Pokemon2 MSAttack $Calc( %SAttack + 25 )
writeini -n $1 $+ .ini %Pokemon2 MSDefense $Calc( %SDefense + 20 )
writeini -n $1 $+ .ini %Pokemon2 MAttack $Calc( %Attack + 18 )
writeini -n $1 $+ .ini %Pokemon2 MDefense $Calc( %Defense + 18 )
writeini -n $1 $+ .ini %Pokemon2 MAccuracy $Calc( %Accuracy + 7 )
writeini -n $1 $+ .ini %Pokemon2 MAgility $Calc( %Agility + 7 )
writeini -n $1 $+ .ini %Pokemon2 MIntelligence $Calc( %Intelligence + 7 )
writeini -n $1 $+ .ini %Pokemon2 MSpeed %Speed
writeini -n $1 $+ .ini %Pokemon2 MFSpeed %FSpeed
writeini -n $1 $+ .ini %Pokemon2 Level %Level
writeini -n $1 $+ .ini %Pokemon2 Type Dragon
writeini -n $1 $+ .ini %Pokemon2 Type2 Flying
Writeini -n $1 $+ .ini %Pokemon2 %Pokemon2 Yes
writeini -n $1 $+ .ini %Pokemon2 Exp %Exp
writeini -n $1 $+ .ini %Pokemon2 ExpNeeded $Calc( %ExpNeeded + 25 )
writeini -n $1 $+ .ini %Pokemon2 SExp $Calc( %SExp + 5 )
writeini -n $1 $+ .ini %Pokemon2 SpeedExpNeeded %SExpNeeded
writeini -n $1 $+ .ini %Pokemon2 Gender %Gender
writeini -n $1 $+ .ini %Pokemon2 Aura 10
writeini -n $1 $+ .ini %Pokemon2 BAura 7
writeini -n $1 $+ .ini %Pokemon2 WantEvolve No
Writeini -n $1 $+ .ini %Pokemon2 Pokemon %Pokemon2
writeini -n $1 $+ .ini %Pokemon2 Attack1 None
writeini -n $1 $+ .ini %Pokemon2 Attack2 None
writeini -n $1 $+ .ini %Pokemon2 Attack3 None
Writeini -n $1 $+ .ini %Pokemon2 Attack4 None
Writeini -n $1 $+ .ini Pokemon %Pokemon2 yes
if ($readini($1 $+ .ini,$Poke($1),Named) == Yes) { writeini -n $1 $+ .ini %Pokemon2 Name %Name | writeini -n $1 $+ .ini %Pokemon2 Named Yes }
if ($readini($1 $+ .ini,$Poke($1),Attack1) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | Set %Attack1 $readini($1 $+ .ini,%Pokemon,Attack1) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack1 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack1 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack1 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack2) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | Set %Attack2 $readini($1 $+ .ini,%Pokemon,Attack2) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack2 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack2 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack2 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack3) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | Set %Attack3 $readini($1 $+ .ini,%Pokemon,Attack3) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack3 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack3 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack3 $+ MPP %MovePP }
if ($readini($1 $+ .ini,$Poke($1),Attack4) != None) { Writeini -n $1 $+ .ini %Pokemon2 Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | Set %Attack4 $readini($1 $+ .ini,%Pokemon,Attack4) | writeini $1 $+ .ini %Pokemon2 L $+ %Attack4 Yes | Set %MovePP $readini($1 $+ .ini,%Pokemon,%Attack4 $+ MPP) | writeini -n $1 $+ .ini %Pokemon2 %Attack4 $+ MPP %MovePP }
Msg %ChanSet 9Whats This?!? $Pokemon($1) $+ 9,1 Is Evolving...
Msg %ChanSet $Poke($1) $+ 9,1 Evolves Into 10,7 $+ %Pokemon2 $+ 9,1!
Remini $1 $+ .ini %Pokemon
Writeini -n $1 $+ .ini $1 Pokemon %Pokemon2
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 10)
Unset %Pokemon
Unset %Pokemon2
Unset %Attack1
Unset %Attack2
Unset %Attack3
Unset %Attack4
Heal $1
Halt
}
:End
Unset %Evolve
}
SpecialNpc {
if ($readini($1 $+ .ini,$1,SNpc) != Yes) { Halt }
if (%SpecialFight != Yes) && ($readini($1 $+ .ini,$1,SNpc) == Yes) && ($readini($1 $+ .ini,$1,TNpc) != Yes) { Halt }
if ($readini($1 $+ .ini,$1,Fighting) != Yes) { halt }
If ($readini($1 $+ .ini,$Poke($1),Hp) <= 0) { writeini $1 $+ .ini $1 Attacking No | TimerAttack $+ $1 off | writeini $1 $+ .ini $1 Fighting No | writeini $1 $+ .ini $1 Field None | set %batlist $remtok(%batlist,$1,1,32) | Halt }
:Repeat
if ($1 == Brock) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Tackle
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Tackle
Msg %ChanSet $BName($1) $+ 0,1 Runs Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
StatusCheck $1 Screech
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 1.8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Screech
Msg %ChanSet $BName($1) $+ 0,1 Grinds its Teeth at $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
if ($readini(%Target $+ .ini,$Poke(%Target),Bind) == yes) { Goto Repeat }
StatusCheck $1 Bind
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 1.8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Bind
Msg %ChanSet $BName($1) $+ 0,1 Flings at $BName(%Target) $+ 0,1!
}
if (%Attack == 4) {
StatusCheck $1 Rock-Throw
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Rock-Throw
Msg %ChanSet $BName($1) $+ 5,1 Picks up a Rock and aims it at $BName(%Target) $+ 5,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Brian) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Tackle
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Tackle
Msg %ChanSet $BName($1) $+ 0,1 Runs Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
StatusCheck $1 Quick-Attack
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Quick-Attack
Msg %ChanSet $BName($1) $+ 0,1 Dashes Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
StatusCheck $1 Hyper-Fang
if ($readini(%Target $+ .ini,$Poke(%Target),Bind) == yes) { Goto Repeat }
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.9 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Hyper-Fang
Msg %ChanSet $BName($1) $+ 0,1 Jumps at $BName(%Target) $+ 0,1!
}
if (%Attack == 4) {
StatusCheck $1 ScaryFace
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target ScaryFace
Msg %ChanSet $BName($1) $+ 0,1 Stares at $BName(%Target) $+ 0,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Misty) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 RapidSpin
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target RapidSpin
Msg %ChanSet $BName($1) $+ 0,1 Spins Around at High Speeds at $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
Set %Hp $Round($Calc( $readini($1 $+ .ini,$Poke($1),MHp) / 2.5 ),0)
if ($readini($1 $+ .ini,$Poke($1),Hp) > %Hp) { Goto Repeat }
StatusCheck $1 Recover
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 6 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 Hey Recover
Msg %ChanSet $BName($1) $+ 0,1 Glows with White Light!
}
if (%Attack == 3) {
StatusCheck $1 Swift
if ($readini(%Target $+ .ini,$Poke(%Target),Bind) == yes) { Goto Repeat }
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Swift
Msg %ChanSet $BName($1) $+ 0,1 Charges Stars at $BName(%Target) $+ 0,1!
}
if (%Attack == 4) {
StatusCheck $1 Bubble-Beam
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Bubble-Beam
Msg %ChanSet $BName($1) $+ 11,1 Charges Water at $BName(%Target) $+ 11,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Lt.Surge) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Thunder-Shock
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Thunder-Shock
Msg %ChanSet $BName($1) $+ 8,1 Charges Electricity at $BName(%Target) $+ 8,1!
}
if (%Attack == 2) {
StatusCheck $1 TailWhip
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 1.7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target TailWhip
Msg %ChanSet $BName($1) $+ 0,1 Wags Tail at $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
if ($readini(%Target $+ .ini,$Poke(%Target),Bind) == yes) { Goto Repeat }
StatusCheck $1 Quick-Attack
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Quick-Attack
Msg %ChanSet $BName($1) $+ 0,1 Dashes Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 4) {
StatusCheck $1 Thunder-Bolt
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.2 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Thunder-Bolt
Msg %ChanSet $BName($1) $+ 8,1 Charges Electricity at $BName(%Target) $+ 8,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Erika) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Absorb
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Absorb
Msg %ChanSet $BName($1) $+ 9,1 Starts to Glow at $BName(%Target) $+ 9,1!
}
if (%Attack == 2) {
StatusCheck $1 SleepPowder
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target SleepPowder
Msg %ChanSet $BName($1) $+ 9,1 Starts to Create Powder at $BName(%Target) $+ 9,1!
}
if (%Attack == 3) {
if ($readini(%Target $+ .ini,$Poke(%Target),Bind) == yes) { Goto Repeat }
StatusCheck $1 PoisonPowder
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target PoisonPowder
Msg %ChanSet $BName($1) $+ 6,1 Starts to Create Powder at $BName(%Target) $+ 6,1!
}
if (%Attack == 4) {
StatusCheck $1 Acid
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Acid
Msg %ChanSet $BName($1) $+ 6,1 Charges Acid at $BName(%Target) $+ 6,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Jake) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
if ($readini(%Target $+ .ini,$Poke(%Target),Bind) == yes) { Goto Repeat }
StatusCheck $1 Wrap
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 1.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Wrap
Msg %ChanSet $BName($1) $+ 0,1 Flings at $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
StatusCheck $1 Bite
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Bite
Msg %ChanSet $BName($1) $+ 14,1 Dashes Towards $BName(%Target) $+ 14,1!
}
if (%Attack == 3) {
StatusCheck $1 Acid
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Acid
Msg %ChanSet $BName($1) $+ 6,1 Charges Acid at $BName(%Target) $+ 6,1!
}
if (%Attack == 4) {
StatusCheck $1 Glare
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Glare
Msg %ChanSet $BName($1) $+ 0,1 Stares at $BName(%Target) $+ 0,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Raj) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Double-Kick
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Double-Kick
Msg %ChanSet $BName($1) $+ 7,1 Jumps at $BName(%Target) $+ 7,1!
}
if (%Attack == 2) {
StatusCheck $1 Poison-Sting
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Poison-Sting
Msg %ChanSet $BName($1) $+ 6,1 Charges a Sharp Needle at $BName(%Target) $+ 6,1!
}
if (%Attack == 3) {
StatusCheck $1 Thrash
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4.3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Thrash
Msg %ChanSet $BName($1) $+ 0,1 Dashes Towards $BName(%Target) $+ 0,1!
}
if (%Attack == 4) {
StatusCheck $1 Peck
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Peck
Msg %ChanSet $BName($1) $+ 10,1 Flys Around $BName(%Target) $+ 10,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Sabrina) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Psychic
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 6.9 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Psychic
Msg %ChanSet $BName($1) $+ 13,1's Prepares Psychic at $BName(%Target) $+ 13,1!
}
if (%Attack == 2) {
Set %Hp $Round($Calc( $readini($1 $+ .ini,$Poke($1),MHp) / 2.5 ),0)
if ($readini($1 $+ .ini,$Poke($1),Hp) > %Hp) { Goto Repeat }
StatusCheck $1 Recover
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 6 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 Hey Recover
Msg %ChanSet $BName($1) $+ 0,1 Glows with White Light!
}
if (%Attack == 3) {
if ($readini($1 $+ .ini,$Poke($1),Reflect) == Yes) { Goto Repeat }
StatusCheck $1 Reflect
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 Hey Reflect
Msg %ChanSet $BName($1) $+ 13,1 Starts To Make a Screen!
}
if (%Attack == 4) {
if ($readini(%Target $+ .ini,$Poke(%Target),Disabled) == Yes) { Goto Repeat }
StatusCheck $1 Disable
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Disable
Msg %ChanSet $BName($1) $+ 13,1's Eyes Glow at $BName(%Target) $+ 13,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Koga) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
if ($readini(%Target $+ .ini,$Poke(%Target),Poisoned) == yes) { Goto Repeat }
StatusCheck $1 PoisonPowder
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target PoisonPowder
Msg %ChanSet $BName($1) $+ 6,1 Starts to Create Powder at $BName(%Target) $+ 6,1!
}
if (%Attack == 2) {
StatusCheck $1 Psychic
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 6.9 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Psychic
Msg %ChanSet $BName($1) $+ 13,1's Prepares Psychic at $BName(%Target) $+ 13,1!
}
if (%Attack == 3) {
StatusCheck $1 Leech-Life
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Leech-Life
Msg %ChanSet $BName($1) $+ 3,1 Goes to Grab $BName(%Target) $+ 3,1!
}
if (%Attack == 4) {
if ($readini(%Target $+ .ini,$Poke(%Target),Disabled) == Yes) { Goto Repeat }
StatusCheck $1 Disable
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Disable
Msg %ChanSet $BName($1) $+ 13,1's Eyes Glow at $BName(%Target) $+ 13,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Blaine) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Ember
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Ember
Msg %ChanSet $BName($1) $+ 4,1 Blazes with Fire At $BName(%Target) $+ 4,1!
}
if (%Attack == 2) {
if ($readini($1 $+ .ini,$Poke($1),Hp) <= 50) { Goto Repeat }
StatusCheck $1 TakeDown
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4.7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target TakeDown
Msg %ChanSet $BName($1) $+ 0,1 Runs Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
StatusCheck $1 FlameThrower
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target FlameThrower
Msg %ChanSet $BName($1) $+ 4,1 Blazes with Fire At $BName(%Target) $+ 4,1!
}
if (%Attack == 4) {
StatusCheck $1 ExtremeSpeed
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target ExtremeSpeed
Msg %ChanSet $BName($1) $+ 0,1 Dashes Towards $BName(%Target) $+ 0,1 at Very High Speeds!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Giovanni) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
if ($readini($2 $+ .ini,$Poke($2),Defense) <= 20) { Goto Repeat }
StatusCheck $1 TailWhip
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 1.7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target TailWhip
Msg %ChanSet $BName($1) $+ 0,1 Wags Tail at $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
if ($readini($1 $+ .ini,$Poke($1),Hp) <= 50) { Goto Repeat }
StatusCheck $1 TakeDown
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4.7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target TakeDown
Msg %ChanSet $BName($1) $+ 0,1 Runs Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
StatusCheck $1 EarthQuake
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target EarthQuake
Msg %ChanSet $BName($1) $+ 5,1 Raises $PGender($1) Foot Up and looks at $BName(%Target) $+ 5,1!
}
if (%Attack == 4) {
StatusCheck $1 MegaHorn
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 8.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target MegaHorn
Msg %ChanSet $BName($1) $+ 3,1 Dashes Towards $BName(%Target) $+ 3,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Lorelei) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
if ($readini(%Target $+ .ini,$Poke(%Target),Sleeping) == yes) { Goto Repeat }
StatusCheck $1 Sing
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Sing
Msg %ChanSet $BName($1) $+ 0,1 Starts to Sing to $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
StatusCheck $1 IceBeam
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 6 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target IceBeam
Msg %ChanSet $BName($1) $+ 11,1 Charges Ice Beam at $BName(%Target) $+ 11,1!
}
if (%Attack == 3) {
if ($readini($1 $+ .ini,$Poke($1),SafeGaurd) == Yes) { Goto Repeat }
StatusCheck $1 SafeGaurd
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 Hey SafeGaurd
Msg %ChanSet $BName($1) $+ 0,1 Begins to SafeGaurd!
}
if (%Attack == 4) {
StatusCheck $1 HydroPump
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target HydroPump
Msg %ChanSet $BName($1) $+ 7,1 Charges Massive Amounts of Water at $BName(%Target) $+ 7,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Bruno) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Low-Kick
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Low-Kick
Msg %ChanSet $BName($1) $+ 7,1 Gets on $PGender($1) Knees facing $BName(%Target) $+ 7,1!
}
if (%Attack == 2) {
if ($readini($2 $+ .ini,$Poke($2),Defense) <= 20) { Goto Repeat }
StatusCheck $1 Leer
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 1.8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Leer
Msg %ChanSet $BName($1) $+ 0,1 Eyes Glow at $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
StatusCheck $1 Cross-Chop
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Cross-Chop
Msg %ChanSet $BName($1) $+ 7,1 Stands Still Facing $BName(%Target) $+ 7,1!
}
if (%Attack == 4) {
StatusCheck $1 Dynamic-Punch
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Dynamic-Punch
Msg %ChanSet $BName($1) $+ 7,1 Clenches its Fist at $BName(%Target) $+ 7,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Agatha) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 NightShade
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target NightShade
Msg %ChanSet $BName($1) $+ 2,1 Prepares to do NightShade at $BName(%Target) $+ 2,1!
}
if (%Attack == 2) {
StatusCheck $1 Shadow-Punch
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Shadow-Punch
Msg %ChanSet $BName($1) $+ 2,1 Starts to Create Shadows At $BName(%Target) $+ 2,1!
}
if (%Attack == 3) {
if ($readini(%Target $+ .ini,$Poke(%Target),Confused) == yes) { Goto Repeat }
StatusCheck $1 Confuse-Ray
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Confuse-Ray
Msg %ChanSet $BName($1) $+ 2,1 Charges a Ray at $BName(%Target) $+ 2,1!
}
if (%Attack == 4) {
StatusCheck $1 Spite
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Spite
Msg %ChanSet $BName($1) $+ 2,1 Begins to do Spite at $BName(%Target) $+ 2,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Lance) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
if ($readini(%Target $+ .ini,$Poke(%Target),Paralyzed) == yes) { Goto Repeat }
StatusCheck $1 Thunder-Wave
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Thunder-Wave
Msg %ChanSet $BName($1) $+ 8,1 Charges Electricity at $BName(%Target) $+ 8,1!
}
if (%Attack == 2) {
StatusCheck $1 WingAttack
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target WingAttack
Msg %ChanSet $BName($1) $+ 10,1 Starts to Fly and Dashes Towards $BName(%Target) $+ 10,1!
}
if (%Attack == 3) {
StatusCheck $1 OutRage
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 6 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target OutRage
Msg %ChanSet $BName($1) $+ 12,1 Gets Ready to do OutRage to $BName(%Target) $+ 12,1!
}
if (%Attack == 4) {
StatusCheck $1 HyperBeam
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target HyperBeam
Msg %ChanSet $BName($1) $+ 0,1 Charges Massive Amounts of Energy at $BName(%Target) $+ 0,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Bug-Boy) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Fury-Attack
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.1 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Fury-Attack
Msg %ChanSet $BName($1) $+ 0,1 Runs Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 2) {
StatusCheck $1 Twineedle
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Twineedle
Msg %ChanSet $BName($1) $+ 0,1 Dashes Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 3) {
if ($readini($1 $+ .ini,$Poke($1),Focus) == Yes) { Goto Repeat }
StatusCheck $1 Focus-Energy
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 Hey Focus-Energy
Msg %ChanSet $BName($1) $+ 0,1 Begins to Focus!
}
if (%Attack == 4) {
StatusCheck $1 Rage
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.7 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Rage
Msg %ChanSet $BName($1) $+ 0,1 Gets Ready to use Rage at $BName(%Target) $+ 0,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
if ($1 == Jane) {
Set %Move $Rand(1,2)
Set %Target $readini($1 $+ .ini,$1,FightingWho)
if ($readini(%Target $+ .ini,%Target,Fighting) != Yes) { halt }
Writeini -n $1 $+ .ini $1 Attacking Yes
if (%Move == 1) {
Set %Attack $Rand(1,4)
if (%Attack == 1) {
StatusCheck $1 Gust
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.8 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Gust
Msg %ChanSet $BName($1) $+ 10,1 Flaps its Wings at $BName(%Target) $+ 10,1!
}
if (%Attack == 2) {
StatusCheck $1 WingAttack
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 3.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target WingAttack
Msg %ChanSet $BName($1) $+ 10,1 Starts to Fly and Dashes Towards $BName(%Target) $+ 10,1!
}
if (%Attack == 3) {
StatusCheck $1 Quick-Attack
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 2.4 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Quick-Attack
Msg %ChanSet $BName($1) $+ 0,1 Dashes Toward $BName(%Target) $+ 0,1!
}
if (%Attack == 4) {
StatusCheck $1 Mirror-Move
Set %Time $Round($Calc( $readini($1 $+ .ini,$Poke($1),Speed) * 5.5 ),0)
TimerAttack $+ $1 1 %Time /GatheringInfo $1 %Target Mirror-Move
Msg %ChanSet $BName($1) $+ 10,1 Starts to do Mirror Move at $BName(%Target) $+ 10,1!
}
}
if (%Move == 2) {
SNpcHeal $1 %Target
}
}
}
SNpcHeal {
if ($readini($1 $+ .ini,$Poke($1),Poisoned) == Yes) { Inc %NHL | Goto Poison }
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) == Yes) { Inc %NHL | Goto Paralyze }
:Repeat
Inc %NHL
if (%NHL >= 3) { Unset %NHL | SpecialNpc $1 | Halt }
Set %Move $Rand(1,2)
if (%Move == 1) {
if ($readini($1 $+ .ini,Items,Potion) > 0) { Goto Potion }
if ($readini($1 $+ .ini,Items,SuperPotion) > 0) { Goto Potion2 }
if ($readini($1 $+ .ini,Items,HyperPotion) > 0) { Goto Potion3 }
:Potion
if ($readini($1 $+ .ini,Items,Potion) <= 0) { Goto Repeat }
Set %Hp $Round($Calc( $readini($1 $+ .ini,$Poke($1),MHp) / 2.5 ),0)
if ($readini($1 $+ .ini,$Poke($1),Hp) > %Hp) { Goto Repeat }
Writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + 20)
Writeini -n $1 $+ .ini Items Potion $calc($readini($1 $+ .ini,Items,Potion) - 1)
Msg %ChanSet $Name($1) $+ 0,1 Uses Potion On $Gender($1) $Pokemon($1) $+ 0,1 Healing Its Hp By 20
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
Writeini -n $1 $+ .ini $1 CantCancel Yes
Writeini -n $1 $+ .ini $1 Attacking Yes
TimerAttack $+ $1 1 $rand(10,15) /AttackAgain $1
Halt
:Potion2
if ($readini($1 $+ .ini,Items,SuperPotion) <= 0) { Goto Repeat }
Set %Hp $Round($Calc( $readini($1 $+ .ini,$Poke($1),MHp) / 2.5 ),0)
if ($readini($1 $+ .ini,$Poke($1),Hp) > %Hp) { Goto Repeat }
Writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + 50)
Writeini -n $1 $+ .ini Items SuperPotion $calc($readini($1 $+ .ini,Items,SuperPotion) - 1)
Msg %ChanSet $Name($1) $+ 0,1 Uses Super Potion On $Gender($1) $Pokemon($1) $+ 0,1 Healing Its Hp By 50
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
Writeini -n $1 $+ .ini $1 CantCancel Yes
Writeini -n $1 $+ .ini $1 Attacking Yes
TimerAttack $+ $1 1 $rand(10,15) /AttackAgain $1
Halt
:Potion3
if ($readini($1 $+ .ini,Items,HyperPotion) <= 0) { Goto Repeat }
Set %Hp $Round($Calc( $readini($1 $+ .ini,$Poke($1),MHp) / 2.5 ),0)
if ($readini($1 $+ .ini,$Poke($1),Hp) > %Hp) { Goto Repeat }
Writeini -n $1 $+ .ini $Poke($1) Hp $calc($readini($1 $+ .ini,$Poke($1),Hp) + 200)
Writeini -n $1 $+ .ini Items HyperPotion $calc($readini($1 $+ .ini,Items,HyperPotion) - 1)
Msg %ChanSet $Name($1) $+ 0,1 Uses Hyper Potion On $Gender($1) $Pokemon($1) $+ 0,1 Healing Its Hp By 200
if ($Stat($1,Hp) > $Stat($1,MHp)) { writeini $1 $+ .ini $Poke($1) Hp $Stat($1,MHp) }
Writeini -n $1 $+ .ini $1 CantCancel Yes
Writeini -n $1 $+ .ini $1 Attacking Yes
TimerAttack $+ $1 1 $rand(10,15) /AttackAgain $1
}
if (%Move == 2) {
:Poison
if ($readini($1 $+ .ini,Items,Antidote) <= 0) { Goto Repeat }
if ($readini($1 $+ .ini,$Poke($1),Poisoned) != Yes) { Goto Repeat }
Set %Move $Rand(1,2)
if (%Move == 1) { Goto Repeat }
if (%Move == 2) { Writeini -n $1 $+ .ini $1 CantCancel Yes | Writeini -n $1 $+ .ini $1 Attacking Yes | TimerAttack $+ $1 1 $rand(10,15) /AttackAgain $1 | Writeini -n $1 $+ .ini $Poke($1) Poisoned No | Writeini -n $1 $+ .ini Items Antidote $calc($readini($1 $+ .ini,Items,Antidote) - 1) | Msg %ChanSet $Name($1) $+ 0,1 Uses Antidote On $Gender($1) $Pokemon($1) $+ 0,1 Curing it of Poison! }
}
if (%Move == 3) {
:Paralyze
if ($readini($1 $+ .ini,Items,ParaHeal) <= 0) { Goto Repeat }
if ($readini($1 $+ .ini,$Poke($1),Paralyzed) != Yes) { Goto Repeat }
Set %Move $Rand(1,2)
if (%Move == 1) { Goto Repeat }
if (%Move == 2) { Writeini -n $1 $+ .ini $1 CantCancel Yes | TimerAttack $+ $1 1 $rand(10,15) /AttackAgain $1 | Writeini -n $1 $+ .ini $1 Attacking Yes | Writeini -n $1 $+ .ini $Poke($1) Paralyzed No | Writeini -n $1 $+ .ini Items ParaHeal $calc($readini($1 $+ .ini,Items,ParaHeal) - 1) | Msg %ChanSet $Name($1) $+ 0,1 Uses ParaHeal On $Gender($1) $Pokemon($1) $+ 0,1 Curing it of Paralyze! }
}
if (%Move == 3) {
:Sleep
if ($readini($1 $+ .ini,Items,Awake) <= 0) { Goto Repeat }
if ($readini($1 $+ .ini,$Poke($1),Sleeping) != Yes) { Goto Repeat }
Set %Move $Rand(1,2)
if (%Move == 1) { Goto Repeat }
if (%Move == 2) { Writeini -n $1 $+ .ini $1 CantCancel Yes | TimerAttack $+ $1 1 $rand(10,15) /AttackAgain $1 | Writeini -n $1 $+ .ini $1 Attacking Yes | Writeini -n $1 $+ .ini $Poke($1) Sleeping No | Writeini -n $1 $+ .ini Items Awake $calc($readini($1 $+ .ini,Items,Awake) - 1) | Msg %ChanSet $Name($1) $+ 0,1 Uses Awake On $Gender($1) $Pokemon($1) $+ 0,1 Curing it of Sleep! }
}
}
NpcWin {
if (Brock == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 5,1 Has Beaten $Name($2) $+ 5,1! $Name($1) $+ 5,1 Says "Whats The Matter? Am I Too Hard for You?"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Brian == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
writeini $2 $+ .ini Mission Brian Yes
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 13,1 Has Beaten $Name($2) $+ 13,1! $Name($1) $+ 13,1 Says "Pathetic... I wont Waste my Time on You, I'm Done!" $Name($1) $+ 13,1 Walks Away!
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Jake == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 13,1 Has Beaten $Name($2) $+ 13,1! $Name($1) $+ 13,1 Says "That was Easy, Like Your Mother HAHAHA"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Raj == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 13,1 Has Beaten $Name($2) $+ 13,1! $Name($1) $+ 13,1 Says "Team Rockets Plans Will Continue..."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Misty == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 11,1 Has Beaten $Name($2) $+ 11,1! $Name($1) $+ 11,1 Says "You're all washed Up"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Lt.Surge == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 8,1 Has Beaten $Name($2) $+ 8,1! $Name($1) $+ 8,1 Says "The only part about that wasnt Shocking Is Me Winning"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Erika == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 9,1 Has Beaten $Name($2) $+ 9,1! $Name($1) $+ 9,1 Says "I'm going To Leeaaf? (Laughs) you, I'm So funny!"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Sabrina == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 13,1 Has Beaten $Name($2) $+ 13,1! $Name($1) $+ 13,1 Says "I Predicted this Outcome!"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Koga == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 6,1 Has Beaten $Name($2) $+ 6,1! $Name($1) $+ 6,1 Says "I'm Hard Now! Very Hard..."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Blaine == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 4,1 Has Beaten $Name($2) $+ 4,1! $Name($1) $+ 4,1 Says "I'm Hot and Your Not..."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Giovanni == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 4,1 Has Beaten $Name($2) $+ 4,1! $Name($1) $+ 4,1 Says "Muwhahahahahahaha!!!! Pathetic fool you thought you'd beat me, huh?"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Bug-Boy == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($1) $+ 14,1 Has Beaten $Name($2) $+ 14,1! $Name($1) $+ 14,1 Says "My bug is Hairy!"
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Lorelei == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Unset %EFighting
Unset %EliteBattle
Unset %Beaten
Unset %SpecialFight
Msg %ChanSet $Name($1) $+ 11,1 Has Beaten $Name($2) $+ 11,1! $Name($1) $+ 11,1 Says "Like I Told You This Was The End for You."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Bruno == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Unset %EFighting
Unset %EliteBattle
Unset %Beaten
Unset %SpecialFight
Msg %ChanSet $Name($1) $+ 7,1 Has Beaten $Name($2) $+ 7,1! $Name($1) $+ 7,1 Says "Am I Too Hard For You."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Agatha == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Unset %EFighting
Unset %EliteBattle
Unset %Beaten
Unset %SpecialFight
Msg %ChanSet $Name($1) $+ 2,1 Has Beaten $Name($2) $+ 2,1! $Name($1) $+ 2,1 Says "...Pathetic..."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
if (Lance == $1) {
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Unset %EFighting
Unset %EliteBattle
Unset %Beaten
Unset %SpecialFight
Msg %ChanSet $Name($1) $+ 0,1 Has Beaten $Name($2) $+ 0,1! $Name($1) $+ 0,1 Says "Star light, star bright my dragons beat your weaklings tonight."
writeini -n $2 $+ .ini Travel Town Pallet-Town
Msg %ChanSet $Name($2) $+ 15,1 Ends Up At Pallet-Town!
Halt
}
}
NpcLost {
if (Brock == $2) {
Set %Money 1188
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 5,1 Has Lost To $Name($1) $+ 5,1! $Name($1) $+ 5,1 Has Won The Boulder Badge, Also Recieves TM 34
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Boulder Yes
writeini $1 $+ .ini TM Tm34 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Brian == $2) {
Set %Money 700
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
writeini $1 $+ .ini Mission Brian Yes
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 13,1 Has Lost To $Name($1) $+ 13,1! $Name($2) $+ 13,1 "I will Have My Revenge!" *Uses a Smoke Bomb* $Name($1) $+ 13,1 Sees something in the Ground...
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
Set %Choice $Rand(1,2)
if (%Choice == 1) { Msg %ChanSet $Name($1) $+ 5,1 Found The Helix Fossil! | writeini $1 $+ .ini Items Helix Yes }
if (%Choice == 2) { Msg %ChanSet $Name($1) $+ 5,1 Found The Dome Fossil! | writeini $1 $+ .ini Items Dome Yes }
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Misty == $2) {
Set %Money 2079
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 11,1 Has Lost To $Name($1) $+ 11,1! $Name($1) $+ 11,1 Has Won The Cascade Badge, Also Recieves TM 11
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Cascade Yes
writeini $1 $+ .ini TM Tm11 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Lt.Surge == $2) {
Set %Money 2772
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 8,1 Has Lost To $Name($1) $+ 8,1! $Name($1) $+ 8,1 Has Won The Thunder Badge, Also Recieves TM 24
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Thunder Yes
writeini $1 $+ .ini TM Tm24 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Erika == $2) {
Set %Money 3168
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 9,1 Has Lost To $Name($1) $+ 9,1! $Name($1) $+ 9,1 Has Won The Rainbow Badge, Also Recieves TM 21
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Rainbow Yes
writeini $1 $+ .ini TM Tm21 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Jake == $2) {
Set %Money 700
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
writeini $1 $+ .ini Mission Jake Yes
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 13,1 Has Lost To $Name($1) $+ 13,1! $Name($2) $+ 13,1 "I will Have My Revenge!" *Uses a Smoke Bomb* $Name($1) $+ 13,1 Sees an Underground Tunnel...
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
Notice $1 Type `Enter UnderGround - A Battle Awaits
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Raj == $2) {
Set %Money 1000
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
writeini $1 $+ .ini Mission Raj Yes
writeini $1 $+ .ini Items SilphScope Yes
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 13,1 Has Lost To $Name($1) $+ 13,1! $Name($2) $+ 13,1 "Nooo" 12,0Officer Jenny13,1: "Good Work $Name($1) $+ 13,1, Celadon-City Was Losing Money Because of This Scam, He Will Be in Jail for awhile" *Jake Is Taken Away* $Name($1) $+ 13,1 Sees Something Fall out of $Name($2) $+ 13,1's Pocket...
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
Msg %ChanSet $BName($1) $+ 13,1 Recieved a Silph Scope!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Sabrina == $2) {
Set %Money 4950
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 13,1 Has Lost To $Name($1) $+ 13,1! $Name($1) $+ 13,1 Has Won The Marsh Badge, Also Recieves TM 46
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Marsh Yes
writeini $1 $+ .ini TM Tm46 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Koga == $2) {
Set %Money 4950
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 6,1 Has Lost To $Name($1) $+ 6,1! $Name($1) $+ 6,1 Has Won The Soul Badge, Also Recieves TM 06
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Soul Yes
writeini $1 $+ .ini TM Tm06 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Blaine == $2) {
Set %Money 5346
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 4,1 Has Lost To $Name($1) $+ 4,1! $Name($1) $+ 4,1 Has Won The Volcano Badge, Also Recieves TM 38
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Volcano Yes
writeini $1 $+ .ini TM Tm38 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Giovanni == $2) {
Set %Money 5445
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
set %SpecialFight no
Unset %SpecialFighting
Msg %ChanSet $Name($2) $+ 0,1 Has Lost To $Name($1) $+ 0,1! $Name($1) $+ 0,1 Has Won The Earth Badge, Also Recieves TM 27
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini Badge Earth Yes
writeini $1 $+ .ini TM Tm27 Yes
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 20)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Bug-Boy == $2) {
Set %Money 346
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
Msg %ChanSet $Name($2) $+ 14,1 Has Lost To $Name($1) $+ 14,1! $Name($1) $+ 14,1!
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
if (Lorelei == $2) {
Set %Beaten 2
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
Msg %ChanSet $Name($2) $+ 11,1 Has Lost To $Name($1) $+ 11,1! $Name($1) $+ 11,1 Moves on to The Next Member of Elite 4...
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
TLvLCheck $1
Halt
}
if (Bruno == $2) {
Set %Beaten 3
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
Msg %ChanSet $Name($2) $+ 7,1 Has Lost To $Name($1) $+ 7,1! $Name($1) $+ 7,1 Moves on to The Next Member of Elite 4...
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
TLvLCheck $1
Halt
}
if (Agatha == $2) {
Set %Beaten 4
Unset %SpecialFight
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
Msg %ChanSet $Name($2) $+ 2,1 Has Lost To $Name($1) $+ 2,1! $Name($1) $+ 2,1 Moves on to The Final Member of the Elite 4...
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5)
TLvLCheck $1
Halt
}
if (Lance == $2) {
Set %Money 10000
Unset %EFighting
Unset %EliteBattle
Unset %Beaten
Unset %SpecialFight
writeini $2 $+ .ini $2 Attacking No
writeini $2 $+ .ini $2 Fighting No
writeini $2 $+ .ini $2 Field None
writeini $1 $+ .ini $1 Attacking No
writeini $1 $+ .ini $1 Fighting No
writeini $1 $+ .ini $1 Field None
timerattack $+ $2 off
timerattack $+ $1 off
Set %Exp $Calc( $readini($2 $+ .ini,$Poke($2),level) * 4 )
if (%Exp < 3) { set %Exp 3 }
writeini $1 $+ .ini $Poke($1) exp $calc($readini($1 $+ .ini,$Poke($1),exp) + %Exp)
writeini $1 $+ .ini Items MasterBall $calc($readini($1 $+ .ini,Items,MasterBall) + 1)
writeini $1 $+ .ini Badge E4Win Yes
Msg %ChanSet $Name($2) $+ 0,1 Has Lost To $Name($1) $+ 0,1! $Name($1) $+ 0,1 Has Beaten All the Elite 4 Members!
msg %ChanSet 1,0Professor Oak:0,1 Says "You've Done it $Name($1) $+ 0,1! I am So Proud Of You That... *Gives You A Master Ball* This Is A Master Ball You Can Catch Any Pokemon With It without Weakining it Use It Wisly."
Msg %ChanSet $BName($1) $+ 15,1 Recieved %Money Zenny!
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 25)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %Money)
TLvLCheck $1
Halt
}
}
RandomEvent {
if (%tourneystarted = yes) { halt }
Set %Event $Rand(1,2)
if (%Event == 1) {
:Repeat
Set %Npc $read(TrainerList.txt)
if (%Npc == $null) { goto Repeat }
if ($readini(%Npc $+ .ini,%Npc,Fighting) == Yes) { Halt }
if (%Npc isin %OpenChallenge) { Halt }
Heal %Npc
Msg %ChanSet $Name(%Npc) $+ 8,1 Wants to Battle! If You Want to Battle $Name(%Npc) $+ 8,1 Type `Accept Open %Npc
Set %OpenChallenge %OpenChallenge %Npc
Unset %Npc
Unset %Event
}
}
RandomTourament {
Set %Total $lines(TP2.txt)
if (%Total == 2) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
write TP1.txt %P2
write TP1.txt %P1
Goto End
}
if (%Total == 3) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
write TP1.txt %P1
write TP1.txt %P3
write TP1.txt %P2
Goto End
}
if (%Total == 4) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
write TP1.txt %P2
write TP1.txt %P3
write TP1.txt %P1
write TP1.txt %P4
Goto End
}
if (%Total == 5) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
write TP1.txt %P4
write TP1.txt %P2
write TP1.txt %P3
write TP1.txt %P5
write TP1.txt %P1
Goto End
}
if (%Total == 6) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
write TP1.txt %P2
write TP1.txt %P6
write TP1.txt %P1
write TP1.txt %P4
write TP1.txt %P5
write TP1.txt %P3
Goto End
}
if (%Total == 7) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
Set %P7 $read(TP2.txt,7)
write TP1.txt %P7
write TP1.txt %P3
write TP1.txt %P6
write TP1.txt %P1
write TP1.txt %P2
write TP1.txt %P4
write TP1.txt %P5
Goto End
}
if (%Total == 8) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
Set %P7 $read(TP2.txt,7)
Set %P8 $read(TP2.txt,8)
write TP1.txt %P8
write TP1.txt %P6
write TP1.txt %P7
write TP1.txt %P1
write TP1.txt %P2
write TP1.txt %P4
write TP1.txt %P5
write TP1.txt %P3
Goto End
}
if (%Total == 9) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
Set %P7 $read(TP2.txt,7)
Set %P8 $read(TP2.txt,8)
Set %P9 $read(TP2.txt,9)
write TP1.txt %P5
write TP1.txt %P1
write TP1.txt %P2
write TP1.txt %P6
write TP1.txt %P9
write TP1.txt %P8
write TP1.txt %P7
write TP1.txt %P3
write TP1.txt %P4
Goto End
}
if (%Total == 10) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
Set %P7 $read(TP2.txt,7)
Set %P8 $read(TP2.txt,8)
Set %P9 $read(TP2.txt,9)
Set %P10 $read(TP2.txt,10)
write TP1.txt %P6
write TP1.txt %P3
write TP1.txt %P2
write TP1.txt %P4
write TP1.txt %P7
write TP1.txt %P8
write TP1.txt %P5
write TP1.txt %P9
write TP1.txt %P1
write TP1.txt %P10
Goto End
}
if (%Total == 11) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
Set %P7 $read(TP2.txt,7)
Set %P8 $read(TP2.txt,8)
Set %P9 $read(TP2.txt,9)
Set %P10 $read(TP2.txt,10)
Set %P11 $read(TP2.txt,11)
write TP1.txt %P4
write TP1.txt %P3
write TP1.txt %P5
write TP1.txt %P2
write TP1.txt %P7
write TP1.txt %P6
write TP1.txt %P9
write TP1.txt %P8
write TP1.txt %P10
write TP1.txt %P11
write TP1.txt %P1
Goto End
}
if (%Total == 12) {
Set %P1 $read(TP2.txt,1)
Set %P2 $read(TP2.txt,2)
Set %P3 $read(TP2.txt,3)
Set %P4 $read(TP2.txt,4)
Set %P5 $read(TP2.txt,5)
Set %P6 $read(TP2.txt,6)
Set %P7 $read(TP2.txt,7)
Set %P8 $read(TP2.txt,8)
Set %P9 $read(TP2.txt,9)
Set %P10 $read(TP2.txt,10)
Set %P11 $read(TP2.txt,11)
Set %P12 $read(TP2.txt,12)
write TP1.txt %P7
write TP1.txt %P5
write TP1.txt %P8
write TP1.txt %P6
write TP1.txt %P4
write TP1.txt %P2
write TP1.txt %P3
write TP1.txt %P11
write TP1.txt %P1
write TP1.txt %P12
write TP1.txt %P10
write TP1.txt %P9
Goto End
}
:End
Msg %ChanSet 4The Battles Have Been Decided!
}
Tournament {
if (%currentmatch. [ $+ [ $1 ] ] = yes) && (%currentmatch. [ $+ [ $2 ] ] = yes) {
timerendbattle off
dec %tourneyparticipants 1
inc %matchesdone 1
inc %nextmatchnumber 1
set %TEntered $remtok(%TEntered,$1,1,32)
Set %WinningGil3 $Round($Calc(%WinningGil / 10),0)
Set %WinningGil4 $Round($Calc(%WinningGil / 20),0)
Set %WinningGil2 $Round($Calc(%WinningGil / 2),0)
msg %ChanSet $BName($2) $+ 8,1 Has Beaten $BName($1) $+ 8,1 Out of The Tournament! $BName($2) $+ 8,1 Gets9 %WinningGil3 8Zenny!
if (%tourneyparticipants = 1) { Msg %ChanSet 9Congratulations15, $Name($2) $+ 15,1 Has Won The Tournament, $Name($2) $+ 15,1 Gets 09 $+ %WinningGil 15Zenny For Winning! $Name($1) $+ 14,1 Gets 09 $+ %WinningGil2 14Zenny for Coming In Second Place. | writeini $2 $+ .ini $2 TExp $calc($readini($2 $+ .ini,$2,TExp) + 10) | writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 5) | Unset %Total | Unset %tourneyparticipants | writeini $2 $+ .ini $2 Money $calc($readini($2 $+ .ini,$2,Money) + %WinningGil) | writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %WinningGil2) | unset %currentmatch* | unset %tourney | unset %matchesdone | Unset %WinningGil* | unset %tourneystarted | unset %nextmatchnumber | Unset %Tentered | set %tourneyover yes | unset %intourney* | timer -o 1 1 /write -c TP2.txt | timer -o 1 1 /write -c TP1.txt | Halt }
write TP1.txt $2
Set %match1 $read(TP1.txt,1)
Set %match2 $read(TP1.txt,2)
if (%tourneyparticipants >= 5) && (%tourneyover != yes) { msg %ChanSet 4Q15uater 4F15inals! Match # $+ %nextmatchnumber $+ 15-7 %match1 3V7s. %match2 | Goto There }
if (%tourneyparticipants >= 3) && (%tourneyover != yes) { msg %ChanSet 4S15emi 4F15inals! Match # $+ %nextmatchnumber $+ 15-7 %match1 3V7s. %match2 | Goto There }
if (%tourneyparticipants >= 1) && (%tourneyover != yes) { msg %ChanSet 4F15inals! Match # $+ %nextmatchnumber $+ 15-7 %match1 3V7s. %match2 | Goto There }
:There
unset %currentmatch*
if (%tourneyover != yes) {
set %currentmatch. [ $+ [ $read(TP1.txt,1) ] ] yes
set %currentmatch. [ $+ [ $read(TP1.txt,2) ] ] yes
}
write -dl1 TP1.txt
write -dl1 TP1.txt
writeini $2 $+ .ini $2 Money $calc($readini($2 $+ .ini,$2,Money) + %WinningGil3)
writeini $1 $+ .ini $1 Money $calc($readini($1 $+ .ini,$1,Money) + %WinningGil4)
writeini $1 $+ .ini $1 TExp $calc($readini($1 $+ .ini,$1,TExp) + 1)
writeini $2 $+ .ini $2 TExp $calc($readini($2 $+ .ini,$2,TExp) + 3)
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!
}
}