diff options
Diffstat (limited to 'npc')
-rw-r--r-- | npc/custom/banks/bank.txt | 190 | ||||
-rw-r--r-- | npc/custom/devnpc.txt | 508 | ||||
-rw-r--r-- | npc/custom/jobs/reset.txt | 24 |
3 files changed, 105 insertions, 617 deletions
diff --git a/npc/custom/banks/bank.txt b/npc/custom/banks/bank.txt index 00a33b67f..7c610ec13 100644 --- a/npc/custom/banks/bank.txt +++ b/npc/custom/banks/bank.txt @@ -3,7 +3,7 @@ //===== By: ================================================== //= Syrus22 (1.0) //===== Current Version: ===================================== -//= 1.0 +//= 2.0 //===== Compatible With: ===================================== //= Any rAthena version with Account variables. //===== Description: ========================================= @@ -12,6 +12,7 @@ //= Syrus22 - There's an optional transaction fee at the top of //= the script. To use it simply change the first set command //= to set the cost variable to whatever you want the fee to be. +//= Version 2.0: Optimized and brought the script up to standard. [Jguy] //============================================================ prontera,132,217,5 script Banker 109,{ @@ -19,109 +20,100 @@ set @cost,500; mes "[Banker]"; mes "Welcome to the First Bank of Prontera. How can I help you today?"; next; -menu "I'd like to make a deposit.",Ldeposit,"I'd like to make a withdrawl.",Lwithdrawl,"What's my current balance?",Lbalance,"Cancel",Lcancel; - -Ldeposit: - mes "[Banker]"; - mes "Very well... How much would you like to deposit? The maximum you can deposit at once is 999,999 Zeny."; - next; - if (@cost > 0) goto Ldepocost; - goto Ldepocont; - - Ldepocost: +switch(select("I'd like to make a deposit.:I'd like to make a withdrawl.:What's my current balance?:Cancel")) { + case 1: mes "[Banker]"; - mes "Oh and don't forget there is a " + @cost + " Zeny charge on all transactions."; + mes "Very well... How much would you like to deposit? The maximum you can deposit at once is 999,999 Zeny."; next; - goto Ldepocont; - -Ldepocont: - input @deposit; - if (@deposit < 1) goto Lrealamount; - if (@deposit > Zeny) goto Lneedzeny; - if (@deposit > (Zeny - @cost)) goto Lneedzeny2; - set Zeny,Zeny - @deposit; - set Zeny,Zeny - @cost; - set #bankstorage,#bankstorage + @deposit; - mes "[Banker]"; - mes "Thank you very much... Your zeny is in good hands."; - close; - -Lwithdrawl: - mes "[Banker]"; - mes "Very well... How much would you like to withdraw? The maximum you can withdraw at one time is 999,999 Zeny"; - next; - if (@cost > 0) goto Lwithcost; - goto Lwithcont; - - Lwithcost: + if (@cost > 0) { + mes "[Banker]"; + mes "Oh, and do realize there is a " +@cost + " Zeny charge on all transactions!"; + next; + } + input @deposit; + if (@deposit < 1) { + mes "Make sure you ask me to deposit a real amount."; + close; + } + else if (@deposit > Zeny) { + mes "It does not appear like you have the amount of zeny you're trying to deposit!"; + close; + } + else if (@deposit > (Zeny - @cost)) { + mes "You need " + @cost + " Zeny to cover the transaction fee!"; + close; + } + else { + set Zeny,Zeny - @deposit; + set Zeny,Zeny - @cost; + set #bankstorage,#bankstorage + @deposit; mes "[Banker]"; - mes "Oh and don't forget there is a " + @cost + " Zeny charge on all transactions."; - next; - goto Lwithcont; - -Lwithcont: - input @withdrawl; - if (@withdrawl < 1) goto Lrealamount; - if (@withdrawl > #bankstorage) goto Lneedzeny3; - if ((@cost > Zeny) && ((Zeny + @withdrawl) > @cost)) goto Lcostask; - if (@cost > Zeny) goto Lneedzeny2; - goto Lwithcont2; + mes "Thank you very much... Your zeny is in good hands."; + close; + } - Lcostask: + case 2: mes "[Banker]"; - mes "You don't have the Zeny for the transaction fee right now. Would you like me to take the fee directly from your withdrawl?"; + mes "Very well... How much would you like to withdraw? The maximum you can withdraw at one time is 999,999 Zeny"; next; - menu "Yes please.",Lwithtake,"No thank you.",Lcancel; - - Lwithtake: + if (@cost > 0) { + mes "[Banker]"; + mes "Oh, and do realize there is a " +@cost + " Zeny charge on all transactions!"; + next; + } + input @withdrawl; + if (@withdrawl < 1) { + mes "Please don't play games. I need a real amount to withdraw."; + close; + } + else if (@withdrawl > #bankstorage) { + mes "I show you only have ^00FF00" + #bankstorage +"^000000 zeny in your account!"; + close; + } + else if ((@cost > Zeny) && ((Zeny + @withdrawl) > @cost)) { + mes "[Banker]"; + mes "You don't have the Zeny for the transaction fee right now. Would you like me to take the fee directly from your withdrawl?"; + next; + switch(select("Yes please.:No, Thanks")){ + case 1: + mes "[Banker]"; + mes "Removing " + @cost + " from your withdrawl to cover the deposit fee..."; + set @withdrawl,@withdrawl - @cost; + set #bankstorage,#bankstorage - @cost; + set @cost,0; + next; + set Zeny,Zeny - @cost; + set Zeny,Zeny + @withdrawl; + set #bankstorage,#bankstorage - @withdrawl; + mes "[Banker]"; + mes "There's your Zeny. Have a good day."; + close; + case 2: + mes "[Banker]"; + mes "Very well... come again soon."; + close; + } + } + else { + set Zeny,Zeny - @cost; + set Zeny,Zeny + @withdrawl; + set #bankstorage,#bankstorage - @withdrawl; + mes "[Banker]"; + mes "There's your Zeny. Have a good day."; + close; + } + case 3: mes "[Banker]"; - mes "Ok then."; - set @withdrawl,@withdrawl - @cost; - set #bankstorage,#bankstorage - @cost; - set @cost,0; + mes "Hmmmm let me check some paper work."; next; - goto Lwithcont2; - -Lwithcont2: - set Zeny,Zeny - @cost; - set Zeny,Zeny + @withdrawl; - set #bankstorage,#bankstorage - @withdrawl; - mes "[Banker]"; - mes "There's your Zeny. Have a good day."; - close; - -Lbalance: - mes "[Banker]"; - mes "Hmmmm lemme check the paper work."; - next; - mes "*Rustle, Rustle*"; - next; - mes "[Banker]"; - mes "You currently have " + #bankstorage + " Zeny in your account."; - close; - -Lrealamount: - mes "[Banker]"; - mes "Don't play jokes with me please. Next time ask for a real amount."; - close; - -Lneedzeny: - mes "[Banker]"; - mes "You don't have enough Zeny to make that deposit."; - close; - -Lneedzeny2: - mes "[Banker]"; - mes "You don't have enough Zeny to cover the transaction fee."; - close; - -Lneedzeny3: - mes "[Banker]"; - mes "You don't have enough Zeny in your account."; - close; - -Lcancel: - mes "[Banker]"; - mes "Very well... come again soon."; - close; -}
\ No newline at end of file + mes "*Rustle, Rustle*"; + next; + mes "[Banker]"; + mes "You currently have " + #bankstorage + " Zeny in your account."; + close; + case 4: + mes "[Banker]"; + mes "Very well... come again soon."; + close; + } +} // EOF
\ No newline at end of file diff --git a/npc/custom/devnpc.txt b/npc/custom/devnpc.txt deleted file mode 100644 index 732a8d9c0..000000000 --- a/npc/custom/devnpc.txt +++ /dev/null @@ -1,508 +0,0 @@ -//===== rAthena Script ======================================= -//= Dev edition NPCs! -//===== By: ================================================== -//= Most NPCs by Aria -//= MouseJstr NPC by MouseJstr -//= Massdriller NPC by massdriller -//= Evera NPC by Evera -//= Kevin NPC by Kevin -//===== Current Version: ===================================== -//= 0.5 -//===== Compatible With: ===================================== -//= rAthena 1.0 Final + -//===== Description: ========================================= -//= NPCs of the devs! -//===== Additional Comments: ================================= -//= Some devs don't have their quotes yet >_> -//= currently we only have Aria, Mouse, and MC_Cameri done. -//= David is there because he has coords, but he's incomplete; -//= he has no biography -//============================================================ - -// MouseJstr =========================================================>\\ -ayothaya,76,145,5 script MouseJstr 763,{ - npcspeed 50; - mes "[MouseJstr]"; - mes "Yo homeslices.."; - mes "I am MouseJstr on AIM and josh in real life.."; - next; - mes "I enjoy maintaining a RO server because of the abuse I get"; - close; - OnTimer15000: - npcwalkto 70+rand(17),135+rand(16); - setnpctimer 0; - -doitagain: - set $foo,rand(5); - if($foo == 0) goto Lquote0; - if($foo == 1) goto Lquote1; - if($foo == 2) goto Lquote2; - if($foo == 3) goto Lquote3; - if($foo == 4) goto Lquote4; - goto doitagain; - -Lquote0: - npctalk "Brb.. my baby is throwing up on my leg."; - setnpctimer 0; - end; -Lquote1: - npctalk "The only difference between a hurricane and skydiving is which direction the tree's come at you from.."; - setnpctimer 0; - end; -Lquote2: - npctalk "Wanna be a GM? Write me a C routine that reverses a string in place.."; - setnpctimer 0; - end; -Lquote3: - npctalk "Wanna be a GM? Write me a C routine that finds me the highest bit set in a network order 32 bit integer..."; - setnpctimer 0; - end; -Lquote4: - npctalk "I am the dark angel of rAthena.. withen weeks of my arrival, almost everybody was gone or dead.. fear me..."; - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} - -// MC Cameri =========================================================>\\ -morocc,160,97,4 script MC Cameri 706,{ - npcspeed 100; - mes "[MC Cameri]"; - mes "I'm the @command guy from oA..."; - mes "^FF8040Real Name^000000: Can't tell you my name"; - mes "^FF8040Age^000000: 16 years"; - mes "^FF8040Where I live^000000: Dominican Republic, in the caribbean"; - next; - mes "[MC Cameri]"; - mes "^FF8040What I Do^000000: mostly working on @commands for GMs..."; - mes "^FF8040Why I'm here^000000: Because I like programming..."; - next; - mes "[MC Cameri]"; - mes "I'm a senior student, programmer, body builder(yes, I lift weights), etc."; - close; - OnTimer15000: - npcwalkto 154+rand(17),87+rand(16); - setnpctimer 0; - -Lmctalk: - set $mctalk,rand(10); - if($mctalk == 0) goto Lquote0; - if($mctalk == 1) goto Lquote1; - if($mctalk == 2) goto Lquote2; - if($mctalk == 3) goto Lquote3; - if($mctalk == 4) goto Lquote4; - if($mctalk == 5) goto Lquote5; - if($mctalk == 6) goto Lquote6; - if($mctalk == 7) goto Lquote7; - if($mctalk == 8) goto Lquote8; - if($mctalk == 9) goto Lquote9; - if($mctalk == 10) goto Lquote10; - goto Lmctalk; -Lquote0: - npctalk "OMGWTFBBQ"; - setnpctimer 0; - end; -Lquote1: - npctalk "I owns you all, under my commands. *lol*"; - setnpctimer 0; - end; -Lquote2: - npctalk "I forgot my script, what do I have to say again? *_*U"; - setnpctimer 0; - end; -Lquote3: - npctalk "�Donde estoy? *wonders* (<-- Means, where am I?)"; - setnpctimer 0; - end; -Lquote4: - npctalk "Are you guys my friends?"; - setnpctimer 0; - end; -Lquote5: - npctalk "My mom told me not to talk to strangers. *stares*"; - setnpctimer 0; - end; -Lquote6: - npctalk "How can you be SO ugly!?"; - setnpctimer 0; - end; -Lquote7: - npctalk "I need a friend to play with =(. *sobs*"; - setnpctimer 0; - end; -Lquote8: - npctalk "I've been kicking this rock for as long as I can remember."; - setnpctimer 0; - end; -Lquote9: - npctalk "My computer just broke, and I don't know how to format. *sobs*"; - setnpctimer 0; - end; -Lquote10: - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} - - -// Davidsiaw =========================================================>\\ -payon,182,104,4 script Davidsiaw 1002,{ - npcspeed 150; - mes "[Davidsiaw]"; - mes "omghi"; - close; -OnTimer15000: - npcwalkto 176+rand(17),94+rand(16); - setnpctimer 0; - -Ldavidtalk: - set $davidtalk,rand(10); - if($davidtalk == 0) goto Lquote0; - if($davidtalk == 1) goto Lquote1; - if($davidtalk == 2) goto Lquote2; - if($davidtalk == 3) goto Lquote3; - if($davidtalk == 4) goto Lquote4; - if($davidtalk == 5) goto Lquote5; - if($davidtalk == 6) goto Lquote6; - goto Ldavidtalk; -Lquote0: - npctalk "OMGWTFBBQ"; - setnpctimer 0; - end; -Lquote1: - npctalk "Wud are you looking at?"; - setnpctimer 0; - end; -Lquote2: - npctalk "baka..."; - setnpctimer 0; - end; -Lquote3: - npctalk "�Donde estoy? *wonders* (<-- Means, where am I?)"; - setnpctimer 0; - end; -Lquote4: - npctalk "*drops 100 Mjolnirs on the floor*"; - setnpctimer 0; - end; -Lquote5: - npctalk "There ya go ;)"; - setnpctimer 0; - end; -Lquote6: - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} - -//Aria\\ -prontera,156,179,4 script Aria 805,{ - npcspeed 150; - mes "[Aria]"; - mes "Okay, I'm Evera's brother, Aria"; - mes "^FF00FFAge^000000: 13 years"; - mes "^FF00FFWhat I do^000000: Graphics and NPCs"; - mes "^FF00FFWhy I'm here^000000: Cuz rAthena ROX"; - close; -OnTimer15000: - npcwalkto 150+rand(17),169+rand(16); - setnpctimer 0; - -Lariatalk: - set $ariatalk,rand(10); - if($ariatalk == 0) goto Lquote0; - if($ariatalk == 1) goto Lquote1; - if($ariatalk == 2) goto Lquote2; - if($ariatalk == 3) goto Lquote3; - if($ariatalk == 4) goto Lquote4; - if($ariatalk == 5) goto Lquote5; - if($ariatalk == 6) goto Lquote6; - if($ariatalk == 7) goto Lquote7; - if($ariatalk == 8) goto Lquote8; - if($ariatalk == 9) goto Lquote9; - if($ariatalk == 10) goto Lquote10; - goto Lariatalk; - -Lquote0: - npctalk "OMGWTFBBQ"; - end; -Lquote1: - npctalk "So its u -> 0"; - npctalk "... That did not look right"; - end; -Lquote2: - npctalk "????"; - end; - -Lquote3: - npctalk "OMGITSJEEBUS!#!@%!"; - setnpctimer 0; - end; - -Lquote4: - npctalk "Evera died. I guess."; - setnpctimer 0; - end; - -Lquote5: - npctalk "I CLICK THE BUTTON AND THEY DON'T DIE!"; - setnpctimer 0; - end; - -Lquote6: - npctalk "RO? wtf?"; - npctalk "Oh yeah."; - setnpctimer 0; - end; - -Lquote7: - npctalk "omgnoob. DIE!"; - setnpctimer 0; - end; - -Lquote8: - npctalk "WooT!"; - setnpctimer 0; - end; - -Lquote9: - npctalk "is that why u bought windows"; - npctalk "cuz bill has red hair"; - setnpctimer 0; - end; - -Lquote10: - setnpctimer 0; - end; - -OnInit: - initnpctimer; - end; -} - -// Evera =========================================================>\\ -prontera,156,183,5 script Evera 769,{ - npcspeed 50; - mes "[Evera]"; - mes "Hi"; - mes "I betcha you thoguht I was dead, right?"; - next; - mes "Well, I'M (not really) BACK!"; - mes "And I also enjoy long walks on the beach ^.^"; - close; - OnTimer15000: - npcwalkto 150+rand(17),173+rand(16); - setnpctimer 0; - -doitagain: - set $lol,rand(5); - if($lol == 0) goto Lquote0; - if($lol == 1) goto Lquote1; - if($lol == 2) goto Lquote2; - if($lol == 3) goto Lquote3; - if($lol == 4) goto Lquote4; - if($lol == 5) goto Lquote5; - goto doitagain; - -Lquote0: - npctalk "Does anyone actually remember who I am?"; - setnpctimer 0; - end; -Lquote1: - npctalk "O_o"; - setnpctimer 0; - end; -Lquote2: - npctalk "Bananaphone!"; - setnpctimer 0; - end; -Lquote3: - npctalk "Go away troll."; - setnpctimer 0; - end; -Lquote4: - npctalk "Aria can go to hell."; - setnpctimer 0; - end; -Lquote5: - npctalk "Sup, I'm back."; - setnpctimer 0; - end; -Lquote6: - npctalk "WTFPWNED"; - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} - -// Kevin =========================================================>\\ -prontera,178,204,5 script Kevin 774,{ - npcspeed 50; - mes "[Kevin]"; - mes "SUP?!?!?!?!"; - mes "YOU JUST GOT PWNED!!!"; - next; - mes "OUCH, ANOTHER PERSON PWNED BY KEVIN!"; - close; - OnTimer15000: - npcwalkto 170+rand(17),200+rand(16); - setnpctimer 0; - -doitagain: - set $lol,rand(9); - if($lol == 0) goto Lquote0; - if($lol == 1) goto Lquote1; - if($lol == 2) goto Lquote2; - if($lol == 3) goto Lquote3; - if($lol == 4) goto Lquote4; - if($lol == 5) goto Lquote1; - if($lol == 6) goto Lquote2; - if($lol == 7) goto Lquote3; - if($lol == 8) goto Lquote4; - goto doitagain; - -Lquote0: - npctalk "OMFGLMFAO I HAVE PWNED SO MANY PEOPLE!"; - setnpctimer 0; - end; -Lquote1: - npctalk "GO EA DEVS!"; - setnpctimer 0; - end; -Lquote2: - npctalk "WATCH OUT FOR ME ON THE IRC CHANNEL! HAHAHA!"; - setnpctimer 0; - end; -Lquote3: - npctalk "WANNA SEE MY NEW MIRC SCRIPT?!?"; - setnpctimer 0; - end; -Lquote4: - npctalk "w00t! YOU ARE SUCH A N00B YOU... N00B"; - setnpctimer 0; - end; -Lquote5: - npctalk "d00d! i r l337!"; - setnpctimer 0; - end; -Lquote6: - npctalk "pssst: what do you think of my evil plot to take over the da irc network?"; - setnpctimer 0; - end; -Lquote7: - npctalk "ORANGE COUNTY LIBERATION FRONT!"; - setnpctimer 0; - end; -Lquote8: - npctalk "OMFG YOU ARE SO UGLY!"; - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} - - -// massdriller =========================================================>\\ -geffen,122,63,5 script massdriller 823,{ - npcspeed 50; - mes "[massdriller]"; - mes "Who am i? I am A nobody!"; - mes "I like pwning people!"; - next; - mes "[massdriller]"; - mes "Main goal in life is to annoy and pwn Kevin"; - close; - OnTimer15000: - npcwalkto 170+rand(17),200+rand(16); - setnpctimer 0; - -doitagain: - set $lol,rand(9); - if($lol == 0) goto Lquote0; - if($lol == 1) goto Lquote1; - if($lol == 2) goto Lquote2; - if($lol == 3) goto Lquote3; - if($lol == 4) goto Lquote4; - if($lol == 5) goto Lquote1; - if($lol == 6) goto Lquote2; - if($lol == 7) goto Lquote3; - if($lol == 8) goto Lquote4; - goto doitagain; - -Lquote0: - npctalk "Hmm....What script needs to be fixed..."; - setnpctimer 0; - end; -Lquote1: - npctalk "OMFG...you suck!"; - setnpctimer 0; - end; -Lquote2: - npctalk "The worst kind of noobs are the heal! zeny! items plz! type."; - setnpctimer 0; - end; -Lquote3: - npctalk "What happens when you die of boredom?"; - setnpctimer 0; - end; -Lquote4: - npctalk "I'm such a kewl Person..."; - setnpctimer 0; - end; -Lquote5: - npctalk "OMFGWTFBBQ...I'm also known as MadDawg"; - setnpctimer 0; - end; -Lquote6: - npctalk "Gimme your items...I'll eat them and eat you..."; - setnpctimer 0; - end; -Lquote7: - npctalk "Aren't porings cute?"; - setnpctimer 0; - end; -Lquote8: - npctalk "Omfg..you are full of shit...."; - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} -aldebaran,137,118,5 script Fredzilla 4020,0,0,{ - npcspeed 140; -OnTouch: - mes "[Fredzilla]"; - mes "I don't really know what I do"; - mes "Well I have made some scripts, translated some scripts and corrected some scripts."; - next; - mes "[Fredzilla]"; - mes "But other than that I do nothing."; - close; -OnTimer25000: - npcwalkto 137+rand(5),118+rand(5); - setnpctimer 0; -doitagain: - set $fred,rand(6); - if($fred == 0) npctalk "I have the most optimized Dev NPC"; - if($fred == 1) npctalk "Yeah I am a Dev, what do you mean I'm just a member on the forum !!!"; - if($fred == 2) npctalk "I probably the worst speller on the Dev team."; - if($fred == 3) npctalk "You didn't think I was a real player did you?!?"; - if($fred == 4) npctalk "Golden, Ripe, Boneless Bananas, 39 Cents A Pound."; - if($fred == 5) npctalk "All those who believe in telekinesis, raise my hand."; - if($fred > 5 || $fred < 0) goto doitagain; - setnpctimer 0; - end; -OnInit: - initnpctimer; - end; -} diff --git a/npc/custom/jobs/reset.txt b/npc/custom/jobs/reset.txt index ab4be4353..8d69650df 100644 --- a/npc/custom/jobs/reset.txt +++ b/npc/custom/jobs/reset.txt @@ -14,46 +14,50 @@ //============================================================ prontera,150,193,4 script Reset Girl 124,{ + set @rskill,5000; // Set value in zeny for skill reset here + set @rstat,5000; // Set value in zeny for stat reset here + set @rboth,9000; // Set value for "package deal" (i.e.: reseting both) here. mes "[Reset Girl]"; mes "I am a Reset Girl."; - mes "Reset Stats: 5,000z"; - mes "Reset Skills: 5,000z"; - mes "Reset Both: 9,000z"; + mes "Reset Stats: "+ @rstat +"z"; + mes "Reset Skills: "+ @rskill +"z"; + mes "Reset Both: "+ @rboth +"z"; mes "Please select the service you want:"; next; switch(select("^FF3355Reset Skills:Reset Stats:Reset Both^000000:Quit")) { case 1: mes "[Reset Girl]"; - if (Zeny < 5000) { + if (Zeny < @rskill) { mes "Sorry, you don't have enough Zeny."; close; } mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!"; - set Zeny,zeny-5000; + set Zeny,Zeny-@rskill; ResetSkill; close; case 2: mes "[Reset Girl]"; - if (Zeny < 5000) { + if (Zeny < @rstat) { mes "Sorry, you don't have enough Zeny."; close; } mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!"; - set Zeny,zeny-5000; + set Zeny,Zeny-@rstat; ResetStatus; close; case 3: mes "[Reset Girl]"; - if (Zeny < 9000) { + if (Zeny < @rboth) { mes "Sorry, you don't have enough Zeny."; close; } mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!"; - set Zeny,zeny-9000; + set Zeny,Zeny-@rboth; ResetSkill; ResetStatus; close; case 4: + mes "Come again soon!"; close; } -} +}
\ No newline at end of file |