API tools faq
paste
Guest User

Untitled

a guest
Mar 3rd, 2018
93
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 40.22 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 Magikarp | notice $nick Please choose `listmoves then `basicmove | halt }
  27.  
  28. }
  29. }
  30. on *:TEXT:`Plist*:#THGames:{
  31. notice $nick Please type `pokemon <choice>
  32. notice $nick Pikachu
  33. notice $nick Horsea
  34. notice $nick Abra
  35. notice $nick Bulbasaur
  36. notice $nick Treecko
  37. notice $nick Magikarp
  38. }
  39. on *:TEXT:`Training*:#THGames:{
  40. if ($readini( wars.ini,$nick,reg2 ) = $null) { notice $nick Please choose `listmoves then `basicmove | halt }
  41. if ($readini( wars.ini,$nick,dead ) = yes) {
  42. notice $nick 12You need To Go to The PokeCenter `Pokecenter
  43. halt
  44. }
  45. if ($readini( wars.ini,$nick,trng ) = yes) { halt }
  46. else {
  47. msg # 12 $nick Now Engaged $$readini(wars.ini,$nick,pokemon) in Battle
  48. writeini wars.ini $nick trng yes
  49. mode # +v $nick
  50. }
  51. }
  52.  
  53. on *:TEXT:`listmoves*:#THGames:{
  54. notice $nick Please type `basicmove <choice>
  55. notice $nick EnergyBlast
  56. notice $nick EnergyBeam
  57. notice $nick FireTornado
  58. notice $nick QuickAttack
  59. }
  60. on *:TEXT:`Basicmove*:#THGames:{
  61. if ($readini( wars.ini,$nick,reg2 ) = $null) {
  62. 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 }
  63. 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 }
  64. 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 }
  65. 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 }
  66. 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 }
  67. }
  68. else { notice $nick You Have a Basic Move }
  69. }
  70. on *:TEXT:`money*:#THGames:{
  71. notice $nick Money : $readini(wars.ini,$nick,money)
  72. }
  73. on *:TEXT:`Razorleaf*:#THGames:{
  74. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  75. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  76. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  77. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  78. if ($readini(wars.ini,$nick,trng) = no) { halt }
  79. 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 }
  80. }
  81. on *:TEXT:`ThunderShock*:#THGames:{
  82. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  83. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  84. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  85. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  86. if ($readini(wars.ini,$nick,trng) = no) { halt }
  87. 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 }
  88. }
  89.  
  90. on *:TEXT:`Solarbeam*:#THGames:{
  91. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  92. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  93. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  94. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  95. if ($readini(wars.ini,$nick,trng) = no) { halt }
  96. 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 }
  97. }
  98. on *:TEXT:`WaterGun*:#THGames:{
  99. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  100. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  101. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  102. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  103. if ($readini(wars.ini,$nick,trng) = no) { halt }
  104. 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 }
  105. }
  106. on *:TEXT:`BubbleBeam*:#THGames:{
  107. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  108. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  109. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  110. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  111. if ($readini(wars.ini,$nick,trng) = no) { halt }
  112. 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 }
  113. }
  114. on *:TEXT:`PsychicBlast*:#THGames:{
  115. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  116. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  117. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  118. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  119. if ($readini(wars.ini,$nick,trng) = no) { halt }
  120. 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 }
  121. }
  122.  
  123. on *:TEXT:`Thunder*:#THGames:{
  124. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  125. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  126. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  127. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  128. if ($readini(wars.ini,$nick,trng) = no) { halt }
  129. 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 }
  130. }
  131.  
  132. on *:TEXT:`PsychicWave*:#THGames:{
  133. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  134. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  135. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  136. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  137. if ($readini(wars.ini,$nick,trng) = no) { halt }
  138. 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 }
  139. }
  140. on *:TEXT:`Hydropump*:#THGames:{
  141. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  142. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  143. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  144. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  145. if ($readini(wars.ini,$nick,trng) = no) { halt }
  146. 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 }
  147. }
  148. on *:TEXT:`Vinewhip*:#THGames:{
  149. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  150. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  151. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  152. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  153. if ($readini(wars.ini,$nick,trng) = no) { halt }
  154. 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 }
  155. }
  156. on *:TEXT:`Quickattack*:#THGames:{
  157. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  158. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  159. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  160. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  161. if ($readini(wars.ini,$nick,trng) = no) { halt }
  162. 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 }
  163. }
  164. on *:TEXT:`Firetornado*:#THGames:{
  165. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  166. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  167. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  168. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  169. if ($readini(wars.ini,$nick,trng) = no) { halt }
  170. 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 }
  171. }
  172. on *:TEXT:`EnergyBlast*:#THGames:{
  173. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  174. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  175. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  176. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  177. if ($readini(wars.ini,$nick,trng) = no) { halt }
  178. 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 }
  179. }
  180. on *:TEXT:`EnergyBeam*:#THGames:{
  181. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  182. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  183. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  184. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  185. if ($readini(wars.ini,$nick,trng) = no) { halt }
  186. 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 }
  187. }
  188. on *:TEXT:`WarpBlast*:#THGames:{
  189. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  190. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  191. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  192. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  193. if ($readini(wars.ini,$nick,trng) = no) { halt }
  194. 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 }
  195. }
  196. on *:TEXT:`MegaLaser*:#THGames:{
  197. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  198. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  199. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  200. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  201. if ($readini(wars.ini,$nick,trng) = no) { halt }
  202. 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 }
  203. }
  204. on *:TEXT:`Psychic*:#THGames:{
  205. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  206. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  207. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  208. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  209. if ($readini(wars.ini,$nick,trng) = no) { halt }
  210. 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 }
  211. }
  212. on *:TEXT:`DragonRage*:#THGames:{
  213. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  214. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  215. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  216. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  217. if ($readini(wars.ini,$nick,trng) = no) { halt }
  218. 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 }
  219. }
  220. on *:TEXT:`FireShot*:#THGames:{
  221. if ($readini(wars.ini,$nick,attacking) = yes) { notice $nick You Are attacking | halt }
  222. if ( $2 == $nick ) { notice $nick 4You Can't Attack You Self | halt }
  223. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  224. if ($readini(wars.ini,$2,trng) = $null) { notice $nick 12 $2 Ain't in Training | halt }
  225. if ($readini(wars.ini,$nick,trng) = no) { halt }
  226. 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 }
  227. }
  228.  
  229.  
  230. on *:TEXT:`stats*:#THGames:{
  231. 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 }
  232. if ($2 == Pokemon-Bot) { halt }
  233. 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 }
  234. }
  235. on *:TEXT:`PokeCenter*:#THGames:{
  236. if ($readini( wars.ini,$nick,trng ) = yes) { notice $nick You can only Use This Command When Your Pokemon Gets Pulled Ou of Training | halt }
  237. else {
  238. 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]
  239. timerrepair $+ $nick 1 30 Repair $nick {
  240.  
  241. }
  242. }
  243. }
  244. on *:TEXT:`store*:#THGames:{
  245. notice $nick -=[Pokemon Store]=-
  246. notice $nick ------Items-----
  247. notice $nick <Item> < Price> <Function>
  248. notice $nick 4<0Berry4> <0 1004> < 0Heals To full Health4>
  249. notice $nick 4<0RareCandy4> <0 1004> < Increse Pokemon level4>
  250. notice $nick -------Pokemon------
  251. notice $nick <Mew> &#55818;&#57256;> <Powerful>
  252. notice $nick <Mew2> &#55818;&#57276;> <Powerful>
  253. }
  254. on *:TEXT:`buy*:#THGames:{
  255. if ($2 == Berry) {
  256. if ($readini( wars.ini,$nick,money ) > 99.9 ) {
  257. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 100 )
  258. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
  259. notice $nick You have Bought a Berry
  260. halt
  261. }
  262. }
  263. if ($2 == RareCandy) {
  264. if ($readini( wars.ini,$nick,money ) > 99.9 ) {
  265. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 100 )
  266. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,rarecandy ) + 1 )
  267. notice $nick You have Bought a RareCandy
  268. halt
  269. }
  270. }
  271. if ($2 == Condom) {
  272. if ($readini( wars.ini,$nick,money ) > 999.9 ) {
  273. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )
  274. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,condom ) + 1 )
  275. notice $nick You have Bought a Condom
  276. halt
  277. }
  278. }
  279. if ($2 == Mew) {
  280. if ($readini( wars.ini,$nick,money ) > 999.9 ) {
  281. writeini wars.ini $nick money $calc( $readini( wars.ini,$nick,money ) - 1000 )
  282. writeini wars.ini $nick Berry $calc( $readini( wars.ini,$nick,berry ) + 1 )
  283. writeini wars.ini $nick Hp $calc( $readini( wars.ini,$nick,hp ) * 3 )
  284. writeini wars.ini $nick mHp $calc( $readini( wars.ini,$nick,mhp ) * 3 )
  285. writeini wars.ini $nick Pokemon Mew
  286. writeini wars.ini $nick amove WarpBlast
  287. notice $nick You have Just Bought Mew
  288. halt
  289. }
  290. }
  291.  
  292. if ($2 == Mew2) {
  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 Mew2
  299. writeini wars.ini $nick amove Psychic
  300. notice $nick You have Just Bought Mew2
  301. halt
  302. }
  303. }
  304. }
  305.  
  306.  
  307. on *:TEXT:`berry*:#THGames:{
  308. if ($readini( wars.ini,$nick,berry ) > 0.9 ) {
  309. writeini wars.ini $nick hp $$readini(wars.ini,$nick,mhp)
  310. writeini wars.ini $nick berry $calc( $readini( wars.ini,$nick,berry ) - 1 )
  311. remini wars.ini $nick dead
  312. notice $nick You have Used a Berry
  313. }
  314. else { notice $nick You Have No berry's Left | halt }
  315. }
  316.  
  317. on *:TEXT:`rarecandy*:#THGames:{
  318. if ($readini( wars.ini,$nick,rarecandy ) > 0.9 ) {
  319. writeini wars.ini $nick level $calc( $readini( wars.ini,$nick,level ) + 1 )
  320. writeini wars.ini $nick rarecandy $calc( $readini( wars.ini,$nick,rarecandy ) - 1 )
  321. notice $nick You have Used a RareCandy
  322. }
  323. else { notice $nick You Have No RareCandies's Left | halt }
  324. }
  325.  
  326.  
  327. on *:TEXT:`evolve*:#THGames:{
  328. if ($readini( wars.ini,$nick,level ) > 9.9 ) {
  329. 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 }
  330. 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 }
  331. 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 }
  332. 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 }
  333. 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 }
  334. 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 }
  335. 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 }
  336. 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 }
  337.  
  338. }
  339. }
  340. alias msg { msg $1 4,1{0 $+ $2- $+ 4} }
  341. alias notice { notice $1 4,1{0 $+ $2- $+ 4} }
  342.  
  343. alias dead {
  344. if ($readini( wars.ini,$1,hp ) < 1) {
  345. remini wars.ini $1 trng
  346. writeini wars.ini $1 dead yes
  347. msg %chanset $1 $+ 's $readini(wars.ini,$1,pokemon) Is No Longer In Training BeCauz $1 is Damaged Badly !4 $2 Has Won $100
  348. mode %chanset -v $1
  349. writeini wars.ini $2 money $calc( $readini( wars.ini,$2,money ) + 100 )
  350. timerb off
  351. timerm off
  352. 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 }
  353. 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 }
  354. }
  355. }
  356.  
  357.  
  358.  
  359. alias Razorleaf {
  360. set %attackrl $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  361. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackrl )
  362. 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 !
  363. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  364. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  365. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  366. dead $2 $1
  367. remini wars.ini $1 attacking
  368. unset %attackrl
  369. }
  370. alias Thundershock {
  371. set %attackts $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  372. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackts )
  373. 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 !
  374. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  375. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  376. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  377. dead $2 $1
  378. remini wars.ini $1 attacking
  379. unset %attackts
  380. }
  381. alias Solarbeam {
  382. set %attacksb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  383. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attacksb )
  384. 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 !
  385. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  386. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  387. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  388. dead $2 $1
  389. remini wars.ini $1 attacking
  390. unset %attacksb
  391. }
  392. alias Watergun {
  393. set %attackwg $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  394. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackwg )
  395. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 12Fires His Watergun $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackwg Hp !
  396. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  397. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  398. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  399. dead $2 $1
  400. remini wars.ini $1 attacking
  401. unset %attackwg
  402. }
  403. alias BubbleBeam {
  404. set %attackbb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  405. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackbb )
  406. 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 !!
  407. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  408. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  409. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  410. dead $2 $1
  411. remini wars.ini $1 attacking
  412. unset %attackbb
  413. }
  414. alias PsychicBlast {
  415. set %attackpb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  416. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackpb )
  417. msg %chanset 4 $1 $+ 's 8 $readini(wars.ini,$1,pokemon) 13 Fires His PsychicBlast $2 $+ 's $readini(wars.ini,$2,pokemon) Dealing %attackpb !!
  418. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  419. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  420. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  421. dead $2 $1
  422. remini wars.ini $1 attacking
  423. unset %attackpb
  424. }
  425. alias Thunder {
  426. set %attackt $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  427. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackt )
  428. 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 !
  429. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  430. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  431. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  432. dead $2 $1
  433. remini wars.ini $1 attacking
  434. unset %attackt
  435. }
  436. alias PsychicWave {
  437. set %attackpw $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  438. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackpw )
  439. 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 !
  440. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  441. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  442. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  443. dead $2 $1
  444. remini wars.ini $1 attacking
  445. unset %attackpw
  446. }
  447. alias Hydropump {
  448. set %attackhp $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  449. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackhp )
  450. 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)
  451. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  452. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  453. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  454. dead $2 $1
  455. remini wars.ini $1 attacking
  456. unset %attackhp
  457. }
  458. alias Vinewhip {
  459. set %attackvw $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  460. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackvw) )
  461. 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 !
  462. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  463. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  464. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  465. dead $2 $1
  466. remini wars.ini $1 attacking
  467. unset %attackvw
  468. }
  469. alias Quickattack {
  470. set %attackqa $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  471. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackqa )
  472. 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 !!
  473. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  474. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  475. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  476. dead $2 $1
  477. remini wars.ini $1 attacking
  478. unset %attackqa
  479. }
  480.  
  481. alias firetornado {
  482. set %attackft $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  483. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackft )
  484. 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 !!
  485. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  486. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  487. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  488. dead $2 $1
  489. remini wars.ini $1 attacking
  490. unset %attackft
  491. }
  492. alias EnergyBeam {
  493. set %attackeb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  494. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackeb )
  495. 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 !!
  496. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  497. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  498. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  499. dead $2 $1
  500. remini wars.ini $1 attacking
  501. unset %attackeb
  502. }
  503. alias EnergyBlast {
  504. set %attackebt $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  505. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackbt )
  506. 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 !!
  507. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  508. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  509. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  510. dead $2 $1
  511. remini wars.ini $1 attacking
  512. unset %attackebt
  513. }
  514. alias Warpblast {
  515. set %attackwb $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  516. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackwb )
  517. 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 !!
  518. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  519. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  520. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  521. dead $2 $1
  522. unset %attackwb
  523. remini wars.ini $1 attacking
  524. }
  525. alias MegaLaser {
  526. set %attackml $calc( $readini( wars.ini,$1,hp ) * 0.29 )
  527. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackml )
  528. 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 !!
  529. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  530. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  531. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  532. dead $2 $1
  533. remini wars.ini $1 attacking
  534. unset %attackml
  535. remini wars.ini $1 attacking
  536. }
  537. alias Psychic {
  538. set %attackp $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  539. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackp )
  540. 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 !!
  541. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  542. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  543. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  544. dead $2 $1
  545. remini wars.ini $1 attacking
  546. unset %attackp
  547. }
  548. alias DragonRage {
  549. set %attackdr $calc( $readini( wars.ini,$1,hp ) * 0.19 )
  550. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackdr )
  551. 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 !!
  552. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  553. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  554. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  555. dead $2 $1
  556. remini wars.ini $1 attacking
  557. unset %attackdr
  558. }
  559. alias RocketAttack {
  560. set %nick $nick(%chanset,$rand(1,$nick(%chanset,0,a)),a)
  561. if ($readini(wars.ini,%nick,trng) = $null) { halt }
  562. if (%nick == $me) { halt }
  563. else {
  564. set %attack $rand(9,27)
  565. msg %chanset %nick Watchout Team Rockets Goin to get You !!
  566. writeini wars.ini %nick hp $calc( $readini( wars.ini,%nick,Hp ) - %attack )
  567. timer 1 4 msg %chanset Team Rocket Strikes %nick Dealing %attack
  568. dead %nick
  569. }
  570.  
  571. alias BlastBurn {
  572. set %attackrl $calc( $readini( wars.ini,$1,hp ) * 0.09 )
  573. writeini wars.ini $2 hp $calc( $readini( wars.ini,$2,Hp ) - %attackrl )
  574. 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 !
  575. writeini wars.ini $1 mHp $calc( $readini( wars.ini,$1,mhp ) + 3 )
  576. writeini wars.ini $1 Hp $calc( $readini( wars.ini,$1,hp ) + 3 )
  577. writeini wars.ini $1 Level $calc( $readini( wars.ini,$1,level ) + 0.1 )
  578. dead $2 $1
  579. remini wars.ini $1 attacking
  580. unset %attackrl
  581. }
  582. }
  583. alias Repair {
  584. notice $1 12You healed
  585. writeini wars.ini $1 hp $$readini(wars.ini,$1,mhp)
  586. remini wars.ini $1 dead
  587. }
  588. on *:TEXT:`Gym:#THGames:{
  589. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  590. if ($readini(wars.ini,$nick,stonebadge) = yes) { notice $nick Please Use `gym2 | halt }
  591. if ($readini(wars.ini,$nick,stonebadge) = $null) {
  592. notice $nick WelCome To PewTer Town GyM ... I'm Brock And I'm The GYm Leader So Are You Ready ?? Please type `<attackname> Brock
  593. writeini wars.ini Brock hp 100
  594. remini wars.ini Brock dead
  595. writeini wars.ini Brock trng yes
  596.  
  597. timerb 0 20 thunder brock $nick
  598. }
  599. }
  600. on *:TEXT:`Gym2*:#THGames:{
  601. if ($readini(wars.ini,$nick,trng) = $null) { notice $nick 12 You Ain't in Training | halt }
  602. if ($readini(wars.ini,$nick,stonebadge) = $null) { notice $nick Please Use `gym| halt }
  603. if ($readini(wars.ini,$nick,waterbadge) = yes) { notice $nick You have Won all The Badges | halt }
  604. if ($readini(wars.ini,$nick,stonebadge) = yes) {
  605. notice $nick WelCome To My Gym I'm Misty !! My Pokemon Is Horsea !!
  606. writeini wars.ini Misty hp 100
  607. remini wars.ini Misty dead
  608. writeini wars.ini Misty trng yes
  609. writeini wars.ini Misty pokemon Horsea
  610. timerm 0 20 bubblebeam misty $nick
  611. }
  612. }
  613. on *:TEXT:`Rocket On*:#THGames:{
  614. timerrocket 0 30 rocketattack
  615. msg %chanset Team Rocket Is NoW ActiVated
  616. }
  617. on *:TEXT:`Rocket Off*:#THGames:{
  618. timerrocket off
  619. msg %chanset Team Rocket Is Disabled
  620. notice %nick You Lucky !! next Time we will get u
  621. unset %nick
  622. }
  623. on 10:TEXT:`Chg Victim*:#THGames:{
  624. set %nick $nick($chan,$rand(1,$nick($chan,0,a)),a)
  625. msg %chanset Team Rocket Will Now Attack %nick
  626. }
  627.  
  628. on *:TEXT:`Credits*:#THGames:{
  629. notice $nick --------Head Coders---
  630. notice $nick ----Casper-TH--
  631. notice $nick --------- Ideas -------
  632. notice $nick ----------Pheokachu-------
  633. }
  634. on *:TEXT:`stop training*:#THGames:{
  635. if ($readini(wars.ini,$nick,trng) = yes) {
  636. mode %chanset -v $nick
  637. msg %chanset $nick Pulled $readini( wars.ini,$nick,Pokemon) Out Of Training
  638. }
  639. else { halt }
  640. }
  641. on *:TEXT:`help*:#THGames:{
  642. if ($2 == $null) { notice $nick Please `help and a SubJect [ Training,Register,Store,attacking,Healing,Pokemon,Register,evolve,money ] }
  643. if ($2 == Register) { notice $nick Please Type `start And The Follow The Commands }
  644. if ($2 == Pokemon) { notice $nick Pokemon Stands For Pocket Monsters,You select 1 As Your Partner And Stick With it !! Unless You Buy 1 }
  645. 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 }
  646. 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 ] }
  647. if ($2 == store) { notice $nick To Buy Items or pokemon Type `store }
  648. 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 }
  649. if ($2 == money) { notice $nick Type `money ! money won after kncking oppent out of training }
  650. }
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!