API tools faq
paste
Advertisement
Guest User

道場

a guest
Nov 13th, 2015
314
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.28 KB | None | 0 0
raw download clone embed print report
  1. arena_room,96,101,6 script 道館管理員#ex 764,{
  2. mes "[道館管理員]";
  3. mes "-道館-";
  4. mes "這是最基本的道館，練練手感不錯";
  5. mes "有10關，獎勵一般般，勉強餬口";
  6. mes "此區無BOSS只有野生的10%掉寶率";
  7. mes "低於50等無法領獎，請特別注意！";
  8. next;
  9. switch(select("隊伍報名","查看報名")){
  10. case 1:
  11. if (!getcharid(1)) {
  12. mes "[道館管理員]";
  13. mes "- ^C63131您沒有隊伍,無法參加^000000";
  14. close;
  15. }
  16. mes "[道館管理員]";
  17. mes "- 報名費 : "+$@Dc_In_EXZeny+"z";
  18. next;
  19. menu "想參加",-;
  20. if ( Zeny<$@Dc_In_EXZeny ){
  21. mes "[道館管理員]";
  22. mes "- ^C63131金錢不足^000000";
  23. close;
  24. }
  25. set .@s,rand(1,30);
  26. progressbar "ffff00",.@s;
  27. if (getmapusers("guild_vs1-2")==0 ){
  28. killmonster "guild_vs1-2","EXDc_Main_2::OnKillMob";
  29. warpparty "guild_vs1-2",49,47,getcharid(1);
  30. set Zeny,Zeny-$@Dc_In_EXZeny;
  31. set $@EXDc_Truns_2,1;
  32. set $@EXDc_Party_2,getcharid(1);
  33. set $@EXParty_2$,strcharinfo(0);
  34. enablenpc "裁判#2ex";
  35. announce "[ 道館廣播 ] 道館 1 已有隊伍參加挑戰中。",15,0xEFA2A1;
  36. }else if (getmapusers("guild_vs1-3")==0 ){
  37. killmonster "guild_vs1-3","EXDc_Main_3::OnKillMob";
  38. warpparty "guild_vs1-3",49,47,getcharid(1);
  39. set Zeny,Zeny-$@Dc_In_EXZeny;
  40. set $@EXDc_Truns_3,1;
  41. set $@EXDc_Party_3,getcharid(1);
  42. set $@EXParty_3$,strcharinfo(0);
  43. enablenpc "裁判#3ex";
  44. announce "[ 道館廣播 ] 道館 2 已有隊伍參加挑戰中。",15,0xEFA2A1;
  45. }else if (getmapusers("guild_vs1-1")==0 ){
  46. killmonster "guild_vs1-1","EXDc_Main_1::OnKillMob";
  47. warpparty "guild_vs1-1",49,47,getcharid(1);
  48. set Zeny,Zeny-$@Dc_In_EXZeny;
  49. set $@EXDc_Truns_1,1;
  50. set $@EXDc_Party_1,getcharid(1);
  51. set $@EXParty_1$,strcharinfo(0);
  52. enablenpc "裁判#1ex";
  53. announce "[ 道館廣播 ] 道館 3 已有隊伍參加挑戰中。",15,0xEFA2A1;
  54. }else if (getmapusers("guild_vs2-1")==0 ){
  55. killmonster "guild_vs2-1","EXDc_Main_4::OnKillMob";
  56. warpparty "guild_vs2-1",49,47,getcharid(1);
  57. set Zeny,Zeny-$@Dc_In_EXZeny;
  58. set $@EXDc_Truns_4,1;
  59. set $@EXDc_Party_4,getcharid(1);
  60. set $@EXParty_4$,strcharinfo(0);
  61. enablenpc "裁判#4ex";
  62. announce "[ 道館廣播 ] 道館 4 已有隊伍參加挑戰中。",15,0xEFA2A1;
  63. }else if (getmapusers("guild_vs2-2")==0 ){
  64. killmonster "guild_vs2-2","EXDc_Main_5::OnKillMob";
  65. warpparty "guild_vs2-2",49,47,getcharid(1);
  66. set Zeny,Zeny-$@Dc_In_EXZeny;
  67. set $@EXDc_Truns_5,1;
  68. set $@EXDc_Party_5,getcharid(1);
  69. set $@EXParty_5$,strcharinfo(0);
  70. enablenpc "裁判#5ex";
  71. announce "[ 道館廣播 ] 道館 5 已有隊伍參加挑戰中。",15,0xEFA2A1;
  72. }else{
  73. mes "[道館管理員]";
  74. mes "請稍後再試";
  75. close;
  76. }
  77. end;
  78. case 2:
  79. mes "[道館管理員]";
  80. if ( getmapusers("guild_vs1-2")==0 ){mes "[場地一]隊伍: [無人報名]";}else{mes "[場地一]隊伍: ["+getpartyname($@EXDc_Party_1)+"]";}
  81. if ( getmapusers("guild_vs1-3")==0 ){mes "[場地二]隊伍: [無人報名]";}else{mes "[場地二]隊伍: ["+getpartyname($@EXDc_Party_2)+"]";}
  82. if ( getmapusers("guild_vs1-1")==0 ){mes "[場地三]隊伍: [無人報名]";}else{mes "[場地三]隊伍: ["+getpartyname($@EXDc_Party_3)+"]";}
  83. if ( getmapusers("guild_vs2-1")==0 ){mes "[場地四]隊伍: [無人報名]";}else{mes "[場地四]隊伍: ["+getpartyname($@EXDc_Party_4)+"]";}
  84. if ( getmapusers("guild_vs2-2")==0 ){mes "[場地五]隊伍: [無人報名]";}else{mes "[場地五]隊伍: ["+getpartyname($@EXDc_Party_5)+"]";}
  85. close;
  86. end;
  87. }
  88.  
  89. OnInit:
  90. waitingroom " 【道館】 ", 0;
  91. set $@Dc_In_EXZeny,3000000; //報名費
  92. set $@EXDc_Conf_Turns3,10;
  93. setarray $@EXDc_Mob3[0],1733,1991,1890,1872,1766,1767,1754,1755,1289,1291,1292,1294,1297,1307,1310,1311,1309,1044,1045,1058,1065,1109,1101,1117,1132,1143,1149,1158,1164,1169,1179,1186,1194,1195,1196,1197,1201,1202,1203,1204,1205,1206,1207,1208,1209,1219,1320,1321,1322,1323,1380,1381,1382,1383,1384,1385,1386,1387,1400,1401;
  94. end;
  95. }
  96.  
  97. /**************
  98. [場地一]
  99. **************/
  100.  
  101. guild_vs1-2,0,0,0 script EXDc_Main_2 -1,{
  102. OnMain:
  103. killmonsterall "guild_vs1-2";
  104.  
  105.  
  106. monster "guild_vs1-2",50,49,"--ja--",$@EXDc_Mob3[rand(getarraysize($@EXDc_Mob3))],1,"EXDc_Main_2::OnKillMob";
  107.  
  108. if ($@EXDc_Truns_2 != $@EXDc_Conf_Turns3)
  109. mapannounce "guild_vs1-2","[ 道場 ] 魔物放出！挑戰開始！",15,0xFFEBEB;
  110. else
  111. mapannounce "guild_vs1-2","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xFFEBEB;
  112.  
  113. end;
  114.  
  115. OnKillMob:
  116.  
  117. mapannounce "guild_vs1-2","[ 道場 ] 恭喜你,挑戰成功！",15,0xFFF5EB;
  118. mapannounce "guild_vs1-2","[ 道場 ] "+getpartyname($@EXDc_Party_2)+" 隊伍, 第"+$@EXDc_Truns_2+"關挑戰成功！",15,0xFFFFEB;
  119. if($@EXDc_Truns_2 == $@EXDc_Conf_Turns3) {
  120. addtimer 5000,"EXDc_Main_2::OnEnd";
  121. end;
  122. }
  123. set $@EXDc_Truns_2,$@EXDc_Truns_2 + 1;
  124. addtimer 5000,"EXDc_Main_2::OnMain";
  125. end;
  126. OnEnd:
  127. areawarp "guild_vs1-2",0,0,300,300,"new_1-2",116,107;
  128. end;
  129. }
  130.  
  131. /**************
  132. [場地二]
  133. **************/
  134.  
  135. guild_vs1-3,0,0,0 script EXDc_Main_3 -1,{
  136. OnMain:
  137. killmonsterall "guild_vs1-3";
  138.  
  139. monster "guild_vs1-3",50,49,"--ja--",$@EXDc_Mob3[rand(getarraysize($@EXDc_Mob3))],1,"EXDc_Main_3::OnKillMob";
  140.  
  141. if ($@EXDc_Truns_3 != $@EXDc_Conf_Turns3)
  142. mapannounce "guild_vs1-3","[ 道場 ] 魔物放出！挑戰開始！",15,0xFFEBEB;
  143. else
  144. mapannounce "guild_vs1-3","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xFFEBEB;
  145.  
  146. end;
  147.  
  148. OnKillMob:
  149.  
  150. mapannounce "guild_vs1-3","[ 道場 ] 恭喜你,挑戰成功！",15,0xFFF5EB;
  151. mapannounce "guild_vs1-3","[ 道場 ] "+getpartyname($@EXDc_Party_3) +" 隊伍, 第"+$@EXDc_Truns_3+"關挑戰成功！",15,0xFFFFEB;
  152. if($@EXDc_Truns_3 == $@EXDc_Conf_Turns3) {
  153. addtimer 5000,"EXDc_Main_3::OnEnd";
  154. end;
  155. }
  156. set $@EXDc_Truns_3,$@EXDc_Truns_3 + 1;
  157. addtimer 5000,"EXDc_Main_3::OnMain";
  158. end;
  159. OnEnd:
  160. areawarp "guild_vs1-3",0,0,300,300,"new_1-2",116,107;
  161. end;
  162. }
  163.  
  164.  
  165. /**************
  166. [場地三]
  167. **************/
  168.  
  169. guild_vs1-1,0,0,0 script EXDc_Main_1 -1,{
  170. OnMain:
  171. killmonsterall "guild_vs1-1";
  172.  
  173. monster "guild_vs1-1",50,49,"--ja--",$@EXDc_Mob3[rand(getarraysize($@EXDc_Mob3))],1,"EXDc_Main_1::OnKillMob";
  174.  
  175. if ($@EXDc_Truns_1 != $@EXDc_Conf_Turns3)
  176. mapannounce "guild_vs1-1","[ 道場 ] 魔物放出！挑戰開始！",15,0xFFEBEB;
  177. else
  178. mapannounce "guild_vs1-1","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xFFEBEB;
  179.  
  180. end;
  181.  
  182. OnKillMob:
  183.  
  184. mapannounce "guild_vs1-1","[ 道場 ] 恭喜你,挑戰成功！",15,0xFFF5EB;
  185. mapannounce "guild_vs1-1","[ 道場 ] "+getpartyname($@EXDc_Party_1)+" 隊伍, 第"+$@EXDc_Truns_1+"關挑戰成功！",15,0xFFFFEB;
  186. if($@EXDc_Truns_1 == $@EXDc_Conf_Turns3) {
  187. addtimer 5000,"EXDc_Main_1::OnEnd";
  188. end;
  189. }
  190. set $@EXDc_Truns_1,$@EXDc_Truns_1 + 1;
  191. addtimer 5000,"EXDc_Main_1::OnMain";
  192. end;
  193. OnEnd:
  194. areawarp "guild_vs1-1",0,0,300,300,"new_1-2",116,107;
  195. end;
  196. }
  197.  
  198. /**************
  199. [場地四]
  200. **************/
  201.  
  202. guild_vs2-1,0,0,0 script EXDc_Main_4 -1,{
  203. OnMain:
  204. killmonsterall "guild_vs2-1";
  205.  
  206. monster "guild_vs2-1",50,49,"--ja--",$@EXDc_Mob3[rand(getarraysize($@EXDc_Mob3))],1,"EXDc_Main_4::OnKillMob";
  207.  
  208. if ($@EXDc_Truns_4 != $@EXDc_Conf_Turns3)
  209. mapannounce "guild_vs2-1","[ 道場 ] 魔物放出！挑戰開始！",15,0xFFEBEB;
  210. else
  211. mapannounce "guild_vs2-1","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xFFEBEB;
  212.  
  213. end;
  214.  
  215. OnKillMob:
  216.  
  217. mapannounce "guild_vs2-1","[ 道場 ] 恭喜你,挑戰成功！",15,0xFFF5EB;
  218. mapannounce "guild_vs2-1","[ 道場 ] "+getpartyname($@EXDc_Party_4)+" 隊伍, 第"+$@EXDc_Truns_4+"關挑戰成功！",15,0xFFFFEB;
  219. if($@EXDc_Truns_4 == $@EXDc_Conf_Turns3) {
  220. addtimer 5000,"EXDc_Main_4::OnEnd";
  221. end;
  222. }
  223. set $@EXDc_Truns_4,$@EXDc_Truns_4 + 1;
  224. addtimer 5000,"EXDc_Main_4::OnMain";
  225. end;
  226. OnEnd:
  227. areawarp "guild_vs2-1",0,0,300,300,"new_1-2",116,107;
  228. end;
  229. }
  230.  
  231. /**************
  232. [場地五]
  233. **************/
  234.  
  235. guild_vs2-2,0,0,0 script EXDc_Main_5 -1,{
  236. OnMain:
  237. killmonsterall "guild_vs2-2";
  238.  
  239. monster "guild_vs2-2",50,49,"--ja--",$@EXDc_Mob3[rand(getarraysize($@EXDc_Mob3))],1,"EXDc_Main_5::OnKillMob";
  240.  
  241. if ($@EXDc_Truns_5 != $@EXDc_Conf_Turns3)
  242. mapannounce "guild_vs2-2","[ 道場 ] 魔物放出！挑戰開始！",15,0xFFEBEB;
  243. else
  244. mapannounce "guild_vs2-2","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xFFEBEB;
  245.  
  246. end;
  247.  
  248. OnKillMob:
  249.  
  250. mapannounce "guild_vs2-2","[ 道場 ] 恭喜你,挑戰成功！",15,0xFFF5EB;
  251. mapannounce "guild_vs2-2","[ 道場 ] "+getpartyname($@EXDc_Party_5)+" 隊伍, 第"+$@EXDc_Truns_5+"關挑戰成功！",15,0xFFFFEB;
  252. if($@EXDc_Truns_5 == $@EXDc_Conf_Turns3) {
  253. addtimer 5000,"EXDc_Main_5::OnEnd";
  254. end;
  255. }
  256. set $@EXDc_Truns_5,$@EXDc_Truns_5 + 1;
  257. addtimer 5000,"EXDc_Main_5::OnMain";
  258. end;
  259. OnEnd:
  260. areawarp "guild_vs2-2",0,0,300,300,"new_1-2",116,107;
  261. end;
  262. }
  263.  
  264. //裁判
  265.  
  266. guild_vs1-1,50,49,4 script 裁判#1ex 758,{
  267. if ($@EXParty_1$!=strcharinfo(0)){mes "[裁判]";mes "你不是報名的人，無法開啟";close;}
  268. mes "[裁判]";
  269. mes "您準備要開始挑戰了嗎？";
  270. next;
  271. menu "是的",-;
  272. mes "[裁判]";
  273. mes "挑戰開始！";
  274. close2;
  275. doevent "EXDc_Main_1::OnMain";
  276. disablenpc "裁判#1ex";
  277. end;
  278. }
  279.  
  280. guild_vs1-2,50,49,4 script 裁判#2ex 758,{
  281. if ($@EXParty_2$!=strcharinfo(0)){mes "[裁判]";mes "你不是報名的人，無法開啟";close;}
  282. mes "[裁判]";
  283. mes "您準備要開始挑戰了嗎？";
  284. next;
  285. menu "是的",-;
  286. mes "[裁判]";
  287. mes "挑戰開始！";
  288. close2;
  289. doevent "EXDc_Main_2::OnMain";
  290. disablenpc "裁判#2ex";
  291. end;
  292. }
  293.  
  294. guild_vs1-3,50,49,4 script 裁判#3ex 758,{
  295. if ($@EXParty_3$!=strcharinfo(0)){mes "[裁判]";mes "你不是報名的人，無法開啟";close;}
  296. mes "[裁判]";
  297. mes "您準備要開始挑戰了嗎？";
  298. next;
  299. menu "是的",-;
  300. mes "[裁判]";
  301. mes "挑戰開始！";
  302. close2;
  303. doevent "EXDc_Main_3::OnMain";
  304. disablenpc "裁判#3ex";
  305. end;
  306. }
  307.  
  308. guild_vs2-1,50,49,4 script 裁判#4ex 758,{
  309. if ($@EXParty_4$!=strcharinfo(0)){mes "[裁判]";mes "你不是報名的人，無法開啟";close;}
  310. mes "[裁判]";
  311. mes "您準備要開始挑戰了嗎？";
  312. next;
  313. menu "是的",-;
  314. mes "[裁判]";
  315. mes "挑戰開始！";
  316. close2;
  317. doevent "EXDc_Main_4::OnMain";
  318. disablenpc "裁判#4ex";
  319. end;
  320. }
  321.  
  322. guild_vs2-2,50,49,4 script 裁判#5ex 758,{
  323. if ($@EXParty_5$!=strcharinfo(0)){mes "[裁判]";mes "你不是報名的人，無法開啟";close;}
  324. mes "[裁判]";
  325. mes "您準備要開始挑戰了嗎？";
  326. next;
  327. menu "是的",-;
  328. mes "[裁判]";
  329. mes "挑戰開始！";
  330. close2;
  331. doevent "EXDc_Main_5::OnMain";
  332. disablenpc "裁判#5ex";
  333. end;
  334. }
  335.  
  336. //獎品
  337.  
  338.  
  339. new_1-2,115,115,4 script 獎勵發放員#EX 986,{
  340. if(BaseLevel<50){warp "prt_fild08",170,375;}
  341. mes "[獎勵發放員]";
  342. mes "讓我給你一些獎勵吧！";
  343. percentheal 100,100;
  344. next;
  345. mes "[獎勵發放員]";
  346. mes "我是負責發放P點的";
  347. mes "你將會隨機獲得1~10P點";
  348. next;
  349. menu "好！",-,"不了，讓我在考慮一下！",cancel;
  350. set .@gi,rand(1,10);
  351. set #CASHPOINTS,#CASHPOINTS+.@gi;
  352. dispbottom "獲得道館獎勵 : "+.@gi+"p";
  353. warp "prt_fild08",170,375;
  354. cancel:
  355. close;
  356. }
  357.  
  358. guild_vs1-1 mapflag nomemo
  359. guild_vs1-1 mapflag noteleport
  360. guild_vs1-1 mapflag nosave SavePoint
  361. guild_vs1-1 mapflag nopenalty
  362. guild_vs1-1 mapflag nobranch
  363. guild_vs1-1 mapflag monster_noteleport
  364. guild_vs1-1 mapflag nomobloot 10
  365.  
  366. guild_vs1-2 mapflag nomemo
  367. guild_vs1-2 mapflag noteleport
  368. guild_vs1-2 mapflag nosave SavePoint
  369. guild_vs1-2 mapflag nopenalty
  370. guild_vs1-2 mapflag nobranch
  371. guild_vs1-2 mapflag monster_noteleport
  372. guild_vs1-2 mapflag nomobloot 10
  373.  
  374. guild_vs1-3 mapflag nomemo
  375. guild_vs1-3 mapflag noteleport
  376. guild_vs1-3 mapflag nosave SavePoint
  377. guild_vs1-3 mapflag nopenalty
  378. guild_vs1-3 mapflag nobranch
  379. guild_vs1-3 mapflag monster_noteleport
  380. guild_vs1-3 mapflag nomobloot 10
  381.  
  382. guild_vs2-1 mapflag nomemo
  383. guild_vs2-1 mapflag noteleport
  384. guild_vs2-1 mapflag nosave SavePoint
  385. guild_vs2-1 mapflag nopenalty
  386. guild_vs2-1 mapflag nobranch
  387. guild_vs2-1 mapflag monster_noteleport
  388. guild_vs2-1 mapflag nomobloot 10
  389.  
  390. guild_vs2-2 mapflag nomemo
  391. guild_vs2-2 mapflag noteleport
  392. guild_vs2-2 mapflag nosave SavePoint
  393. guild_vs2-2 mapflag nopenalty
  394. guild_vs2-2 mapflag nobranch
  395. guild_vs2-2 mapflag monster_noteleport
  396. guild_vs2-2 mapflag nomobloot 10
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!