Shitty Scripting

on 1:text:!baby:#:/msg $chan Congratulations! It's a $read(C:\PRGender.txt) ! And when they grow up, they'll wanna be a $read(C:\PRBase.txt) - $read(C:\PRAdvanced.txt) - $read(C:\PRAdvanced.txt) - $read(C:\PRAdvanced.txt) !
on 1:text:!baby *:#:/msg $chan $nick and $2 have a baby $read(C:\PRGender.txt) and raise it up to be a $read(C:\PRBase.txt) - $read(C:\PRAdvanced.txt) - $read(C:\PRAdvanced.txt) - $read(C:\PRAdvanced.txt) !

on 1:text:!PR:#:/msg $chan Welcome to the PokeRadar! To use the script, type "!PR location", replacing "location" with one of the following : Beach Cave Desert Forest Freshwater Grassland Marsh Mountain Ocean Rainforest Taiga Tundra Urban
on 1:text:!PR Beach:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRBeach.txt)!
on 1:text:!PR Cave:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRCave.txt)!
on 1:text:!PR Desert:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRDesert.txt)!
on 1:text:!PR Forest:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRForest.txt)!
on 1:text:!PR Freshwater:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRFreshwater.txt)!
on 1:text:!PR Grassland:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRGrassland.txt)!
on 1:text:!PR Marsh:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRMarsh.txt)!
on 1:text:!PR Mountain:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRMountain.txt)!
on 1:text:!PR Ocean:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PROcean.txt)!
on 1:text:!PR Rainforest:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRRainforest.txt)!
on 1:text:!PR Taiga:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRTaiga.txt)!
on 1:text:!PR Tundra:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRTundra.txt)!
on 1:text:!PR Urban:#:/msg $chan Pokemon found! It's a $read(C:\Nature.txt) $read(C:\PRUrban.txt)!

on 1:text:!person:#:/msg $chan Your Pokemon has a $read(C:\Nature.txt) nature!
on 1:text:!person *:#:/msg $chan $2 has a $read(C:\Nature.txt) nature!

on 1:text:!POWER:#:/msg $chan $name has unleashed the POWER! It's $read(C:\HPPower.txt) $read(C:\HPType.txt)!
on 1:text:!POWER *:#:/msg $chan Your $2 has unleashed the POWER! It's $read(C:\HPPower.txt) $read(C:\HPType.txt)!

on 1:text:!tick:#:/msg $chan Tick, tock! Tick, tock! $name just used $read(E:\PRTick.txt)!
on 1:text:!tick *:#:/msg $chan Tick, tock! Tick, tock! Your $2 just used $read(E:\PRTick.txt)!
on 1:text:!burst:#:/msg $chan Tick... Tick... Tick... 4,5*.*BOOM*.* $user just used their choice of $read(E:\PRTick.txt), $read(E:\PRTick.txt) and $read(E:\PRTick.txt)!
on 1:text:!burst *:#:/msg $chan Tick... Tick... Tick... 4,5*.*BOOM*.* Your $2 just used their choice of $read(E:\PRTick.txt), $read(E:\PRTick.txt) and $read(E:\PRTick.txt)!

on 1:text:!pick:#:/msg $chan Congratulations on not failing your Pickup Roll! To use the script, type "!pick item", replacing "item" with one of the following (in accord with your roll; the numbers are to the right of each item) : Battle (6-8) ;  Berry (9-10) ; Ball (11-12) ; Healing (13-16) ; Evolution (17) ; Vitamin (18) ; Hold (19) ; TM (20)
on 1:text:!pick Battle:#:/msg $chan $nick has found a $read(E:\PRBattleEnhancer.txt)!
on 1:text:!pick Berry:#:/msg $chan $nick has found a $read(E:\PRBerry.txt)!
on 1:text:!pick Ball:#:/msg $chan $nick has found a $read(E:\PRPokeBall.txt)!
on 1:text:!pick Healing:#:/msg $chan $nick has found a $read(E:\PRHeal.txt)!
on 1:text:!pick Evolution:#:/msg $chan $nick has found a $read(E:\PREvo.txt)!
on 1:text:!pick Vitamin:#:/msg $chan $nick has found a $read(E:\PRVit.txt)!
on 1:text:!pick Hold:#:/msg $chan $nick has found a $read(E:\PRHold.txt)!
on 1:text:!pick TM:#:/msg $chan TM found! To get TMs from 4th Gen Only, type "!pick TM4" ; To get TMs from 5th Gen only, type "!pick TM5" ; To get TMs from both 4th Gen and 5th Gen, type "!pick TMx"
on 1:text:!pick TM4:#:/msg $chan $nick has found a TM $read(E:\TM04.txt)!
on 1:text:!pick TM5:#:/msg $chan $nick has found a TM $read(E:\TM05.txt)!