From 620e60eebce2c1f35c5c9a82f6ca365b316587f5 Mon Sep 17 00:00:00 2001 From: Valaris Date: Sun, 29 Jan 2006 16:10:48 +0000 Subject: AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK. IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK. EVERYTHING ELSE GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/custom/penal_servitude.txt | 182 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 182 insertions(+) create mode 100644 npc/custom/penal_servitude.txt (limited to 'npc/custom/penal_servitude.txt') diff --git a/npc/custom/penal_servitude.txt b/npc/custom/penal_servitude.txt new file mode 100644 index 000000000..343e9d983 --- /dev/null +++ b/npc/custom/penal_servitude.txt @@ -0,0 +1,182 @@ +//===== Athena Script ======================================= +//= Penal Servitude Script +//===== By ================================================ +//= Lupus +//===== Version =========================================== +//= 1.1 +//===== Compatible With =================================== +//= eAthena Final (SVN) +//===== Description ======================================= +//= A simple Penal Servitude Script. +//= It could cheer up your prisoners a bit. +//===== Comments ========================================== +// This script uses CHEQUES of the 2nd KAFRA_BANK.TXT +// var PRISON - it counts number of your imprisonments. +// 1.1 English translation +//========================================================= + +sec_pri.gat,36,58,1 script Chief Warder 105,{ + mes "[Saddeus]"; + emotion 1; + if (sex) mes "Mr. Prisoner #"+BaseLevel+JobLevel+","; + if (!sex) mes "Ms. Prisoner #"+BaseLevel+JobLevel+","; + mes "what's the noise over there?"; + next; + menu "Let me free, I'll pay!",-, "Let me to work off my freedom!",M_Q1, "Nothing",M_NO_THANKS; + +M_PAY: + mes "[Saddeus]"; + set @MUSTPAY,(PRISON+1)*1000000; + if (@MUSTPAY<1000000) set @MUSTPAY,1000000; + if (@MUSTPAY>100000000) set @MUSTPAY,100000000; + if (PRISON==1) mes "I can't remember you. Is it your 1st time?"; + if (PRISON>1) mes "You again? Sombody hasn't grown wiser from the very first visit..."; + mes "OK, we could release you for ^FF0000"+@MUSTPAY+"z^000000."; + next; + menu "I pay cash!",M_PAYCASH,"Do you accept cheques?",M_PAYBANK,"I've changed my mind.",-; + + mes "[Saddeus]"; + mes "You've got some time to think about..."; + close; + +M_PAYCASH: + if (@MUSTPAY>Zeny) goto L_NOCASH; + set Zeny,Zeny-@MUSTPAY; + mes "[Saddeus]"; + mes "OK, sing here and there."; + goto L_RELEASE; + +L_NOCASH: + mes "[Saddeus]"; + mes "What's this? It's not enough!"; + close; + +M_PAYBANK: + if (@MUSTPAY>#kafrabank) goto L_NOBANK; + set #kafrabank,#kafrabank-@MUSTPAY; + mes "[Saddeus]"; + mes "OK, sign your cheque. And put down your name in my book."; + goto L_RELEASE; + +L_NOBANK: + mes "[Saddeus]"; + if (#kafrabank==0) mes "Your case says nothing about your bank accounts."; + if (#kafrabank!=0) mes "Alas, there's your bank account info... ^FF0000"+#kafrabank+"z^000000... in the case. It's not enough."; + mes "Stop your silly games now!"; + close; + +L_RELEASE: + set PRISON,PRISON+1; //EEEEE... + next; + mes "[Saddeus]"; + mes "You are free now!"; + next; + savepoint "izlude.gat",105,112; + warp "izlude.gat",105,112; + close; + +M_Q1: +//EE1 + mes "[Saddeus]"; + mes "Our stocks are short of toadstools. Remember your morning's skilly? What about some work at our sponsored mushroom farm?"; + next; + menu "OK, I'll work off!",-, "I love this prison!",M_NO_THANKS; + + mes "[Saddeus]"; + mes "Talk to our overseer, Oliver."; + next; + + nude; + + set @rw,rand(1,4); + if (@rw==2) goto L_W2; + if (@rw==3) goto L_W3; + if (@rw==4) goto L_W4; + +L_W1: + savepoint "sec_in02.gat",179,76; + warp "sec_in02.gat",179,76; + close; + +L_W2: + savepoint "sec_in02.gat",139,32; + warp "sec_in02.gat",139,32; + close; + +L_W3: + savepoint "sec_in02.gat",100,28; + warp "sec_in02.gat",100,28; + close; + +L_W4: + savepoint "sec_in02.gat",107,75; + warp "sec_in02.gat",107,75; + close; + +M_NO_THANKS: + mes "[Saddeus]"; + if (rand(2)) mes "Is today X-Mas time, huh?"; + mes "Now shut up and back off!"; + if (rand(2)) emotion 23; + close; +} + +sec_in02.gat,137,57,1 script Overseer 708,{ + mes "[Oliver]"; + + delitem 4002,countitem(4002);//Items: Fabre_Card, + delitem 4009,countitem(4009);//Items: Chonchon_Card, + delitem 4022,countitem(4022);//Items: Spore_Card, + delitem 4048,countitem(4048);//Items: Poison_Spore_Card, + + if (PRISON_Q <= 0 ) goto L_GET_Q; + + mes "I want you to gather ^FF0000"+PRISON_Q+" Orange Net Mushroom^000000."; + if ( countitem(1069) 1) mes "Hmm... You've been here already... Well-well..."; + + if ( countitem(1069) || countitem(1070) ) mes "Drop these mushrooms!! They are poisonous!";//Items: Orange_Net_Mushroom, Orange_Gooey_Mushroom_, + delitem 1069,countitem(1069);//Items: Orange_Net_Mushroom, + delitem 1070,countitem(1070);//Items: Orange_Gooey_Mushroom_, + + set PRISON_Q, PRISON*3 + BaseLevel/3; + set PRISON_Q, PRISON_Q * (readparam(bAspd)/55 + 1); + set PRISON_Q, PRISON_Q+rand(50,60); + mes "OK, you must bring me ^FF0000"+PRISON_Q+"^000000 edible ^FF0000Orange Net Mushroom^000000 toadstoo.. shrooms."; + if(readparam(bAspd)>=100) mes "You're a fast fella! You'll have to get more shrooms, then."; + if (rand(10)<4) mes "And you may eat the deadly ones for breakfast."; + close; +} + + +sec_in02.gat mapflag nomemo +sec_in02.gat mapflag nosave SavePoint +sec_in02.gat mapflag noteleport +sec_in02.gat mapflag nobranch +sec_in02.gat mapflag nowarp +//sec_in02.gat mapflag pvp +sec_in02.gat mapflag pvp_noparty +//sec_in02.gat mapflag gvg +sec_in02.gat mapflag pvp_nightmaredrop random,all,300 + +sec_in02.gat,138,55,100,100 monster Toadstool 1182,30,10000,10000,1 +sec_in02.gat,138,55,100,100 monster Fabre 1184,10,20000,20000 +sec_in02.gat,138,55,100,100 monster Chonchon 1183,11,20000,20000 +sec_in02.gat,138,55,100,100 monster Spore 1014,12,20000,20000 +sec_in02.gat,138,55,100,100 monster Poison Spore 1077,3,20000,20000 -- cgit v1.2.3-60-g2f50