root/npc/custom/penal_servitude.txt

Revision 1, 5.9 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Penal Servitude Script
3//===== By ===================================================
4//= Lupus
5//===== Version ==============================================
6//= 1.2
7//===== Compatible With ======================================
8//= eAthena Final (SVN)
9//===== Description ==========================================
10//= A simple Penal Servitude Script.
11//= It could cheer up your prisoners a bit.
12//===== Comments =============================================
13// This script uses CHEQUES of the 2nd KAFRA_BANK.TXT
14// var PRISON - it counts number of your imprisonments.
15// 1.1 English translation
16// 1.2 Stricted the conditions a bit
17//============================================================
18
19sec_pri,36,58,1 script  Chief Warder    105,{
20        mes "[Saddeus]";
21        emotion 1;
22        if(sex) {
23                mes "Mr. Prisoner #"+BaseLevel+JobLevel+",";
24        } else {
25                mes "Ms. Prisoner #"+BaseLevel+JobLevel+",";
26        }
27        mes "what's the noise over there?";
28        next;
29        menu "Let me free, I'll pay!",-, "Let me to work off my freedom!",M_Q1, "Nothing",M_NO_THANKS;
30
31M_PAY:
32        mes "[Saddeus]";
33        set @MUSTPAY,(PRISON+1)*1000000;
34        if (@MUSTPAY<1000000) set @MUSTPAY,1000000;
35        if (@MUSTPAY>100000000) set @MUSTPAY,100000000;
36        if (PRISON==1) mes "I can't remember you. Is it your 1st time?";
37        if (PRISON>1) mes "You again? Sombody hasn't grown wiser from the very first visit...";
38        mes "OK, we could release you for ^FF0000"+@MUSTPAY+"z^000000.";
39        next;
40        menu "I pay cash!",M_PAYCASH,"Do you accept cheques?",M_PAYBANK,"I've changed my mind.",-;
41
42        mes "[Saddeus]";
43        mes "You've got some time to think about...";
44        close;
45
46M_PAYCASH:
47        if (@MUSTPAY>Zeny) goto L_NOCASH;
48        set Zeny,Zeny-@MUSTPAY;
49        mes "[Saddeus]";
50        mes "OK, sing here and there.";
51        goto L_RELEASE;
52
53L_NOCASH:
54        mes "[Saddeus]";
55        mes "What's this? It's not enough!";
56        close;
57
58M_PAYBANK:
59        if (@MUSTPAY>#kafrabank) goto L_NOBANK;
60        set #kafrabank,#kafrabank-@MUSTPAY;
61        mes "[Saddeus]";
62        mes "OK, sign your cheque. And put down your name in my book.";
63        goto L_RELEASE;
64
65L_NOBANK:
66        mes "[Saddeus]";
67        if (#kafrabank==0) mes "Your case says nothing about your bank accounts.";
68        if (#kafrabank!=0) mes "Alas, there's your bank account info... ^FF0000"+#kafrabank+"z^000000... in the case. It's not enough.";
69        mes "Stop your silly games now!";
70        close;
71
72L_RELEASE:
73        set PRISON,PRISON+1;
74        next;
75        mes "[Saddeus]";
76        mes "You are free now!";
77        next;
78        savepoint "izlude",105,112;
79        warp "izlude",105,112;
80        close;
81
82M_Q1:
83//EåñE1
84        mes "[Saddeus]";
85        mes "Our stocks are short of toadstools.  Remember your morning's skilly?  What about some work at our sponsored mushroom farm?";
86        next;
87        menu "OK, I'll work off!",-, "I love this prison!",M_NO_THANKS;
88
89        mes "[Saddeus]";
90        if(checkcart() || checkfalcon() || checkriding()){
91                emotion e_hmm;
92                mes "I'm sorry, you should release your Cart, PecoPeco or Falcon!";
93                close;
94        }
95        mes "Talk to our overseer, Oliver.";
96        next;
97
98        nude;
99
100        set @rw,rand(1,4);
101        if (@rw==2) goto L_W2;
102        if (@rw==3) goto L_W3;
103        if (@rw==4) goto L_W4;
104
105L_W1:
106        savepoint "sec_in02",179,76;
107        warp "sec_in02",179,76;
108        close;
109
110L_W2:
111        savepoint "sec_in02",139,32;
112        warp "sec_in02",139,32;
113        close;
114
115L_W3:
116        savepoint "sec_in02",100,28;
117        warp "sec_in02",100,28;
118        close;
119
120L_W4:
121        savepoint "sec_in02",107,75;
122        warp "sec_in02",107,75;
123        close;
124
125M_NO_THANKS:
126        mes "[Saddeus]"; 
127        if (rand(2)) mes "Is today X-Mas time, huh?";
128        mes "Now shut up and back off!";
129        if (rand(2)) emotion 23;
130        close; 
131}
132
133sec_in02,137,57,1       script  Overseer        708,{
134        mes "[Oliver]";
135
136        delitem 4002,countitem(4002);//Items: Fabre_Card,
137        delitem 4009,countitem(4009);//Items: Chonchon_Card,
138        delitem 4022,countitem(4022);//Items: Spore_Card,
139        delitem 4048,countitem(4048);//Items: Poison_Spore_Card,
140       
141        if (PRISON_Q <= 0 ) goto L_GET_Q;
142
143        mes "I want you to gather ^FF0000"+PRISON_Q+" Orange Net Mushroom^000000.";
144        if ( countitem(1069)<PRISON_Q ) close;//Items: Orange_Net_Mushroom,
145        mes "OK... hand me all the shrooms...";
146        mes "Let me see... "+countitem(1069)+" of almost eadible ones...";//Items: Orange_Net_Mushroom,
147        mes "And "+countitem(1070)+" useless deadly ones.";//Items: Orange_Gooey_Mushroom_,
148        next;
149        mes "[Oliver]";
150        mes "Thank you. You are free!";
151        set PRISON_Q,0;
152        delitem 1069,countitem(1069);//Items: Orange_Net_Mushroom,
153        delitem 1070,countitem(1070);//Items: Orange_Gooey_Mushroom_,
154        next;
155        savepoint "izlude",105,112;
156        warp "izlude",105,112;
157        close;
158
159L_GET_Q:
160        set PRISON,PRISON+1;
161        if (PRISON > 1) mes "Hmm... You've been here already... Well-well...";
162
163        if ( countitem(1069) || countitem(1070) ) mes "Drop these mushrooms!! They are poisonous!";//Items: Orange_Net_Mushroom, Orange_Gooey_Mushroom_,
164        delitem 1069,countitem(1069);//Items: Orange_Net_Mushroom,
165        delitem 1070,countitem(1070);//Items: Orange_Gooey_Mushroom_,
166
167        set PRISON_Q, PRISON*3 + BaseLevel/3;
168        set PRISON_Q, PRISON_Q * (readparam(bAspd)/55 + 1);
169        set PRISON_Q, PRISON_Q+rand(50,60);
170        mes "OK, you must bring me ^FF0000"+PRISON_Q+"^000000 edible ^FF0000Orange Net Mushroom^000000 toadstoo.. shrooms.";
171        if(readparam(bAspd)>=100) mes "You're a fast fella! You'll have to get more shrooms, then.";
172        if (rand(10)<4) mes "And you may eat the deadly ones for breakfast.";
173        close;
174}
175
176
177sec_in02        mapflag nomemo
178sec_in02        mapflag nosave  SavePoint
179sec_in02        mapflag noteleport
180sec_in02        mapflag nobranch
181sec_in02        mapflag nowarp
182sec_in02        mapflag nowarpto
183sec_in02        mapflag noexp
184sec_in02        mapflag noskill
185//sec_in02      mapflag pvp
186//sec_in02      mapflag pvp_noparty
187//sec_in02      mapflag gvg
188sec_in02        mapflag pvp_nightmaredrop       random,all,300
189
190sec_in02,138,55,100,100 monster Toadstool       1182,30,10000,10000,1
191sec_in02,138,55,100,100 monster Fabre   1184,10,20000,20000
192sec_in02,138,55,100,100 monster Chonchon        1183,11,20000,20000
193sec_in02,138,55,100,100 monster Spore   1014,12,20000,20000
194sec_in02,138,55,100,100 monster Poison Spore    1077,3,20000,20000
Note: See TracBrowser for help on using the browser.