root/npc/events/event_skill_reset.txt @ 1

Revision 1, 3.5 kB (checked in by jinshiro, 17 years ago)
RevLine 
[1]1//===== eAthena Script =======================================
2//= Official Skill Resetter Event in Yuno (kRO & idRO)
3//===== By: ==================================================
4//= $ephiroth
5//===== Current Version: =====================================
6//= 1.02
7//===== Compatible With: =====================================
8//= eAthena 1.0
9//===== Description: =========================================
10//= 2006 - Edition Skill Reset NPC
11//= 2006/11/16: 1.0 Release and fully working. [$ephiroth]
12//= 1.01 Checked, fixed typos, now uses MISC_QUEST var [Lupus]
13//= 1.02 Added missing message,comment,etc. [$ephiroth]
14//===== Additional Comments: =================================
15//= Skill Reset with payment, minimum BaseLv.60 to reset skill.
16//= Each 1 BaseLv need 20.000 Zeny, so be careful to use skill.
17//============================================================
18yuno,138,187,4  script  Hypnotist Teacher       124,{
19        set @npcname$,"[^D5A500Hypnotist^000000]";
20        mes @npcname$;
21
22        if(MISC_QUEST & 1024){
23                mes "I already told you that you may only complete this event once.";
24                close;
25        }
26        if(BaseLevel < 60) {
27                mes "Please return when you reach BaseLv 60 or higher.";
28                close;
29        }
30        if(SkillPoint != 0) {
31                mes "You will need to use up all of your skill points if you want me to continue.";
32                mes "Please come again soon!";
33                close;
34        }
35        if(Weight || checkfalcon() || checkcart() || checkriding()) {
36                mes "Would you like to reset skills?";
37                mes "I'm sorry, but...";
38                next;
39                mes @npcname$;
40                if(Weight) {
41                        mes "You cannot reset skills";
42                        mes "when you keep";
43                        mes "any items.";
44                } else if(checkcart())
45                        mes "Please, drop your cart and we'll continue.";
46                else if(checkfalcon())
47                        mes "Please, free your Falcon and we'll continue.";
48                else if(checkriding())
49                        mes "Please, free your PecoPeco and we'll continue.";
50                next;
51                mes @npcname$;
52                mes "Come back soon!";
53                close;
54        }
55        mes "Hello, I am the Skill Resetter.";
56        mes "Your name is ^0080FF"+strcharinfo(0)+"^000000.";
57        mes "How can I help you?";
58        next;
59        menu "^009500Information about Reset skills.^000000",L_Info,"^00B6FFReset skills.^000000",L_Reset,"^000088Nevermind^000000",-;
60
61        mes @npcname$;
62        mes "You know where to find me,";
63        mes "if you ever want a reset!!";
64        close;
65
66L_Info:
67        mes @npcname$;
68        mes "This skill reset is not FREE OF CHARGE!!";
69        mes "Expense for the reset of skill is ^D5A50020000 Zeny x BaseLv^000000.";
70        mes "Yeah ...each One BaseLv costs 20000 Zeny to reset skill.";
71        next;
72        mes @npcname$;
73        mes "Oh yeah, one more thing!";
74        mes "Any carts, falcons or pecos you have equiped";
75        mes "will be removed if you reset your skills.";
76        next;
77        mes @npcname$;
78        mes "Just one time does again to shake the skill point";
79        mes "Careful with your skills from here on.";
80        close;
81       
82L_Reset:
83        mes @npcname$;
84        mes "Before skill reset in starting.";
85        mes "You shall have to first tell me your Base Level.";
86        next;
87        mes "^D5A500[" + strcharinfo(0) + "]^000000";
88        mes "My Base level is ^AA00AALevel " + BaseLevel + "BaseLv.^000000";
89        next;
90        set @zeny,BaseLevel*20000;
91        mes @npcname$;
92        mes "Total zeny to the reset of skill amount ^529DFF" + @zeny + "Zeny^000000  for the skill reset service.";
93        next;
94        if(Zeny < @zeny) {
95                mes @npcname$;
96                mes "It seems that you don't have enough money.";
97                mes "In addition we wait for the opportunity.";
98                emotion e_hmm;
99                close;
100        }
101        set Zeny, Zeny-@zeny;
102        set MISC_QUEST,MISC_QUEST | 1024;
103        resetskill;
104        mes @npcname$;
105        mes "Thank you.";
106        emotion e_thx;
107        logmes "SKILL RESET EVENT";
108        close;
109}
Note: See TracBrowser for help on using the browser.