diff options
Diffstat (limited to 'npc/events')
30 files changed, 1033 insertions, 1075 deletions
diff --git a/npc/events/MemorialDay_2008.txt b/npc/events/MemorialDay_2008.txt index 2c64c5b75..a6c09fe80 100644 --- a/npc/events/MemorialDay_2008.txt +++ b/npc/events/MemorialDay_2008.txt @@ -63,7 +63,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ mes "[Mad Sago Lauds]"; mes "Listen closely."; mes "Bring me ^FF000030 Fabric and 20 Fluffs^000000."; - set Memorial08,1; + Memorial08 = 1; close; } @@ -91,7 +91,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ delitem 914,20; getitem 6025,1; getnameditem 6025," + strcharinfo(0) + "; - set Memorial08,2; + Memorial08 = 2; close; } } @@ -114,7 +114,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ mes "[Mad Sago Lauds]"; mes "It seems you're just carrying it without understanding its meaning."; mes "What a shame! You should go speak to ^FF0000Grast in Prontera^000000."; - set Memorial08,3; + Memorial08 = 3; close; } @@ -149,7 +149,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ mes "What? Why are you giving me your garbage!"; mes "Those items are not useful to me at all."; mes "You should be going to the plaque!"; - set Memorial08,8; + Memorial08 = 8; close; } @@ -161,7 +161,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ } else if (Memorial08 >= 9) { - set .@RandomMsg, rand(1,5); + .@RandomMsg = rand(1,5); if (.@RandomMsg == 1) { mes "[Mad Sago Lauds]"; mes "Don't panic!"; @@ -207,7 +207,7 @@ prontera,153,286,4 script Memorial Plaque#Memorial 4_BOARD3,{ mes "'This must be what Lauds was talking about.'"; mes "'Let's dust it off with the towel.'"; next; - set Memorial08,9; + Memorial08 = 9; getexp 93750,43750; goto L_CleanPlaque; } @@ -244,7 +244,7 @@ prontera,153,286,4 script Memorial Plaque#Memorial 4_BOARD3,{ mes "- Arthur Ashe -"; if (Memorial08 == 9) { getexp 93750,43750; - set Memorial08,10; + Memorial08 = 10; } close; } @@ -273,7 +273,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "[Grast]"; mes "Please bring me ^FF0000one of each Red Potion, Green Potion, Awakening Potion, and Butterfly Wing^000000."; mes "I'll be waiting for your return."; - set Memorial08,4; + Memorial08 = 4; close; } @@ -303,7 +303,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "[Grast]"; mes "Please bring me ^FF0000one of each Trap, Yggdrasil Leaf, Blue Gemstone, Crystal Mirror, Meat, and Carrot.^000000"; mes "I'll be waiting for your return."; - set Memorial08,5; + Memorial08 = 5; close; } } @@ -330,7 +330,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ next; mes "[Grast]"; mes "Please bring me ^FF0000one of each Pet Incubator, Firecracker, Poring Doll, and Bouquet^000000."; - set Memorial08,6; + Memorial08 = 6; close; } } @@ -376,7 +376,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "You've selected my right hand."; mes "Here's the gift for you."; mes "Now, please bring all these materials to Lauds."; - set Memorial08, 7; + Memorial08 = 7; getitem 617,1; close; } @@ -384,7 +384,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "You've selected my left hand."; mes "Here's the gift for you."; mes "Now, please bring all these materials to Lauds."; - set Memorial08, 7; + Memorial08 = 7; getitem 12109,1; close; } @@ -413,7 +413,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "I crushed all the items together into a more compact form for you."; mes "You can thank me later for that extra service."; mes "Please bring them to Lauds."; - set Memorial08,7; + Memorial08 = 7; getitem 7126,1; next; mes "[Grast]"; diff --git a/npc/events/RWC_2011.txt b/npc/events/RWC_2011.txt index 992bd7bd3..f7534af84 100644 --- a/npc/events/RWC_2011.txt +++ b/npc/events/RWC_2011.txt @@ -26,7 +26,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "[New Agent]"; mes "It's RWC time!"; next; - set .@loop,1; + .@loop = 1; while(.@loop) { switch(select("What is RWC?:Are you a New Agent?:I don't care.")) { case 1: @@ -73,7 +73,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "- His brimming small eyes seem to tell you something. ^FF0000Please talk to me again...^000000 -"; close; } - set .@loop,0; + .@loop = 0; break; case 3: mes "[New Agent]"; @@ -148,7 +148,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ next; mes "[New Agent]"; mes "Please help me out!! My life is in your hands!"; - set oversea_event,1; + oversea_event = 1; setquest 13000; close; } else if (oversea_event == 1) { @@ -169,35 +169,35 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ delitem 7470,1; //BlueCard_W delitem 6012,1; //Blue_Card_C //SavePPL BlueCard_2 - set oversea_event,2; + oversea_event = 2; erasequest 13000; setquest 13001; - set .@i, rand(1,100); - if (.@i == 1) getitem 12690,1; //Old_C_Album_Helm - else if (.@i == 2) getitem 12691,1; //Old_C_Album_Armor - else if (.@i == 3) getitem 12693,1; //Old_C_Album_Garment - else if (.@i == 4) getitem 12694,1; //Old_C_Album_Shoes - else if (.@i == 5) getitem 12698,1; //Old_C_Album_Weapon - else if (.@i == 6) getitem 12695,1; //Old_C_Album_Acc - else if (.@i == 7) getitem 12692,1; //Old_C_Album_Shield - else if (.@i < 28) getitem 547,10; //White_Slim_Potion - else if (.@i < 38) getitem 607,1; //Yggdrasilberry - else if (.@i < 51) getitem 608,1; //Seed_Of_Yggdrasil - else { + .@i = rand(1,100); + if (.@i == 1) getitem 12690,1; //Old_C_Album_Helm + else if (.@i == 2) getitem 12691,1; //Old_C_Album_Armor + else if (.@i == 3) getitem 12693,1; //Old_C_Album_Garment + else if (.@i == 4) getitem 12694,1; //Old_C_Album_Shoes + else if (.@i == 5) getitem 12698,1; //Old_C_Album_Weapon + else if (.@i == 6) getitem 12695,1; //Old_C_Album_Acc + else if (.@i == 7) getitem 12692,1; //Old_C_Album_Shield + else if (.@i < 28) getitem 547,10; //White_Slim_Potion + else if (.@i < 38) getitem 607,1; //Yggdrasilberry + else if (.@i < 51) getitem 608,1; //Seed_Of_Yggdrasil + else { getitem 12696,5; //RWC_Cele_Fire getitem 12697,5; //RWC_Cele_Fire2 - } - mes "[RWC2011 Agent]"; - mes "It's not much but please keep it! Haha, we still have lots of cards to be found. I hope you can help me tomorrow as well."; - next; - mes "[RWC2011 Agent]"; - mes "Thank you!! I can continue working now. Nothing is impossible when we have great adventurers like you in this world!"; - next; - mes "[RWC2011 Agent]"; - mes "ADIOS!"; - next; - mes "- Agent muttered something to himself. -"; - close; + } + mes "[RWC2011 Agent]"; + mes "It's not much but please keep it! Haha, we still have lots of cards to be found. I hope you can help me tomorrow as well."; + next; + mes "[RWC2011 Agent]"; + mes "Thank you!! I can continue working now. Nothing is impossible when we have great adventurers like you in this world!"; + next; + mes "[RWC2011 Agent]"; + mes "ADIOS!"; + next; + mes "- Agent muttered something to himself. -"; + close; } else { mes "[RWC2011 Agent]"; mes "Mmmm~ not yet? We're short-handed... Please help me."; @@ -207,8 +207,8 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ close; } } else if (oversea_event == 2) { - set .@playtime, checkquest(13001,PLAYTIME); - if (.@playtime == 0 || .@playtime == 1) { + .@playtime = questprogress(13001,PLAYTIME); + if (.@playtime == 1) { mes "[RWC2011 Agent]"; mes "First, I will start attaching cards you found... I'll take the rest of cards tomorrow."; mes "Please come back tomorrow."; @@ -218,7 +218,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "[RWC2011 Agent]"; mes "Thanks for the last time."; mes "I must keep on promoting the event so I want to ask you again~!"; - set oversea_event,3; + oversea_event = 3; close; } else if (oversea_event == 3) { mes "[RWC2011 Agent]"; @@ -231,7 +231,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "It's the same mission as before."; mes "Try to gather blue cards and make the word, ^FF0000R W C 2 0 1 1 ^000000."; mes "Good Luck!"; - set oversea_event,1; + oversea_event = 1; setquest 13000; close; case 2: diff --git a/npc/events/RWC_2012.txt b/npc/events/RWC_2012.txt index 33e3cec84..43b884a0d 100644 --- a/npc/events/RWC_2012.txt +++ b/npc/events/RWC_2012.txt @@ -21,7 +21,7 @@ prontera,147,61,3 script Driller#pron 4_M_BARBER,{ mes "You cannot proceed because you're overweight."; close; } - set .@part, EQI_ACC_L; + .@part = EQI_ACC_L; if (!getequipisequiped(.@part)) { mes "[Driller]"; mes "My job is to drill a card slot into RWC Memorial accessories."; @@ -33,7 +33,7 @@ prontera,147,61,3 script Driller#pron 4_M_BARBER,{ mes "[Driller]"; mes "My job is to drill a card slot into RWC Memorial accessories. Moreover, I only treat ^ff0000pure items^000000, or those which have not been enchanted."; next; - set .@equip_id, getequipid(.@part); + .@equip_id = getequipid(.@part); if (.@equip_id != 2966 && .@equip_id != 2968) { mes "[Driller]"; mes "However, I can see that the accessory you are wearing on the right side cannot be treated. Please equip a RWC Memorial accessory."; @@ -48,13 +48,13 @@ prontera,147,61,3 script Driller#pron 4_M_BARBER,{ close; } if (.@equip_id == 2966) { - set .@slotted, 2967; //RWC_2012_Ring_ - set .@name$,"RWC 2012 Memorial Ring"; - set .@str$,"ring"; + .@slotted = 2967; //RWC_2012_Ring_ + .@name$ = "RWC 2012 Memorial Ring"; + .@str$ = "ring"; } else if (.@equip_id == 2968) { - set .@slotted, 2969; //RWC_2012_Pendant_ - set .@name$,"RWC 2012 Memorial Pendant"; - set .@str$,"pendant"; + .@slotted = 2969; //RWC_2012_Pendant_ + .@name$ = "RWC 2012 Memorial Pendant"; + .@str$ = "pendant"; } else { mes "[Driller]"; mes "I can't identify the accessory item you're wearing on your right hand. I can't work on it."; @@ -93,25 +93,25 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "[Goldberg]"; mes "Hello! I am in charge of enchanting RWC Memorial accessories with some mystic powers."; next; - set .@part, EQI_ACC_L; + .@part = EQI_ACC_L; if (!getequipisequiped(.@part)) { mes "[Goldberg]"; mes "I'm sorry but you don't have any item equipped on your right accessory position."; close; } - set .@equip_id, getequipid(.@part); + .@equip_id = getequipid(.@part); if (.@equip_id < 2966 || .@equip_id > 2969) { mes "[Goldberg]"; mes "However, I can see that the accessory you are wearing is not something I can work on. Please equip a RWC Memorial accessory."; close; } - set .@select, select("Sorry, not interested.:Please, empower my accessory.:Remove the Enchant.")-1; + .@select = select("Sorry, not interested.:Please, empower my accessory.:Remove the Enchant.")-1; if (.@select == 0) { mes "[Goldberg]"; mes "Alright, then, see you next time..."; close; } - set .@equip_refine, getequiprefinerycnt(.@part); + .@equip_refine = getequiprefinerycnt(.@part); setarray .@equip_card[0], getequipcardid(.@part,0),getequipcardid(.@part,1),getequipcardid(.@part,2),getequipcardid(.@part,3); if (.@select == 1) { switch(getequipid(.@part)) { @@ -133,10 +133,10 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "If you have equipped your RWC Memorial accessory on the left side, try to swap it to the right side."; close; } - for(set .@i,3; .@i>=0; set .@i,.@i-1) { + for(.@i = 3; .@i >= 0; --.@i) { if (.@equip_card[.@i] == 0) { - set .@slot, .@i; - set .@op_type, .@option[.@i]; + .@slot = .@i; + .@op_type = .@option[.@i]; break; } } @@ -146,25 +146,25 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "Which enchantment would you like to infuse?"; next; setarray .@enchant_select[0],1,2,3,4; - set .@i, select("Cancel:Fighting Spirit:ATK (%):Max HP:HP")-2; + .@i = select("Cancel:Fighting Spirit:ATK (%):Max HP:HP")-2; break; case 3: setarray .@enchant_select[0],5,6,7; - set .@i, select("Cancel:Spell:MATK (%):SP")-2; + .@i = select("Cancel:Spell:MATK (%):SP")-2; break; case 2: mes "[Goldberg]"; mes "^ff0000Be careful! There is about a 25% chance that the enchantment will fail. If this happens, the item will be destroyed.^000000 Which enchantment would you like to infuse?"; next; setarray .@enchant_select[0],8,9,10,11,12,13,14; - set .@i, select("Cancel:STR:AGI:VIT:INT:DEX:LUK:SP")-2; + .@i = select("Cancel:STR:AGI:VIT:INT:DEX:LUK:SP")-2; break; case 1: mes "[Goldberg]"; mes "^ff0000There is about a 25% chance that the enchantment will fail. If this happens, the item will be destroyed.^000000 Which enchantment would you like to infuse?"; next; setarray .@enchant_select[0],8,9,10,11,12,13,15,16; - set .@i, select("Cancel:STR:AGI:VIT:INT:DEX:LUK:MHP:HP")-2; + .@i = select("Cancel:STR:AGI:VIT:INT:DEX:LUK:MHP:HP")-2; break; case 0: mes "[Goldberg]"; @@ -184,7 +184,7 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "Alright, then, see you next time..."; close; } - set .@enchant_type, .@enchant_select[.@i]; + .@enchant_type = .@enchant_select[.@i]; if (!getequipisequiped(.@part)) { mes "[Goldberg]"; mes "Do not take off your equipment while I'm working, okay?"; @@ -246,25 +246,25 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ } if (.@enchant_type < 8) - set .@i, rand(1,300); // 0% break chance. + .@i = rand(1,300); // 0% break chance. else - set .@i, rand(1,400); // 25% break chance. + .@i = rand(1,400); // 25% break chance. - if (.@i < 151) set .@enchant, .@enc[0]; - else if (.@i < 251) set .@enchant, .@enc[1]; - else if (.@i < 301) set .@enchant, .@enc[2]; - else set .@enchant,9; + if (.@i < 151) .@enchant = .@enc[0]; + else if (.@i < 251) .@enchant = .@enc[1]; + else if (.@i < 301) .@enchant = .@enc[2]; + else .@enchant = 9; - set .@equip_card[.@slot], .@enchant; + .@equip_card[.@slot] = .@enchant; if (.@slot == 2 && .@enchant == 0) { - set .@equip_card[3],0; + .@equip_card[3] = 0; } else if (.@slot == 1 && .@enchant == 0) { - set .@equip_card[2],0; - set .@equip_card[3],0; + .@equip_card[2] = 0; + .@equip_card[3] = 0; } else if (.@slot == 0 && .@enchant == 0) { - set .@equip_card[1],0; - set .@equip_card[2],0; - set .@equip_card[3],0; + .@equip_card[1] = 0; + .@equip_card[2] = 0; + .@equip_card[3] = 0; } delequip .@part; @@ -315,9 +315,9 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ delequip .@part; // GetNonSlotItemSock2 .@equip_refine .@equip_id .@equip_card[0] .@equip_card[1] .@equip_card[2] .@equip_card[3] - for(set .@i,0; .@i<4; set .@i,.@i+1) { + for(.@i = 0; .@i < 4; ++.@i) { if (.@equip_card[.@i] >= 4700) // Armor Enchant System - set .@equip_card[.@i],0; + .@equip_card[.@i] = 0; } getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; diff --git a/npc/events/StPatrick_2008.txt b/npc/events/StPatrick_2008.txt index c1816374f..a0b5fda61 100644 --- a/npc/events/StPatrick_2008.txt +++ b/npc/events/StPatrick_2008.txt @@ -99,7 +99,7 @@ prt_fild05,170,286,4 script Anxious Leprechaun#8pday 4_M_PATRICK,{ mes "[O'Riley the Leprechaun]"; mes "Ye might try some Firecrackers."; mes "Course, Ye would need a great number of them, Ye would need at least ^FF0000200 Firecreackers^000000"; - set StPatrick2008,1; + StPatrick2008 = 1; close; } else if (StPatrick2008 == 1) { @@ -136,7 +136,7 @@ prt_fild05,170,286,4 script Anxious Leprechaun#8pday 4_M_PATRICK,{ mes "[O'Riley the Leprechaun]"; mes "When ye have had a moment to rest ye legs, come talk to me again and we may speak again"; close2; - set StPatrick2008,3; + StPatrick2008 = 3; getexp 200000,70000; delitem 7721,1; end; @@ -153,7 +153,7 @@ prt_fild05,170,286,4 script Anxious Leprechaun#8pday 4_M_PATRICK,{ mes "I would be so generous to give you some of my famous brew if you would bring me the ill-gotten gains carried by those vile snakes"; next; mes "And if you find one of the treasures of my kin please bring me those coins so that the snakes don't get them."; - set StPatrick2008,4; + StPatrick2008 = 4; close; } else if (StPatrick2008 == 4) { @@ -229,7 +229,7 @@ OnTouch: mes "This box must contain O'Riley's valuables."; mes "Let's bring the box to O'Riley."; close2; - set StPatrick2008,2; + StPatrick2008 = 2; delitem 12018,200; getitem 7721,1; } diff --git a/npc/events/bossnia.txt b/npc/events/bossnia.txt index 8bb48661c..432c8e391 100644 --- a/npc/events/bossnia.txt +++ b/npc/events/bossnia.txt @@ -67,7 +67,7 @@ prontera,132,125,4 script Bossnia Staff#1 4_M_PHILMAN,{ mes "Would you really like to take the challenge?"; mes "Ok, just choose the course."; next; - set .@i, select("First","Second","Third","Fourth"); + .@i = select("First","Second","Third","Fourth"); mes "[Riss]"; mes "Take care, boy~"; mes "Don't hold a grudge against me."; diff --git a/npc/events/children_week.txt b/npc/events/children_week.txt index 48e9231d6..3ba99ebd2 100644 --- a/npc/events/children_week.txt +++ b/npc/events/children_week.txt @@ -40,7 +40,7 @@ prontera,146,91,5 script Pandit chacha#child07 1_M_PUBMASTER,{ mes "Whenever come back again if you want it..."; close; } - set oversea_event9,1; + oversea_event9 = 1; getitem 11705,10; //Special_White_Potion mes "[Pandit chacha]"; mes "Look. This is a child Potion."; @@ -68,7 +68,7 @@ prontera,146,91,5 script Pandit chacha#child07 1_M_PUBMASTER,{ close2; delitem 745,1; //Wedding_Bouquet delitem 748,1; //Witherless_Rose - set oversea_event9,2; + oversea_event9 = 2; getitem 11705,50; //Special_White_Potion end; } diff --git a/npc/events/christmas_2005.txt b/npc/events/christmas_2005.txt index 5236e5a54..c782e3b9d 100644 --- a/npc/events/christmas_2005.txt +++ b/npc/events/christmas_2005.txt @@ -261,7 +261,7 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ next; mes "["+ strcharinfo(0) +"]"; mes "Let's punish!!!!!!!!!!!!!!!!!!!!!!!!!!!"; - set christ_solo05,1; + christ_solo05 = 1; close; case 2: mes "[Enjoy]"; @@ -287,8 +287,8 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ mes "Get lost,you devil!!!!!!"; specialeffect EF_BEGINASURA; specialeffect2 EF_HIT2; - set Hp,Hp/2; - set Hp,Hp/2; + Hp /= 2; + Hp /= 2; close2; warp "prontera",155,230; end; @@ -397,7 +397,7 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ donpcevent "Event#event02::OnCommandEmotion"; misceffect EF_HITLINE2; delitem 604,5; //Branch_of_Dead_Tree - set christ_solo05,6; + christ_solo05 = 6; donpcevent "Happymerry#happymerry02::OnCommandOff"; donpcevent "Christ#christ02::OnCommandOff"; donpcevent "Mas#mas02::OnCommandOff"; @@ -458,7 +458,7 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ mes "Cheer up everybody!!!"; mes "Let's rock till you get happy~!"; mes ""; - set christ_solo05,0; + christ_solo05 = 0; close; } @@ -636,7 +636,7 @@ prontera,188,177,4 script Happymerry#happymerry 4_M_LGTMAN,{ mes "Call him for me!"; mes "I'll go ahead with my bags packed up."; mes "See ya!"; - set christ_solo05,2; + christ_solo05 = 2; close; } else if (christ_solo05 > 1) { @@ -716,7 +716,7 @@ prontera,62,339,3 script Christ#christ 4_M_PECOKNIGHT,{ mes "Go tell ^0000FFMas^000000"; mes "about this!!!"; mes "See ya~~!"; - set christ_solo05,3; + christ_solo05 = 3; close; } else if (christ_solo05 > 2) { @@ -807,7 +807,7 @@ prontera,163,66,7 script Mas#mas 4_M_ALCHE_A,{ mes "Well,bye~."; mes "I'll meet you there!!..."; mes "Herbs~?! Couples?! Whatever~~"; - set christ_solo05,4; + christ_solo05 = 4; close; } else if (christ_solo05 > 3) { @@ -888,7 +888,7 @@ prontera,35,209,5 script Event#event 4_M_SITDOWN,{ mes "Now I should get my ^0000FFBranch of Dead Tree^000000s packed up"; mes "and go punish singles!!!"; mes "Hahahaha.."; - set christ_solo05,5; + christ_solo05 = 5; close; } else if (christ_solo05 > 4) { @@ -1026,7 +1026,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "I feel so sad for disappointed"; mes "kids who didn't hear the carols."; next; - menu "...can I help you?",-; + select("...can I help you?"); mes "[Oholy]"; mes "Good gracious! Are you for real?"; mes "Oh? Shee... Can you hear it?"; @@ -1052,7 +1052,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Well then, hope you a good luck!!!"; mes " "; emotion e_no1; - set christ_carol05,1; + christ_carol05 = 1; close; case 4: mes "[Oholy]"; @@ -1186,7 +1186,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 12130,7;//Cookie_Bag close; case 2: @@ -1198,7 +1198,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 529,20;//Candy close; case 3: @@ -1210,7 +1210,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 530,15;//Candy_Striper close; case 4: @@ -1222,7 +1222,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 539,5;//Piece_of_Cake close; case 5: @@ -1234,7 +1234,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 538,10;//Well_baked_Cookie close; case 6: @@ -1246,7 +1246,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 743,1;//Spore_Doll close; case 7: @@ -1258,7 +1258,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 750,1;//Baphomet_Doll close; case 8: @@ -1270,7 +1270,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 751,1;//Osiris_Doll close; case 9: @@ -1282,7 +1282,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 752,1;//Grasshopper_Doll close; @@ -1295,7 +1295,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 753,1;//Monkey_Doll close; case 11: @@ -1307,7 +1307,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 754,1;//Raccoondog_Doll close; case 12: @@ -1320,7 +1320,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 7206,1;//Black_Kitty_Doll close; case 13: @@ -1331,7 +1331,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 7212,1;//Hanging_Doll close; case 14: @@ -1344,7 +1344,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 7277,1;//Munak_Doll close; case 15: @@ -1356,7 +1356,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 2236,1;//Santa's_Hat close; } @@ -1381,7 +1381,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "[Oholy]"; mes "Let's think about the neighbors"; mes "and do a good deed during Christmas!"; - set christ_carol05,0; + christ_carol05 = 0; close; } } @@ -1423,7 +1423,7 @@ function script F_carol_devi { mes "Sledge... Reindeer..."; mes "Hmm, I think I got what I need."; mes "Let's go back to Ms.Oholy."; - set christ_carol05,2; + christ_carol05 = 2; getitem 1097,1; //Worn_Out_Page close; case 2: diff --git a/npc/events/christmas_2008.txt b/npc/events/christmas_2008.txt index 192bf25ec..2b6d67eca 100644 --- a/npc/events/christmas_2008.txt +++ b/npc/events/christmas_2008.txt @@ -236,7 +236,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ mes "[Caroller]"; mes "They're definitely as harsh as their name."; mes "Go on please!"; - set iROxmas08carol,1; + iROxmas08carol = 1; close; case 4: @@ -338,7 +338,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ next; delitem 6092,6; emotion e_ok; - set iROxmas08carol,2; + iROxmas08carol = 2; mes "[Caroller]"; mes "Those are all needed."; mes "Isn't that easy?"; @@ -424,7 +424,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ delitem 7312,1; delitem 938,10; delitem 732,1; - set iROxmas08carol,3; + iROxmas08carol = 3; mes "[Caroller]"; mes "Thanks a lot."; mes "Merry Christmas!"; @@ -510,8 +510,8 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ mes "Please visit me after the one hour has passed."; close; } - set .@SantaCardTurn,0; - set .@SantaCardWins,0; + .@SantaCardTurn = 0; + .@SantaCardWins = 0; mes "[Santa Claus]"; mes "Wow! You're so cool!"; next; @@ -557,27 +557,27 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ case 1: mes "["+strcharinfo(0)+"]"; mes "Um...I choose Poring!"; - set .@SantaCardP,1; + .@SantaCardP = 1; next; break; case 2: mes "["+strcharinfo(0)+"]"; mes "Um...I choose Angeling!"; - set .@SantaCardP,2; + .@SantaCardP = 2; next; break; case 3: mes "["+strcharinfo(0)+"]"; mes "Um...I choose Ghostring!"; - set .@SantaCardP,3; + .@SantaCardP = 3; next; } mes "[Santa Claus]"; mes "Let's see!!"; mes "One! Two! Three!"; - set .@SantaCardNpc, rand(1,3); + .@SantaCardNpc = rand(1,3); next; mes "[Santa Claus]"; mes "Let's see!!"; @@ -592,9 +592,9 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card } next; - set .@SantaCardTurn,.@SantaCardTurn+1; + ++.@SantaCardTurn; if (.@SantaCardP == .@SantaCardNpc) { - set .@SantaCardWins,.@SantaCardWins+1; + ++.@SantaCardWins; emotion e_gasp; emotion e_ic,1; cutin "",255; @@ -626,7 +626,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ mes "[Santa Claus]"; mes "Now this gift is for you."; mes "Put your hand into the bag and pick only one."; - set .@SantaCardPrize, rand(1,12); + .@SantaCardPrize = rand(1,12); next; if (.@SantaCardPrize == 1) { getitem 12354,2; @@ -664,7 +664,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ else if (.@SantaCardPrize == 12) { getitem 594,3; } - set SantaCardTime,gettimetick(2)+3600; + SantaCardTime = gettimetick(2)+3600; mes "[Santa Claus]"; mes "Good job! Thanks for playing the card game with me!"; mes "Merry Christmas!"; diff --git a/npc/events/dumplingfestival.txt b/npc/events/dumplingfestival.txt index 6c5a3b6b5..23a085eb8 100644 --- a/npc/events/dumplingfestival.txt +++ b/npc/events/dumplingfestival.txt @@ -21,60 +21,48 @@ payon,93,81,4 script Exorcist Master Fahae 4_M_BUDDHIST,{ mes "I feel it is time I let another warrior try to complete"; mes "my quest. I have some items to assist you in my quest."; next; - menu "I wish to buy",-, "No thanks",M_FIN; - + if (select("I wish to buy","No thanks") != 1) { + mes "[Exorcist Master Fahae]"; + mes "The path of fully venquishing evil is far, help me in the way of God."; + close; + } mes "[Exorcist Master Fahae]"; mes "I have 2 items which might become useful to you."; next; - menu "Realgar Wine",-, "Exorcize Herb",M_HERB; - + switch (select("Realgar Wine","Exorcize Herb")) { + case 1: + .@itemid = Realgar_Wine; // 682 + .@price = 20000; + break; + case 2: + .@itemid = Exorcize_Herb; // 683 + .@price = 10000; + break; + } mes "[Exorcist Master Fahae]"; mes "How many do you require?"; mes "You may only buy 5 at one time."; - mes "Each costs 20000z."; + mes "Each costs "+ .@price +"z."; mes "(Type in 0 to cancel)"; next; input @input; - if(@input==0) close; - if(@input>5) goto L_SORRY; - if(Zeny< @input*20000) goto L_NoZeny; - Zeny -= 20000*@input; - getitem 682,@input; + if (@input == 0) + close; + if (@input > 5) { + mes "[Exorcist Master Fahae]"; + mes "You must not be stingy, it is the path of God to be honest."; + close; + } + if (Zeny < @input * .@price) { + mes "[Exorcist Master Fahae]"; + mes "Money doesn't bring joy to everyone, but we need it to support the temple and myself. Please, try to kill some monsters and take their drops."; + close; + } + Zeny -= @input * .@price; + getitem .@itemid, @input; mes "[Exorcist Master Fahae]"; mes "Here you go, I hope you may succeed in my quest."; close; - -L_SORRY: - mes "[Exorcist Master Fahae]"; - mes "You must not be stingy, it is the path of God to be honest."; - close; - -M_FIN: - mes "[Exorcist Master Fahae]"; - mes "The path of fully venquishing evil is far, help me in the way of God."; - close; - -M_HERB: - mes "[Exorcist Master Fahae]"; - mes "How many do you require?"; - mes "You may only buy 5 at one time."; - mes "Each costs 10000z."; - mes "(Type in 0 to cancel)"; - next; - input @input; - if(@input==0) close; - if(@input>5) goto L_SORRY; - if(Zeny< @input*10000) goto L_NoZeny; - Zeny -= 10000*@input; - getitem 683,@input; - mes "[Exorcist Master Fahae]"; - mes "Here you go, I hope you may succeed in my quest."; - close; - -L_NoZeny: - mes "[Exorcist Master Fahae]"; - mes "Money doesn't bring joy to everyone, but we need it to support the temple and myself. Please, try to kill some monsters and take their drops."; - close; } // Monsters diff --git a/npc/events/easter_2008.txt b/npc/events/easter_2008.txt index 79dfc4cce..5b53831a4 100644 --- a/npc/events/easter_2008.txt +++ b/npc/events/easter_2008.txt @@ -90,7 +90,7 @@ prontera,111,99,5 script Egg Salesman#prt::EggVendor 4W_M_02,{ next; } else { - set .@egg_zeny,.@input*500; + .@egg_zeny = .@input*500; if (Zeny < .@egg_zeny) { mes "[Egg Salesman]"; mes "You don't have enough Zeny."; @@ -173,7 +173,7 @@ prontera,108,96,5 script Cantankerous Geezer#prt::EggGeezer 4_M_SEAMAN,{ mes "giving to them in return?"; close2; if (easter2008 < 1) { - set easter2008,1; + easter2008 = 1; } end; } @@ -341,7 +341,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "more, then why don't you"; mes "bring me 10 Holy Eggs?"; mes "That is my condition."; - set easter2008,2; + easter2008 = 2; close; case 2: mes "[Corps Member]"; @@ -388,7 +388,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "for joining us. Now, I can"; mes "tell you about what we do."; delitem 12019,10; //Holy_Egg - set easter2008,3; + easter2008 = 3; getitem 644,2; //Gift_Box next; mes "[Corps Member]"; @@ -441,7 +441,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "Go and bring me"; mes "33 Holy Eggs! I shall be"; mes "waiting here for your return..."; - set easter2008,4; + easter2008 = 4; close; } else if (easter2008 == 4) { @@ -468,7 +468,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "Sacrifice the Holy Eggs there,"; mes "and then return to me. Now..."; mes "Go, and bring him back to life!"; - set easter2008,5; + easter2008 = 5; close; } else if ((BaseLevel > 40) && (BaseLevel < 61)) { @@ -479,7 +479,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "at the entrance to the 4th"; mes "level. Sacrifice the Holy Eggs"; mes "there, and return him to life!"; - set easter2008,6; + easter2008 = 6; close; } else if ((BaseLevel > 60) && (BaseLevel < 81)) { @@ -490,7 +490,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "Sacrifice the Holy Eggs as soon"; mes "as you get to the 3rd floor."; mes "Go, and bring him back to life!"; - set easter2008,7; + easter2008 = 7; close; } else { @@ -501,7 +501,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "2nd floor. A hero perished"; mes "there, but you shall bring"; mes "him back to the living!"; - set easter2008,8; + easter2008 = 8; close; } } @@ -593,7 +593,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "and then try again next year."; mes "Farewell, my friend, and I hope"; mes "that you'll assist us again."; - set easter2008,10; + easter2008 = 10; if (BaseLevel < 41) { getexp 5000,0; getexp 5000,0; @@ -658,7 +658,7 @@ pay_dun00,22,127,0 script Trace#egg1 CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { @@ -710,7 +710,7 @@ iz_dun02,340,346,0 script Trace#egg CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { @@ -762,7 +762,7 @@ mjo_dun03,308,256,0 script Trace#egg2 CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { @@ -814,7 +814,7 @@ gl_prison,157,176,0 script Trace#egg3 CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { diff --git a/npc/events/easter_2010.txt b/npc/events/easter_2010.txt index 292b91948..70ebbe4fa 100644 --- a/npc/events/easter_2010.txt +++ b/npc/events/easter_2010.txt @@ -36,8 +36,8 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ mes "Take care~!"; close; } - set .@quest1, checkquest(9117); - if (.@quest1 == -1) { + .@quest1 = questprogress(9117); + if (!.@quest1) { playbgm "30.mp3"; // One Step Closer mes "[Rina]"; mes "Hi~!"; @@ -96,7 +96,7 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ mes "Let me know when you are ready."; setquest 9117; close; - } else if (.@quest1 == 0 || .@quest1 == 1) { + } else if (.@quest1 == 1) { L_HuntingInfo: mes "[Rina]"; mes "What you need to do is"; @@ -123,8 +123,8 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ npcskill "AL_BLESSING",1,0,0; end; } else if (.@quest1 == 2) { - if (checkquest(9118) < 2 || checkquest(9119) < 2 || checkquest(9120) < 2 || checkquest(9121) < 2) { - if (checkquest(9118,HUNTING) == 2 || checkquest(9119,HUNTING) == 2 || checkquest(9120,HUNTING) == 2 || checkquest(9121,HUNTING) == 2) { + if (questprogress(9118) != 2 || questprogress(9119) != 2 || questprogress(9120) != 2 || questprogress(9121) != 2) { + if (questprogress(9118,HUNTING) == 2 || questprogress(9119,HUNTING) == 2 || questprogress(9120,HUNTING) == 2 || questprogress(9121,HUNTING) == 2) { mes "[Rina]"; mes "You did it."; mes "I can feel that my body is recovering."; @@ -144,8 +144,7 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ end; } } - set .@quest2, checkquest(9122); - if (.@quest2 == 0 || .@quest2 == 1) { + if (questprogress(9122) == 1) { mes "[Rina]"; mes "I will check one thing."; mes "For this task,"; @@ -185,10 +184,10 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ else if (oversea_event9 == 197) playbgm "94.mp3"; // Theme of Rachel else { switch(rand(1,4)) { - case 1: playbgm "13.mp3"; set oversea_event2,520; break; - case 2: playbgm "59.mp3"; set oversea_event3,270; break; - case 3: playbgm "70.mp3"; set oversea_event6,245; break; - case 4: playbgm "94.mp3"; set oversea_event9,197; break; + case 1: playbgm "13.mp3"; oversea_event2 = 520; break; + case 2: playbgm "59.mp3"; oversea_event3 = 270; break; + case 3: playbgm "70.mp3"; oversea_event6 = 245; break; + case 4: playbgm "94.mp3"; oversea_event9 = 197; break; } } } @@ -215,87 +214,84 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ close2; emotion e_sigh; end; - } else { - set .@quest3, checkquest(9123); - if (.@quest3 == 0 || .@quest3 == 1) { - emotion e_kis; + } + if (questprogress(9123) == 1) { + emotion e_kis; + mes "[Rina]"; + mes "You're back~!"; + mes "My curse has been released."; + mes "Thank you so much."; + next; + if (checkweight(5852,1) == 0) { mes "[Rina]"; - mes "You're back~!"; - mes "My curse has been released."; - mes "Thank you so much."; - next; - if (checkweight(5852,1) == 0) { - mes "[Rina]"; - mes "Your bag is too full."; - mes "I have a present for you"; - mes "so make your bag lighter."; - mes "I'll wait for you."; - close; - } - completequest 9123; - getitem 5852,1; //Easter_Egg_Shell - set .@BaseExp, (BaseLevel * (BaseLevel / 4)) * ((BaseLevel / 29) + (BaseLevel / 6)) + (5 * BaseLevel / 2); - if (ADVJOB == 0) { - if (BaseLevel < 40) set .@nBaseExp, .@BaseExp; - else if (BaseLevel < 50) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel); - else if (BaseLevel < 60) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 20)); - else if (BaseLevel < 70) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); - else if (BaseLevel < 80) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); - else if (BaseLevel < 90) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); - else if (BaseLevel < 99) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); - else set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2) * 2); - - set .@nJobExp, (JobLevel * (JobLevel - 3) * (JobLevel / 25 + 1) + (16 - (JobLevel * 2))) * 2; - } else { - if (BaseLevel < 30) set .@nBaseExp, .@BaseExp; - else if (BaseLevel < 40) set .@nBaseExp, .@BaseExp + (BaseLevel * 10); - else if (BaseLevel < 50) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * 2); - else if (BaseLevel < 60) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); - else if (BaseLevel < 70) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); - else if (BaseLevel < 80) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); - else if (BaseLevel < 90) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); - else if (BaseLevel < 98) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * BaseLevel); - else set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * BaseLevel * 2); + mes "Your bag is too full."; + mes "I have a present for you"; + mes "so make your bag lighter."; + mes "I'll wait for you."; + close; + } + completequest 9123; + getitem 5852,1; //Easter_Egg_Shell + .@BaseExp = (BaseLevel * (BaseLevel / 4)) * ((BaseLevel / 29) + (BaseLevel / 6)) + (5 * BaseLevel / 2); + if (ADVJOB == 0) { + if (BaseLevel < 40) .@nBaseExp = .@BaseExp; + else if (BaseLevel < 50) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel); + else if (BaseLevel < 60) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 20)); + else if (BaseLevel < 70) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); + else if (BaseLevel < 80) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); + else if (BaseLevel < 90) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); + else if (BaseLevel < 99) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); + else .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2) * 2); - set .@nJobExp, (JobLevel * JobLevel * (JobLevel / 5 + 2) + (20 - JobLevel)) * 3; - } - getexp .@nBaseExp,.@nJobExp; - mes "[Rina]"; - mes "This is the present for you."; - mes "It's not a big one"; - mes "but please take it"; - mes "as a token of my gratitude."; - next; - mes "[Rina]"; - mes "I'll take a rest for a few days"; - mes "and then I'll go on an adventure."; - mes "See you again."; - close2; - consumeitem 607; //Yggdrasilberry - consumeitem 12068; //Luk_Dish03 - consumeitem 12063; //Dex_Dish03 - consumeitem 12053; //Vit_Dish03 - npcskill "AL_INCAGI",1,0,0; - npcskill "AL_BLESSING",1,0,0; - end; + .@nJobExp = (JobLevel * (JobLevel - 3) * (JobLevel / 25 + 1) + (16 - (JobLevel * 2))) * 2; } else { - mes "[Rina]"; - mes "Thank you for releasing my curse."; - mes "I'll take a rest for a few days"; - mes "and then go on an adventure again."; - mes "Have a happy day~!"; - close2; - consumeitem 607; //Yggdrasilberry - npcskill "AL_INCAGI",1,0,0; - npcskill "AL_BLESSING",1,0,0; - end; + if (BaseLevel < 30) .@nBaseExp = .@BaseExp; + else if (BaseLevel < 40) .@nBaseExp = .@BaseExp + (BaseLevel * 10); + else if (BaseLevel < 50) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * 2); + else if (BaseLevel < 60) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); + else if (BaseLevel < 70) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); + else if (BaseLevel < 80) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); + else if (BaseLevel < 90) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); + else if (BaseLevel < 98) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * BaseLevel); + else .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * BaseLevel * 2); + + .@nJobExp = (JobLevel * JobLevel * (JobLevel / 5 + 2) + (20 - JobLevel)) * 3; } + getexp .@nBaseExp,.@nJobExp; + mes "[Rina]"; + mes "This is the present for you."; + mes "It's not a big one"; + mes "but please take it"; + mes "as a token of my gratitude."; + next; + mes "[Rina]"; + mes "I'll take a rest for a few days"; + mes "and then I'll go on an adventure."; + mes "See you again."; + close2; + consumeitem 607; //Yggdrasilberry + consumeitem 12068; //Luk_Dish03 + consumeitem 12063; //Dex_Dish03 + consumeitem 12053; //Vit_Dish03 + npcskill "AL_INCAGI",1,0,0; + npcskill "AL_BLESSING",1,0,0; + end; } + mes "[Rina]"; + mes "Thank you for releasing my curse."; + mes "I'll take a rest for a few days"; + mes "and then go on an adventure again."; + mes "Have a happy day~!"; + close2; + consumeitem 607; //Yggdrasilberry + npcskill "AL_INCAGI",1,0,0; + npcskill "AL_BLESSING",1,0,0; + end; } geffen,207,114,4 script #Hiddne01Easter CLEAR_NPC,{ if (oversea_event2 > 519) { - OnRelease: +OnRelease: specialeffect EF_PATTACK; mes "- I found ^0000FFthe strange mark^000000. -"; next; @@ -304,7 +300,7 @@ geffen,207,114,4 script #Hiddne01Easter CLEAR_NPC,{ mes "- ^0000FFRina^000000 has been released"; mes "- from the curse."; mes "- ^006400Let's go back to Rina!^000000"; - if (checkquest(9122) < 2) { + if (questprogress(9122) != 2) { completequest 9122; setquest 9123; } @@ -333,7 +329,7 @@ rachel,36,132,4 script #Hiddne04Easter CLEAR_NPC,{ prontera,204,297,3 script Rina's Little Friend 4_DRAGON_EGG,{ disable_items; - if (checkquest(9117) == -1) { + if (!questprogress(9117)) { emotion e_swt2; mes "[Rina's Little Friend]"; mes "......."; @@ -341,7 +337,7 @@ prontera,204,297,3 script Rina's Little Friend 4_DRAGON_EGG,{ mes "^787878( No response. )^000000"; close; } - if (checkquest(9123) == 2) { + if (questprogress(9123) == 2) { emotion e_meh; mes "[Rina's Little Friend]"; mes "Hi."; @@ -352,13 +348,13 @@ prontera,204,297,3 script Rina's Little Friend 4_DRAGON_EGG,{ case 1: if (ADVJOB == 0) { if (BaseLevel < 70) - set .@nCharge,400000; + .@nCharge = 400000; else if (BaseLevel < 90) - set .@nCharge,450000; + .@nCharge = 450000; else - set .@nCharge,480000; + .@nCharge = 480000; } else - set .@nCharge,500000; + .@nCharge = 500000; if (countitem(574) < 1 || countitem(1001) < 20 || Zeny < .@nCharge) { mes "[Rina's Little Friend]"; mes "Hmm."; @@ -385,7 +381,7 @@ prontera,204,297,3 script Rina's Little Friend 4_DRAGON_EGG,{ delitem 574,1; //Egg delitem 1001,20; //Sparkling_Dust Zeny -= .@nCharge; - set .@nPercentage, rand(1,100); + .@nPercentage = rand(1,100); if (.@nPercentage <= 41) { mes "[Rina's Little Friend]"; mes "Life is given to the egg."; diff --git a/npc/events/event_skill_reset.txt b/npc/events/event_skill_reset.txt index 718fe2e0e..4b0d2b2a7 100644 --- a/npc/events/event_skill_reset.txt +++ b/npc/events/event_skill_reset.txt @@ -14,7 +14,7 @@ //= Each 1 BaseLv need 20.000 Zeny, so be careful to use skill. //============================================================ yuno,138,187,4 script Hypnotist Teacher 4_F_TELEPORTER,{ - set @npcname$,"[^D5A500Hypnotist^000000]"; + @npcname$ = "[^D5A500Hypnotist^000000]"; mes @npcname$; if(MISC_QUEST & 1024){ @@ -30,7 +30,7 @@ yuno,138,187,4 script Hypnotist Teacher 4_F_TELEPORTER,{ mes "Please come again soon!"; close; } - if(Weight || checkfalcon() || checkcart() || checkriding()) { + if(Weight || checkfalcon() || checkcart() || checkmount()) { mes "Would you like to reset skills?"; mes "I'm sorry, but..."; next; @@ -43,8 +43,8 @@ yuno,138,187,4 script Hypnotist Teacher 4_F_TELEPORTER,{ mes "Please, drop your cart and we'll continue."; else if(checkfalcon()) mes "Please, free your Falcon and we'll continue."; - else if(checkriding()) - mes "Please, free your PecoPeco and we'll continue."; + else if(checkmount()) + mes "Please, free your mount and we'll continue."; next; mes @npcname$; mes "Come back soon!"; @@ -54,54 +54,53 @@ yuno,138,187,4 script Hypnotist Teacher 4_F_TELEPORTER,{ mes "Your name is ^0080FF"+strcharinfo(0)+"^000000."; mes "How can I help you?"; next; - menu "^009500Information about Reset skills.^000000",L_Info,"^00B6FFReset skills.^000000",L_Reset,"^000088Nevermind^000000",-; - - mes @npcname$; - mes "You know where to find me,"; - mes "if you ever want a reset!!"; - close; - -L_Info: - mes @npcname$; - mes "This skill reset is not FREE OF CHARGE!!"; - mes "Expense for the reset of skill is ^D5A50020000 Zeny x BaseLv^000000."; - mes "Yeah ...each One BaseLv costs 20000 Zeny to reset skill."; - next; - mes @npcname$; - mes "Oh yeah, one more thing!"; - mes "Any carts, falcons or pecos you have equiped"; - mes "will be removed if you reset your skills."; - next; - mes @npcname$; - mes "Just one time does again to shake the skill point"; - mes "Careful with your skills from here on."; - close; - -L_Reset: - mes @npcname$; - mes "Before skill reset in starting."; - mes "You shall have to first tell me your Base Level."; - next; - mes "^D5A500[" + strcharinfo(0) + "]^000000"; - mes "My Base level is ^AA00AALevel " + BaseLevel + "BaseLv.^000000"; - next; - set @zeny,BaseLevel*20000; - mes @npcname$; - mes "Total zeny to the reset of skill amount ^529DFF" + @zeny + "Zeny^000000 for the skill reset service."; - next; - if(Zeny < @zeny) { + switch (select("^009500Information about Reset skills.^000000","^00B6FFReset skills.^000000","^000088Nevermind^000000")) { + case 1: // Information mes @npcname$; - mes "It seems that you don't have enough money."; - mes "In addition we wait for the opportunity."; - emotion e_hmm; + mes "This skill reset is not FREE OF CHARGE!!"; + mes "Expense for the reset of skill is ^D5A50020000 Zeny x BaseLv^000000."; + mes "Yeah ...each One BaseLv costs 20000 Zeny to reset skill."; + next; + mes @npcname$; + mes "Oh yeah, one more thing!"; + mes "Any carts, falcons or pecos you have equiped"; + mes "will be removed if you reset your skills."; + next; + mes @npcname$; + mes "Just one time does again to shake the skill point"; + mes "Careful with your skills from here on."; + close; + case 2: // Reset + mes @npcname$; + mes "Before skill reset in starting."; + mes "You shall have to first tell me your Base Level."; + next; + mes "^D5A500[" + strcharinfo(0) + "]^000000"; + mes "My Base level is ^AA00AALevel " + BaseLevel + "BaseLv.^000000"; + next; + @zeny = BaseLevel*20000; + mes @npcname$; + mes "Total zeny to the reset of skill amount ^529DFF" + @zeny + "Zeny^000000 for the skill reset service."; + next; + if (Zeny < @zeny) { + mes @npcname$; + mes "It seems that you don't have enough money."; + mes "In addition we wait for the opportunity."; + emotion e_hmm; + close; + } + Zeny -= @zeny; + MISC_QUEST |= 1024; + resetskill; + mes @npcname$; + mes "Thank you."; + emotion e_thx; + logmes "SKILL RESET EVENT"; + close; + case 3: // Nevermind + mes @npcname$; + mes "You know where to find me,"; + mes "if you ever want a reset!!"; close; } - Zeny -= @zeny; - set MISC_QUEST,MISC_QUEST | 1024; - resetskill; - mes @npcname$; - mes "Thank you."; - emotion e_thx; - logmes "SKILL RESET EVENT"; - close; } diff --git a/npc/events/gdevent_aru.txt b/npc/events/gdevent_aru.txt index 22d30e12c..7b68eb980 100644 --- a/npc/events/gdevent_aru.txt +++ b/npc/events/gdevent_aru.txt @@ -29,7 +29,7 @@ OnTimer3600000: arug_dun01,1,2,1 script Monster Controler1#aru 4_DOG01,{ OnEnable: - set .@callwhere,rand(1,4); + .@callwhere = rand(1,4); if (.@callwhere == 1) { monster "arug_dun01",150,340,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead"; } @@ -63,12 +63,12 @@ arug_dun01,199,195,5 script Dwarf#aru_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_a1 == 0) { if ($@gdevents_a$ == "") { - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -141,8 +141,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -152,8 +152,8 @@ arug_dun01,199,195,5 script Dwarf#aru_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_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; close2; setquest 2144; warp "arug_que01",103,133; @@ -161,16 +161,16 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; 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_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ahhh..."; @@ -178,8 +178,7 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else if ($@gdevents_a$ == .@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_a$+" guild."; mes "Oh, you are a member."; @@ -200,8 +199,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -274,8 +273,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -285,8 +284,8 @@ arug_dun01,199,195,5 script Dwarf#aru_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_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; close2; setquest 2144; warp "arug_que01",103,133; @@ -294,16 +293,16 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; 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_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -321,8 +320,7 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } else { if ($@gdevents_a$ == .@chk_yourgdname$) { - set .@chk_urquest1,checkquest(2144); - if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) { + if (questprogress(2144) == 1) { mes "[Morestone]"; mes "[Morestone]"; mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild."; @@ -344,8 +342,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -418,8 +416,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather you friends."; close; @@ -429,8 +427,8 @@ arug_dun01,199,195,5 script Dwarf#aru_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_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; close2; setquest 2144; warp "arug_que01",103,133; @@ -438,16 +436,16 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; 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_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -467,8 +465,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ OnInit: disablenpc "Dwarf#aru_gd"; - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; end; OnEnable: @@ -478,7 +476,7 @@ OnEnable: arug_que01,100,81,3 script Pierrot Pier#aru_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#aru_gd", 4_GHOSTRING; } @@ -504,8 +502,8 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ } if (strcharinfo(0) == getguildmaster(getcharid(2))) { if ($@gdeventv_a2 == 0) { - set .@que_2143,checkquest(2143,PLAYTIME); - if (.@que_2143 == -1) { + .@que_2143 = questprogress(2143,PLAYTIME); + if (!.@que_2143) { setnpcdisplay "Pierrot Pier#aru_gd", 4_M_PIERROT; mes "A lonely clown is juggling."; next; @@ -589,7 +587,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ donpcevent "Gergath#aru_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; @@ -659,7 +657,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_a2,1; + $@gdeventv_a2 = 1; donpcevent "Controller#gdevent_a::OnGame_start"; erasequest 2143; close; @@ -676,7 +674,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -761,14 +759,13 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_a2,10; + $@gdeventv_a2 = 10; donpcevent "Controller#gdevent_a::OnGame_start"; close; } } else if ($@gdeventv_a2 == 3) { - set .@que_2143,checkquest(2143); - if (.@que_2143 == 3) { + if (questprogress(2143) == 2) { erasequest 2143; } mes "[Pierrot Pier]"; @@ -785,7 +782,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ mapannounce "arug_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 "arug_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00"; donpcevent "eff_mvp#aru_gd::OnMVP"; - set $@gdeventv_a2,5; + $@gdeventv_a2 = 5; getitem 14596,10; //Pierre_Treasurebox close; } @@ -818,7 +815,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -928,7 +925,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -992,7 +989,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -1021,7 +1018,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ arug_que01,10,10,3 script Controller#gdevent_a 4_DOG01,{ OnInit: - set $@gdeventv_a2,0; + $@gdeventv_a2 = 0; end; OnWin: @@ -1039,7 +1036,7 @@ OnGame_start: donpcevent "paper_sp_7_a::OnEnable"; donpcevent "paper_sp_8_a::OnEnable"; donpcevent "paper_sp_9_a::OnEnable"; - set .@roulette_where,rand(1,9); + .@roulette_where = rand(1,9); if (.@roulette_where == 1) { donpcevent "paper_sp_1_a::OnBingo"; } @@ -1081,7 +1078,7 @@ OnTimer60000: mapannounce "arug_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00"; mapwarp "arug_que01","arug_que01",100,79; enablenpc "removepp_aru_gd"; - set $@gdeventv_a2,2; + $@gdeventv_a2 = 2; end; OnTimer63000: @@ -1093,23 +1090,22 @@ arug_que01,87,93,0 script paper_sp_1_a 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,"arug_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,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB end; } @@ -1118,23 +1114,22 @@ arug_que01,102,93,0 script paper_sp_2_a 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,"arug_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,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB end; } @@ -1143,23 +1138,22 @@ arug_que01,117,93,0 script paper_sp_3_a 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,"arug_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,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB end; } @@ -1168,23 +1162,23 @@ arug_que01,87,80,0 script paper_sp_4_a 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); + ++.@paper_while4; + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6030,1,"arug_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,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB end; } @@ -1193,23 +1187,22 @@ arug_que01,102,80,0 script paper_sp_5_a 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); + } else { + ++.@paper_while5; + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6030,1,"arug_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,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB end; } @@ -1218,23 +1211,22 @@ arug_que01,117,80,0 script paper_sp_6_a 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,"arug_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,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB end; } @@ -1243,23 +1235,22 @@ arug_que01,87,65,0 script paper_sp_7_a 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,"arug_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,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB end; } @@ -1268,23 +1259,23 @@ arug_que01,102,65,0 script paper_sp_8_a 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); + ++.@paper_while8; + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6030,1,"arug_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,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB end; } @@ -1293,23 +1284,23 @@ arug_que01,117,65,0 script paper_sp_9_a 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); + ++.@paper_while9; + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6030,1,"arug_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,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB end; } @@ -1322,8 +1313,8 @@ OnInit: end; OnTouch2: - set .@paper_aru_gd,countitem(6030); - set .@spaper_aru_gd,countitem(6031); + .@paper_aru_gd = countitem(6030); + .@spaper_aru_gd = countitem(6031); if ((.@paper_aru_gd > 0) || (.@spaper_aru_gd > 0)) { delitem 6030,.@paper_aru_gd; //Glitering_PaperA delitem 6031,.@spaper_aru_gd; //Glitering_PaperB @@ -1447,7 +1438,7 @@ OnEnable: OnMyMobDead: if (mobcount("arug_que01","treg#aru_gd::OnMyMobDead") == 0) { mapannounce "arug_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00"; - set $@gdeventv_a2,5; + $@gdeventv_a2 = 5; } end; } @@ -1525,9 +1516,9 @@ arug_dun01,5,5,1 script Event controller#aru_gd 4_DOG01,{ donpcevent "Monster Controler1#aru::OnControler1#aru_gd"; donpcevent "Monster Controler1#aru::OnControler1#aru_gd"; disablenpc "Dwarf#aru_gd"; - set $@gdeventv_a1,0; - set $@gdeventv_a2,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdeventv_a2 = 0; + $@gdevents_a$ = ""; close; case 2: mes "Good bye~"; 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~"; diff --git a/npc/events/god_se_festival.txt b/npc/events/god_se_festival.txt index 54bf2b6d3..3b7dd50e8 100644 --- a/npc/events/god_se_festival.txt +++ b/npc/events/god_se_festival.txt @@ -45,7 +45,7 @@ yuno,1,1,0 script Festival Manager#gq_fes0 4_F_HUGIRL,{ } yuno,118,192,5 script Rmimi Ravies#gq_fes01 4_F_HUGIRL,{ - set .@GID, getcharid(2); + .@GID = getcharid(2); if (countitem(7840) > 0) { mes "[Rmimi Ravies]"; mes "This is the flower."; @@ -166,7 +166,7 @@ OnDisable: OnStart: initnpctimer; - set $@gqse_festival,1; + $@gqse_festival = 1; end; OnCall: @@ -197,7 +197,7 @@ OnCall: OnOver: killmonster "yuno","Rmimi Ravies#gq_fes01::OnMyMobDead"; - set $@gqse_festival,0; + $@gqse_festival = 0; stopnpctimer; end; @@ -423,7 +423,7 @@ rachel,1,1,0 script Festival Manager#gq_fes2 4_F_HUGIRL,{ } rachel,132,117,3 script Rhehe Ravies#gq_fes03 4_F_HUGIRL,{ - set .@GID, getcharid(2); + .@GID = getcharid(2); if (countitem(7840) > 0) { mes "[Rhehe Ravies]"; mes "A flower!!"; @@ -548,7 +548,7 @@ OnDisable: OnStart: initnpctimer; - set $@gqse_festival,1; + $@gqse_festival = 1; end; OnCall: @@ -579,7 +579,7 @@ OnCall: OnOver: killmonster "rachel","Rhehe Ravies#gq_fes03::OnMyMobDead"; - set $@gqse_festival,0; + $@gqse_festival = 0; stopnpctimer; end; diff --git a/npc/events/halloween_2006.txt b/npc/events/halloween_2006.txt index 06c101529..426bff65b 100644 --- a/npc/events/halloween_2006.txt +++ b/npc/events/halloween_2006.txt @@ -296,7 +296,7 @@ geffen,145,132,3 script Hoirin#06_hw 4_F_NOVICE,{ mes "[Hoirin]"; mes "Just Bring Pumpkin Mojo, Pumpkin, and a Egg."; mes "Leave the rest for me..You'll get to try the best pumkin pie!"; - set halloween, 100; + halloween = 100; close; } mes "[Hoirin]"; @@ -355,7 +355,7 @@ geffen,145,132,3 script Hoirin#06_hw 4_F_NOVICE,{ if (select("Send me.:It's ok.") == 1) { mes "[Hoirin]"; mes "Ok, go get the eggs."; - set halloween, 101; + halloween = 101; close2; warp "nif_fild01", 162, 113; end; @@ -434,7 +434,7 @@ nif_in,19,32,3 script Deviruchi#06_hw 4_DEVIRUCHI,{ mes "Hmm...This would be good."; mes "Here take this, and thanks again~"; delitem 12192, 1;//Pumpkin_Pie - set @hw_temp,rand(1,3); + @hw_temp = rand(1,3); if (@hw_temp == 2) getitem 12130,1; //Cookie_Bag else getitem 7460,3; //Nifl_Express_Ticket close; @@ -518,7 +518,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ mes "Thanks."; mes "Here are the eggs."; Zeny -= 2000; - set halloween, 102; + halloween = 102; getitem 574,2; //Egg close; } @@ -534,7 +534,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ mes "Thanks."; mes "Here are the eggs."; Zeny -= 1000; - set halloween, 102; + halloween = 102; getitem 574,1; //Egg close; } @@ -614,7 +614,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ else break; } - set .@hw_egg, .@input * 1000; + .@hw_egg = .@input * 1000; if (Zeny < @hw_egg) { mes "[Chicken Masta]"; mes "You don't seem to have enough zeny."; @@ -626,7 +626,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ mes "If you want more eggs, find me more chickens."; Zeny -= @hw_egg; getitem 574, @input;//Egg - set halloween, 102; + halloween = 102; close; } else { @@ -656,7 +656,7 @@ nif_fild01,167,113,3 script Masta's chicken#06_hw01 4_NFCOCK,{ emotion e_omg; specialeffect EF_TELEPORTATION; mes "The magic spell has been casted."; - set halloween, 103; + halloween = 103; disablenpc "Masta's chicken#"+strnpcinfo(1); close2; sleep 180000; @@ -676,7 +676,7 @@ nif_fild01,167,113,3 script Masta's chicken#06_hw01 4_NFCOCK,{ } - script HwChicken2::HwChicken2 -1,{ - set @egg_temp,rand(1,4); + @egg_temp = rand(1,4); if( @egg_temp == 3) { mes "As soon as you got close to the chicken and touched it, it disappeared completely."; mes "You got an 'egg' in the place where the chicken disappeared."; @@ -692,7 +692,7 @@ nif_fild01,167,113,3 script Masta's chicken#06_hw01 4_NFCOCK,{ } - script HwChicken3::HwChicken3 -1,{ - set @egg_temp,rand(1,4); + @egg_temp = rand(1,4); if( @egg_temp == 3) { mes "As soon as you got close to the chicken and touched it, it disappeared completely."; mes "You got an 'egg' in the place where the chicken disappeared."; diff --git a/npc/events/halloween_2008.txt b/npc/events/halloween_2008.txt index 6aad72358..9b80eb798 100644 --- a/npc/events/halloween_2008.txt +++ b/npc/events/halloween_2008.txt @@ -27,7 +27,8 @@ payon,162,176,4 script Halloween Magician#iRO08 4_M_BIBI,{ mes "If you collect enough tickets you can get good prizes!"; mes "So what do you say?"; next; - goto MainMenu; + callsub(S_MainMenu); + end; } if (Hallow08Kill == 1) { mes "[Halloween Magician]"; @@ -35,11 +36,13 @@ payon,162,176,4 script Halloween Magician#iRO08 4_M_BIBI,{ mes "You know you want to try again..."; mes "Do you know the rules?"; next; - set Hallow08Kill,0; + Hallow08Kill = 0; if(select("Yes, I know.:No, I don't know.") == 2) { - goto Rules; + callsub(S_Rules); + callsub(S_MainMenu); + end; } - goto Participate; + callsub(S_Participate); } if (Hallow08Kill == 2) { mes "[Halloween Magician]"; @@ -49,8 +52,8 @@ payon,162,176,4 script Halloween Magician#iRO08 4_M_BIBI,{ mes "Ha!"; mes "Kkkkkkk."; next; - getitem 7941,1; - set Hallow08Kill,0; + getitem Halloween_Ticket, 1; + Hallow08Kill = 0; mes "[Halloween Magician]"; mes "As I promised"; mes "You can get Halloween tickets for cool items."; @@ -60,182 +63,183 @@ payon,162,176,4 script Halloween Magician#iRO08 4_M_BIBI,{ mes "[Halloween Magician]"; mes "Well, do you want to hear the rules again or, just get back to it..."; next; - goto MainMenu2; - } - - Rules: - mes "[Halloween Magician]"; - mes "This village is like a virtual Payon."; - mes "There are zombies and ghouls roaming around and three southern exits, but only one works."; - mes "That's up to you to find out."; - next; - mes "[Halloween Magician]"; - mes "You can't use any skills to kill the ghouls or zombies."; - mes "And one more thing..."; - mes "you shouldn't forget..."; - next; - mes "[Halloween Magician]"; - mes "All participants should be wearing nothing."; - mes "Put all belongings in your storage and come back here when your weight is '0'."; - next; - mes "[Halloween Magician]"; - mes "Oh and one more thing!"; - mes "You can't be riding a PecoPeco or have a Cart."; - mes "If you are, then I will remove them before you enter."; - mes "Got it?"; - next; - mes "[Halloween Magician]"; - mes "Remember, there are three exits but only one works randomly, the zombies and ghouls roaming around there can't be killed and you can't be wearing anything."; - next; - if (Hallow08 > 0) { - mes "[Halloween Magician]"; - mes "Hey..."; - mes "Come back once you're ready."; - close; - } else { - goto MainMenu; - } - - Participate: - mes "[Halloween Magician]"; - mes "Ok, you are ready."; - mes "Let me check your weight."; - next; - if (Weight > 0) { - mes "[Halloween Magician]"; - mes "Gosh!"; - mes "There's always a black sheep anywhere."; - next; - mes "[Halloween Magician]"; - mes "You think I wouldn't notice that your weight is above '0'?"; - mes "You're overweight..."; - close; - } else { - mes "[Halloween Magician]"; - mes "You seem good to go, and your weight is just right."; - next; - mes "[Halloween Magician]"; - mes "I was quite swamped with my work, so I'm exhausted."; - next; - mes "[Halloween Magician]"; - mes "I sometimes forget to send you there..."; - next; - mes "[Halloween Magician]"; - mes "I hope you come back well."; - close2; - if (Hallow08 < 1) { - set Hallow08,1; - } - set Hallow08Kill,1; - set @Hallow08Warp, rand(1,3); - percentheal -98,0; - setriding 0; - setcart 0; - warp "evt_zombie",155,246; + while (true) { + switch (select("Get me back there now!","Please, tell me the rules","I want to exchange tickets for prizes.","I'll come back next time.")) { + case 1: // Participate + callsub(S_Participate); + case 2: // Rules + callsub(S_Rules); + continue; + case 3: // TicketExchange + callsub(S_TicketExchange); + continue; + default: // NextTime + callsub(S_NextTime); end; } + } + } - TicketExchange: - mes "[Halloween Magician]"; - mes "You want to exchange tickets for prizes?"; - mes "Good job! Kkkkkk!"; - next; - mes "[Halloween Magician]"; - mes "Lemme tell you what items you can exchange for."; - next; - mes "[Halloween Magician]"; - mes "5 tickets for Pumpkin Pie."; - mes "20 tickets for Pumpkin-Head."; - mes "50 tickets for Old Blue Box."; - mes "70 tickets for Old Purple Box."; - mes "200 tickets for Old Card Album."; - next; - mes "[Halloween Magician]"; - mes "What would you like to exchange for?"; - next; - switch(select("Pumpkin Pie:Pumpkin-Head:Old Blue Box:Old Purple Box:Old Card Album")) { - case 1: - if (countitem(7941) < 5) { - goto NotEnough; - } else { - delitem 7941,5; - getitem 12192,1; - goto Enough; - } - break; - case 2: - if (countitem(7941) < 20) { - goto NotEnough; - } else { - delitem 7941,20; - getitem 5134,1; - goto Enough; - } - break; - case 3: - if (countitem(7941) < 50) { - goto NotEnough; - } else { - delitem 7941,50; - getitem 603,1; - goto Enough; - } - break; - case 4: - if (countitem(7941) < 70) { - goto NotEnough; - } else { - delitem 7941,70; - getitem 617,1; - goto Enough; - } - break; - case 5: - if (countitem(7941) < 200) { - goto NotEnough; - } else { - delitem 7941,200; - getitem 616,1; - goto Enough; - } - } + callsub(S_Rules); + callsub(S_MainMenu); + end; - NextTime: - mes "[Halloween Magician]"; - mes "Ok, see you then."; - mes "Kkkkkkkk."; - close; +S_MainMenu: + while (true) { + switch (select("Explain it to me.","I want to participate.","I want to exchange tickets for prizes.","I'll come back next time.")) { + case 1: // Rules + callsub(S_Rules); + continue; + case 2: // Participate + callsub(S_Participate); + case 3: // TicketExchange + callsub(S_TicketExchange); + continue; + default: // NextTime + callsub(S_NextTime); + end; + } + } - MainMenu: - menu "Explain it to me.",Rules,"I want to participate.",Participate,"I want to exchange tickets for prizes.",TicketExchange,"I'll come back next time.",NextTime; +S_Participate: + mes "[Halloween Magician]"; + mes "Ok, you are ready."; + mes "Let me check your weight."; + next; + if (Weight > 0) { + mes "[Halloween Magician]"; + mes "Gosh!"; + mes "There's always a black sheep anywhere."; + next; + mes "[Halloween Magician]"; + mes "You think I wouldn't notice that your weight is above '0'?"; + mes "You're overweight..."; + close; + } + mes "[Halloween Magician]"; + mes "You seem good to go, and your weight is just right."; + next; + mes "[Halloween Magician]"; + mes "I was quite swamped with my work, so I'm exhausted."; + next; + mes "[Halloween Magician]"; + mes "I sometimes forget to send you there..."; + next; + mes "[Halloween Magician]"; + mes "I hope you come back well."; + close2; + if (Hallow08 < 1) { + Hallow08 = 1; + } + Hallow08Kill = 1; + @Hallow08Warp = rand(1,3); + percentheal -98,0; + setmount(MOUNT_NONE); + setcart 0; + warp "evt_zombie",155,246; + end; + +S_Rules: + mes "[Halloween Magician]"; + mes "This village is like a virtual Payon."; + mes "There are zombies and ghouls roaming around and three southern exits, but only one works."; + mes "That's up to you to find out."; + next; + mes "[Halloween Magician]"; + mes "You can't use any skills to kill the ghouls or zombies."; + mes "And one more thing..."; + mes "you shouldn't forget..."; + next; + mes "[Halloween Magician]"; + mes "All participants should be wearing nothing."; + mes "Put all belongings in your storage and come back here when your weight is '0'."; + next; + mes "[Halloween Magician]"; + mes "Oh and one more thing!"; + mes "You can't be riding a PecoPeco or have a Cart."; + mes "If you are, then I will remove them before you enter."; + mes "Got it?"; + next; + mes "[Halloween Magician]"; + mes "Remember, there are three exits but only one works randomly, the zombies and ghouls roaming around there can't be killed and you can't be wearing anything."; + next; + if (Hallow08 > 0) { + mes "[Halloween Magician]"; + mes "Hey..."; + mes "Come back once you're ready."; + close; + } + return; - MainMenu2: - menu "Get me back there now!",Participate,"Please, tell me the rules",Rules,"I want to exchange tickets for prizes.",TicketExchange,"I'll come back next time.",NextTime; +S_NextTime: + mes "[Halloween Magician]"; + mes "Ok, see you then."; + mes "Kkkkkkkk."; + close; - NotEnough: +S_TicketExchange: + mes "[Halloween Magician]"; + mes "You want to exchange tickets for prizes?"; + mes "Good job! Kkkkkk!"; + next; + mes "[Halloween Magician]"; + mes "Lemme tell you what items you can exchange for."; + next; + mes "[Halloween Magician]"; + mes "5 tickets for Pumpkin Pie."; + mes "20 tickets for Pumpkin-Head."; + mes "50 tickets for Old Blue Box."; + mes "70 tickets for Old Purple Box."; + mes "200 tickets for Old Card Album."; + next; + mes "[Halloween Magician]"; + mes "What would you like to exchange for?"; + next; + .@item_id = null; + .@amount = 0; + switch(select("Pumpkin Pie:Pumpkin-Head:Old Blue Box:Old Purple Box:Old Card Album")) { + case 1: + .@amount = 5; + .@item_id = Pumpkin_Pie; + break; + case 2: + .@amount = 20; + .@item_id = Pumpkin_Hat; + break; + case 3: + .@amount = 50; + .@item_id = Old_Blue_Box; + break; + case 4: + .@amount = 70; + .@item_id = Old_Violet_Box; + break; + case 5: + .@amount = 200; + .@amount = Old_Card_Album; + break; + } + if (countitem(Halloween_Ticket) < .@amount) { mes "[Halloween Magician]"; mes "You don't have enough tickets!"; mes "Can't you even count?"; mes "Please come here with the right number of tickets."; close; - - Enough: - mes "[Halloween Magician]"; - mes "Here it is."; - mes "Do you need..."; - mes "anything else?"; - next; - if (Hallow08 == 1) { - goto MainMenu2; - } else { - goto MainMenu; - } + } + delitem Halloween_Ticket, .@amount; + getitem .@item_id, 1; + mes "[Halloween Magician]"; + mes "Here it is."; + mes "Do you need..."; + mes "anything else?"; + next; + return; } evt_zombie,16,142,1 script zombiewarp001 WARPNPC,2,2,{ OnTouch: if (@Hallow08Warp == 1) { - set Hallow08Kill,2; + Hallow08Kill = 2; specialeffect EF_BASH; warp "payon",28,142; } @@ -245,7 +249,7 @@ OnTouch: evt_zombie,122,27,1 script zombiewarp002 WARPNPC,2,2,{ OnTouch: if (@Hallow08Warp == 2) { - set Hallow08Kill,2; + Hallow08Kill = 2; specialeffect EF_BASH; warp "payon",121,40; } @@ -255,7 +259,7 @@ OnTouch: evt_zombie,267,89,1 script zombiewarp003 WARPNPC,2,2,{ OnTouch: if (@Hallow08Warp == 3) { - set Hallow08Kill,2; + Hallow08Kill = 2; specialeffect EF_BASH; warp "payon",253,95; } diff --git a/npc/events/halloween_2009.txt b/npc/events/halloween_2009.txt index 95b3e2a11..f67841c15 100644 --- a/npc/events/halloween_2009.txt +++ b/npc/events/halloween_2009.txt @@ -246,80 +246,80 @@ prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 4_M_KID1,2,2 if (.@mapname$ == "prontera") { switch(select("Geffen:Payon:Alberta:Aldebaran")) { case 1: - set .@HallowTown,3; + .@HallowTown = 3; break; case 2: - set .@HallowTown,2; + .@HallowTown = 2; break; case 3: - set .@HallowTown,4; + .@HallowTown = 4; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "payon") { switch(select("Prontera:Geffen:Alberta:Aldebaran")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,3; + .@HallowTown = 3; break; case 3: - set .@HallowTown,4; + .@HallowTown = 4; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "geffen") { switch(select("Prontera:Payon:Alberta:Aldebaran")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,2; + .@HallowTown = 2; break; case 3: - set .@HallowTown,4; + .@HallowTown = 4; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "alberta") { switch(select("Prontera:Geffen:Payon:Aldebaran")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,3; + .@HallowTown = 3; break; case 3: - set .@HallowTown,2; + .@HallowTown = 2; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "aldebaran") { switch(select("Prontera:Geffen:Payon:Alberta")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,3; + .@HallowTown = 3; break; case 3: - set .@HallowTown,2; + .@HallowTown = 2; break; case 4: - set .@HallowTown,4; + .@HallowTown = 4; break; } } @@ -347,14 +347,14 @@ prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 4_M_KID1,2,2 break; } else { - set .@fabric,countitem(1059); - set .@jack,countitem(1062); - set .@worn,countitem(6299); - set .@crushed,countitem(6298); - set .@whispers,0; - set .@darklords,0; + .@fabric = countitem(1059); + .@jack = countitem(1062); + .@worn = countitem(6299); + .@crushed = countitem(6298); + .@whispers = 0; + .@darklords = 0; - set .@total,.@fabric + .@jack + .@worn + .@crushed; + .@total = .@fabric + .@jack + .@worn + .@crushed; if(.@total < .@input) { mes "[Halloween Wizard]"; @@ -367,49 +367,49 @@ prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 4_M_KID1,2,2 if(.@fabric > 0) { if(.@fabric >= .@input) { delitem 1059,.@input; - set .@whispers,.@whispers+.@input; - set .@input,0; + .@whispers += .@input; + .@input = 0; } else{ delitem 1059,.@fabric; - set .@input,.@input - .@fabric; - set .@whispers,.@whispers+.@fabric; + .@input -= .@fabric; + .@whispers += .@fabric; } } if(.@worn > 0 && .@input != 0) { if(.@worn >= .@input) { delitem 6299,.@input; - set .@whispers,.@whispers+.@input; - set .@input,0; + .@whispers += .@input; + .@input = 0; } else{ delitem 6299,.@worn; - set .@input,.@input - .@worn; - set .@whispers,.@whispers+.@worn; + .@input -= .@worn; + .@whispers += .@worn; } } if(.@jack > 0 && .@input != 0) { if(.@jack >= .@input) { delitem 1062,.@input; - set .@darklords,.@darklords+.@input; - set .@input,0; + .@darklords += .@input; + .@input = 0; } else{ delitem 1062,.@jack; - set .@input,.@input - .@jack; - set .@darklords,.@darklords+.@jack; + .@input -= .@jack; + .@darklords += .@jack; } } if(.@crushed > 0 && .@input != 0) { if(.@crushed >= .@input) { delitem 6298,.@input; - set .@darklords,.@darklords+.@input; - set .@input,0; + .@darklords += .@input; + .@input = 0; } else{ delitem 6298,.@crushed; - set .@input,.@input - .@crushed; - set .@darklords,.@darklords+.@crushed; + .@input -= .@crushed; + .@darklords += .@crushed; } } if (.@input > 0) { diff --git a/npc/events/lunar_2008.txt b/npc/events/lunar_2008.txt index 6c81d0d38..0b51f468b 100644 --- a/npc/events/lunar_2008.txt +++ b/npc/events/lunar_2008.txt @@ -50,7 +50,7 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "think you can help me?"; next; if (select("Of course.:I don't even know you.") == 1) { - set lunar_rat,1; + lunar_rat = 1; mes "[" + strcharinfo(0)+"]"; mes "Of course."; mes "What can I do?"; @@ -93,7 +93,7 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "Please wait here a moment,"; mes "and I'll make you some pastry~"; delitem 7770,1; //Sweet_rice - set lunar_rat,3; + lunar_rat = 3; close; } else if (lunar_rat == 4) { @@ -104,7 +104,7 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "Please wait here a moment,"; mes "and I'll make you some pastry~"; delitem 7770,1; //Sweet_rice - set lunar_rat,5; + lunar_rat = 5; close; } mes "Oh, where are all the"; @@ -127,15 +127,15 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "Would you mind being"; mes "a dear, and delivering"; mes "that to my son for me?"; - set lunar_rat,2; + lunar_rat = 2; close; } else if (lunar_rat == 3 || lunar_rat == 5) { - set .@reward,rand(1,100); + .@reward = rand(1,100); if (.@reward <= 5) { if (lunar_rat == 3) { getitem 9038,1; // New_Year_Doll_Egg - set lunar_rat,4; + lunar_rat = 4; } else if (lunar_rat == 5) { getitem 668,1; // Red_Envelope @@ -152,8 +152,8 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ // After getting the egg there is a chance to get an envelope with each turn in if (rand(1,20) <= 5 && lunar_rat == 4) getitem 668,1; // Red_Envelope // Set the quest accordingly for repeat turn-ins. - if (lunar_rat == 3) set lunar_rat,2; - else if (lunar_rat == 5) set lunar_rat,4; + if (lunar_rat == 3) lunar_rat = 2; + else if (lunar_rat == 5) lunar_rat = 4; mes "It's not nearly enough"; mes "to repay you for what you've"; mes "done for me, but I'd like"; diff --git a/npc/events/nguild/nguild_dunsw.txt b/npc/events/nguild/nguild_dunsw.txt index 9b24c50b6..f768405d7 100644 --- a/npc/events/nguild/nguild_dunsw.txt +++ b/npc/events/nguild/nguild_dunsw.txt @@ -14,7 +14,7 @@ //================================================== function script F_GldDunSw { - set .@GID, getcastledata(getarg(0),1); + .@GID = getcastledata(getarg(0),1); if (.@GID == 0) { mes "[ Echoing Voice ]"; mes " ' The one who can overcome an ordeal and show true bravery... will find the way... ' "; diff --git a/npc/events/nguild/nguild_ev_agit.txt b/npc/events/nguild/nguild_ev_agit.txt index 097abb53c..5461bb975 100644 --- a/npc/events/nguild/nguild_ev_agit.txt +++ b/npc/events/nguild/nguild_ev_agit.txt @@ -16,10 +16,10 @@ // Function for OnAgitStart ========================================= function script F_AgitStart { - set .@map$, getarg(0); - set .@castle$, getarg(1); - set .@empx, getarg(2); - set .@empy, getarg(3); + .@map$ = getarg(0); + .@castle$ = getarg(1); + .@empx = getarg(2); + .@empy = getarg(3); maprespawnguildid .@map$,getcastledata(.@map$,1),2; monster .@map$,.@empx,.@empy,"Emperium",1288,1,"Agit_"+.@castle$+"::OnAgitBreak"; @@ -30,8 +30,8 @@ function script F_AgitStart { // Function for OnGuildBreak ====================================== function script F_GuildBreak { - set .@map$, getarg(0); - set .@castle$, getarg(1); + .@map$ = getarg(0); + .@castle$ = getarg(1); killmonsterall .@map$; @@ -44,18 +44,18 @@ function script F_GuildBreak { // Function for OnAgitBreak ====================================== function script F_AgitBreak { - set .@map$, getarg(0); - set .@castle$, getarg(1); + .@map$ = getarg(0); + .@castle$ = getarg(1); - set .@GID,getcharid(2); + .@GID = getcharid(2); if (.@GID <= 0) return; - set .@Economy,getcastledata(.@map$,2) - 5; - if (.@Economy < 0) set .@Economy, 0; + .@Economy = getcastledata(.@map$,2) - 5; + if (.@Economy < 0) .@Economy = 0; setcastledata .@map$, 2, .@Economy; - set .@defence,getcastledata(.@map$,3) - 5; - if (.@defence < 0) set .@defence, 0; + .@defence = getcastledata(.@map$,3) - 5; + if (.@defence < 0) .@defence = 0; setcastledata .@map$, 3, .@defence; setcastledata .@map$,1, .@GID; @@ -66,12 +66,12 @@ function script F_AgitBreak { disablenpc "Kafra Staff#"+.@castle$; // remove investment data and kafra - for( set .@i, 4; .@i <= 9; set .@i, .@i+1 ) + for (.@i = 4; .@i <= 9; ++.@i) setcastledata .@map$, .@i, 0; // if the new guild doesn't have Guardian Research, erase guardians if( getgdskilllv(.@GID,10002) == 0 ) - for( set .@i, 10; .@i <= 17; set .@i, .@i+1 ) + for (.@i = 10; .@i <= 17; ++.@i) setcastledata .@map$, .@i, 0; return; @@ -80,8 +80,8 @@ function script F_AgitBreak { // Function for OnAgitEnd ====================================== function script F_AgitEnd { - set .@map$, getarg(0); - set .@castle$, getarg(1); + .@map$ = getarg(0); + .@castle$ = getarg(1); gvgoff .@map$; // Disable the following if statment to keep empty diff --git a/npc/events/nguild/nguild_flags.txt b/npc/events/nguild/nguild_flags.txt index 8c629adf9..dcd3dbc14 100644 --- a/npc/events/nguild/nguild_flags.txt +++ b/npc/events/nguild/nguild_flags.txt @@ -16,7 +16,7 @@ /// Flag Function //============================================================ function script F_Flags { - set .@GID, getcastledata(getarg(1),1); + .@GID = getcastledata(getarg(1),1); if (getarg(5) == 0) return; if (.@GID == 0) { mes " [ Edict of the Divine Rune Midgard Kingdom ]"; diff --git a/npc/events/nguild/nguild_kafras.txt b/npc/events/nguild/nguild_kafras.txt index 100751f7a..89570fe6d 100644 --- a/npc/events/nguild/nguild_kafras.txt +++ b/npc/events/nguild/nguild_kafras.txt @@ -16,7 +16,7 @@ function script F_GKafra { cutin "kafra_01",2; - set @GID, getcastledata(getarg(0),1); + @GID = getcastledata(getarg(0),1); if (getcharid(2) == @GID && getgdskilllv(@GID,10001)) goto L_StartG; mes "[Kafra Service]"; @@ -24,8 +24,8 @@ function script F_GKafra { cutin "",255; close; L_StartG: - set @wrpP[0], 200; - set @wrpD$[0], getarg(1); + @wrpP[0] = 200; + @wrpD$[0] = getarg(1); setarray @wrpC$[0], @wrpD$[0]+" ^880000"+@wrpP[0]+"^000000 z", "Cancel", "", "", "",""; callfunc "F_Kafra",2,0,0,0,800; end; diff --git a/npc/events/nguild/nguild_managers.txt b/npc/events/nguild/nguild_managers.txt index d6ecfbf2f..015ef20fd 100644 --- a/npc/events/nguild/nguild_managers.txt +++ b/npc/events/nguild/nguild_managers.txt @@ -23,7 +23,7 @@ //============================================== function script F_GldManager { - set @GID, getcastledata(getarg(1),1); + @GID = getcastledata(getarg(1),1); mes "[ "+getarg(0)+" ]"; if (@GID == 0){ mes "I am waiting for my master. Brave adventurer, follow your destiny!"; @@ -42,11 +42,8 @@ function script F_GldManager { mes "Welcome Master ^5533FF" + getguildmaster(@GID) + "^000000 ! I will assist you in any way I can!"; next; - menu "Kafra Staff Employment / Dismissal",M_Kaf, "Enter Treasure Room",M_Treas, "Cancel",M_End; - - //=========================== - M_Kaf: - //====== + switch (select("Kafra Staff Employment / Dismissal","Enter Treasure Room","Cancel")) { + case 1: // Employment / Dismissal mes "[ "+getarg(0)+" ]"; if (getcastledata(getarg(1),9) == 1) goto L_Dismiss; if (getgdskilllv(@GID,10001) == 0){ @@ -58,90 +55,78 @@ function script F_GldManager { L_Hire: mes "Would you like to employ the services of a Kafra? You will need ^5533FF10,000 Zeny^000000 to do so... "; next; - menu "Employ Kafra.",-,"Cancel",sM_KafEnd; - - mes "[ "+getarg(0)+" ]"; - if (Zeny < 10000){ - mes "Master, you do not have enough money to employ a Kafra. Employment has been cancelled."; - return; - } - Zeny -= 10000; - enablenpc "Kafra Staff#"+getarg(4); - setcastledata getarg(1),9,1; - mes "You have created a contract with the Kafra Staff Company."; - next; - cutin "kafra_01",2; - mes "[ Kafra Staff ]"; - mes "How do you do? I'm here to provide you with helpful service! I'll do the best I can to serve you."; - next; - cutin "kafra_01",255; - mes "[ "+getarg(0)+" ]"; - //mes "Your employment contract lasts ^5533FF1 month^000000. After this term is over you will have to create a new contract."; - mes "I think the Kafra Staff will benefit our guild members."; - return; - - sM_KafEnd: + if (select("Employ Kafra.","Cancel") != 1) { mes "[ "+getarg(0)+" ]"; mes "As you wish Master. But I suggest we get a Kafra as soon as possible!"; return; - + } + mes "[ "+getarg(0)+" ]"; + if (Zeny < 10000) { + mes "Master, you do not have enough money to employ a Kafra. Employment has been cancelled."; + return; + } + Zeny -= 10000; + enablenpc "Kafra Staff#"+getarg(4); + setcastledata getarg(1),9,1; + mes "You have created a contract with the Kafra Staff Company."; + next; + cutin "kafra_01",2; + mes "[ Kafra Staff ]"; + mes "How do you do? I'm here to provide you with helpful service! I'll do the best I can to serve you."; + next; + cutin "kafra_01",255; + mes "[ "+getarg(0)+" ]"; + //mes "Your employment contract lasts ^5533FF1 month^000000. After this term is over you will have to create a new contract."; + mes "I think the Kafra Staff will benefit our guild members."; + return; L_Dismiss: mes "Would you like to dismiss the current Kafra?"; next; - menu "Dismissal",-,"Cancel",sM_KafEnd2; - - cutin "kafra_01",2; - mes "[ Kafra Staff ]"; - mes "Have I done anything wrong? If I did, will you please forgive me?"; - next; - menu "Dismiss",-,"Cancel",ssM_KafEnd2; - - mes "[ Kafra Staff ]"; - mes "It's unfortunate that I won't be able to serve your guild anymore...."; - next; - disablenpc "Kafra Staff#"+getarg(4); - setcastledata getarg(1),9,0; - cutin "kafra_01",255; - mes "[ "+getarg(0)+" ]"; - mes "The Kafra has been dismissed. But... we should really get a Kafra as soon as possible!"; - return; - ssM_KafEnd2: - mes "[ Kafra Staff ]"; - mes "Thank you master, I'll do my best! ^^."; - cutin "kafra_01",255; - return; - sM_KafEnd2: + if (select("Dismissal","Cancel") != 1) { mes "[ "+getarg(0)+" ]"; mes "Master, I think you should keep the current Kafra Staff because she is already trying her best to serve us"; return; - - //========================= - M_Treas: - //======== + } + cutin "kafra_01",2; + mes "[ Kafra Staff ]"; + mes "Have I done anything wrong? If I did, will you please forgive me?"; + next; + if (select("Dismiss","Cancel") != 1) { + mes "[ Kafra Staff ]"; + mes "Thank you master, I'll do my best! ^^."; + cutin "kafra_01",255; + return; + } + mes "[ Kafra Staff ]"; + mes "It's unfortunate that I won't be able to serve your guild anymore...."; + next; + disablenpc "Kafra Staff#"+getarg(4); + setcastledata getarg(1),9,0; + cutin "kafra_01",255; + mes "[ "+getarg(0)+" ]"; + mes "The Kafra has been dismissed. But... we should really get a Kafra as soon as possible!"; + return; + case 2: // Enter Treasure Room mes "[ "+getarg(0)+" ]"; mes "Would you to go to our Treasure Room? Only you, the Guild Master, are allowed to enter this room."; next; - menu "Enter Treasure room.",-,"Cancel",sM_TresEnd; - + if (select("Enter Treasure room.","Cancel") == 1) { mes "[ "+getarg(0)+" ]"; mes "Please follow me through the secret passage way."; mes "You must pull down on the secret switch in order to get out."; next; warp getarg(1),getarg(2),getarg(3); return; - sM_TresEnd: - mes "[ "+getarg(0)+" ]"; - mes "The goods are produced everyday."; - mes "You should get them whenever you can because they might dissapear if you take them at the wrong time."; - return; - - - //========================== - M_End: - //======= + } + mes "[ "+getarg(0)+" ]"; + mes "The goods are produced everyday."; + mes "You should get them whenever you can because they might dissapear if you take them at the wrong time."; + return; + default: // Cancel mes "[ "+getarg(0)+" ]"; mes "As you wish, master."; return; + } } // Castle 1 ================================================================================== diff --git a/npc/events/nguild/nguild_treas.txt b/npc/events/nguild/nguild_treas.txt index 750eab88a..7a7cd64c8 100644 --- a/npc/events/nguild/nguild_treas.txt +++ b/npc/events/nguild/nguild_treas.txt @@ -39,7 +39,7 @@ function script F_GldTreas { //sets the counter variable = to the box number amount set getarg(3), getarg(2); } - for (set .@i,1; .@i <= getarg(3) ; set .@i,.@i+1) { + for (.@i = 1; .@i <= getarg(3); ++.@i) { // set treasure box ID set getarg(4), getarg(5) + (.@i+1) % 2; areamonster getarg(0),getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied"; @@ -71,13 +71,13 @@ OnRecvCastleN01: end; OnInit: if($boxNumN01 == 0) end; - set $@bxN01, $boxNumN01; + $@bxN01 = $boxNumN01; callfunc "F_GldTreas","nguild_alde","N01",$boxNumN01,$@bxN01,$@boxIdN01,1324+rand(10),114,218,123,227,1; end; OnDied: mapannounce "nguild_alde","Treasure Chest Broken Open",17; - set $boxNumN01, $boxNumN01 -1; + --$boxNumN01; if($boxNumN01 == 0) mapannounce "nguild_alde", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } @@ -97,13 +97,13 @@ OnRecvCastleN02: end; OnInit: if($boxNumN02 == 0) end; - set $@bxN02, $boxNumN02; + $@bxN02 = $boxNumN02; callfunc "F_GldTreas","nguild_gef","N02",$boxNumN02,$@bxN02,$@boxIdN02,1334+rand(10),150,108,158,114,1; end; OnDied: mapannounce "nguild_gef","Treasure Chest Broken Open",17; - set $boxNumN02, $boxNumN02 -1; + --$boxNumN02; if($boxNumN02 == 0) mapannounce "nguild_gef", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } @@ -122,13 +122,13 @@ OnRecvCastleN03: end; OnInit: if($boxNumN03 == 0) end; - set $@bxN03, $boxNumN03; + $@bxN03 = $boxNumN03; callfunc "F_GldTreas","nguild_pay","N03",$boxNumN03,$@bxN03,$@boxIdN03,1344+rand(10),286,4,295,13,1; end; OnDied: mapannounce "nguild_pay","Treasure Chest Broken Open",17; - set $boxNumN03, $boxNumN03 -1; + --$boxNumN03; if($boxNumN03 == 0) mapannounce "nguild_pay", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } @@ -147,13 +147,13 @@ OnRecvCastleN04: end; OnInit: if($boxNumN04 == 0) end; - set $@bxN04, $boxNumN04; + $@bxN04 = $boxNumN04; callfunc "F_GldTreas","nguild_prt","N04",$boxNumN04,$@bxN04,$@boxIdN04,1354+rand(10),6,204,15,213,1; end; OnDied: mapannounce "nguild_prt","Treasure Chest Broken Open",17; - set $boxNumN04, $boxNumN04 -1; + --$boxNumN04; if($boxNumN04 == 0) mapannounce "nguild_prt", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } diff --git a/npc/events/twintowers.txt b/npc/events/twintowers.txt index 524351661..8013b85b7 100644 --- a/npc/events/twintowers.txt +++ b/npc/events/twintowers.txt @@ -29,24 +29,22 @@ prontera,146,92,4 script Twin Towers#tt1::Twin-Towers TW_TOWER,{ mes "For this reason, we are here at your service with our special magic."; mes "Kindly let us know."; next; - menu "I shall accept your offer.",YES,"I'll ask for your service next time.",NO; - - NO: - mes "[Twin Towers]"; - mes "Er, what a pity. Traveling by yourself is still the best evidence of adventure."; - mes "Isn't this proving that you are still young?"; - mes "We respect brave hearts like this"; - next; - mes "[Twin Towers]"; - mes "There are good and bad times in life, moreover, adventure isn't an easy task in the first place."; - mes "Isn't this true?"; - mes "Feel free to come to us when you have time, we will always be there to serve you."; - next; - mes "[Twin Towers]"; - mes "Forget all your troubles, and create a splendid legend in this wonderful world."; - mes "This is such a wonderful world, and you'll always be a great adventurer!"; - close; - YES: + if (select("I shall accept your offer.","I'll ask for your service next time.") != 1) { + mes "[Twin Towers]"; + mes "Er, what a pity. Traveling by yourself is still the best evidence of adventure."; + mes "Isn't this proving that you are still young?"; + mes "We respect brave hearts like this"; + next; + mes "[Twin Towers]"; + mes "There are good and bad times in life, moreover, adventure isn't an easy task in the first place."; + mes "Isn't this true?"; + mes "Feel free to come to us when you have time, we will always be there to serve you."; + next; + mes "[Twin Towers]"; + mes "Forget all your troubles, and create a splendid legend in this wonderful world."; + mes "This is such a wonderful world, and you'll always be a great adventurer!"; + close; + } mes "[Twin Towers]"; mes "The flaming passion of an adventurer,"; mes "The desire to explore the unknown realms,"; @@ -60,28 +58,29 @@ prontera,146,92,4 script Twin Towers#tt1::Twin-Towers TW_TOWER,{ mes "[Twin Towers]"; mes "Come on! Where do you wish to go?"; mes "Just let us know you desired destination and we will send your there!"; - menu "Hidden Temple", HiddenTemple,"Orc Dungeon",OrcDungeon,"Ant Hell",AntHell,"Mjolnir Waste Pit",MjolnirWastePit,"Sphinx",Sphinx,"Glast Heim",GlastHeim,"Comodo",Comodo; - HiddenTemple: - warp "prt_fild01",136,368; - close; - OrcDungeon: - warp "gef_fild10",67,334; - close; - AntHell: - warp "moc_fild04",210,329; - close; - MjolnirWastePit: - warp "mjolnir_02",79,361; - close; - Sphinx: - warp "moc_fild19",105,99; - close; - GlastHeim: - warp "gef_fild06",45,304; - close; - Comodo: - warp "cmd_fild01",30,317; - close; + switch (select("Hidden Temple","Orc Dungeon","Ant Hell","Mjolnir Waste Pit","Sphinx","Glast Heim","Comodo")) { + case 1: // HiddenTemple + warp "prt_fild01",136,368; + close; + case 2: // OrcDungeon + warp "gef_fild10",67,334; + close; + case 3: // AntHell + warp "moc_fild04",210,329; + close; + case 4: // MjolnirWastePit + warp "mjolnir_02",79,361; + close; + case 5: // Sphinx + warp "moc_fild19",105,99; + close; + case 6: // GlastHeim + warp "gef_fild06",45,304; + close; + case 7: // Comodo + warp "cmd_fild01",30,317; + close; + } } morocc,160,97,4 duplicate(Twin-Towers) Twin Towers#tt2 TW_TOWER diff --git a/npc/events/valentinesday_2009.txt b/npc/events/valentinesday_2009.txt index edb151c6e..56195d06a 100644 --- a/npc/events/valentinesday_2009.txt +++ b/npc/events/valentinesday_2009.txt @@ -75,7 +75,7 @@ prontera,164,174,4 script Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 5000; + .@price = .@input * 5000; if (Zeny < .@price) { mes "[Marco Bassinio]"; mes "Looks like you don't have enough zeny with ya."; @@ -195,7 +195,7 @@ prontera,147,171,5 script Packs Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 200; + .@price = .@input * 200; if (Zeny < .@price) { mes "[Packs Trader]"; mes "You don't have enough money."; @@ -236,7 +236,7 @@ prontera,147,171,5 script Packs Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 200; + .@price = .@input * 200; if (Zeny < .@price) { mes "[Packs Trader]"; mes "You don't have enough money."; @@ -277,7 +277,7 @@ prontera,147,171,5 script Packs Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 600; + .@price = .@input * 600; if (Zeny < .@price) { mes "[Packs Trader]"; mes "You don't have enough money."; @@ -377,7 +377,7 @@ prontera,154,185,5 script Event Ring Maker#Val09 4_F_KAFRA7,{ delitem 7174,1; delitem 7948,1; Zeny -= 1000; - set iROval09ring,1; + iROval09ring = 1; if (Sex) { getnameditem 12742,strcharinfo(0); } else { @@ -457,10 +457,10 @@ prontera,157,185,4 script Valentine Vote Manager#v 4_F_KAFRA5,{ mes "I'll take those silver rings, and count the votes for you."; mes "Thank you for participating."; delitem 7947,.@input; - set Val09Rings,Val09Rings+.@input; + Val09Rings += .@input; if (Val09Rings > $Val09votes_M) { - set $Val09votes_M,Val09Rings; - set $Val09name_M$,strcharinfo(0); + $Val09votes_M = Val09Rings; + $Val09name_M$ = strcharinfo(0); } next; break; @@ -485,10 +485,10 @@ prontera,157,185,4 script Valentine Vote Manager#v 4_F_KAFRA5,{ mes "I'll take those gold rings, and count the votes for you."; mes "Thank you for participating."; delitem 7946,.@input; - set Val09Rings,Val09Rings+.@input; + Val09Rings += .@input; if (Val09Rings > $Val09votes_F) { - set $Val09votes_F,Val09Rings; - set $Val09name_F$,strcharinfo(0); + $Val09votes_F = Val09Rings; + $Val09name_F$ = strcharinfo(0); } next; break; diff --git a/npc/events/valentinesday_2012.txt b/npc/events/valentinesday_2012.txt index 2d74cb1a5..d113bd480 100644 --- a/npc/events/valentinesday_2012.txt +++ b/npc/events/valentinesday_2012.txt @@ -13,9 +13,9 @@ //============================================================ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ - set .@n$,"^0000FF[Pinkamenia]^000000"; + .@n$ = "^0000FF[Pinkamenia]^000000"; if (#V_QUE12==3) { - set .@LFlowerID,7864; + .@LFlowerID = 7864; setarray .@SweetsID[0],538,558,539,573,559,560,12062,596,597,12414,12319; setarray .@SweetsCost[0],1,2,5,10,10,10,15,15,15,20,20; mes .@n$; @@ -29,10 +29,10 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ mes .@n$; mes "Select an item."; mes "The amount of Love Flowers you'll need is in brackets."; - for(set .@i,0; .@i < getarraysize(.@SweetsID); set .@i,.@i+1) - set .@menu$, .@menu$+"^00AA00["+.@SweetsCost[.@i]+"]^000000 "+getitemname(.@SweetsID[.@i])+":"; + for(.@i = 0; .@i < getarraysize(.@SweetsID); ++.@i) + .@menu$ += "^00AA00["+.@SweetsCost[.@i]+"]^000000 "+getitemname(.@SweetsID[.@i])+":"; next; - set .@choice, select(.@menu$)-1; + .@choice = select(.@menu$)-1; mes .@n$; if (countitem(.@LFlowerID) < .@SweetsCost[.@choice]) { mes "You'll need more Love Flowers if you want that!"; @@ -40,8 +40,8 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ } mes "Are you sure you want to trade ^00aa00"+.@SweetsCost[.@choice]+"x Love Flower ^000000 for ^0055FF"+getitemname(.@SweetsID[.@choice])+"^000000?"; if(select("No, I've changed my mind.:Yes, trade!") == 1) close; - set .@new, .@LFlowerID - .@SweetsCost[.@choice]; - if (.@new < 0) set .@new, 0; + .@new = .@LFlowerID - .@SweetsCost[.@choice]; + if (.@new < 0) .@new = 0; delitem .@LFlowerID, .@SweetsCost[.@choice]; getitem .@SweetsID[.@choice],1; mes "Have fun with your item!"; @@ -68,7 +68,7 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ mes "Flowers, you can exchange"; mes "them for some sweets here."; mes "See you soon!"; - set #V_QUE12,3; + #V_QUE12 = 3; close; } else if (#V_QUE12==1) { mes .@n$; @@ -91,7 +91,7 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ mes "to bring a +8 Cake Hat"; mes "to the Baker Extraordinaire, who"; mes "is standing right next to me!"; - set #V_QUE12,1; + #V_QUE12 = 1; close; } mes .@n$; @@ -105,7 +105,7 @@ OnInit: } mosk_in,21,244,3 script Baker Extraordinaire 4_M_NOVELIST,{ - set .@n$,"^0000FF[Baker Extraordinaire]^000000"; + .@n$ = "^0000FF[Baker Extraordinaire]^000000"; if(#V_QUE12==3) { mes .@n$; mes "Exchange your Love Flowers with Pinkamenia!"; @@ -139,7 +139,7 @@ mosk_in,21,244,3 script Baker Extraordinaire 4_M_NOVELIST,{ mes "our chocolates. Now get"; mes "15 Love Flowers and bring"; mes "them to Pinkamenia!"; - set #V_QUE12,2; + #V_QUE12 = 2; close; } else { mes "Sorry, but where is your"; diff --git a/npc/events/whiteday.txt b/npc/events/whiteday.txt index ac76c52a5..d90f7c491 100644 --- a/npc/events/whiteday.txt +++ b/npc/events/whiteday.txt @@ -12,10 +12,6 @@ //============================================================ alberta,188,64,4 script Sugar 4_F_02,{ - set @maplenum,0; - set @mapleItemID,0; - set @maplePrice,0; - set @maplePriceT,0; mes "[Sugar]"; mes "Welcome!"; mes "How delicious are sweets?"; @@ -29,51 +25,102 @@ alberta,188,64,4 script Sugar 4_F_02,{ mes "heartfelt like"; mes "the sweetness of the present some how."; next; - menu "Please give me!",-,"I don't need it.",M_End,"The teacher.",M_L1; - - mes "[Sugar]"; - mes "Yes!"; - mes "Select from menu here."; - mes "Since there is a limitation in numbers"; - mes "Not more than ^ff0000 5 pieces^000000."; - mes "are allowed to carry out?"; - next; - menu "Candy",-,"Candy Cane",L0_2,"Well baked cookie",L0_3; - - set @maplePrice,3000; - set @mapleItemID,529; - mes "[Sugar]"; - mes "It is a candy, and the price is"; - mes "3000 Zeny each."; - mes "How many do you like to purchase?"; - next; - goto L_INPUT; -L0_2: - set @maplePrice,4000; - set @mapleItemID,530; - mes "[Sugar]"; - mes "It is a candy cane, and the price is"; - mes "4000 Zeny each."; - mes "How many do you like to purchase?"; - next; - goto L_INPUT; -L0_3: - set @maplePrice,2000; - set @mapleItemID,538; + switch (select("Please give me!","I don't need it.","The teacher.")) { + case 1: // Please give me + mes "[Sugar]"; + mes "Yes!"; + mes "Select from menu here."; + mes "Since there is a limitation in numbers"; + mes "Not more than ^ff0000 5 pieces^000000."; + mes "are allowed to carry out?"; + next; + switch (select("Candy","Candy Cane","Well baked cookie")) { + case 1: // Candy + mes "[Sugar]"; + mes "It is a candy, and the price is"; + mes "3000 Zeny each."; + mes "How many do you like to purchase?"; + next; + callsub(S_Purchase, 3000, Candy); + break; + case 2: // Candy Cane + mes "[Sugar]"; + mes "It is a candy cane, and the price is"; + mes "4000 Zeny each."; + mes "How many do you like to purchase?"; + next; + callsub(S_Purchase, 4000, Candy_Striper); + break; + case 3: // Well baked cookie + mes "[Sugar]"; + mes "It is a well baked cookie, and the price is"; + mes "2000 Zeny each."; + mes "How many do you like to purchase?"; + next; + callsub(S_Purchase, 2000, Well_Baked_Cookie); + break; + } + break; + case 3: // The teacher + mes "[Sugar]"; + mes "Yes"; + mes "The teacher of mine"; + mes "is Mr. Kuberu, a sweets craftsman."; + mes "Making sweets under two persons."; + mes "which is allowed to self-train."; + next; + mes "[Sugar]"; + mes "Although selling is seemingly to carried out ...."; + mes "Where he is now?"; + mes "Which I don't know."; + close; + case 2: // I don't need it + break; + } mes "[Sugar]"; - mes "It is a well baked cookie, and the price is"; - mes "2000 Zeny each."; - mes "How many do you like to purchase?"; - next; + mes "Really .... You might regret it.."; + mes "If you change your mind."; + mes "I am just here ok."; + mes "Have a nice day!"; + close; -L_INPUT: - input @maplenum; - if (@maplenum > 5) goto L_ERROR; - if (@maplenum == 0) goto M_End; - set @maplePriceT,@maplePrice*@maplenum; - if (Zeny < @maplePriceT) goto L_ERROR2; - Zeny -= @maplePriceT; - getitem @mapleItemID,@maplenum; +/** + * Attempts to purchase an item, after asking the desired quantity. + * + * Arguments: + * 0 : price + * 1 : item ID + * + * Returns on user cancel. Closes on successful purchase or error. + */ +S_Purchase: + .@price = getarg(0); + .@item_id = getarg(1); + while (true) { + input .@amount; + if (.@amount <= 5) + break; + mes "[Sugar]"; + mes "???"; + mes "You seem to have a failure on hearing."; + mes "I will tell you once again?"; + mes "You can only purchase"; + mes "^ff0000 5 pieces^000000 at once."; + next; + } + if (.@amount == 0) // Cancel + return; + .@totalPrice = .@price * .@amount; + if (Zeny < .@totalPrice) { + mes "[Sugar]"; + mes "???"; + mes "Hmmm it seems you don't have enough money"; + mes "to make that purchase."; + mes "I will ask you to check your money first."; + close; + } + Zeny -= .@totalPrice; + getitem .@item_id, .@amount; mes "[Sugar]"; mes "Thank you!!!"; mes "These sweets are really delicious."; @@ -82,44 +129,4 @@ L_INPUT: mes "don't eat so much or you'll grow fat."; mes "Please take care!!!"; close; - -M_L1: - mes "[Sugar]"; - mes "Yes"; - mes "The teacher of mine"; - mes "is Mr. Kuberu, a sweets craftsman."; - mes "Making sweets under two persons."; - mes "which is allowed to self-train."; - next; - mes "[Sugar]"; - mes "Although selling is seemingly to carried out ...."; - mes "Where he is now?"; - mes "Which I don't know."; - close; - -L_ERROR: - mes "[Sugar]"; - mes "???"; - mes "You seem to have a failure on hearing."; - mes "I will tell you once again?"; - mes "You can only purchase"; - mes "^ff0000 5 pieces^000000 at once."; - next; - goto L_INPUT; - -L_ERROR2: - mes "[Sugar]"; - mes "???"; - mes "Hmmm it seems you don't have enough money"; - mes "to make that purchase."; - mes "I will ask you to check your money first."; - close; - -M_End: - mes "[Sugar]"; - mes "Really .... You might regret it.."; - mes "If you change your mind."; - mes "I am just here ok."; - mes "Have a nice day!"; - close; } diff --git a/npc/events/xmas.txt b/npc/events/xmas.txt index d8423dda7..e420f9e6d 100644 --- a/npc/events/xmas.txt +++ b/npc/events/xmas.txt @@ -22,22 +22,21 @@ xmas_in,100,96,4 script Santa Claus::Santa2 4_M_SANTA,{ mes "[Santa Claus]"; - if(xmas_npc==0) set xmas_npc, 1; // For Lutie & Bard quest + if(xmas_npc==0) xmas_npc = 1; // For Lutie & Bard quest if(#event_xmas > 0 && #event_xmas < 30 ) goto L_Start; mes "Merry Christmas!"; if(Class==0 || #event_xmas>=30 ) close; //anti exploit protection mes "I have a gift for you! Ho Ho Ho!"; getitem rand(664,667),1; //gives one of 4 gift boxes - set #event_xmas,#event_xmas+1; + ++#event_xmas; close; L_Start: mes "I'm having a bit of a problem..."; mes "Do you care to listen?"; next; - menu "Listen to Santa Claus.",M_0, "Give Santa Claus proof.",M_1, "Cancel.",M_End; - - M_0: + switch (select("Listen to Santa Claus.","Give Santa Claus proof.","Cancel.")) { + case 1: // Listen mes "[Santa Claus]"; mes "My problem is this."; mes "There seems to be a man out there"; @@ -76,7 +75,7 @@ L_Start: mes "lab. It spits out random presents"; mes "and saves me a ton of work."; close; - M_1: + case 2: // Give proof mes "[Santa Claus]"; if(countitem(7034) < 3) goto L_NotEnuf; delitem 7034,3; @@ -85,7 +84,7 @@ L_Start: mes "fake Santas. Keep it up!"; next; getitem 644,1; //Gift Box Prototype - set #event_xmas,#event_xmas+1; + ++#event_xmas; mes "[Santa Claus]"; mes "There's your reward."; mes "If you get 3 more, I'll give you another."; @@ -97,11 +96,12 @@ L_Start: mes "Go take down those evil Santas"; mes "and get more for me and I'll reward you."; close; - M_End: + default: // Cancel mes "[Santa Claus]"; mes "I see. Well, at the very least"; mes "we shall meet again on Christmas morning."; close; + } OnInit: disablenpc "Santa Claus"; |