API tools faq
paste
nefthon

Untitled

nefthon
Jan 15th, 2014
157
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 26.70 KB | None | 0 0
raw download clone embed print report
  1. [FUNCTION F_SET_PENTAGRAM_COLOR]
  2. FORITEMS 3
  3. IF (<BASEID> == i_pentagram)
  4. COLOR=<ARGN1>
  5. ENDIF
  6. ENDFOR
  7.  
  8. [FUNCTION RANDOMDOUBLE]
  9. IF (<ARGN1>)
  10. LOCAL.VAL=<EVAL <ARGN1>*1000000>
  11. ELSE
  12. LOCAL.VAL=1000000
  13. ENDIF
  14. FLOAT.RANDOM=<FLOATVAL <R<dLOCAL.VAL>>/1000000>
  15. RETURN <FLOAT.RANDOM>
  16.  
  17. [FUNCTION RANDOMMONSTERGROUP]
  18. TAG.RANDOM=1
  19. DORAND 7
  20. TAG.MONSTERGROUP=Abyss
  21. TAG.MONSTERGROUP=ColdBlood
  22. TAG.MONSTERGROUP=ForestLord
  23. TAG.MONSTERGROUP=UnholyTerror
  24. TAG.MONSTERGROUP=VerminHord
  25. TAG.MONSTERGROUP=Arachnid
  26. TAG.MONSTERGROUP=SleepingDragon
  27. ENDDO
  28.  
  29. [FUNCTION F_REMOVEALLMINIONS]
  30. while (!(<ISEMPTY <LIST.ChampionIdol_<UID>>>))
  31. REF1=<LIST.ChampionIdol_<UID>.0>
  32. REF1.Remove
  33. endwhile
  34. LIST.ChampionIdol_<UID>.Clear
  35.  
  36. [FUNCTION QUANTOSMONSTROS]
  37. LOCAL.LESSMONSTERS=<EVAL <TAG0.NOTYET>*2>
  38. IF (<LOCAL.LESSMONSTERS> > 6)
  39. LOCAL.LESSMONSTERS=6
  40. ENDIF
  41. IF (<MOREX> <= 4)
  42. RETURN 64
  43. ELIF (<MOREX> <= 9)
  44. RETURN 32
  45. ELIF (<MOREX> <= 13)
  46. RETURN 16
  47. ELSE
  48. RETURN <EVAL 8-<LOCAL.LESSMONSTERS>>
  49. ENDIF
  50.  
  51. [FUNCTION F_MONSTERLEVEL]
  52. IF (<MOREX> <= 4)
  53. RETURN 1
  54. ELIF (<MOREX> <= 9)
  55. RETURN 2
  56. ELIF (<MOREX> <= 13)
  57. RETURN 3
  58. ELSE
  59. RETURN 4
  60. ENDIF
  61.  
  62. [FUNCTION F_CHAMPION_UPONELEVEL]
  63. IF (!(<ISEMPTY <LIST.ChampionIdol_<UID>>>))
  64. FOR 0 <EVAL <LIST.ChampionIdol_<UID>.COUNT>-1>
  65. REF1=<LIST.ChampionIdol_<UID>.<dLOCAL._FOR>>
  66. IF ((!<REF1.MEMORYFINDTYPE.memory_fight>) && (<REF1.TAG0.Champion.Level> == <ARGN1>) && (<REF1> != <ARGN2>))
  67. IF (<FLOATVAL 0.65> > <RANDOMDOUBLE>)
  68. REF1.Remove
  69. LOCAL.MoreMonsters ++
  70. ENDIF
  71. ENDIF
  72. ENDFOR
  73. ENDIF
  74. IF (<LOCAL.MOREMONSTERS> == 0)
  75. LOCAL.MoreMonsters=1
  76. ENDIF
  77. RETURN <dLOCAL.MoreMonsters>
  78.  
  79. [FUNCTION F_CHAMPIONSKULL_NAME]
  80. IF (STRMATCH(*Semidar*,<NAME>))
  81. RETURN Pain
  82. ELIF (STRMATCH(*Barracoon*,<NAME>))
  83. RETURN Greed
  84. ELIF (STRMATCH(*Lord Oaks*,<NAME>))
  85. RETURN Enlightenment
  86. ELIF (STRMATCH(*Mephitis*,<NAME>))
  87. RETURN Venom
  88. ELIF (STRMATCH(*Rikktor*,<NAME>))
  89. RETURN Power
  90. ELIF (STRMATCH(*Neira*,<NAME>))
  91. RETURN Death
  92. ENDIF
  93. RETURN That is bugged OMFGLOL
  94.  
  95. [FUNCTION CANDLEP]
  96. DOSWITCH <EVAL <ARGN1>-1>
  97. BEGIN
  98. MOVE NW
  99. MOVE NW
  100. END
  101. BEGIN
  102. MOVE N
  103. MOVE N
  104. MOVE W
  105. END
  106. BEGIN
  107. MOVE N
  108. MOVE N
  109. END
  110. BEGIN
  111. MOVE N
  112. MOVE N
  113. MOVE E
  114. END
  115. BEGIN
  116. MOVE E
  117. MOVE E
  118. MOVE N
  119. MOVE N
  120. END
  121. BEGIN
  122. MOVE E
  123. MOVE E
  124. MOVE N
  125. END
  126. BEGIN
  127. MOVE E
  128. MOVE E
  129. END
  130. BEGIN
  131. MOVE E
  132. MOVE E
  133. MOVE S
  134. END
  135. BEGIN
  136. MOVE E
  137. MOVE E
  138. MOVE S
  139. MOVE S
  140. END
  141. BEGIN
  142. MOVE S
  143. MOVE S
  144. MOVE E
  145. END
  146. BEGIN
  147. MOVE S
  148. MOVE S
  149. END
  150. BEGIN
  151. MOVE S
  152. MOVE S
  153. MOVE W
  154. END
  155. BEGIN
  156. MOVE S
  157. MOVE S
  158. MOVE W
  159. MOVE W
  160. END
  161. BEGIN
  162. MOVE S
  163. MOVE W
  164. MOVE W
  165. END
  166. BEGIN
  167. MOVE W
  168. MOVE W
  169. END
  170. BEGIN
  171. MOVE N
  172. MOVE W
  173. MOVE W
  174. END
  175. ENDDO
  176. FIX
  177. NUDGEUP 1
  178.  
  179. [FUNCTION WHITESKULLLOC]
  180. DOSWITCH <EVAL <ARGN1>-1>
  181. BEGIN
  182. MOVE S
  183. MOVE W
  184. END
  185. BEGIN
  186. MOVE S
  187. MOVE E
  188. END
  189. BEGIN
  190. MOVE N
  191. MOVE W
  192. END
  193. BEGIN
  194. MOVE N
  195. MOVE E
  196. END
  197. ENDDO
  198. FIX
  199.  
  200. [FUNCTION REMOVEWHITECANDLES]
  201. FOR <TAG0.WHITESKULLS>
  202. TRY UID.<TAG0.WHITESKULLS.<dLOCAL._FOR>>.REMOVE
  203. TAG.WHITESKULLS
  204. TRY TAG.WHITESKULLS.<dLOCAL._FOR>
  205. ENDFOR
  206.  
  207. //////////////////////////////
  208.  
  209. [ITEMDEF i_champion_idol]
  210. ID=01f18
  211. TYPE=T_NORMAL
  212. NAME=Champion Idol
  213.  
  214. ON=@Create
  215. ATTR |= <DEF.ATTR_MOVE_NEVER>
  216.  
  217. ON=@Dclick
  218. IF (<SRC.ISGM>)
  219. SDIALOG D_CUSTOM_CHAMP
  220. RETURN 1
  221. ENDIF
  222.  
  223. ON=@Destroy
  224. TRIGGER @UpdateMinionList
  225.  
  226. ON=@UpdateMinionList
  227. F_REMOVEALLMINIONS
  228.  
  229. ON=@Timer
  230. IF (<TAG0.IDLE>)
  231. TAG.IDLE=
  232. F_SET_PENTAGRAM_COLOR 03a5
  233. TAG.VALORTIMES=
  234. TIMER=<EVAL 60*60*<R4,6>>
  235. IF (<MAP> == 2) || (<MAP> == 3)
  236. TIMER=<EVAL 60*10>
  237. ENDIF
  238. ELIF (!(<TAG0.ACTIVE>)) && (!(<TAG0.IDLE>))
  239. SERV.LOG @ChampSYS Spawn activating (<TAG.MONSTERGROUP> / <REGION.NAME> (<P>)).
  240. LIST.ChampionIdol_<UID>.CLEAR
  241. REGION.FLAGS &= ~<DEF.region_flag_nodecay>
  242. REGION.FLAGS &= ~<DEF.region_antimagic_teleport>
  243. REGION.FLAGS |= <HVAL <DEF.region_flag_announce>|<DEF.region_antimagic_recall_in>|<DEF.region_antimagic_recall_out>|<DEF.region_antimagic_gate>>
  244. IF (<TAG0.RANDOM>)
  245. DORAND 7
  246. TAG.MONSTERGROUP=Abyss
  247. TAG.MONSTERGROUP=ColdBlood
  248. TAG.MONSTERGROUP=ForestLord
  249. TAG.MONSTERGROUP=UnholyTerror
  250. TAG.MONSTERGROUP=VerminHord
  251. TAG.MONSTERGROUP=Arachnid
  252. TAG.MONSTERGROUP=SleepingDragon
  253. ENDDO
  254. ENDIF
  255. IF (<TAG0.MAXSPAWNS>)
  256. LOCAL.MONSTERSTOSPAWN=<TAG0.MAXSPAWNS>
  257. ELSE
  258. LOCAL.MONSTERSTOSPAWN=<DEF.scp.Champions_TotalMonsters>
  259. ENDIF
  260. FOR <LOCAL.MONSTERSTOSPAWN>
  261. SERV.NEWNPC <HVAL <DEF.champ_<TAG0.MONSTERGROUP>_1>>
  262. NEW.REMOVEFROMVIEW
  263. NEW.FLAGS |= <DEF.STATF_INVISIBLE>
  264. NEW.TAG.CHAMPION.LEVEL=1
  265. NEW.P=<P>
  266. NEW.MOVE <HVAL {-<TAG0.RANGE> <TAG0.RANGE>}> <HVAL {-<TAG0.RANGE> <TAG0.RANGE>}>
  267. //IF (<MAP> == 2)
  268. //NEW.F_CREATE_PARAGON 1
  269. //ENDIF
  270. NEW.FIX
  271. WHILE (<NEW.ISSTUCK>) || (<NEW.ISNEARTYPE T_WATER>) || (<NEW.P.TERRAIN> == 0244) || (<NEW.ISNEARTYPE T_WALL>)
  272. NEW.P=<P>
  273. NEW.MOVE <HVAL {-<TAG0.RANGE> <TAG0.RANGE>}> <HVAL {-<TAG0.RANGE> <TAG0.RANGE>}>
  274. NEW.FIX
  275. ENDWHILE
  276. NEW.HOME=<NEW.P>
  277. NEW.HOMEDIST=6
  278. NEW.FLAGS &= ~<DEF.STATF_INVISIBLE>
  279. NEW.UPDATE
  280. NEW.TAG.CHAMPIONIDOL=<UID>
  281. LIST.ChampionIdol_<UID>.ADD <NEW>
  282. NEW.EVENTS +E_CHAMPION_MINION
  283. ENDFOR
  284. MORE1=0
  285. MOREX=1
  286. TAG.CANDLES=
  287. SERV.NEWITEM i_skull_candle
  288. NEW.TAG.ALWAYSSEND=1
  289. NEW.COLOR=33
  290. NEW.TIMER -1
  291. NEW.ATTR=ATTR_MOVE_NEVER
  292. TAG0.CANDLES ++
  293. TRY TAG0.CANDLE.<dTAG0.CANDLES>=<NEW>
  294. NEW.P=<P>
  295. NEW.CANDLEP=<TAG0.CANDLES>
  296. TAG.ACTIVE=1
  297. TIMER=-1
  298. F_SET_PENTAGRAM_COLOR 0
  299. TAG.VALORTIMES=1
  300. ELIF (<FLOATVAL <MORE1>> >= <FLOATVAL (<QUANTOSMONSTROS>*20)/100>)
  301. REMOVEWHITECANDLES
  302. MORE1=0
  303. TIMER=<DEF.scp.Champions_LevelMinutes>
  304. ELIF (<FLOATVAL <MORE1>> < <FLOATVAL (<QUANTOSMONSTROS>*20)/100>)
  305. REMOVEWHITECANDLES
  306. MORE1=0
  307. IF (<MOREX> != 1)
  308. UID.<TAG0.CANDLE.<dTAG0.CANDLES>>.REMOVE
  309. TAG.CANDLE.<dTAG0.CANDLES>
  310. TAG0.CANDLES --
  311. MOREX --
  312. TIMER=<DEF.scp.Champions_LevelMinutes>
  313. REGION.LIGHT=<EVAL <MOREX>+1>
  314. ELSE
  315. REGION.LIGHT=1
  316. TAG.VALORTIMES=1
  317. TIMER=-1
  318. ENDIF
  319. ENDIF
  320. TAG.NOTYET
  321. RETURN 1
  322.  
  323. [EVENTS E_CHAMPION_MINION]
  324. ON=@Destroy
  325. LOCAL.Idol=<TAG0.ChampionIdol>
  326. IF (!(<ISEMPTY <LIST.ChampionIdol_<LOCAL.Idol>>>))
  327. LOCAL.Index=<LIST.ChampionIdol_<LOCAL.Idol>.FindElem <UID>>
  328. IF (<LOCAL.Index> != -1)
  329. LIST.ChampionIdol_<LOCAL.Idol>.<dLOCAL.Index>.Remove
  330. ENDIF
  331. ENDIF
  332.  
  333. ON=@DeathCorpse
  334. LOCAL.OLDNEW=<NEW>
  335. ARGO.TIMER=60
  336. REF1=<TAG0.CHAMPIONIDOL>
  337. IF (<REF1.TAG0.ACTIVE>) && (!(<REF1.TAG0.CHAMPIONUP>))
  338. IF (<REF1.MORE1> == 0) && (<REF1.MOREX> == 1)
  339. REF1.TIMER=<DEF.scp.Champions_LevelMinutes>
  340. REF1.TIMERF <DEF.CHAMPIONCOMPLETETIME>,F_CHAMPION_TIMEOUT_RESET
  341. ENDIF
  342. IF (<TAG0.CHAMPION.LEVEL> >= <REF1.F_MONSTERLEVEL>)
  343. REF1.MORE1 ++
  344. IF (<REF1.MORE1> >= <REF1.QUANTOSMONSTROS>)
  345. REF1.TIMER=<DEF.scp.Champions_LevelMinutes>
  346. ENDIF
  347. IF ((<REF1.MORE1> >= <REF1.QUANTOSMONSTROS>) && (<REF1.MOREX> != 16))
  348. REF1.MORE1=0
  349. REF1.MOREX ++
  350. REF1.REGION.LIGHT=<EVAL <REF1.MOREX>+1>
  351. REF1.REGION.FLAGS &= ~<DEF.region_flag_nodecay>
  352. REF1.REGION.FLAGS &= ~<DEF.region_antimagic_teleport>
  353. REF1.REGION.FLAGS |= <HVAL <DEF.region_flag_announce>|<DEF.region_antimagic_recall_in>|<DEF.region_antimagic_recall_out>|<DEF.region_antimagic_gate>>
  354. SERV.NEWITEM i_skull_candle
  355. NEW.TAG.ALWAYSSEND=1
  356. NEW.COLOR=33
  357. NEW.TIMER -1
  358. NEW.ATTR=ATTR_MOVE_NEVER
  359. REF1.TAG0.CANDLES ++
  360. REF1.TAG0.CANDLE.<dREF1.TAG0.CANDLES>=<NEW>
  361. NEW.P=<REF1.P>
  362. NEW.CANDLEP=<REF1.TAG0.CANDLES>
  363. REF1.REMOVEWHITECANDLES
  364. IF (<REF1.F_MONSTERLEVEL> > <TAG0.CHAMPION.LEVEL>)
  365. LOCAL.MONSTERS=<REF1.F_CHAMPION_UPONELEVEL <TAG0.CHAMPION.LEVEL> <UID>>
  366. LOCAL.LEVELUP=1
  367. ENDIF
  368. ELIF (<REF1.MORE1> == <REF1.QUANTOSMONSTROS>) && (<FLOATVAL 0.75> > <RANDOMDOUBLE>) && (<REF1.MOREX> == 16)
  369. SERV.NEWNPC <DEF.champ_<REF1.TAG0.MONSTERGROUP>_champion>
  370. NEW.TAG.CHAMPIONIDOL=<REF1.UID>
  371. NEW.EVENTS +e_champion
  372. NEW.P=<REF1.P>
  373. NEW.HOME=<REF1.P>
  374. NEW.HOMEDIST=15
  375. NEW.UPDATE
  376. REF1.TIMERF CLEAR
  377. REF1.REGION.LIGHT=20
  378. REF1.F_SET_PENTAGRAM_COLOR 33
  379. FOR <REF1.TAG0.CANDLES>
  380. UID.<REF1.TAG0.CANDLE.<dLOCAL._FOR>>.REMOVE
  381. TRY REF1.TAG.CANDLE.<dLOCAL._FOR>
  382. REF1.TAG0.CANDLES --
  383. ENDFOR
  384. REF1.TAG.CANDLES
  385. REF1.TAG.NOTYET
  386. REF1.REMOVEWHITECANDLES
  387. REF1.TAG.CHAMPIONUP=1
  388. REF1.TIMER=-1
  389. ELIF (<REF1.MOREX> == 16) && (<REF1.MORE1> == <REF1.QUANTOSMONSTROS>)
  390. REF1.REMOVEWHITECANDLES
  391. REF1.TAG0.NOTYET ++
  392. REF1.MORE1=0
  393. ELSE
  394. IF (<REF1.MORE1> == <EVAL (<REF1.QUANTOSMONSTROS>*20)/100>) || (<REF1.MORE1> == <EVAL (<REF1.QUANTOSMONSTROS>*40)/100>) || (<REF1.MORE1> == <EVAL (<REF1.QUANTOSMONSTROS>*60)/100>) || (<REF1.MORE1> == <EVAL (<REF1.QUANTOSMONSTROS>*80)/100>)
  395. SERV.NEWITEM i_skull_candle
  396. NEW.TAG.ALWAYSSEND=1
  397. NEW.TIMER -1
  398. NEW.P=<REF1.P>
  399. NEW.ATTR=ATTR_MOVE_NEVER
  400. REF1.TAG0.WHITESKULLS ++
  401. TRY REF1.TAG.WHITESKULLS.<dREF1.TAG0.WHITESKULLS>=<NEW>
  402. NEW.WHITESKULLLOC <REF1.TAG0.WHITESKULLS>
  403. NEW.EFFECT 2,03728,3,20
  404. NEW.SOUND 029
  405. ENDIF
  406. ENDIF
  407. ENDIF
  408. // IF (<ATTACKER>)
  409. // REF25=<ATTACKER.MAX>
  410. IF (<combate.attackers>)
  411. REF25=<combate.target>
  412. IF (<FLOATVAL 0.001> > <RANDOMDOUBLE>) && ((<MAP> == 0) || (<MAP> == 1))
  413. LOCAL.OLDNEW=<NEW>
  414. SERV.NEWITEM I_POWER_SCROLL
  415. NEW.MORE2=50
  416. NEW.name=<NEW.POWERSCROLLNAME> Power Scroll of <SERV.SKILL.<NEW.MORE1>.NAME> (105 Skill)
  417. REF25.TRIGGER @ReceivePowerScroll
  418. REF25.BOUNCE <NEW>
  419. REF25.sysmessage @,,2 1049524
  420. NEW=<LOCAL.OLDNEW>
  421. ENDIF
  422. IF (<FLOATVAL 0.001> > <RANDOMDOUBLE>)
  423. LOCAL.OLDNEW=<NEW>
  424. SERV.NEWITEM I_SCROLL_TRANSCENDENCE
  425. REF25.TRIGGER @ReceiveTranscendenceScroll
  426. REF25.BOUNCE <NEW>
  427. NEW=<LOCAL.OLDNEW>
  428. ENDIF
  429. ENDIF
  430. IF (<REF1.F_MONSTERLEVEL> == 2) && (<TAG0.CHAMPION.LEVEL> == 1)
  431. LOCAL.NOTFROMTHISLEVEL=1
  432. ELIF (<REF1.F_MONSTERLEVEL> == 3) && ((<TAG0.CHAMPION.LEVEL> == 1) || (<TAG0.CHAMPION.LEVEL> == 2))
  433. LOCAL.NOTFROMTHISLEVEL=1
  434. ELIF (<REF1.F_MONSTERLEVEL> == 4) && ((<TAG0.CHAMPION.LEVEL> == 1) || (<TAG0.CHAMPION.LEVEL> == 2) || (<TAG0.CHAMPION.LEVEL> == 3))
  435. LOCAL.NOTFROMTHISLEVEL=1
  436. ENDIF
  437. LOCAL.Monsters ++
  438. FOR <dLOCAL.Monsters>
  439. IF (<LOCAL.LEVELUP>) || (<LOCAL.NOTFROMTHISLEVEL>)
  440. SERV.NEWNPC <DEF.champ_<REF1.TAG0.MONSTERGROUP>_<REF1.F_MonsterLevel>>
  441. ELSE
  442. SERV.NEWNPC <BASEID>
  443. ENDIF
  444. NEW.REMOVEFROMVIEW
  445. NEW.FLAGS |= <DEF.STATF_INVISIBLE>
  446. NEW.TAG.CHAMPION.LEVEL=<REF1.F_MONSTERLEVEL>
  447. NEW.P=<REF1.P>
  448. NEW.MOVE <HVAL {-<REF1.TAG0.RANGE> <REF1.TAG0.RANGE>}> <HVAL {-<REF1.TAG0.RANGE> <REF1.TAG0.RANGE>}>
  449. // IF (<REF1.MAP> == 2)
  450. // NEW.F_CREATE_PARAGON 1
  451. // ENDIF
  452. NEW.FIX
  453. WHILE (<NEW.ISSTUCK>) || (<NEW.ISNEARTYPE T_WATER>) || (<NEW.P.TERRAIN> == 0244) || (<NEW.ISNEARTYPE T_WALL>)
  454. NEW.P=<REF1.P>
  455. NEW.MOVE <HVAL {-<REF1.TAG0.RANGE> <REF1.TAG0.RANGE>}> <HVAL {-<REF1.TAG0.RANGE> <REF1.TAG0.RANGE>}>
  456. NEW.FIX
  457. ENDWHILE
  458. NEW.HOME=<NEW.P>
  459. NEW.HOMEDIST=6
  460. NEW.FLAGS &= ~<DEF.STATF_INVISIBLE>
  461. NEW.UPDATE
  462. NEW.TAG.CHAMPIONIDOL=<REF1.UID>
  463. LIST.ChampionIdol_<REF1.UID>.ADD <NEW>
  464. NEW.EVENTS +E_CHAMPION_MINION
  465. ENDFOR
  466. ENDIF
  467. NEW=<LOCAL.OLDNEW>
  468.  
  469. [EVENTS e_champion]
  470. ON=@DEATHCORPSE
  471. FOR 6
  472. serv.newitem=i_fire_column
  473. new.p=<p>
  474. new.move <R5>,<R5>
  475. new.attr=attr_move_never|attr_decay
  476. new.timer=20
  477. ENDFOR
  478. serv.newitem=i_gold_champion
  479. new.p=<p>
  480. new.timer=1
  481.  
  482. ON=@Death
  483. REF1=<TAG0.CHAMPIONIDOL>
  484. REF1.TAG.CHAMPIONUP=
  485. REF1.TIMERF CLEAR
  486. REF1.REGION.LIGHT=1
  487. REF1.REGION.FLAGS &= ~<HVAL <DEF.region_antimagic_teleport>|<DEF.region_antimagic_recall_out>|<DEF.region_antimagic_gate>|<DEF.region_flag_nodecay>>
  488. LIST.ChampionPowerScroll.ADD=0
  489. LIST.ReceivedPowerScroll.ADD=0
  490. IF (<ATTACKER>)
  491. FOR 0 <EVAL <ATTACKER>-1>
  492. IF (<ATTACKER.<dLOCAL._FOR>.DAM>)
  493. REF2=<ATTACKER.<dLOCAL._FOR>>
  494. IF (<REF2.FLAGS>&STATF_PET)
  495. REF2=<REF2.OWNER>
  496. ENDIF
  497. IF (<LIST.ChampionPowerScroll.FINDELEM <REF2>> == -1) && (<REF2.ISPLAYER>)
  498. LIST.ChampionPowerScroll.ADD=<REF2>
  499. ENDIF
  500. ENDIF
  501. ENDFOR
  502. IF (<LIST.ChampionPowerScroll.COUNT> > 1)
  503. LIST.ChampionPowerScroll.0.REMOVE
  504. LOCAL.TOTALPOWERSCROLLSTOBEGIVEN=<LIST.ChampionPowerScroll.COUNT>
  505. IF (<LOCAL.TOTALPOWERSCROLLSTOBEGIVEN> > 6)
  506. LOCAL.TOTALPOWERSCROLLSTOBEGIVEN=6
  507. ENDIF
  508. WHILE (<EVAL <LIST.ReceivedPowerScroll.COUNT>-1> < <LOCAL.TOTALPOWERSCROLLSTOBEGIVEN>)
  509. REF2=<LIST.ChampionPowerScroll.<R<LIST.ChampionPowerScroll.COUNT>>>
  510. IF (<LIST.ReceivedPowerScroll.FINDELEM <REF2>> == -1)
  511. IF (<MAP> == 0)
  512. LOCAL.OLDNEW=<NEW>
  513. SERV.NEWITEM=i_power_scroll
  514. IF (!(<REF2.FLAGS>&STATF_DEAD))
  515. REF2.BOUNCE <NEW>
  516. ELSE
  517. NEW.P=<REF2.P>
  518. NEW.UPDATE
  519. ENDIF
  520. NEW=<LOCAL.OLDNEW>
  521. REF2.TRIGGER @ReceivePowerScroll
  522. REF2.sysmessage @,,2 1049524
  523. ENDIF
  524. IF ((<FLOATVAL 0.35> > <RANDOMDOUBLE>) && (!(<LOCAL.GAVEREWARD>)))
  525. LOCAL.OLDNEW=<NEW>
  526. SERV.NEWITEM <DEF.champ_<REF1.TAG0.MONSTERGROUP>_REWARD>
  527. REF2.BOUNCE <NEW>
  528. LOCAL.GAVEREWARD=1
  529. NEW=<LOCAL.OLDNEW>
  530. ENDIF
  531. IF (<BASEID> != c_meraktus)
  532. TRY REF2.TAG0.CHAMPION.<BASEID>=<EVAL <REF2.TAG0.CHAMPION.<BASEID>>+1>
  533. IF (!(<REF2.FINDID.i_champion_title_<BASEID>>))
  534. SERV.NEWITEM=i_champion_title_<BASEID>,1,<REF2.UID>
  535. NEW.TIMER=<EVAL 60*60*24*3>
  536. ELIF (<REF2.FINDID.i_champion_title_<BASEID>>)
  537. TRY REF2.FINDID.i_champion_title_<BASEID>.TIMER=<EVAL 60*60*24*3>
  538. ENDIF
  539. ENDIF
  540. LIST.ReceivedPowerScroll.ADD <REF2.UID>
  541. ENDIF
  542. ENDWHILE
  543. ENDIF
  544. IF ((<MAP> == 0) || (<MAP> == 1)) && (<TAG0.CHAMPIONSKULL.COLOR>)
  545. REF3=<ATTACKER.MAX>
  546. SERV.NEWITEM i_champion_skull
  547. NEW.NAME=Skull of <F_CHAMPIONSKULL_NAME>
  548. NEW.COLOR=<TAG0.CHAMPIONSKULL.COLOR>
  549. REF3.BOUNCE <NEW>
  550. ENDIF
  551. ENDIF
  552. LIST.ChampionPowerScroll.CLEAR
  553. LIST.ReceivedPowerScroll.CLEAR
  554. IF (<REF1.UID>)
  555. REF1.TAG.ACTIVE
  556. REF1.MORE1=0
  557. REF1.MOREX=0
  558. REF1.TIMER <EVAL 60*20>
  559. IF !(<MAP>)
  560. SERV.NEWITEM i_moongate_blue
  561. NEW.TAG.ALWAYSSEND=1
  562. NEW.P=<REF1.P>
  563. NEW.MOREP=5146,1759
  564. NEW.COLOR=038b
  565. NEW.TIMER 60*10
  566. NEW.ATTR=ATTR_MOVE_NEVER|ATTR_DECAY|ATTR_CAN_DECAY
  567. NEW.FIX
  568. ENDIF
  569. REF1.TAG.IDLE=1
  570. REF1.Trigger @UpdateMinionList
  571. REF1.F_SET_PENTAGRAM_COLOR 55
  572. ENDIF
  573.  
  574. ///////////////////////////
  575. /////////Gold Champion////
  576.  
  577. [itemdef i_gold_champion]
  578. NAME=champion gold
  579. ID=i_worldgem_bit
  580. TYPE=t_script
  581.  
  582. ON=@create
  583. color=084d
  584. attr=attr_invis|attr_move_never|attr_decay
  585.  
  586. on=@timer
  587. if (!(<tag0.zombie.uid>))
  588. serv.newnpc=c_zombie
  589. new.removefromview
  590. new.name=gold spawn checker
  591. new.npc=brain_human
  592. new.flags=<DEF.statf_invisible>|<DEF.statf_insubstantial>|<DEF.statf_stone>
  593. new.karma=10000
  594. tag.zombie.uid=<new.uid>
  595. endif
  596. REF1=<tag0.zombie.uid>
  597. serv.newitem=i_gold
  598. new.amount=<R1000,2500>
  599. new.attr |= <DEF.attr_invis>
  600. new.p=<p>
  601. new.attr=attr_decay|attr_can_decay
  602. new.timer=100
  603. new.move <r10>,<r10>
  604. new.fix
  605. REF1.FLAGS=<DEF.statf_invisible>|<DEF.statf_insubstantial>|<DEF.statf_stone>
  606. REF1.p=<new.p>
  607. REF1.fix
  608. WHILE (<REF1.ISSTUCK>) && (<LOCAL._WHILE> < 400) //try 400 times to find a good spot
  609. new.p=<p>
  610. new.move <r10>,<r10>
  611. new.fix
  612. REF1.FLAGS=<DEF.statf_invisible>|<DEF.statf_insubstantial>
  613. REF1.p=<new.p>
  614. REF1.fix
  615. ENDWHILE
  616. new.attr &= ~<DEF.attr_invis>
  617. tag0.goldamount += <new.amount>
  618. IF (<tag0.goldamount> >= <def.champion_goldprize>)
  619. REF1.REMOVE
  620. REMOVE
  621. ELSE
  622. timerd 5
  623. ENDIF
  624. return 1
  625.  
  626. ////////////////////////
  627.  
  628. [ITEMDEF i_champion_skull]
  629. ID=i_bone_skull
  630. NAME=Champion Skull
  631. TAG.NOVENDOR=1
  632.  
  633. ON=@Create
  634. ATTR=ATTR_CURSED
  635. COLOR=03a0
  636.  
  637. //////////////////////////
  638. [ITEMDEF i_champion_spawn]
  639. NAME=Champion Spawn
  640. ID=i_stairs_stone
  641. TYPE=t_multi
  642. CATEGORY=Addon
  643. SUBSECTION=Champs
  644. DESCRIPTION=Champion Spawn
  645. MULTIREGION=-42,-42,42,42
  646. COMPONENT=i_stairs_stone 1 0 0 0
  647. COMPONENT=i_stairs_stone -1 0 0 0
  648. COMPONENT=i_stairs_stone 0 1 0 0
  649. COMPONENT=i_stairs_stone 1 1 0 0
  650. COMPONENT=i_stairs_stone -1 1 0 0
  651. COMPONENT=i_stairs_stone 0 -1 0 0
  652. COMPONENT=i_stairs_stone 1 -1 0 0
  653. COMPONENT=i_stairs_stone -1 -1 0 0
  654. COMPONENT=03ef 0 2 0 0
  655. COMPONENT=03ef -1 2 0 0
  656. COMPONENT=03ef 1 2 0 0
  657. COMPONENT=03f8 2 2 0 0
  658. COMPONENT=03f6 -2 2 0 0
  659. COMPONENT=03f2 -2 1 0 0
  660. COMPONENT=03f2 -2 0 0 0
  661. COMPONENT=03f2 -2 -1 0 0
  662. COMPONENT=03f3 -2 -2 0 0
  663. COMPONENT=03f1 -1 -2 0 0
  664. COMPONENT=03f1 0 -2 0 0
  665. COMPONENT=03f1 1 -2 0 0
  666. COMPONENT=03f5 2 -2 0 0
  667. COMPONENT=03f0 2 -1 0 0
  668. COMPONENT=03f0 2 0 0 0
  669. COMPONENT=03f0 2 1 0 0
  670. COMPONENT=0fea 0 0 5 0
  671. COMPONENT=0fee 1 0 5 0
  672. COMPONENT=i_pentagram -1 0 5 0
  673. COMPONENT=0fec 0 1 5 0
  674. COMPONENT=0fed 1 1 5 0
  675. COMPONENT=0fe9 -1 1 5 0
  676. COMPONENT=0fe8 0 -1 5 0
  677. COMPONENT=0feb 1 -1 5 0
  678. COMPONENT=0fe7 -1 -1 5 0
  679.  
  680. ON=@Create
  681. ATTR=ATTR_MOVE_NEVER
  682. TIMER -1
  683.  
  684. ///////////////////////////
  685.  
  686. [DIALOG d_CUSTOM_CHAMP]
  687. 220,150
  688. PAGE 1
  689. resizepic 20 20 5054 280 240
  690. resizepic 30 30 5120 260 220
  691. checkertrans 30 30 260 220
  692. dtext 110 30 33 Champion Spawn
  693. dtext 40 60 88 MonsterGroup:
  694. dtext 130 60 55 <TAG0.MONSTERGROUP>
  695. button 260 65 015e1 015e5 0 2 0
  696. dtext 40 120 88 SpawnRange:
  697. dtextentry 130 120 100 20 55 1 <dTAG0.RANGE>
  698. button 260 125 015e1 015e5 1 0 12
  699. dtext 40 140 88 MaxSpawns:
  700. dtextentry 130 140 100 20 55 2 <QVAL <TAG0.MAXSPAWNS> ? <dTAG0.MAXSPAWNS>:<dDEF.scp.Champions_TotalMonsters>>
  701. button 260 145 015e1 015e5 1 0 13
  702. dtext 40 180 88 Active:
  703. dtext 130 180 55 <QVAL <TAG0.ACTIVE> ? Yes:No>
  704. button 260 185 015e1 015e5 1 0 14
  705.  
  706. PAGE 2
  707. resizepic 20 20 5054 280 320
  708. resizepic 30 30 5120 260 300
  709. checkertrans 30 30 260 300
  710. dtext 110 30 33 Champion Spawn
  711. dtext 60 60 55 Abyss
  712. dtext 60 80 55 VerminHorde
  713. dtext 60 100 55 UnholyTerror
  714. dtext 60 120 55 Arachnid
  715. dtext 60 140 55 ForestLord
  716. dtext 60 160 55 ColdBlood
  717. dtext 60 180 55 SleepingDragon
  718. dtext 60 200 55 Pestilence
  719. dtext 60 220 55 Minotaur
  720. dtext 60 240 55 TwistedGlade
  721. dtext 60 260 0ad Random
  722. FOR 0 10
  723. button 260 <EVAL (<LOCAL._FOR>*20)+65> 015e1 015e5 1 0 <EVAL <LOCAL._FOR>+1>
  724. ENDFOR
  725.  
  726. [DIALOG d_CUSTOM_CHAMP BUTTON]
  727. ON=1 11
  728. TAG.RANDOM=
  729. IF (<ARGN> == 1)
  730. TAG.MONSTERGROUP=Abyss
  731. ELIF (<ARGN> == 2)
  732. TAG.MONSTERGROUP=VerminHord
  733. ELIF (<ARGN> == 3)
  734. TAG.MONSTERGROUP=UnholyTerror
  735. ELIF (<ARGN> == 4)
  736. TAG.MONSTERGROUP=Arachnid
  737. ELIF (<ARGN> == 5)
  738. TAG.MONSTERGROUP=ForestLord
  739. ELIF (<ARGN> == 6)
  740. TAG.MONSTERGROUP=ColdBlood
  741. ELIF (<ARGN> == 7)
  742. TAG.MONSTERGROUP=SleepingDragon
  743. ELIF (<ARGN> == 8)
  744. TAG.MONSTERGROUP=Pestilence
  745. ELIF (<ARGN> == 9)
  746. TAG.MONSTERGROUP=Minotaur
  747. ELIF (<ARGN> == 10)
  748. TAG.MONSTERGROUP=TwistedGlade
  749. ELIF (<ARGN> == 11)
  750. TAG.RANDOM=1
  751. RANDOMMONSTERGROUP
  752. ENDIF
  753. UPDATE
  754. SDIALOG d_CUSTOM_CHAMP
  755.  
  756. ON=12
  757. TAG.RANGE=<ARGTXT[1]>
  758. SDIALOG d_CUSTOM_CHAMP
  759. UPDATE
  760.  
  761. ON=13
  762. TAG.MAXSPAWNS=<ARGTXT[2]>
  763. SDIALOG d_CUSTOM_CHAMP
  764.  
  765. ON=14
  766. TAG.RANGE=<ARGTXT[1]>
  767. IF !(<TAG0.ACTIVE>)
  768. TIMER
  769. ELSE
  770. F_CHAMPION_TIMEOUT_RESET
  771. TIMERF CLEAR
  772. TIMER=-1
  773. ENDIF
  774.  
  775. [FUNCTION F_CHAMPION_TIMEOUT_RESET]
  776. MORE1=0
  777. MOREX=0
  778. REMOVEWHITECANDLES
  779. IF (<TAG0.CANDLES>)
  780. FOR <TAG0.CANDLES>
  781. TRY UID.<TAG0.CANDLE.<dLOCAL._FOR>>.REMOVE
  782. TRY TAG.CANDLE.<dLOCAL._FOR>
  783. TAG0.CANDLES --
  784. ENDFOR
  785. ENDIF
  786. F_REMOVEALLMINIONS
  787. F_SET_PENTAGRAM_COLOR 03a5
  788. TAG.ACTIVE=
  789. TAG.IDLE=
  790. TAG.VALORTIMES=
  791. TAG.CHAMPIONUP=
  792. TAG.CHAMPIONUP=
  793. TIMER=<EVAL 60*5>
  794.  
  795. ///////////////////////
  796. [FUNCTION SETSPAWNCOLOR]
  797. FORITEMS 4
  798. IF (<BASEID> == i_stairs_stone)
  799. COLOR=1106
  800. ENDIF
  801. ENDFOR
  802.  
  803. [PLEVEL 4]
  804. GENERATECHAMPS
  805. CREATEALTAR
  806.  
  807. [FUNCTION GENERATECHAMPS]
  808. IF !(<VAR0.CHAMPSJAGERADOS>)
  809. FOR 20
  810. SERV.NEWITEM i_champion_spawn
  811. DOSWITCH <EVAL <LOCAL._FOR>-1>
  812. NEW.P=382,328,-51,2
  813. NEW.P=446,914,-83,2
  814. NEW.P=1659,1117,-5,2
  815. NEW.P=5179,718
  816. NEW.P=5558,824,45
  817. NEW.P=5252,819,11
  818. NEW.P=5814,1351,-21
  819. NEW.P=5181,1595,-15
  820. NEW.P=<def.champ_AbyssalInfernal_p>
  821. NEW.P=5511, 2360,24
  822. NEW.P=6038, 2400,30
  823. NEW.P=5549, 2640
  824. NEW.P=5636, 2916,18
  825. NEW.P=6035, 2943,32
  826. NEW.P=5265, 3171,87
  827. NEW.P=5286,3369,32
  828. NEW.P=5954, 3475,8
  829. NEW.P=5207, 3637
  830. NEW.P=5559, 3757
  831. NEW.P=5982, 3882
  832. NEW.P=5724, 3991,19
  833. ENDDO
  834. LOCAL.ALTAR=<NEW>
  835. NEW.MULTICREATE
  836. NEW.SETSPAWNCOLOR
  837. SERV.NEWITEM i_champion_idol
  838. NEW.P=<UID.<LOCAL.ALTAR>.P>
  839. DOSWITCH <EVAL <LOCAL._FOR>-1>
  840. BEGIN
  841. NEW.RANDOMMONSTERGROUP
  842. NEW.TAG.RANGE=60
  843. END
  844. BEGIN
  845. NEW.RANDOMMONSTERGROUP
  846. NEW.TAG.RANGE=60
  847. END
  848. BEGIN
  849. NEW.TAG.MONSTERGROUP=ForestLord
  850. NEW.TAG.RANGE=60
  851. END
  852. BEGIN
  853. NEW.TAG.MONSTERGROUP=UnholyTerror
  854. NEW.TAG.RANGE=60
  855. END
  856. BEGIN
  857. NEW.TAG.MONSTERGROUP=VerminHord
  858. NEW.TAG.RANGE=60
  859. END
  860. BEGIN
  861. NEW.TAG.MONSTERGROUP=ColdBlood
  862. NEW.TAG.RANGE=60
  863. END
  864. BEGIN
  865. NEW.TAG.MONSTERGROUP=Abyss
  866. NEW.TAG.RANGE=60
  867. END
  868. BEGIN
  869. NEW.TAG.MONSTERGROUP=Arachnid
  870. NEW.TAG.RANGE=60
  871. END
  872. BEGIN
  873. NEW.TAG.MonsterGroup=AbyssalInfernal
  874. NEW.TAG.RANGE=60
  875. END
  876. BEGIN
  877. NEW.RANDOMMONSTERGROUP
  878. NEW.TAG.RANGE=60
  879. END
  880. BEGIN
  881. NEW.RANDOMMONSTERGROUP
  882. NEW.TAG.RANGE=60
  883. END
  884. BEGIN
  885. NEW.RANDOMMONSTERGROUP
  886. NEW.TAG.RANGE=60
  887. END
  888. BEGIN
  889. NEW.RANDOMMONSTERGROUP
  890. NEW.TAG.RANGE=60
  891. END
  892. BEGIN
  893. NEW.RANDOMMONSTERGROUP
  894. NEW.TAG.RANGE=60
  895. END
  896. BEGIN
  897. NEW.RANDOMMONSTERGROUP
  898. NEW.TAG.RANGE=60
  899. END
  900. BEGIN
  901. NEW.RANDOMMONSTERGROUP
  902. NEW.TAG.RANGE=60
  903. END
  904. BEGIN
  905. NEW.RANDOMMONSTERGROUP
  906. NEW.TAG.RANGE=60
  907. END
  908. BEGIN
  909. NEW.RANDOMMONSTERGROUP
  910. NEW.TAG.RANGE=60
  911. END
  912. BEGIN
  913. NEW.RANDOMMONSTERGROUP
  914. NEW.TAG.RANGE=60
  915. END
  916. BEGIN
  917. NEW.RANDOMMONSTERGROUP
  918. NEW.TAG.RANGE=60
  919. END
  920. BEGIN
  921. NEW.RANDOMMONSTERGROUP
  922. NEW.TAG.RANGE=60
  923. END
  924. ENDDO
  925. NEW.ATTR=ATTR_MOVE_NEVER
  926. NEW.TIMER 1
  927. NEW.FIX
  928. new.move 0 0 3
  929. ENDFOR
  930. SRC.SYSMESSAGE @55,3,1 Champs: Champions Created!
  931. SERV.LOG @Champs: Champions Created!
  932. SERV.NEWITEM i_stairs_marble
  933. NEW.P=5140,1762
  934. NEW.COLOR=03df
  935. NEW.ATTR=ATTR_MOVE_NEVER
  936. SERV.NEWITEM i_stairs_marble
  937. NEW.P=5139,1762
  938. NEW.COLOR=03df
  939. NEW.ATTR=ATTR_MOVE_NEVER
  940. SERV.NEWITEM i_stairs_marble
  941. NEW.P=5139,1761
  942. NEW.COLOR=03df
  943. NEW.ATTR=ATTR_MOVE_NEVER
  944. SERV.NEWITEM i_stairs_marble
  945. NEW.P=5140,1761
  946. NEW.COLOR=03df
  947. NEW.ATTR=ATTR_MOVE_NEVER
  948. SERV.NEWITEM i_stairs_marble
  949. NEW.P=5141,1761
  950. NEW.COLOR=03df
  951. NEW.ATTR=ATTR_MOVE_NEVER
  952. SERV.NEWITEM i_stairs_marble
  953. NEW.P=5140,1760
  954. NEW.COLOR=03df
  955. NEW.ATTR=ATTR_MOVE_NEVER
  956. SERV.NEWITEM i_stairs_marble
  957. NEW.P=5141,1760
  958. NEW.COLOR=03df
  959. NEW.ATTR=ATTR_MOVE_NEVER
  960. SERV.NEWITEM 077e
  961. NEW.P=5141,1762
  962. NEW.COLOR=03df
  963. NEW.ATTR=ATTR_MOVE_NEVER
  964. SERV.NEWITEM 077d
  965. NEW.P=5139,1760
  966. NEW.COLOR=03df
  967. NEW.ATTR=ATTR_MOVE_NEVER
  968.  
  969. SERV.NEWITEM=0BCF
  970. NEW.COLOR=0482
  971. NEW.NAME=Champions must be sacrificed to summon enlightenment...
  972. NEW.P=5140,1763,-6
  973. SERV.NEWITEM=0BD0
  974. NEW.COLOR=0482
  975. NEW.NAME=The altars must be used to fulfill the prophecy...
  976. NEW.P=5142,1761,-6
  977. FOR 0 5
  978. SERV.NEWITEM=i_floor_tile_green
  979. DOSWITCH <dLOCAL._FOR>
  980. NEW.P=5141,1761,5
  981. NEW.P=5141,1760,5
  982. NEW.P=5140,1760,5
  983. NEW.P=5139,1761,5
  984. NEW.P=5139,1762,5
  985. NEW.P=5140,1762,5
  986. ENDDO
  987. SERV.NEWITEM=i_brazier
  988. DOSWITCH <dLOCAL._FOR>
  989. BEGIN
  990. NEW.P=5141,1761,5
  991. NEW.TAG.SKULLNAME=Greed
  992. END
  993. BEGIN
  994. NEW.P=5141,1760,5
  995. NEW.TAG.SKULLNAME=Pain
  996. END
  997. BEGIN
  998. NEW.P=5140,1760,5
  999. NEW.TAG.SKULLNAME=Venom
  1000. END
  1001. BEGIN
  1002. NEW.P=5139,1761,5
  1003. NEW.TAG.SKULLNAME=Power
  1004. END
  1005. BEGIN
  1006. NEW.P=5139,1762,5
  1007. NEW.TAG.SKULLNAME=Death
  1008. END
  1009. BEGIN
  1010. NEW.P=5140,1762,5
  1011. NEW.TAG.SKULLNAME=Enlightenment
  1012. END
  1013. ENDDO
  1014. NEW.COLOR=0455
  1015. NEW.EVENTS +T_Harrower_Offer
  1016. ENDFOR
  1017. SERV.NEWITEM i_pet_corpser
  1018. NEW.NAME=an evil statue
  1019. NEW.COLOR=color_rock
  1020. NEW.P=5140,1761,5
  1021. NEW.ATTR=ATTR_MOVE_NEVER
  1022. SRC.SYSMESSAGE @55,3,1 Champs: Star Chamber created!
  1023. SERV.LOG @Champs: Star Chamber created!
  1024. SERV.LOG @Champs: All set.
  1025. SRC.SYSMESSAGE @55,3,1 All set.
  1026. VAR.CHAMPSJAGERADOS=1
  1027. ELSE
  1028. SYSMESSAGE @55 Champs have already been created.
  1029. ENDIF
  1030.  
  1031. [FUNCTION DELETECHAMPS]
  1032. forinstances i_champion_idol
  1033. remove
  1034. endfor
  1035. forinstances i_champion_idol
  1036. remove
  1037. endfor
  1038.  
  1039. [FUNCTION CREATEALTAR]
  1040. TARGETFG F_CREATEALTAR
  1041. SYSMESSAGE @88 Where do you want to create the altar?
  1042.  
  1043. [FUNCTION F_CREATEALTAR]
  1044. SERV.NEWITEM i_champion_spawn
  1045. NEW.P=<TARGP>
  1046. NEW.MULTICREATE
  1047. NEW.SETSPAWNCOLOR
  1048. SERV.NEWITEM i_champion_idol
  1049. NEW.P=<TARGP>
  1050. NEW.Z += 5
  1051. NEW.SDIALOG d_CUSTOM_CHAMP
  1052.  
  1053. [FUNCTION HARROWERPOINTS]
  1054. IF !(0<ARGN>)
  1055. RETURN <dTAG0.HARROWERPOINTS>
  1056. ELSE
  1057. TAG.HARROWERPOINTS=<ARGN>
  1058. ENDIF
  1059.  
  1060. [FUNCTION HARROWERKILLERTITLE]
  1061. IF (<HARROWERPOINTS> >= 100)
  1062. RETURN Nightmare of the Harrower (10)
  1063. ELIF (<HARROWERPOINTS> >= 50)
  1064. RETURN Fear of the Harrower (9)
  1065. ELIF (<HARROWERPOINTS> >= 40)
  1066. RETURN Pain of the Harrower (8)
  1067. ELIF (<HARROWERPOINTS> >= 30)
  1068. RETURN Challenger of the Harrower (7)
  1069. ELIF (<HARROWERPOINTS> >= 20)
  1070. RETURN Anihilator of the Harrower (6)
  1071. ELIF (<HARROWERPOINTS> >= 10)
  1072. RETURN Executioner of the Harrower (5)
  1073. ELIF (<HARROWERPOINTS> >= 5)
  1074. RETURN Venom of the Harrower (4)
  1075. ELIF (<HARROWERPOINTS> >= 3)
  1076. RETURN Hunter of the Harrower (3)
  1077. ELIF (<HARROWERPOINTS> >= 2)
  1078. RETURN Opponent of the Harrower (2)
  1079. ELIF (<HARROWERPOINTS> >= 1)
  1080. RETURN Imp in front of the Harrower (1)
  1081. ENDIF
  1082.  
  1083. [FUNCTION SEMIDARSLAYERTITLE]
  1084. IF (<TAG0.CHAMPION.c_semidar> == 1)
  1085. RETURN Foe of the Abyss
  1086. ELIF (<TAG0.CHAMPION.c_semidar> == 2)
  1087. RETURN Assassin of the Abyss
  1088. ELIF (<TAG0.CHAMPION.c_semidar> >= 3)
  1089. RETURN Conqueror of the Abyss
  1090. ENDIF
  1091.  
  1092. [FUNCTION MEPHITISSLAYERTITLE]
  1093. IF (<TAG0.CHAMPION.c_mephitis> == 1)
  1094. RETURN Bane of the Arachnid
  1095. ELIF (<TAG0.CHAMPION.c_mephitis> == 2)
  1096. RETURN Killer of the Arachnid
  1097. ELIF (<TAG0.CHAMPION.c_mephitis> >= 3)
  1098. RETURN Vanquisher of the Arachnid
  1099. ENDIF
  1100.  
  1101. [FUNCTION RIKKTORSLAYERTITLE]
  1102. IF (<TAG0.CHAMPION.c_Rikktor> == 1)
  1103. RETURN Blight of the Cold Blood
  1104. ELIF (<TAG0.CHAMPION.c_Rikktor> == 2)
  1105. RETURN Slayer of the Cold Blood
  1106. ELIF (<TAG0.CHAMPION.c_Rikktor> >= 3)
  1107. RETURN Destroyer of the Cold Blood
  1108. ENDIF
  1109.  
  1110. [FUNCTION LORDOAKSSLAYERTITLE]
  1111. IF (<TAG0.CHAMPION.c_Lord_Oaks> == 1)
  1112. RETURN Enemy of the Forest Lord
  1113. ELIF (<TAG0.CHAMPION.c_Lord_Oaks> == 2)
  1114. RETURN Curse of the Forest Lord
  1115. ELIF (<TAG0.CHAMPION.c_Lord_Oaks> >= 3)
  1116. RETURN Slaughterer of the Forest Lord
  1117. ENDIF
  1118.  
  1119. [FUNCTION BARRACOONSLAYERTITLE]
  1120. IF (<TAG0.CHAMPION.c_Barracoon> == 1)
  1121. RETURN Adversary of the Vermin Horde
  1122. ELIF (<TAG0.CHAMPION.c_Barracoon> == 2)
  1123. RETURN Subjugator of the Vermin Horde
  1124. ELIF (<TAG0.CHAMPION.c_Barracoon> >= 3)
  1125. RETURN Eradicator of the Vermin Horde
  1126. ENDIF
  1127.  
  1128. [FUNCTION NEIRASLAYERTITLE]
  1129. IF (<TAG0.CHAMPION.c_Neira> == 1)
  1130. RETURN Scourge of the Unholy Terror
  1131. ELIF (<TAG0.CHAMPION.c_Neira> == 2)
  1132. RETURN Punisher of the Unholy Terror
  1133. ELIF (<TAG0.CHAMPION.c_Neira> >= 3)
  1134. RETURN Nemesis of the Unholy Terror
  1135. ENDIF
  1136.  
  1137. [FUNCTION SERADOSLAYERTITLE]
  1138. IF (<TAG0.CHAMPION.c_Serado> == 1)
  1139. RETURN Rival of the Sleeping Dragon
  1140. ELIF (<TAG0.CHAMPION.c_Serado> == 2)
  1141. RETURN Challenger of the Sleeping Dragon
  1142. ELIF (<TAG0.CHAMPION.c_Serado> >= 3)
  1143. RETURN Antagonist of the Sleeping Dragon
  1144. ENDIF
  1145.  
  1146. [FUNCTION ILHENIRSLAYERTITLE]
  1147. IF (<TAG0.CHAMPION.c_Ilhenir> == 1)
  1148. RETURN Cleanser of the Corrupt
  1149. ELIF (<TAG0.CHAMPION.c_Ilhenir> == 2)
  1150. RETURN Expunger of the Corrupt
  1151. ELIF (<TAG0.CHAMPION.c_Ilhenir> >= 3)
  1152. RETURN Slayer of the Corrupt
  1153. ENDIF
  1154.  
  1155. [FUNCTION closealldialogs]
  1156. IF (<DIALOGLIST.COUNT>)
  1157. FOR 0 <EVAL <DIALOGLIST.COUNT>-1>
  1158. LOCAL.DIALOGNAME=<DIALOGLIST.<dLOCAL._FOR>.ID>
  1159. IF (STRCMPI(d_pages_resp_alerta,<LOCAL.DIALOGNAME>))
  1160. DIALOGCLOSE <LOCAL.DIALOGNAME> <ARGN2>
  1161. ENDIF
  1162. ENDFOR
  1163. ENDIF
  1164.  
  1165. [EOF]
Advertisement
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!