API tools faq
paste
Guest User

Untitled

a guest
Mar 3rd, 2018
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 44.17 KB | None | 0 0
raw download clone embed print report
  1.  
  2. alias start {
  3. writeini wars.ini Users $1 yes
  4. writeini wars.ini $1 hp 110
  5. writeini wars.ini $1 mhp 110
  6. writeini wars.ini $1 Money 100
  7. writeini wars.ini $1 level 1
  8. writeini wars.ini $1 Pokemon none
  9. writeini wars.ini $1 amove none
  10. notice $1 15 Account Created Please Type `Plist For The list Of Pokemon
  11.  
  12. }
  13. on *:TEXT:`start:#THGames:{
  14. if ($readini( wars.ini,users,$nick ) = yes ) { notice $nick 15You have an Account Please Type `listmoves | halt }
  15. else { /start $nick }
  16. }
  17.  
  18. on *:TEXT:`Pokemon*:#THGames:{
  19. if ($readini( wars.ini,$nick,Pokemon ) = none ) {
  20. if ($2 == Pikachu) { writeini wars.ini $nick Pokemon Pikachu | writeini wars.ini $nick Pokemove Thundershock | notice $nick You Have Chosen Pikachu | notice $nick Please choose `listmoves then `basicmove | halt }
  21. if ($2 == Bulbasaur) { writeini wars.ini $nick Pokemon Bulbasaur | writeini wars.ini $nick Pokemove Solarbeam | notice $nick You Have Chosen Bulbasaur | notice $nick Please choose `listmoves then `basicmove | halt }
  22. if ($2 == Treecko) { writeini wars.ini $nick Pokemon Treecko | writeini wars.ini $nick Pokemove RazorLeaf | notice $nick You Have Chosen Treecko | notice $nick Please choose `listmoves then `basicmove | halt }
  23. if ($2 == Horsea) { writeini wars.ini $nick Pokemon Horsea | writeini wars.ini $nick Pokemove BubbleBeam | notice $nick You Have Chosen Horsea | notice $nick Please choose `listmoves then `basicmove | halt }
  24. if ($2 == Abra) { writeini wars.ini $nick Pokemon Abra | writeini wars.ini $nick Pokemove PsychicBlast | notice $nick You Have Chosen Abra | notice $nick Please choose `listmoves then `basicmove | halt }
  25. if ($2 == Magikarp) { writeini wars.ini $nick Pokemon Magikarp | writeini wars.ini $nick Pokemove WaterGun | notice $nick You Have Chosen Magikarp | notice $nick Please choose `listmoves then `basicmove | halt }
  26. if ($2 == Charmander) { writeini wars.ini $nick Pokemon Charmander | writeini wars.ini $nick Pokemove FireShot | notice $nick You Have Chosen Charmander | notice $nick Please choose `listmoves then `basicmove | halt }
  27. if ($2 == Squirtle ) { writeini wars.ini $nick Pokemon Squirtle | writeini wars.ini $nick Pokemove BubbleBeam | notice $nick You Have Chosen Squirtle | notice $nick Please choose `listmoves then `basicmove | halt }
  28. if ($2 == Pidgey ) { writeini wars.ini $nick Pokemon Pidgey | writeini wars.ini $nick Pokemove AirAttack | notice $nick You Have Chosen Pidgey | notice $nick Please choose `listmoves then `basicmove | halt }
  29.  
  30. }
  31. }
  32. on *:TEXT:`Plist*:#THGames:{
  33. notice $nick Please type `pokemon <choice>
  34. notice $nick Pikachu
  35. notice $nick Horsea
  36. notice $nick Abra
  37. notice $nick Bulbasaur
  38. notice $nick Treecko
  39. notice $nick Magikarp
  40. notice $nick Charmander
  41. notice $nick Squirtle
  42. notice $nick Pidgey
  43. }
  44. on *:TEXT:`Training*:#THGames:{
  45. if ($readini( wars.ini,$nick,reg2 ) = $null) { notice $nick Please choose `listmoves then `basicmove | halt }
  46. if ($readini( wars.ini,$nick,dead ) = yes) {
  47. notice $nick 12You need To Go to The PokeCenter `Pokecenter
  48. halt
  49. }
  50. if ($readini( wars.ini,$nick,trng ) = yes) { halt }
  51. else {
  52. msg # 12 $nick Now Engaged $$readini(wars.ini,$nick,pokemon) in Battle
  53. writeini wars.ini $nick trng yes
  54. mode # +v $nick
  55. }
  56. }
  57.  
  58. on *:TEXT:`listmoves*:#THGames:{
  59. notice $nick Please type `basicmove <choice>
  60. notice $nick EnergyBlast
  61. notice $nick EnergyBeam
  62. notice $nick FireTornado
  63. notice $nick QuickAttack
  64. notice $nick FireShot
  65. }
  66. on *:TEXT:`Basicmove*:#THGames:{
  67. if ($readini( wars.ini,$nick,reg2 ) = $null) {
  68. if ($2 == EnergyBlast) { writeini wars.ini $nick bmove EnergyBlast | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
  69. if ($2 == EnergyBeam) { writeini wars.ini $nick bmove EnergyBeam | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
  70. if ($2 == Firetornado) { writeini wars.ini $nick bmove Firetornado | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
  71. if ($2 == QuickAttack) { writeini wars.ini $nick bmove Quickattack | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
  72. if ($2 == FireShot) { writeini wars.ini $nick bmove FireShot | notice $nick Please You Have Created An Account. Your Move is $2 | writeini wars.ini $nick reg2 yes }
  73. }
  74. else { notice $nick You Have a Basic Move }
  75. }
  76. on *:TEXT:`money*:#THGames:{
  77. notice $nick Money : $readini(wars.ini,$nick,money)
  78. }
  79. on *:TEXT:`Razorleaf*:#THGames:{
  80. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  81. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  82. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  83. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  84. if ($readini(wars.ini,$nick,trng) = no) { halt }
  85. if ($readini( wars.ini,$nick,Pokemove ) = Razorleaf) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up a Razor Leaf | timerrl $+ $nick 1 35 razorleaf $nick $2 | writeini wars.ini $nick attacking yes }
  86. }
  87. on *:TEXT:`ThunderShock*:#THGames:{
  88. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  89. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  90. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  91. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  92. if ($readini(wars.ini,$nick,trng) = no) { halt }
  93. if ($readini( wars.ini,$nick,Pokemove ) = Thundershock) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up His Thunder Engery | timerts $+ $nick 1 35 thundershock $nick $2 | writeini wars.ini $nick attacking yes }
  94. }
  95.  
  96. on *:TEXT:`Solarbeam*:#THGames:{
  97. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  98. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  99. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  100. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  101. if ($readini(wars.ini,$nick,trng) = no) { halt }
  102. if ($readini( wars.ini,$nick,Pokemove ) = solarbeam) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up His Solar Energy As His Power Reaches Unmathcable Strength | timersb $+ $nick 1 35 solarbeam $nick $2 | writeini wars.ini $nick attacking yes }
  103. }
  104. on *:TEXT:`WaterGun*:#THGames:{
  105. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  106. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  107. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  108. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  109. if ($readini(wars.ini,$nick,trng) = no) { halt }
  110. if ($readini( wars.ini,$nick,Pokemove ) = watergun) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up | timerwg $+ $nick 1 35 watergun $nick $2 | writeini wars.ini $nick attacking yes }
  111. }
  112. on *:TEXT:`BubbleBeam*:#THGames:{
  113. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  114. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  115. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  116. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  117. if ($readini(wars.ini,$nick,trng) = no) { halt }
  118. if ($readini( wars.ini,$nick,Pokemove ) = bubblebeam) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Draws His Energy From the Water | timerbb $+ $nick 1 35 bubblebeam $nick $2 | writeini wars.ini $nick attacking yes }
  119. }
  120. on *:TEXT:`PsychicBlast*:#THGames:{
  121. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  122. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  123. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  124. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  125. if ($readini(wars.ini,$nick,trng) = no) { halt }
  126. if ($readini( wars.ini,$nick,Pokemove ) = psychicblast) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up His Pyschic Energy To His Maxium Power  | timerwg $+ $nick 1 35 psychicblast $nick $2 | writeini wars.ini $nick attacking yes }
  127. }
  128.  
  129. on *:TEXT:`Thunder*:#THGames:{
  130. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  131. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  132. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  133. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  134. if ($readini(wars.ini,$nick,trng) = no) { halt }
  135. if ($readini( wars.ini,$nick,amove ) = thunder) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 8Powers Up His Thunder  | timert $+ $nick 1 35 thunder $nick $2 | writeini wars.ini $nick attacking yes }
  136. }
  137.  
  138. on *:TEXT:`PsychicWave*:#THGames:{
  139. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  140. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  141. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  142. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  143. if ($readini(wars.ini,$nick,trng) = no) { halt }
  144. if ($readini( wars.ini,$nick,amove ) = psychicwave) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up His Psychic Power  | timerpw $+ $nick 1 35 Psychicwave $nick $2 | writeini wars.ini $nick attacking yes }
  145. }
  146. on *:TEXT:`Hydropump*:#THGames:{
  147. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  148. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  149. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  150. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  151. if ($readini(wars.ini,$nick,trng) = no) { halt }
  152. if ($readini( wars.ini,$nick,amove ) = Hydropump) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up His Energy From The Water  | timerhp $+ $nick 1 35 hydropump $nick $2 | writeini wars.ini $nick attacking yes }
  153. }
  154. on *:TEXT:`Vinewhip*:#THGames:{
  155. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  156. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  157. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  158. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  159. if ($readini(wars.ini,$nick,trng) = no) { halt }
  160. if ($readini( wars.ini,$nick,amove ) = vinewhip) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Up  | timervw $+ $nick 1 35 Vinewhip $nick $2 | writeini wars.ini $nick attacking yes }
  161. }
  162. on *:TEXT:`Quickattack*:#THGames:{
  163. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  164. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  165. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  166. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  167. if ($readini(wars.ini,$nick,trng) = no) { halt }
  168. if ($readini( wars.ini,$nick,bmove ) = quickattack) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a QuickAttack  | timerra $+ $nick 1 20 quickattack $nick $2 | writeini wars.ini $nick attacking yes }
  169. }
  170. on *:TEXT:`Firetornado*:#THGames:{
  171. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  172. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  173. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  174. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  175. if ($readini(wars.ini,$nick,trng) = no) { halt }
  176. if ($readini( wars.ini,$nick,bmove ) = firetornado) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His Fire Energy  | timerft $+ $nick 1 35 firetornado $nick $2 | writeini wars.ini $nick attacking yes }
  177. }
  178. on *:TEXT:`EnergyBlast*:#THGames:{
  179. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  180. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  181. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  182. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  183. if ($readini(wars.ini,$nick,trng) = no) { halt }
  184. if ($readini( wars.ini,$nick,bmove ) = energyblast) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Energy  | timereb $+ $nick 1 35 energyblast $nick $2 | writeini wars.ini $nick attacking yes }
  185. }
  186. on *:TEXT:`EnergyBeam*:#THGames:{
  187. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  188. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  189. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  190. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  191. if ($readini(wars.ini,$nick,trng) = no) { halt }
  192. if ($readini( wars.ini,$nick,bmove ) = energybeam) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Energy  | timereb $+ $nick 1 35 energybeam $nick $2 | writeini wars.ini $nick attacking yes }
  193. }
  194. on *:TEXT:`WarpBlast*:#THGames:{
  195. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  196. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  197. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  198. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  199. if ($readini(wars.ini,$nick,trng) = no) { halt }
  200. if ($readini( wars.ini,$nick,amove ) = warpblast) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Warp Power  | timerwp $+ $nick 3 10 warpblast $nick $2 | writeini wars.ini $nick attacking yes }
  201. }
  202. on *:TEXT:`MegaLaser*:#THGames:{
  203. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  204. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  205. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  206. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  207. if ($readini(wars.ini,$nick,trng) = no) { halt }
  208. if ($readini( wars.ini,$nick,amove ) = megalaser) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13 Powers Ups a His 12,11 Laser  | timerml $+ $nick 1 15 megalaser $nick $2 | writeini wars.ini $nick attacking yes }
  209. }
  210. on *:TEXT:`Psychic*:#THGames:{
  211. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  212. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  213. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  214. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  215. if ($readini(wars.ini,$nick,trng) = no) { halt }
  216. if ($readini( wars.ini,$nick,amove ) = psychic) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13Focuses His Psychic Energy  | timerml $+ $nick 1 25 psychic $nick $2 | writeini wars.ini $nick attacking yes }
  217. }
  218. on *:TEXT:`DragonRage*:#THGames:{
  219. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  220. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  221. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  222. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  223. if ($readini(wars.ini,$nick,trng) = no) { halt }
  224. if ($readini( wars.ini,$nick,amove ) = dragonrage) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon)13Focuses His Rage  | timerml $+ $nick 1 25 dragonrage $nick $2 | writeini wars.ini $nick attacking yes }
  225. }
  226. on *:TEXT:`FireShot*:#THGames:{
  227. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  228. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  229. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  230. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  231. if ($readini(wars.ini,$nick,trng) = no) { halt }
  232. if ($readini( wars.ini,$nick,Pokemove ) = fireshot) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Heats Up a Razor Shot | timerrl $+ $nick 1 35 fireshot $nick $2 | writeini wars.ini $nick attacking yes }
  233. on *:TEXT:`AirAttack*:#THGames:{
  234. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  235. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  236. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  237. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  238. if ($readini(wars.ini,$nick,trng) = no) { halt }
  239. if ($readini( wars.ini,$nick,Pokemove ) = airattack) { msg %chanset $nick $+ 's $readini(wars.ini,$nick,pokemon) Powers Up a Air Attack | timerrl $+ $nick 1 35 airattack $nick $2 | writeini wars.ini $nick attacking yes }
  240. }
  241.  
  242.  
  243. on *:TEXT:`stats*:#THGames:{
  244. if ($2 == $null) { notice $nick 4Hp/mHP 14 $readini( wars.ini,$nick,hp) /14 $readini( wars.ini,$nick,mhp) 4 Level:14 $readini( wars.ini,$nick,level) 4 Pokemon:14 $readini( wars.ini,$nick,pokemon) 4 BasicMove:14 $readini( wars.ini,$nick,pokemove) 4AdvancedMove :14 $readini( wars.ini,$nick,amove) 4BasicMove :14 $readini( wars.ini,$nick,bmove) | halt }
  245. if ($2 == Pokemon-Bot) { halt }
  246. else { notice $nick $2 $+ 's stats 4Hp/mHP 14 $readini( wars.ini,$2,hp) /14 $readini( wars.ini,$2,mhp) 4 Level:14 $readini( wars.ini,$2,level) 4 Pokemon:14 $readini( wars.ini,$2,pokemon) 4 BasicMove:14 $readini( wars.ini,$2,pokemove) 4AdvancedMove :14 $readini( wars.ini,$2,amove) 4BasicMove :14 $readini( wars.ini,$2,bmove) | halt }
  247. }
  248. on *:TEXT:`PokeCenter*:#THGames:{
  249. if ($readini( wars.ini,$nick,trng ) = yes) { notice $nick You can only Use This Command When Your Pokemon Gets Pulled Ou of Training | halt }
  250. else {
  251. notice $nick 4 Welcome To The PokeCenter I am Nurse Joy And I'll Be Taking Care Of Your Pokemon 11[10You'll Be Healed In 30 Seconds11]
  252. timerrepair $+ $nick 1 30 Repair $nick {
  253.  
  254. }
  255. }
  256. }
  257. on *:TEXT:`store*:#THGames:{
  258. notice $nick -=[Pokemon Store]=-
  259. notice $nick ------Items-----
  260. notice $nick <Item> < Price> <Function>
  261. notice $nick 4<0Berry4> <0 1004> < 0Heals To full Health4>
  262. notice $nick 4<0RareCandy4> <0 1004> < Increse Pokemon level4>
  263. notice $nick -------Pokemon------
  264. notice $nick <Mew> &#55818;&#57256;> <Powerful>
  265. notice $nick <Mew2> &#55818;&#57276;> <Powerful>
  266. }
  267. on *:TEXT:`buy*:#THGames:{
  268. if ($2 == Berry) {
  269. if ($readini( wars.ini,$nick,money ) > 99.9 ) {
  270. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 100 )
  271. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
  272. notice $nick You have Bought a Berry
  273. halt
  274. }
  275. }
  276. if ($2 == RareCandy) {
  277. if ($readini( wars.ini,$nick,money ) > 99.9 ) {
  278. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 100 )
  279. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,rarecandy ) + 1 )
  280. notice $nick You have Bought a RareCandy
  281. halt
  282. }
  283. }
  284. if ($2 == Condom) {
  285. if ($readini( wars.ini,$nick,money ) > 999.9 ) {
  286. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )
  287. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,condom ) + 1 )
  288. notice $nick You have Bought a Condom
  289. halt
  290. }
  291. }
  292. if ($2 == Mew) {
  293. if ($readini( wars.ini,$nick,money ) > 999.9 ) {
  294. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )
  295. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
  296. writeini wars.ini $nick Hp $calc( $readini( wars.ini,$nick,hp ) * 3 )
  297. writeini wars.ini $nick mHp $calc( $readini( wars.ini,$nick,mhp ) * 3 )
  298. writeini wars.ini $nick Pokemon Mew
  299. writeini wars.ini $nick amove WarpBlast
  300. notice $nick You have Just Bought Mew
  301. halt
  302. }
  303. }
  304.  
  305. if ($2 == Mew2) {
  306. if ($readini( wars.ini,$nick,money ) > 999.9 ) {
  307. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )
  308. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
  309. writeini wars.ini $nick Hp $calc( $readini( wars.ini,$nick,hp ) * 3 )
  310. writeini wars.ini $nick mHp $calc( $readini( wars.ini,$nick,mhp ) * 3 )
  311. writeini wars.ini $nick Pokemon Mew2
  312. writeini wars.ini $nick amove Psychic
  313. notice $nick You have Just Bought Mew2
  314. halt
  315. }
  316. }
  317. }
  318.  
  319.  
  320. on *:TEXT:`berry*:#THGames:{
  321. if ($readini( wars.ini,$nick,berry ) > 0.9 ) {
  322. writeini wars.ini $nick hp $$readini(wars.ini,$nick,mhp)
  323. writeini wars.ini $nick berry $calc( $readini( wars.ini,$nick,berry ) - 1 )
  324. remini wars.ini $nick dead
  325. notice $nick You have Used a Berry
  326. }
  327. else { notice $nick You Have No berry's Left | halt }
  328. }
  329.  
  330. on *:TEXT:`rarecandy*:#THGames:{
  331. if ($readini( wars.ini,$nick,rarecandy ) > 0.9 ) {
  332. writeini wars.ini $nick level $calc( $readini( wars.ini,$nick,level ) + 1 )
  333. writeini wars.ini $nick rarecandy $calc( $readini( wars.ini,$nick,rarecandy ) - 1 )
  334. notice $nick You have Used a RareCandy
  335. }
  336. else { notice $nick You Have No RareCandies's Left | halt }
  337. }
  338.  
  339.  
  340. on *:TEXT:`evolve*:#THGames:{
  341. if ($readini( wars.ini,$nick,level ) > 9.9 ) {
  342. if ($readini( wars.ini,$nick,Pokemon ) = Pikachu ) { writeini wars.ini $nick Pokemon Raichau | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove Thunder | notice $nick You Are Now Raichau | msg %chanset $nick 's PikaChau Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  343. if ($readini( wars.ini,$nick,Pokemon ) = Abra ) { writeini wars.ini $nick Pokemon Kadabra | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove PsychicWave | notice $nick Your Pokemon is Now Kadabra | msg %chanset $nick 's Abra Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  344. if ($readini( wars.ini,$nick,Pokemon ) = Horsea ) { writeini wars.ini $nick Pokemon Seadra | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove HydroPump | notice $nick Your Pokemon is Now Seadra | msg %chanset $nick 's Horsea Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  345. if ($readini( wars.ini,$nick,Pokemon ) = Bulbasaur ) { writeini wars.ini $nick Pokemon IvySaur | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove VineWhip | notice $nick Your Pokemon is Now IvySaur | msg %chanset $nick 's BulbaSaur Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  346. if ($readini( wars.ini,$nick,Pokemon ) = Mew ) { writeini wars.ini $nick Pokemon Metal-Mew | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove megaLaser | notice $nick Your Pokemon is Now Metal-Mew | msg %chanset $nick 's Mew Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  347. if ($readini( wars.ini,$nick,Pokemon ) = Mew2 ) { writeini wars.ini $nick Pokemon Metal-Mew2 | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove megaLaser | notice $nick Your Pokemon is Now Metal-Mew2 | msg %chanset $nick 's Mew2 Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  348. if ($readini( wars.ini,$nick,Pokemon ) = Magikarp ) { writeini wars.ini $nick Pokemon Gyarados | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove DragonRage | notice $nick Your Pokemon is Now Gyarados | msg %chanset $nick 's MagiKarp Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  349. if ($readini( wars.ini,$nick,Pokemon ) = Charmander ) { writeini wars.ini $nick Pokemon Charizard | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove BlastBurn | notice $nick Your Pokemon is Now Charizard | msg %chanset $nick 's Charmander Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  350. if ($readini( wars.ini,$nick,Pokemon ) = Squirtle ) { writeini wars.ini $nick Pokemon Blastoise | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove BlastBurn | notice $nick Your Pokemon is Now Blastoise | msg %chanset $nick 's Squirtle Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  351. if ($readini( wars.ini,$nick,Pokemon ) = Pidgey ) { writeini wars.ini $nick Pokemon Pidgeotto | writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,mhp ) * 2 ) | writeini wars.ini $nick amove DragonRage | notice $nick Your Pokemon is Now Pidgeotto | msg %chanset $nick 's Pidgey Evoled to $readini(wars.ini,$nick,pokemon) | halt }
  352. }
  353. }
  354. alias msg { msg $1 4,1{0 $+ $2- $+ 4} }
  355. alias notice { notice $1 4,1{0 $+ $2- $+ 4} }
  356.  
  357. alias dead {
  358. if ($readini( wars.ini,$1,hp ) < 1) {
  359. remini wars.ini $1 trng
  360. writeini wars.ini $1 dead yes
  361. msg %chanset $1 $+ 's $readini(wars.ini,$1,pokemon) Is No Longer In Training BeCauz $1 is Damaged Badly !4 $2 Has Won $100
  362. mode %chanset -v $1
  363. writeini wars.ini $2 money $calc( $readini( wars.ini,$2,money ) + 100 )
  364. timerb off
  365. timerm off
  366. if ($readini( wars.ini,Brock,Dead ) = yes ) { writeini wars.ini $2 Stonebadge yes | notice $2 You have Beat Brock And Won the StoneBadge | remini wars.ini Brock Dead | timerb off | halt }
  367. if ($readini( wars.ini,Misty,dead ) = yes ) { writeini wars.ini $2 Waterbadge yes | notice $2 You have Beat Misty And Won the WaterBadge | remini wars.ini Misty dead | timerm off | halt }
  368. }
  369. }
  370.  
  371.  
  372.  
  373. alias Razorleaf {
  374. set %attackrl $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  375. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackrl )
  376. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$nick,pokemon) Does a RazorLeaf To $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackrl Hp !
  377. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  378. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  379. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  380. dead $2 $1
  381. remini wars.ini $1 attacking
  382. unset %attackrl
  383. }
  384. alias Thundershock {
  385. set %attackts $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  386. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackts )
  387. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) Does a Thundershock To $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackts Hp !
  388. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  389. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  390. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  391. dead $2 $1
  392. remini wars.ini $1 attacking
  393. unset %attackts
  394. }
  395. alias Solarbeam {
  396. set %attacksb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  397. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attacksb )
  398. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) Fires a Solar Beam aT $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attacksb !
  399. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  400. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  401. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  402. dead $2 $1
  403. remini wars.ini $1 attacking
  404. unset %attacksb
  405. }
  406. alias Watergun {
  407. set %attackwg $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  408. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackwg )
  409. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 12Fires His Watergun $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackwg Hp !
  410. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  411. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  412. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  413. dead $2 $1
  414. remini wars.ini $1 attacking
  415. unset %attackwg
  416. }
  417. alias BubbleBeam {
  418. set %attackbb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  419. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackbb )
  420. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 11Fires His Bubble Beam $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackbb Hp !!
  421. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  422. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  423. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  424. dead $2 $1
  425. remini wars.ini $1 attacking
  426. unset %attackbb
  427. }
  428. alias PsychicBlast {
  429. set %attackpb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  430. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackpb )
  431. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 Fires His PsychicBlast $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackpb !!
  432. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  433. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  434. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  435. dead $2 $1
  436. remini wars.ini $1 attacking
  437. unset %attackpb
  438. }
  439. alias Thunder {
  440. set %attackt $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  441. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackt )
  442. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 8Fires His Mass Of Thunder Energy 4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackt Hp !
  443. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  444. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  445. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  446. dead $2 $1
  447. remini wars.ini $1 attacking
  448. unset %attackt
  449. }
  450. alias PsychicWave {
  451. set %attackpw $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  452. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackpw )
  453. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 8Fires Psychic Wave Throw The Air Aimed At 4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackpw Hp !
  454. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  455. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  456. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  457. dead $2 $1
  458. remini wars.ini $1 attacking
  459. unset %attackpw
  460. }
  461. alias Hydropump {
  462. set %attackhp $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  463. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackhp )
  464. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 12Fires His HydropPumP At  4 $2 $+ 's $readini(wars.ini,$2,pokemon) !! $readini(wars.ini,$2,pokemon) Now Has $readini(wars.ini,$2,hp)
  465. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  466. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  467. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  468. dead $2 $1
  469. remini wars.ini $1 attacking
  470. unset %attackhp
  471. }
  472. alias Vinewhip {
  473. set %attackvw $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  474. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackvw) )
  475. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Whips  4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackvw Hp !
  476. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  477. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  478. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  479. dead $2 $1
  480. remini wars.ini $1 attacking
  481. unset %attackvw
  482. }
  483. alias Quickattack {
  484. set %attackqa $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  485. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackqa )
  486. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Slashes  4 $2 $+ 's $readini(wars.ini,$2,pokemon) In The Face Dealing %attackqa Hp !!
  487. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  488. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  489. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  490. dead $2 $1
  491. remini wars.ini $1 attacking
  492. unset %attackqa
  493. }
  494.  
  495. alias firetornado {
  496. set %attackft $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  497. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackft )
  498. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Send a Fire Tornado At  4 $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackft Hp !!
  499. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  500. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  501. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  502. dead $2 $1
  503. remini wars.ini $1 attacking
  504. unset %attackft
  505. }
  506. alias EnergyBeam {
  507. set %attackeb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  508. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackeb )
  509. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Blasts  4 $2 $+ 's $readini(wars.ini,$2,pokemon) With a EnergyBeam Dealing %attackeb Hp !!
  510. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  511. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  512. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  513. dead $2 $1
  514. remini wars.ini $1 attacking
  515. unset %attackeb
  516. }
  517. alias EnergyBlast {
  518. set %attackebt $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  519. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackbt )
  520. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Blasts  4 $2 $+ 's $readini(wars.ini,$2,pokemon) With a EnergyBlast Dealing %attackebt Hp !!
  521. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  522. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  523. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  524. dead $2 $1
  525. remini wars.ini $1 attacking
  526. unset %attackebt
  527. }
  528. alias Warpblast {
  529. set %attackwb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  530. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackwb )
  531. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Warps Infront Of  4 $2 $+ 's $readini(wars.ini,$2,pokemon) Blasting Him With a EnergyBlast Dealing %attackwb Hp !!
  532. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  533. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  534. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  535. dead $2 $1
  536. unset %attackwb
  537. remini wars.ini $1 attacking
  538. }
  539. alias MegaLaser {
  540. set %attackml $calc( $readini( wars.ini,$1,hp ) * 0.29 )
  541. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackml )
  542. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Fires a MegaLaser  At 4 $2 $+ 's $readini(wars.ini,$2,pokemon) Until He Falls To The Floor Dealing %attackml Hp !!
  543. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  544. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  545. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  546. dead $2 $1
  547. remini wars.ini $1 attacking
  548. unset %attackml
  549. remini wars.ini $1 attacking
  550. }
  551. alias Psychic {
  552. set %attackp $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  553. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackp )
  554. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 SEnds His Psychic Energy In a Blast Form To Fire At $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackp Hp !!
  555. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  556. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  557. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  558. dead $2 $1
  559. remini wars.ini $1 attacking
  560. unset %attackp
  561. }
  562. alias DragonRage {
  563. set %attackdr $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  564. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackdr )
  565. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Fires a Massive Fire Dragon At $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackdr Hp !!
  566. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  567. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  568. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  569. dead $2 $1
  570. remini wars.ini $1 attacking
  571. unset %attackdr
  572. }
  573. alias FireShot {
  574. set %attackdr $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  575. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackdr )
  576. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Fires a Massive Fire Shot At $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackdr Hp !!
  577. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  578. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  579. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  580. dead $2 $1
  581. remini wars.ini $1 attacking
  582. unset %attackdr
  583. }
  584. alias AirAttack {
  585. set %attackdr $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  586. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackdr )
  587. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 9 Aims a Air Attack At $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackdr Hp !!
  588. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  589. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  590. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  591. dead $2 $1
  592. remini wars.ini $1 attacking
  593. unset %attackdr
  594. }
  595. alias RocketAttack {
  596. set %nick $nick(%chanset,$rand(1,$nick(%chanset,0,a)),a)
  597. if ($readini(wars.ini,%nick,trng) = $null) { halt }
  598. if (%nick == $me) { halt }
  599. else {
  600. set %attack $rand(9,27)
  601. msg %chanset %nick Watchout Team Rockets Goin to get You !!
  602. writeini wars.ini %nick hp $calc( $readini( wars.ini,%nick,Hp ) - %attack )
  603. timer 1 4 msg %chanset Team Rocket Strikes %nick Dealing %attack
  604. dead %nick
  605. }
  606.  
  607. alias BlastBurn {
  608. set %attackrl $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  609. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackrl )
  610. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$nick,pokemon) Does a BlastBurn To $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackrl Hp !
  611. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  612. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  613. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  614. dead $2 $1
  615. remini wars.ini $1 attacking
  616. unset %attackrl
  617. }
  618. }
  619. alias Repair {
  620. notice $1 12You healed
  621. writeini wars.ini $1 hp $$readini(wars.ini,$1,mhp)
  622. remini wars.ini $1 dead
  623. }
  624. on *:TEXT:`Gym:#THGames:{
  625. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  626. if ($readini(wars.ini,$nick,stonebadge) = yes) { notice $nick Please Use `gym2 | halt }
  627. if ($readini(wars.ini,$nick,stonebadge) = $null) {
  628. notice $nick WelCome To PewTer Town GyM ... I'm Brock And I'm The GYm Leader So Are You Ready ?? Please type `<attackname> Brock
  629. writeini wars.ini Brock hp 100
  630. remini wars.ini Brock dead
  631. writeini wars.ini Brock trng yes
  632.  
  633. timerb 0 20 thunder brock $nick
  634. }
  635. }
  636. on *:TEXT:`Gym2*:#THGames:{
  637. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  638. if ($readini(wars.ini,$nick,stonebadge) = $null) { notice $nick Please Use `gym| halt }
  639. if ($readini(wars.ini,$nick,waterbadge) = yes) { notice $nick You have Won all The Badges | halt }
  640. if ($readini(wars.ini,$nick,stonebadge) = yes) {
  641. notice $nick WelCome To My Gym I'm Misty !! My Pokemon Is Horsea !!
  642. writeini wars.ini Misty hp 100
  643. remini wars.ini Misty dead
  644. writeini wars.ini Misty trng yes
  645. writeini wars.ini Misty pokemon Horsea
  646. timerm 0 20 bubblebeam misty $nick
  647. }
  648. }
  649. on *:TEXT:`Rocket On*:#THGames:{
  650. timerrocket 0 30 rocketattack
  651. msg %chanset Team Rocket Is NoW ActiVated
  652. }
  653. on *:TEXT:`Rocket Off*:#THGames:{
  654. timerrocket off
  655. msg %chanset Team Rocket Is Disabled
  656. notice %nick You Lucky !! next Time we will get u
  657. unset %nick
  658. }
  659. on 10:TEXT:`Chg Victim*:#THGames:{
  660. set %nick $nick($chan,$rand(1,$nick($chan,0,a)),a)
  661. msg %chanset Team Rocket Will Now Attack %nick
  662. }
  663.  
  664. on *:TEXT:`Credits*:#THGames:{
  665. notice $nick --------Head Coders---
  666. notice $nick ----Casper-TH--
  667. notice $nick --------- Ideas -------
  668. notice $nick ----------Pheokachu-------
  669. }
  670. on *:TEXT:`stop training*:#THGames:{
  671. if ($readini(wars.ini,$nick,trng) = yes) {
  672. mode %chanset -v $nick
  673. msg %chanset $nick Pulled $readini( wars.ini,$nick,Pokemon) Out Of Training
  674. }
  675. else { halt }
  676. }
  677. on *:TEXT:`help*:#THGames:{
  678. if ($2 == $null) { notice $nick Please `help and a SubJect [ Training,Register,Store,attacking,Healing,Pokemon,Register,evolve,money ] }
  679. if ($2 == Register) { notice $nick Please Type `start And The Follow The Commands }
  680. if ($2 == Pokemon) { notice $nick Pokemon Stands For Pocket Monsters,You select 1 As Your Partner And Stick With it !! Unless You Buy 1 }
  681. if ($2 == training) { notice $nick Please Type `training To Start Training an `stop training To Stop Training And If Its Says You Have To Go To The PokeCenter Please Type `pokecenter }
  682. if ($2 == Healing) { notice $nick To Heal Your Self If You Are Out of Training Type `pokecenter or type `berry [ if you don;t have any berrys type `buy berry ] }
  683. if ($2 == store) { notice $nick To Buy Items or pokemon Type `store }
  684. if ($2 == evolve) { notice $nick You Can Only Use This Command Is Your Pokemon is At Level 10 or Higher ! To Evolve Just simply Type `evolve }
  685. if ($2 == money) { notice $nick Type `money ! money won after kncking oppent out of training }
  686. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!