API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 34.03 KB | None | 0 0
raw download clone embed print report
  1. on *:CONNECT:{
  2. if (!$hget(kos)) {
  3. /hmake kos
  4. }
  5. if (!$hget(deaths)) {
  6. /hmake deaths
  7. }
  8. hload -i kos kos.ini
  9. hload -i deaths deaths.ini
  10. }
  11.  
  12. on *:load:{
  13. if (!$hget(kos)) {
  14. /hmake kos
  15. }
  16. hload -i kos kos.ini
  17. if (!$hget(deaths)) {
  18. /hmake deaths
  19. }
  20. hload -i deaths deaths.ini
  21. }
  22.  
  23. on *:unload:{
  24. if ($isfile(kos.ini)) .remove -b kos.ini
  25. if ($hget(kos)) hfree $v1
  26. if ($isfile(deaths.ini)) .remove -b deaths.ini
  27. if ($hget(deaths)) hfree $v1
  28. }
  29.  
  30. on $*:TEXT:/^[!.]status/Si:#:{
  31. if ( !$2 ) {
  32. if ( $hget(deaths,$nick) == 0 ) {
  33. /notice $nick 14,1 $nick Status:12 HP:9 %hp [ $+ [ $nick ] ] 12 Special:11 %spec [ $+ [ $nick ] ] 12 KOs:4 $hget(kos,$nick) 12 Deaths:15 $hget(deaths,$nick) 12 K/D Ratio:7 $hget(kos,$nick)
  34. }
  35. else {
  36. /notice $nick 14,1 $nick Status:12 HP:9 %hp [ $+ [ $nick ] ] 12 Special:11 %spec [ $+ [ $nick ] ] 12 KOs:4 $hget(kos,$nick) 12 Deaths:15 $hget(deaths,$nick) 12 K/D Ratio:7 $calc($hget(kos,$nick) / $hget(deaths,$nick))
  37. }
  38. }
  39. else {
  40. if ( $hget(deaths,$2) == 0 ) {
  41. /notice $nick 14,1 $2 Status:12 HP:9 %hp [ $+ [ $2 ] ] 12 KOs:4 $hget(kos,$2) 12 Deaths:15 $hget(deaths,$2) 12 K/D Ratio:7 $hget(kos,$2)
  42. }
  43. else {
  44. /notice $nick 14,1 $2 Status:12 HP:9 %hp [ $+ [ $2 ] ] 12 KOs:4 $hget(kos,$2) 12 Deaths:15 $hget(deaths,$2) 12 K/D Ratio:7 $calc($hget(kos,$2) / $hget(deaths,$2))
  45. }
  46. }
  47. }
  48.  
  49. on $*:TEXT:/^[@]status/Si:#:{
  50. if ( !$2 ) {
  51. if ( $hget(deaths,$nick) == 0 ) {
  52. /msg $chan 14,1 $nick Status:12 HP:9 %hp [ $+ [ $nick ] ] 12 Special:11 %spec [ $+ [ $nick ] ] 12 12 KOs:4 $hget(kos,$nick) 12 Deaths:15 $hget(deaths,$nick) 12 K/D Ratio:7 $hget(kos,$nick)
  53. }
  54. else {
  55. /msg $chan 14,1 $nick Status:12 HP:9 %hp [ $+ [ $nick ] ] 12 Special:11 %spec [ $+ [ $nick ] ] 12 12 KOs:4 $hget(kos,$nick) 12 Deaths:15 $hget(deaths,$nick) 12 K/D Ratio:7 $calc($hget(kos,$nick) / $hget(deaths,$nick))
  56. }
  57. }
  58. else {
  59. if ( $hget(deaths,$2) == 0 ) {
  60. /msg $chan 14,1 $2 Status:12 HP:9 %hp [ $+ [ $2 ] ] 12 KOs:4 $hget(kos,$2) 12 Deaths:15 $hget(deaths,$2) 12 K/D Ratio:7 $hget(kos,$2)
  61. }
  62. else {
  63. /msg $chan 14,1 $2 Status:12 HP:9 %hp [ $+ [ $2 ] ] 12 KOs:4 $hget(kos,$2) 12 Deaths:15 $hget(deaths,$2) 12 K/D Ratio:7 $calc($hget(kos,$2) / $hget(deaths,$2))
  64. }
  65. }
  66. }
  67.  
  68. on *:TEXT:*:#:{
  69. if ( $chr(33) isin $1 ) || ( $chr(46) isin $1 ) {
  70. if ( %spam [ $+ [ $nick ] ] ) {
  71. halt
  72. }
  73. else {
  74. set -z %spam [ $+ [ $nick ] ] 3
  75. if ($regex($1,/^[!@.]fight/Si)) {
  76. /notice $nick You have entered the free for all arena.
  77. if ( !%hp [ $+ [ $nick ] ] ) {
  78. set %hp [ $+ [ $nick ] ] 990
  79. }
  80. if ( !%spec [ $+ [ $nick ] ] ) && ( %spec [ $+ [ $nick ] ] != 0 ) {
  81. set %spec [ $+ [ $nick ] ] 100
  82. }
  83. }
  84. if ( $2 ison $chan ) {
  85. if (%wait [ $+ [ $nick ] ]) {
  86. /notice $nick 14,1You must wait12 $duration(%wait [ $+ [ $nick ] ]) 14before making another move.
  87. halt
  88. }
  89. else {
  90. if ($regex($1,/^[!@.]gmaul/Si)) {
  91. if ( %frozen [ $+ [ $nick ] ] ) {
  92. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  93. halt
  94. }
  95. else {
  96. if ( %spec [ $+ [ $nick ] ] >= 100 ) {
  97. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  98. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  99. halt
  100. }
  101. set %spec [ $+ [ $nick ] ] 0
  102. set -z %wait [ $+ [ $nick ] ] 10
  103. var %hit1 $r(1,100)
  104. var %hit2 $r(1,100)
  105. var %hit3 $r(1,100)
  106. var %gmaul1 0
  107. var %gmaul2 0
  108. var %gmaul3 0
  109. if ( %hit1 <= 61 ) {
  110. var %gmaul1 $r(0,430)
  111. }
  112. if ( %hit2 <= 61 ) {
  113. var %gmaul2 $r(0,430)
  114. }
  115. if ( %hit3 <= 61 ) {
  116. var %gmaul3 $r(0,430)
  117. }
  118. if ( %gmaul1 > %hp [ $+ [ $2 ] ] ) {
  119. var %gmaul1 %hp [ $+ [ $2 ] ]
  120. var %gmaul2 0
  121. var %gmaul3 0
  122. msg $chan 12,1 $nick 14crushes12 $2 14with their Granite Maul hitting4 %gmaul1 14-4 %gmaul2 14-4 %gmaul3 4KO
  123. hinc -m kos $nick 1
  124. hinc -m deaths $2 1
  125. set %hp [ $+ [ $2 ] ] 990
  126. set %spec [ $+ [ $2 ] ] 100
  127. unset %wait [ $+ [ $2 ] ]
  128. }
  129. if ( $calc( %gmaul1 + %gmaul2 ) > %hp [ $+ [ $2 ] ] ) {
  130. var %gmaul2 $calc( %hp [ $+ [ $2 ] ] - %gmaul1 )
  131. }
  132. if ( $calc( %gmaul1 + %gmaul2 + %gmaul3 ) > %hp [ $+ [ $2 ] ] ) {
  133. var %gmaul3 $calc( %hp [ $+ [ $2 ] ] - %gmaul1 - %gmaul2 )
  134. }
  135. if ( $calc( %gmaul1 + %gmaul2 + %gmaul3 ) = %hp [ $+ [ $2 ] ] ) {
  136. msg $chan 12,1 $nick 14crushes12 $2 14with their Granite Maul hitting4 %gmaul1 14-4 %gmaul2 14-4 %gmaul3 4KO
  137. hinc -m kos $nick 1
  138. hinc -m deaths $2 1
  139. set %hp [ $+ [ $2 ] ] 990
  140. set %spec [ $+ [ $2 ] ] 100
  141. unset %wait [ $+ [ $2 ] ]
  142. }
  143. else {
  144. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %gmaul1 - %gmaul2 - %gmaul3 )
  145. msg $chan 12,1 $nick 14crushes12 $2 14with their Granite Maul hitting4 %gmaul1 14-4 %gmaul2 14-4 %gmaul3 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  146. }
  147. }
  148. else {
  149. /notice $nick You need atleast 100% Special attack to use this weapon.
  150. }
  151. }
  152. }
  153. elseif ($regex($1,/^[!@.]dclaw/Si)) {
  154. if ( %frozen [ $+ [ $nick ] ] ) {
  155. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  156. halt
  157. }
  158. else {
  159. if ( %spec [ $+ [ $nick ] ] >= 50 ) {
  160. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  161. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  162. halt
  163. }
  164. set %spec [ $+ [ $nick ] ] $calc( [ %spec [ $+ [ $nick ] ] ] - 50 )
  165. var %hit $r(1,100)
  166. set -z %wait [ $+ [ $nick ] ] 4
  167. if ( %hit <= 88 ) {
  168. var %dclaw $r(0,434)
  169. var %dclawtotal $calc( %dclaw * 2.25 )
  170. if ( %dclawtotal >= %hp [ $+ [ $2 ] ] ) {
  171. var %dclawans $calc( %hp [ $+ [ $2 ] ] / 2.25 )
  172. var %dclaw $ceil( %dclawans )
  173. msg $chan 12,1 $nick 14slashes12 $2 14with their Dragon Claws hitting4 %dclaw 14-4 $ceil($calc(%dclaw / 2)) 14-4 $ceil($calc(%dclaw / 2)) 14-4 $ceil($calc(%dclaw / 4)) 4KO
  174. hinc -m kos $nick 1
  175. hinc -m deaths $2 1
  176. set %hp [ $+ [ $2 ] ] 990
  177. set %spec [ $+ [ $2 ] ] 100
  178. unset %wait [ $+ [ $2 ] ]
  179. }
  180. elseif ( %dclawtotal < %hp [ $+ [ $2 ] ] ) {
  181. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %dclaw - $ceil($calc(%dclaw / 2)) - $ceil($calc(%dclaw / 2)) - $ceil($calc(%dclaw / 4)))
  182. msg $chan 12,1 $nick 14slashes12 $2 14with their Dragon Claws hitting4 %dclaw 14-4 $ceil($calc(%dclaw / 2)) 14-4 $ceil($calc(%dclaw / 2)) 14-4 $ceil($calc(%dclaw / 4)) $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  183. }
  184. }
  185. else {
  186. msg $chan 12,1 $nick 14slashes12 $2 14with their Dragon Claws hitting4 0 14-4 1 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  187. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - 1 )
  188. }
  189. }
  190. else {
  191. /notice $nick You need atleast 50% Special attack to use this weapon.
  192. }
  193. }
  194. }
  195. elseif ($regex($1,/^[!@.]dscim/Si)) {
  196. if ( %frozen [ $+ [ $nick ] ] ) {
  197. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  198. halt
  199. }
  200. else {
  201. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  202. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  203. halt
  204. }
  205. set -z %wait [ $+ [ $nick ] ] 4
  206. var %hit $r(1,100)
  207. if ( %hit <= 45 ) {
  208. var %dscim $r(0,470)
  209. if ( %dscim >= %hp [ $+ [ $2 ] ] ) {
  210. var %dscim %hp [ $+ [ $2 ] ]
  211. msg $chan 12,1 $nick 14slashes12 $2 14with their Dragon Scimitar hitting4 %dscim 4KO
  212. hinc -m kos $nick 1
  213. hinc -m deaths $2 1
  214. set %hp [ $+ [ $2 ] ] 990
  215. set %spec [ $+ [ $2 ] ] 100
  216. unset %wait [ $+ [ $2 ] ]
  217. }
  218. elseif ( %dscim < %hp [ $+ [ $2 ] ] ) {
  219. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %dscim )
  220. msg $chan 12,1 $nick 14slashes12 $2 14with their Dragon Scimitar hitting4 %dscim $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  221. }
  222. }
  223. else {
  224. msg $chan 12,1 $nick 14slashes12 $2 14with their Dragon Scimitar hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  225. }
  226. }
  227. }
  228. elseif ($regex($1,/^[!@.]whip/Si)) {
  229. if ( %frozen [ $+ [ $nick ] ] ) {
  230. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  231. halt
  232. }
  233. else {
  234. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  235. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  236. halt
  237. }
  238. set -z %wait [ $+ [ $nick ] ] 4
  239. var %hit $r(1,100)
  240. if ( %hit <= 57 ) {
  241. var %whip $r(0,500)
  242. if ( %whip >= %hp [ $+ [ $2 ] ] ) {
  243. var %whip %hp [ $+ [ $2 ] ]
  244. msg $chan 12,1 $nick 14lashes12 $2 14with their Abyssal Whip hitting4 %whip 4KO
  245. hinc -m kos $nick 1
  246. hinc -m deaths $2 1
  247. set %hp [ $+ [ $2 ] ] 990
  248. set %spec [ $+ [ $2 ] ] 100
  249. unset %wait [ $+ [ $2 ] ]
  250. }
  251. elseif ( %whip < %hp [ $+ [ $2 ] ] ) {
  252. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %whip )
  253. msg $chan 12,1 $nick 14lashes12 $2 14with their Abyssal Whip hitting4 %whip $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  254. }
  255. }
  256. else {
  257. msg $chan 12,1 $nick 14lashes12 $2 14with their Abyssal Whip hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  258. }
  259. }
  260. }
  261. elseif ($regex($1,/^[!@.]cr/Si)) {
  262. if ( %frozen [ $+ [ $nick ] ] ) {
  263. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  264. halt
  265. }
  266. else {
  267. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  268. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  269. halt
  270. }
  271. set -z %wait [ $+ [ $nick ] ] 4
  272. var %hit $r(1,100)
  273. if ( %hit <= 62 ) {
  274. var %cr $r(0,530)
  275. if ( %cr >= %hp [ $+ [ $2 ] ] ) {
  276. var %cr %hp [ $+ [ $2 ] ]
  277. msg $chan 12,1 $nick 14stabs12 $2 14with their Chaotic Rapier hitting4 %cr 4KO
  278. hinc -m kos $nick 1
  279. hinc -m deaths $2 1
  280. set %hp [ $+ [ $2 ] ] 990
  281. set %spec [ $+ [ $2 ] ] 100
  282. unset %wait [ $+ [ $2 ] ]
  283. }
  284. elseif ( %cr < %hp [ $+ [ $2 ] ] ) {
  285. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %cr )
  286. msg $chan 12,1 $nick 14stabs12 $2 14with their Chaotic Rapier hitting4 %cr $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  287. }
  288. }
  289. else {
  290. msg $chan 12,1 $nick 14stabs12 $2 14with their Chaotic Rapier hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  291. }
  292. }
  293. }
  294. elseif ($regex($1,/^[!@.]cls/Si)) {
  295. if ( %frozen [ $+ [ $nick ] ] ) {
  296. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  297. halt
  298. }
  299. else {
  300. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  301. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  302. halt
  303. }
  304. set -z %wait [ $+ [ $nick ] ] 6
  305. var %hit $r(1,100)
  306. if ( %hit <= 83 ) {
  307. var %cls $r(0,635)
  308. if ( %cls >= %hp [ $+ [ $2 ] ] ) {
  309. var %cls %hp [ $+ [ $2 ] ]
  310. msg $chan 12,1 $nick 14slashes12 $2 14with their Chaotic Longsword hitting4 %cls 4KO
  311. hinc -m kos $nick 1
  312. hinc -m deaths $2 1
  313. set %hp [ $+ [ $2 ] ] 990
  314. set %spec [ $+ [ $2 ] ] 100
  315. unset %wait [ $+ [ $2 ] ]
  316. }
  317. elseif ( %cls < %hp [ $+ [ $2 ] ] ) {
  318. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %cls )
  319. msg $chan 12,1 $nick 14slashes12 $2 14with their Chaotic Longsword hitting4 %cls $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  320. }
  321. }
  322. else {
  323. msg $chan 12,1 $nick 14slashes12 $2 14with their Chaotic Longsword hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  324. }
  325. }
  326. }
  327. elseif ($regex($1,/^[!@.]cm/Si)) {
  328. if ( %frozen [ $+ [ $nick ] ] ) {
  329. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  330. halt
  331. }
  332. else {
  333. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  334. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  335. halt
  336. }
  337. set -z %wait [ $+ [ $nick ] ] 8
  338. var %hit $r(1,100)
  339. if ( %hit <= 85 ) {
  340. var %cm $r(0,710)
  341. if ( %cm >= %hp [ $+ [ $2 ] ] ) {
  342. var %cm %hp [ $+ [ $2 ] ]
  343. msg $chan 12,1 $nick 14crushes12 $2 14with their Chaotic Maul hitting4 %cm 4KO
  344. hinc -m kos $nick 1
  345. hinc -m deaths $2 1
  346. set %hp [ $+ [ $2 ] ] 990
  347. set %spec [ $+ [ $2 ] ] 100
  348. unset %wait [ $+ [ $2 ] ]
  349. }
  350. elseif ( %cm < %hp [ $+ [ $2 ] ] ) {
  351. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %cm )
  352. msg $chan 12,1 $nick 14crushes12 $2 14with their Chaotic Maul hitting4 %cm $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  353. }
  354. }
  355. else {
  356. msg $chan 12,1 $nick 14crushes12 $2 14with their Chaotic Maul hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  357. }
  358. }
  359. }
  360. elseif ($regex($1,/^[!@.]ccb/Si)) {
  361. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  362. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  363. halt
  364. }
  365. set -z %wait [ $+ [ $nick ] ] 5
  366. var %hit $r(1,100)
  367. if ( %hit <= 97 ) {
  368. var %firespec $r(0,100)
  369. if ( %firespec == 40 ) {
  370. var %cbow $r(560,780)
  371. if ( %cbow >= %hp [ $+ [ $2 ] ] ) {
  372. var %cbow %hp [ $+ [ $2 ] ]
  373. msg $chan 12,1 $nick 14unleashes a Dragon bolt 4SPECIAL14 on12 $2 14hitting4 %cbow 4KO
  374. hinc -m kos $nick 1
  375. hinc -m deaths $2 1
  376. set %hp [ $+ [ $2 ] ] 990
  377. set %spec [ $+ [ $2 ] ] 100
  378. unset %wait [ $+ [ $2 ] ]
  379. }
  380. elseif ( %cbow < %hp [ $+ [ $2 ] ] ) {
  381. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %cbow )
  382. msg $chan 12,1 $nick 14unleashes a Dragon bolt 4SPECIAL14 on12 $2 14hitting4 %cbow $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  383. }
  384. }
  385. else {
  386. var %cbow $r(0,420)
  387. if ( %cbow >= %hp [ $+ [ $2 ] ] ) {
  388. var %cbow %hp [ $+ [ $2 ] ]
  389. msg $chan 12,1 $nick 14shoots a rune bolt at12 $2 14with their Chaotic Crossbow hitting4 %cbow 4KO
  390. hinc -m kos $nick 1
  391. hinc -m deaths $2 1
  392. set %hp [ $+ [ $2 ] ] 990
  393. set %spec [ $+ [ $2 ] ] 100
  394. unset %wait [ $+ [ $2 ] ]
  395. }
  396. elseif ( %cbow < %hp [ $+ [ $2 ] ] ) {
  397. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %cbow )
  398. msg $chan 12,1 $nick 14shoots a rune bolt at12 $2 14with their Chaotic Crossbow hitting4 %cbow $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  399. }
  400. }
  401. }
  402. else {
  403. msg $chan 12,1 $nick 14shoots a rune bolt at12 $2 14with their Chaotic Crossbow hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  404. }
  405. }
  406. elseif ($regex($1,/^[!@.]dds/Si)) {
  407. if ( %frozen [ $+ [ $nick ] ] ) {
  408. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  409. halt
  410. }
  411. else {
  412. if ( %spec [ $+ [ $nick ] ] >= 25 ) {
  413. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  414. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  415. halt
  416. }
  417. set -z %wait [ $+ [ $nick ] ] 4
  418. set %spec [ $+ [ $nick ] ] $calc( [ %spec [ $+ [ $nick ] ] ] - 25 )
  419. var %dds1 0
  420. var %dds2 0
  421. var %hit1 $r(1,100)
  422. var %hit2 $r(1,100)
  423. if ( %hit1 <= 62 ) {
  424. var %dds1 $r(0,435)
  425. }
  426. if ( %hit2 <= 62 ) {
  427. var %dds2 $r(0,435)
  428. }
  429. if ( %dds1 >= %hp [ $+ [ $2 ] ] ) {
  430. var %dds1 %hp [ $+ [ $2 ] ]
  431. var %dds2 0
  432. msg $chan 12,1 $nick 14swipes12 $2 14with their Dragon Dagger hitting4 %dds1 14-4 %dds2 4KO
  433. hinc -m kos $nick 1
  434. hinc -m deaths $2 1
  435. set %hp [ $+ [ $2 ] ] 990
  436. set %spec [ $+ [ $2 ] ] 100
  437. unset %wait [ $+ [ $2 ] ]
  438. }
  439. elseif ( $calc( %dds1 + %dds2 ) >= %hp [ $+ [ $2 ] ] ) {
  440. var %dds2 $calc( %hp [ $+ [ $2 ] ] - %dds1 )
  441. msg $chan 12,1 $nick 14swipes12 $2 14with their Dragon Dagger hitting4 %dds1 14-4 %dds2 4KO
  442. hinc -m kos $nick 1
  443. hinc -m deaths $2 1
  444. set %hp [ $+ [ $2 ] ] 990
  445. set %spec [ $+ [ $2 ] ] 100
  446. unset %wait [ $+ [ $2 ] ]
  447. }
  448. elseif ( $calc( %dds1 + %dds2 ) < %hp [ $+ [ $2 ] ] ) {
  449. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %dds1 - %dds2 )
  450. msg $chan 12,1 $nick 14swipes12 $2 14with their Dragon Dagger hitting4 %dds1 14-4 %dds2 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  451. }
  452. }
  453. else {
  454. /notice $nick You need atleast 25% Special attack to use this weapon.
  455. }
  456. }
  457. }
  458. elseif ($regex($1,/^[!@.]dbow/Si)) {
  459. if ( %spec [ $+ [ $nick ] ] >= 65 ) {
  460. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  461. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  462. halt
  463. }
  464. set %spec [ $+ [ $nick ] ] $calc( [ %spec [ $+ [ $nick ] ] ] - 65 )
  465. set -z %wait [ $+ [ $nick ] ] 9
  466. var %dbow1 79
  467. var %dbow2 79
  468. var %hit1 $r(1,100)
  469. var %hit2 $r(1,100)
  470. if ( %hit1 <= 75 ) {
  471. var %dbow1 $r(80,525)
  472. }
  473. if ( %hit2 <= 75 ) {
  474. var %dbow2 $r(80,525)
  475. }
  476. if ( %dbow1 > %hp [ $+ [ $2 ] ] ) {
  477. var %dbow1 %hp [ $+ [ $2 ] ]
  478. var %dbow2 0
  479. msg $chan 12,1 $nick 14launches two dragon arrows at12 $2 14with their Dark Bow hitting4 %dbow1 14-4 %dbow2 4KO
  480. hinc -m kos $nick 1
  481. hinc -m deaths $2 1
  482. set %hp [ $+ [ $2 ] ] 990
  483. set %spec [ $+ [ $2 ] ] 100
  484. unset %wait [ $+ [ $2 ] ]
  485. }
  486. elseif ( $calc( %dbow1 + %dbow2 ) >= %hp [ $+ [ $2 ] ] ) {
  487. var %dbow2 $calc( %hp [ $+ [ $2 ] ] - %dbow1 )
  488. msg $chan 12,1 $nick 14launches two dragon arrows at12 $2 14with their Dark Bow hitting4 %dbow1 14-4 %dbow2 4KO
  489. hinc -m kos $nick 1
  490. hinc -m deaths $2 1
  491. set %hp [ $+ [ $2 ] ] 990
  492. set %spec [ $+ [ $2 ] ] 100
  493. unset %wait [ $+ [ $2 ] ]
  494. }
  495. elseif ( $calc( %dbow1 + %dbow2 ) < %hp [ $+ [ $2 ] ] ) {
  496. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %dbow1 - %dbow2 )
  497. msg $chan 12,1 $nick 14launches two dragon arrows at12 $2 14with their Dark Bow hitting4 %dbow1 14-4 %dbow2 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  498. }
  499. }
  500. else {
  501. /notice $nick You need atleast 65% Special attack to use this weapon.
  502. }
  503. }
  504. elseif ($regex($1,/^[!@.]ss/Si)) {
  505. if ( %frozen [ $+ [ $nick ] ] ) {
  506. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  507. halt
  508. }
  509. else {
  510. if ( %spec [ $+ [ $nick ] ] >= 1 ) {
  511. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  512. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  513. halt
  514. }
  515. set %spec [ $+ [ $nick ] ] 100
  516. set -z %wait [ $+ [ $nick ] ] 0
  517. var %ss1 $r(0,160)
  518. var %ss2 $r(0,550)
  519. if ( %ss1 > %hp [ $+ [ $2 ] ] ) {
  520. var %ss1 %hp [ $+ [ $2 ] ]
  521. var %ss2 0
  522. msg $chan 12,1 $nick 14electrifies12 $2 14with their Saradomin Sword hitting4 %ss1 14-4 %ss2 4KO
  523. hinc -m kos $nick 1
  524. hinc -m deaths $2 1
  525. set %hp [ $+ [ $2 ] ] 990
  526. set %spec [ $+ [ $2 ] ] 100
  527. unset %wait [ $+ [ $2 ] ]
  528. }
  529. elseif ( $calc( %ss1 + %ss2 ) >= %hp [ $+ [ $2 ] ] ) {
  530. var %ss2 $calc( %hp [ $+ [ $2 ] ] - %ss1 - %ss2 )
  531. msg $chan 12,1 $nick 14electrifies12 $2 14with their Saradomin Sword hitting4 %ss1 14-4 %ss2 4KO
  532. hinc -m kos $nick 1
  533. hinc -m deaths $2 1
  534. set %hp [ $+ [ $2 ] ] 990
  535. set %spec [ $+ [ $2 ] ] 100
  536. unset %wait [ $+ [ $2 ] ]
  537. }
  538. elseif ( $calc( %ss1 + %ss2 ) < %hp [ $+ [ $2 ] ] ) {
  539. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %ss1 - %ss2 )
  540. msg $chan 12,1 $nick 14electrifies12 $2 14with their Saradomin Sword hitting4 %ss1 14-4 %ss2 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  541. }
  542. }
  543. else {
  544. /notice $nick You need atleast 100% Special attack to use this weapon.
  545. }
  546. }
  547. }
  548. elseif ($regex($1,/^[!@.]ks/Si)) {
  549. if ( %frozen [ $+ [ $nick ] ] ) {
  550. /notice $nick You are frozen, you will be able to move again in $duration( %frozen [ $+ [ $nick ] ])
  551. halt
  552. }
  553. else {
  554. if ( %spec [ $+ [ $nick ] ] >= 60 ) {
  555. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  556. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  557. halt
  558. }
  559. set %spec [ $+ [ $nick ] ] $calc( [ %spec [ $+ [ $nick ] ] ] - 60 )
  560. set -z %wait [ $+ [ $nick ] ] 4
  561. var %ks $r(50,755)
  562. if ( %ks >= %hp [ $+ [ $2 ] ] ) {
  563. var %ks %hp [ $+ [ $2 ] ]
  564. msg $chan 12,1 $nick 14thunders down upon12 $2 14with Korasi's Sword hitting4 %ks 4KO
  565. hinc -m kos $nick 1
  566. hinc -m deaths $2 1
  567. set %hp [ $+ [ $2 ] ] 990
  568. set %spec [ $+ [ $2 ] ] 100
  569. unset %wait [ $+ [ $2 ] ]
  570. }
  571. elseif ( %ks < %hp [ $+ [ $2 ] ] ) {
  572. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %ks )
  573. msg $chan 12,1 $nick 14thunders down upon12 $2 14with Korasi's Sword hitting4 %ks $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  574. }
  575. }
  576. else {
  577. /notice $nick You need atleast 60% Special attack to use this weapon.
  578. }
  579. }
  580. }
  581. elseif ($regex($1,/^[!@.]onyx/Si)) {
  582. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  583. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  584. halt
  585. }
  586. set -z %wait [ $+ [ $nick ] ] 5
  587. var %onyxspec $r(0,100)
  588. var %hit $r(1,100)
  589. if ( %hit <= 73 ) {
  590. if ( %onyxspec <= 30 ) {
  591. var %onyx $r(0,440)
  592. if ( %onyx >= %hp [ $+ [ $2 ] ] ) {
  593. var %onyx %hp [ $+ [ $2 ] ]
  594. var %onyxheal $ceil($calc( %onyx / 2 ))
  595. msg $chan 12,1 $nick 14fires an Onyx bolt at12 $2 14hitting4 %onyx 14and healing9 %onyxheal 4KO
  596. hinc -m kos $nick 1
  597. hinc -m deaths $2 1
  598. set %hp [ $+ [ $2 ] ] 990
  599. set %spec [ $+ [ $2 ] ] 100
  600. unset %wait [ $+ [ $2 ] ]
  601. }
  602. elseif ( %onyx < %hp [ $+ [ $2 ] ] ) {
  603. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %onyx )
  604. var %onyxheal $ceil($calc( %onyx / 2 ))
  605. msg $chan 12,1 $nick 14fires an Onyx bolt at12 $2 14hitting4 %onyx 14and healing9 %onyxheal $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  606. }
  607. if ( $calc( 990 - %hp [ $+ [ $nick ] ] ) >= %onyxheal ) {
  608. set %hp [ $+ [ $nick ] ] $calc( %hp [ $+ [ $nick ] ] + %onyxheal )
  609. }
  610. else {
  611. set %hp [ $+ [ $nick ] ] 990
  612. }
  613. }
  614. else {
  615. var %onyx $r(0,440)
  616. if ( %onyx >= %hp [ $+ [ $2 ] ] ) {
  617. var %onyx %hp [ $+ [ $2 ] ]
  618. msg $chan 12,1 $nick 14fires an Onyx bolt at12 $2 14hitting4 %onyx 4KO
  619. hinc -m kos $nick 1
  620. hinc -m deaths $2 1
  621. set %hp [ $+ [ $2 ] ] 990
  622. set %spec [ $+ [ $2 ] ] 100
  623. unset %wait [ $+ [ $2 ] ]
  624. }
  625. elseif ( %onyx < %hp [ $+ [ $2 ] ] ) {
  626. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %onyx )
  627. msg $chan 12,1 $nick 14fires an Onyx bolt at12 $2 14hitting4 %onyx $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  628. }
  629. }
  630. }
  631. else {
  632. msg $chan 12,1 $nick 14fires an Onyx bolt at12 $2 14hitting4 0 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  633. }
  634. }
  635. elseif ($regex($1,/^[!@.]ice/Si)) {
  636. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  637. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  638. halt
  639. }
  640. set -z %wait [ $+ [ $nick ] ] 5
  641. var %ice $r(0,465)
  642. var %hit $r(1,100)
  643. if ( %ice <= 85 ) {
  644. set -z %frozen [ $+ [ $2 ] ] 30
  645. if ( %ice >= %hp [ $+ [ $2 ] ] ) {
  646. var %ice %hp [ $+ [ $2 ] ]
  647. msg $chan 12,1 $nick 14freezes12 $2 14using an Ice Barrage with the Chaotic Staff hitting4 %ice 4KO
  648. hinc -m kos $nick 1
  649. hinc -m deaths $2 1
  650. set %hp [ $+ [ $2 ] ] 990
  651. set %spec [ $+ [ $2 ] ] 100
  652. unset %wait [ $+ [ $2 ] ]
  653. }
  654. elseif ( %ice < %hp [ $+ [ $2 ] ] ) {
  655. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %ice )
  656. msg $chan 12,1 $nick 14freezes12 $2 14using an Ice Barrage with the Chaotic Staff hitting4 %ice $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  657. }
  658. }
  659. else {
  660. msg $chan 12,1 $nick 14splashes an Ice Barrage with their Chaotic Staff on12 $2 $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  661. }
  662. }
  663. elseif ($regex($1,/^[!@.]blood/Si)) {
  664. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  665. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  666. halt
  667. }
  668. set -z %wait [ $+ [ $nick ] ] 5
  669. var %blood 0
  670. var %hit $r(1,100)
  671. if ( %hit <= 67 ) {
  672. var %blood $r(0,400)
  673. }
  674. if ( %blood >= %hp [ $+ [ $2 ] ] ) {
  675. var %blood %hp [ $+ [ $2 ] ]
  676. var %bloodheal $ceil($calc( %blood / 3 ))
  677. msg $chan 12,1 $nick 14Drains HP12 $2 14with a Blood Barrage hitting4 %blood 14and healing9 %bloodheal $+ 14. 4KO
  678. hinc -m kos $nick 1
  679. hinc -m deaths $2 1
  680. set %hp [ $+ [ $2 ] ] 990
  681. if ( $calc( %hp [ $+ [ $nick ] ] + %bloodheal ) >= 990 ) {
  682. set %hp [ $+ [ $nick ] ] 990
  683. }
  684. else {
  685. set %hp [ $+ [ $nick ] ] $calc( %hp [ $+ [ $nick ] ] + %bloodheal )
  686. }
  687. set %spec [ $+ [ $2 ] ] 100
  688. unset %wait [ $+ [ $2 ] ]
  689. }
  690. elseif ( %blood < %hp [ $+ [ $2 ] ] ) {
  691. var %bloodheal $ceil($calc( %blood / 3 ))
  692. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %blood )
  693. if ( $calc( %hp [ $+ [ $nick ] ] + %bloodheal ) >= 990 ) {
  694. set %hp [ $+ [ $nick ] ] 990
  695. }
  696. else {
  697. set %hp [ $+ [ $nick ] ] $calc( %hp [ $+ [ $nick ] ] + %bloodheal )
  698. }
  699. msg $chan 12,1 $nick 14Drains HP12 $2 14with a Blood Barrage hitting4 %blood 14and healing9 %bloodheal $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  700. }
  701. }
  702. elseif ($regex($1,/^[!@.]zanik/Si)) {
  703. if ( %spec [ $+ [ $nick ] ] >= 50 ) {
  704. if ( !%hp [ $+ [ $2 ] ] ) || ( !%hp [ $+ [ $nick ] ] ) {
  705. /notice $nick Either you or your opponent is not in the arena, type !fight to participate.
  706. halt
  707. }
  708. set %spec [ $+ [ $nick ] ] $calc( [ %spec [ $+ [ $nick ] ] ] - 50 )
  709. set -z %wait [ $+ [ $nick ] ] 4
  710. var %zanik 0
  711. var %hit $r(1,100)
  712. if ( %hit <= 88 ) {
  713. var %zanik $r(230,610)
  714. }
  715. if ( %zanik >= %hp [ $+ [ $2 ] ] ) {
  716. var %zanik %hp [ $+ [ $2 ] ]
  717. msg $chan 12,1 $nick 14fires an electrified bolt at12 $2 14with Zanik's Crossbow hitting4 %zanik 4KO
  718. hinc -m kos $nick 1
  719. hinc -m deaths $2 1
  720. set %hp [ $+ [ $2 ] ] 990
  721. set %spec [ $+ [ $2 ] ] 100
  722. unset %wait [ $+ [ $2 ] ]
  723. }
  724. elseif ( %zanik < %hp [ $+ [ $2 ] ] ) {
  725. set %hp [ $+ [ $2 ] ] $calc( %hp [ $+ [ $2 ] ] - %zanik )
  726. msg $chan 12,1 $nick 14fires an electrified bolt at12 $2 14with Zanik's Crossbow hitting4 %zanik $+ 14.12 $2 14HP9 %hp [ $+ [ $2 ] ]
  727. }
  728. }
  729. else {
  730. /notice $nick You need atleast 50% Special attack to use this weapon.
  731. }
  732. }
  733. }
  734. }
  735. }
  736. }
  737. }
  738.  
  739.  
  740. on *:DISCONNECT:{
  741. unset %wait*
  742. hsave -i kos kos.ini
  743. hsave -i deaths deaths.ini
  744. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!