diff options
Diffstat (limited to 'npc/events/gdevent_sch.txt')
| -rw-r--r-- | npc/events/gdevent_sch.txt | 251 |
1 files changed, 120 insertions, 131 deletions
diff --git a/npc/events/gdevent_sch.txt b/npc/events/gdevent_sch.txt index 31537763e..22b70836e 100644 --- a/npc/events/gdevent_sch.txt +++ b/npc/events/gdevent_sch.txt @@ -29,7 +29,7 @@ OnTimer3600000: schg_dun01,1,2,1 script Monster Controler1#sch 4_DOG01,{ OnEnable: - set .@callwhere,rand(1,4); + .@callwhere = rand(1,4); if (.@callwhere == 1) { monster "schg_dun01",164,236,"Kublin",1980,1,"Monster Controler1#sch::OnMyMobDead"; } @@ -63,12 +63,12 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "Hey did you see an ugly Goblin come by? He stole something from me!"; close; } - set .@chk_urquest,checkquest(2143,PLAYTIME); - set .@chk_yourgdname$,getguildname(getcharid(2)); + .@chk_urquest = questprogress(2143,PLAYTIME); + .@chk_yourgdname$ = getguildname(getcharid(2)); if ($@gdeventv_s1 == 0) { if ($@gdevents_s$ == "") { - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -141,8 +141,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -152,8 +152,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; close2; setquest 2144; warp "schg_que01",103,133; @@ -161,16 +161,16 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ahhh..."; @@ -178,8 +178,7 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else if ($@gdevents_s$ == .@chk_yourgdname$) { - set .@chk_urquest1,checkquest(2144); - if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) { + if (questprogress(2144) == 1) { mes "[Morestone]"; mes "I, Morestone, have made an alliance with the "+$@gdevents_s$+" guild."; mes "Oh, you are a member."; @@ -200,8 +199,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -274,8 +273,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -285,8 +284,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; close2; setquest 2144; warp "schg_que01",103,133; @@ -294,16 +293,16 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -321,8 +320,7 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } else { if ($@gdevents_s$ == .@chk_yourgdname$) { - set .@chk_urquest1,checkquest(2144); - if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) { + if (questprogress(2144) == 1) { mes "[Morestone]"; mes "I, Morestone, have made an alliance with the "+$@gdevents_s$+" guild."; mes "Oh, you are a member."; @@ -343,8 +341,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -417,8 +415,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather you friends."; close; @@ -428,8 +426,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; close2; setquest 2144; warp "schg_que01",103,133; @@ -437,16 +435,16 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -466,8 +464,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ OnInit: disablenpc "Dwarf#sch_gd"; - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; end; OnEnable: @@ -477,7 +475,7 @@ OnEnable: schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ specialeffect EF_POISONHIT; - set .@sprchg_gd,rand(1,5); + .@sprchg_gd = rand(1,5); if (.@sprchg_gd == 1) { setnpcdisplay "Pierrot Pier#sch_gd", 4_GHOSTRING; } @@ -503,8 +501,8 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ } if (strcharinfo(0) == getguildmaster(getcharid(2))) { if ($@gdeventv_s2 == 0) { - set .@que_2143,checkquest(2143,PLAYTIME); - if (.@que_2143 == -1) { + .@que_2143 = questprogress(2143,PLAYTIME); + if (!.@que_2143) { setnpcdisplay "Pierrot Pier#sch_gd", 4_M_PIERROT; mes "A lonely clown is juggling."; next; @@ -588,7 +586,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ donpcevent "Gergath#sch_gd::OnEnable"; close; } - else if ((.@que_2143 == 0) || (.@que_2143 == 1)) { + else if (.@que_2143 == 1) { mes "[Pierrot Pier]"; mes "Let's talk after I finished reading my master's message. Beep beep."; close; @@ -658,7 +656,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "schg_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_s2,1; + $@gdeventv_s2 = 1; donpcevent "Controller#gdevent_s::OnGame_start"; erasequest 2143; close; @@ -675,7 +673,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -760,14 +758,13 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "schg_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_s2,10; + $@gdeventv_s2 = 10; donpcevent "Controller#gdevent_s::OnGame_start"; close; } } else if ($@gdeventv_s2 == 3) { - set .@que_2143,checkquest(2143); - if (.@que_2143 == 3) { + if (questprogress(2143) == 2) { erasequest 2143; } mes "[Pierrot Pier]"; @@ -784,7 +781,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ mapannounce "schg_que01", "Pierrot Pier: You've completeled an unbelievable task, I will give you the wonderful gift my master has prepared!! Ha!",bc_map,"0x99CC00"; mapannounce "schg_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00"; donpcevent "eff_mvp#sch_gd::OnMVP"; - set $@gdeventv_s2,5; + $@gdeventv_s2 = 5; getitem 14596,10; //Pierre_Treasurebox close; } @@ -817,7 +814,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -927,7 +924,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -991,7 +988,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -1020,7 +1017,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ schg_que01,10,10,3 script Controller#gdevent_s 4_DOG01,{ OnInit: - set $@gdeventv_s2,0; + $@gdeventv_s2 = 0; end; OnWin: @@ -1038,7 +1035,7 @@ OnGame_start: donpcevent "paper_sp_7_s::OnEnable"; donpcevent "paper_sp_8_s::OnEnable"; donpcevent "paper_sp_9_s::OnEnable"; - set .@roulette_where,rand(1,9); + .@roulette_where = rand(1,9); if (.@roulette_where == 1) { donpcevent "paper_sp_1_s::OnBingo"; } @@ -1080,7 +1077,7 @@ OnTimer60000: mapannounce "schg_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00"; mapwarp "schg_que01","schg_que01",100,79; enablenpc "removepp_sch_gd"; - set $@gdeventv_s2,2; + $@gdeventv_s2 = 2; end; OnTimer63000: @@ -1092,23 +1089,22 @@ schg_que01,87,93,0 script paper_sp_1_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while1,0; + .@paper_while1 = 0; while(1) { if (.@paper_while1 == 100) { break; - } - else { - set .@paper_while1,.@paper_while1+1; - set .@paper_x1,rand(81,95); - set .@paper_y1,rand(87,100); + } else { + ++.@paper_while1; + .@paper_x1 = rand(81,95); + .@paper_y1 = rand(87,100); makeitem 6030,1,"schg_que01",.@paper_x1,.@paper_y1; //Glitering_PaperA } } end; OnBingo: - set .@paper_x1,rand(81,95); - set .@paper_y1,rand(87,100); + .@paper_x1 = rand(81,95); + .@paper_y1 = rand(87,100); makeitem 6031,1,"schg_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB end; } @@ -1117,23 +1113,22 @@ schg_que01,102,93,0 script paper_sp_2_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while2,0; + .@paper_while2 = 0; while(1) { if (.@paper_while2 == 100) { break; - } - else { - set .@paper_while2,.@paper_while2+1; - set .@paper_x2,rand(96,110); - set .@paper_y2,rand(87,100); + } else { + ++.@paper_while2; + .@paper_x2 = rand(96,110); + .@paper_y2 = rand(87,100); makeitem 6030,1,"schg_que01",.@paper_x2,.@paper_y2; //Glitering_PaperA } } end; OnBingo: - set .@paper_x2,rand(96,110); - set .@paper_y2,rand(87,100); + .@paper_x2 = rand(96,110); + .@paper_y2 = rand(87,100); makeitem 6031,1,"schg_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB end; } @@ -1142,23 +1137,22 @@ schg_que01,117,93,0 script paper_sp_3_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while3,0; + .@paper_while3 = 0; while(1) { if (.@paper_while3 == 100) { break; - } - else { - set .@paper_while3,.@paper_while3+1; - set .@paper_x3,rand(111,124); - set .@paper_y3,rand(87,100); + } else { + ++.@paper_while3; + .@paper_x3 = rand(111,124); + .@paper_y3 = rand(87,100); makeitem 6030,1,"schg_que01",.@paper_x3,.@paper_y3; //Glitering_PaperA } } end; OnBingo: - set .@paper_x3,rand(111,124); - set .@paper_y3,rand(87,100); + .@paper_x3 = rand(111,124); + .@paper_y3 = rand(87,100); makeitem 6031,1,"schg_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB end; } @@ -1167,23 +1161,22 @@ schg_que01,87,80,0 script paper_sp_4_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while4,0; + .@paper_while4 = 0; while(1) { if (.@paper_while4 == 100) { break; - } - else { - set .@paper_while4,.@paper_while4+1; - set .@paper_x4,rand(81,95); - set .@paper_y4,rand(73,86); + } else { + ++.@paper_while4; + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6030,1,"schg_que01",.@paper_x4,.@paper_y4; //Glitering_PaperA } } end; OnBingo: - set .@paper_x4,rand(81,95); - set .@paper_y4,rand(73,86); + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6031,1,"schg_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB end; } @@ -1192,23 +1185,23 @@ schg_que01,102,80,0 script paper_sp_5_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while5,0; + .@paper_while5 = 0; while(1) { if (.@paper_while5 == 100) { break; } else { - set .@paper_while5,.@paper_while5+1; - set .@paper_x5,rand(96,110); - set .@paper_y5,rand(73,86); + ++.@paper_while5; + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6030,1,"schg_que01",.@paper_x5,.@paper_y5; //Glitering_PaperA } } end; OnBingo: - set .@paper_x5,rand(96,110); - set .@paper_y5,rand(73,86); + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6031,1,"schg_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB end; } @@ -1217,23 +1210,22 @@ schg_que01,117,80,0 script paper_sp_6_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while6,0; + .@paper_while6 = 0; while(1) { if (.@paper_while6 == 100) { break; - } - else { - set .@paper_while6,.@paper_while6+1; - set .@paper_x6,rand(111,124); - set .@paper_y6,rand(73,86); + } else { + ++.@paper_while6; + .@paper_x6 = rand(111,124); + .@paper_y6 = rand(73,86); makeitem 6030,1,"schg_que01",.@paper_x6,.@paper_y6; //Glitering_PaperA } } end; OnBingo: - set .@paper_x6,rand(111,124); - set .@paper_y6,rand(73,86); + .@paper_x6 = rand(111,124); + .@paper_y6 = rand(73,86); makeitem 6031,1,"schg_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB end; } @@ -1242,23 +1234,22 @@ schg_que01,87,65,0 script paper_sp_7_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while7,0; + .@paper_while7 = 0; while(1) { if (.@paper_while7 == 100) { break; - } - else { - set .@paper_while7,.@paper_while7+1; - set .@paper_x7,rand(81,95); - set .@paper_y7,rand(59,72); + } else { + ++.@paper_while7; + .@paper_x7 = rand(81,95); + .@paper_y7 = rand(59,72); makeitem 6030,1,"schg_que01",.@paper_x7,.@paper_y7; //Glitering_PaperA } } end; OnBingo: - set .@paper_x7,rand(81,95); - set .@paper_y7,rand(59,72); + .@paper_x7 = rand(81,95); + .@paper_y7 = rand(59,72); makeitem 6031,1,"schg_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB end; } @@ -1267,23 +1258,22 @@ schg_que01,102,65,0 script paper_sp_8_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while8,0; + .@paper_while8 = 0; while(1) { if (.@paper_while8 == 100) { break; - } - else { - set .@paper_while8,.@paper_while8+1; - set .@paper_x8,rand(96,110); - set .@paper_y8,rand(59,72); + } else { + ++.@paper_while8; + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6030,1,"schg_que01",.@paper_x8,.@paper_y8; //Glitering_PaperA } } end; OnBingo: - set .@paper_x8,rand(96,110); - set .@paper_y8,rand(59,72); + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6031,1,"schg_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB end; } @@ -1292,23 +1282,22 @@ schg_que01,117,65,0 script paper_sp_9_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while9,0; + .@paper_while9 = 0; while(1) { if (.@paper_while9 == 100) { break; - } - else { - set .@paper_while9,.@paper_while9+1; - set .@paper_x9,rand(111,124); - set .@paper_y9,rand(59,72); + } else { + ++.@paper_while9; + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6030,1,"schg_que01",.@paper_x9,.@paper_y9; //Glitering_PaperA } } end; OnBingo: - set .@paper_x9,rand(111,124); - set .@paper_y9,rand(59,72); + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6031,1,"schg_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB end; } @@ -1321,8 +1310,8 @@ OnInit: end; OnTouch2: - set .@paper_sch_gd,countitem(6030); - set .@spaper_sch_gd,countitem(6031); + .@paper_sch_gd = countitem(6030); + .@spaper_sch_gd = countitem(6031); if ((.@paper_sch_gd > 0) || (.@spaper_sch_gd > 0)) { delitem 6030,.@paper_sch_gd; //Glitering_PaperA delitem 6031,.@spaper_sch_gd; //Glitering_PaperB @@ -1446,7 +1435,7 @@ OnEnable: OnMyMobDead: if (mobcount("schg_que01","treg#sch_gd::OnMyMobDead") == 0) { mapannounce "schg_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00"; - set $@gdeventv_s2,5; + $@gdeventv_s2 = 5; } end; } @@ -1524,9 +1513,9 @@ schg_dun01,5,5,1 script Event controller#sch_gd 4_DOG01,{ donpcevent "Monster Controler1#sch::OnControler1#sch_gd"; donpcevent "Monster Controler1#sch::OnControler1#sch_gd"; disablenpc "Dwarf#sch_gd"; - set $@gdeventv_s1,0; - set $@gdeventv_s2,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdeventv_s2 = 0; + $@gdevents_s$ = ""; close; case 2: mes "Good bye~"; |