Skip to content
Permalink
master
Switch branches/tags

rAthena-Scripts/released/restaurant.txt

Go to file
 
 
Cannot retrieve contributors at this time
564 lines (540 sloc) 19.7 KB
Raw Blame
//===== eAthena Script =======================================
//= Restaurant
//===== By ===================================================
//= llchrisll
//===== Version ==============================================
//= 1.0 - Script Made
// - Bug Fixxing Process - Failed q.q, damn Effects
// - Rewritten the Effect Parts for Menu and Drinks
// (It didn't want to work >_>)
//====== ToDo List ===========================================
//=
//===== Compatible/Created/Tested With =======================
//= eAthena SQL 14434 Trunk
//===== Description ==========================================
//= Well this Script handles an Restaurant script.
// You can have 1 Menu with 10 dishes with max level 100. > .m_clvl
// The best would be not to go higher than that but depends on you.
//= How to become a cook and start cooking:
// You'll have to make an application first to be able to cook
// which requires a fee of ".fee" and you'll start with Level 1.
// Each 10th level you can add another dish.
// Also you can choose an effect from the list, but you can only add
// one per dish.
// Also there is a delay of ".delay" before you can create a new menu.
//
//= Format of variables/arrays:
//= Cook ID > Char ID
// "$cook_"+<Cook_ID>+"$": Name
// "$cook_"+<Cook_ID>+"_ge": [0] = Cook Level , [1] = Money
// "$cook_id" = Cook IDs are saved here
// ".menu_"+<Cook_ID>+"_f$": [0] = Dish 1, [1] = Description 1, [2] = Effect ID 1, [3] = Dish 2, etc
// ".menu_"+<Cook_ID>+"_ge": Menu Cost
//===============================================================
prontera,165,161,4 script Restaurant Manager 109,{
mes .n$;
mes "Hello customer.";
mes "How may I help you?";
next;
switch(select("- Eat and Drink:- Cook Managment:- Nothing")) {
case 1:
mes .n$;
mes "What may I bring you?";
next;
if(select("- Menu:- Drinks Only") == 2) goto R_Drinks;
mes .n$;
// Checking if menu exists
set .@emp,0;
for( set .@c,0; .@c < getarraysize($cook_id); set .@c,.@c + 1)
if( getarraysize(getd(".menu_"+$cook_id[.@c]+"_f$")) > 0)
set .@emp,.@emp + 1;
if(!.@emp) {
mes "There is no menu to be displayed.";
close;
} else {
set @men$,"";
for ( set .@m,0; .@m < getarraysize($cook_id); set .@m,.@m + 1) {
if(getd(".menu_"+$cook_id[.@m]+"_f$[0]") != "") set @men$,@men$ + "- "+getd("$cook_"+$cook_id[.@m]+"$[0]")+":"; else continue;
set @m,0;
while(getd(".menu_"+$cook_id[.@m]+"_f$["+@m+"]") != "") {
mes "==== Dish Name ====:";
mes getd(".menu_"+$cook_id[.@m]+"_f$["+@m+"]");
if(getd(".menu_"+$cook_id[.@m]+"_f$["+(@m+1)+"]") != "None") mes "("+getd(".menu_"+$cook_id[.@m]+"_f$["+(@m+1)+"]")+")";
set @ef_e,getd(".menu_"+$cook_id[.@m]+"_ef["+(@m/2)+"]");
for ( set @e,1; @e < getarraysize(.effect_id); set @e,@e + 1) {
if(.effect_id[@e] == @ef_e) {
mes "==== Effect ====:";
mes .effect_n$[@e];
mes (.effect_va[@e] != 0)?"Bonus: "+.effect_va[@e]:"";
break;
}
}
mes "*------------*------------*";
set @m,@m+2;
}
mes "Price: "+getd(".menu_"+$cook_id[.@m]+"_ge[0]")+" Zeny";
mes "Cooked by: "+getd("$cook_"+$cook_id[.@m]+"$[0]");
mes "==============";
}
set @men$,@men$ + "- Nothing";
next;
mes .n$;
mes "Now choose the cook's menu you want to eat.";
if((prompt(@men$) - getarraysize($cook_id)) > 0) {
close;
} else {
set @e,@menu - 1;
next;
mes .n$;
set @pay,getd(".menu_"+$cook_id[@e]+"_ge[0]");
if(Zeny < @pay) {
mes "You don't have the required amount of Zeny.";
mes "You need "+@pay+" Zeny.";
close;
}
set Zeny,Zeny - @pay;
set @ef_u,0;
while( @ef_u < getarraysize(getd(".menu_"+$cook_id[@e]+"_f$")) ) {
set @ef_e,getd(".menu_"+$cook_id[@e]+"_ef["+(@ef_u/2)+"]");
for ( set @c,1; @e < getarraysize(.effect_id); set @c,@c + 1) {
if(.effect_id[@c] == @ef_e) {
sc_start .effect_id[@c],1800000,.effect_va[@c];
if(.effect_ef[@c]) skilleffect .effect_ef[@c],.effect_va[@c];
dispbottom "Boost: "+.effect_n$[@c]+" by "+.effect_va[@c] + " for 1800 seconds (30 Mins) has been granted.";
break;
}
}
set @ef_u,@ef_u + 2;
}
set .@temp_rid,getcharid(3);
set .@cook_n$,getd("$cook_"+$cook_id[@e]+"$");
setd("$cook_"+$cook_id[@e]+"_ge[1]"),getd("$cook_"+$cook_id[@e]+"_ge[1]") + (@pay/.share);
detachrid;
if(attachrid(getcharid(3,.@cook_n$))) announce "Restaurant Mananger: Balance updated to "+getd("$cook_"+getcharid(0)+"_ge[1]")+" Zeny",3,0x00FF00;
detachrid;
attachrid(.@temp_rid);
mes "Wanna have an drink to it?";
next;
if(select("- Yes:- No") == 1) goto R_Drinks;
mes .n$;
mes "Thank you very much.";
mes "Enjoy your meal.";
close;
}
}
break;
R_Drinks:
set @drinks$,"";
mes .n$;
mes "Choose which you want:";
mes "Note: Choosing the same effect again, won't do anything.";
mes "Just wasting zeny.";
for ( set @d,1; @d < getarraysize(.drinks_n$); set @d,@d + 2 ) {
set @ef,@d*2+2;
set @drinks$,@drinks$ + "- "+.drinks_n$[@d] + " ("+.drinks_va[@ef]+" Zeny)" + ( (.drinks_n$[@d+2] != "")?":":"");
}
next;
switch(select(@drinks$)) {
default:
set @d_n,@menu*2-1; // Effect Name + Description > .drinks_n$
set @d_v,@menu*4-3; // Effect Value (Effect_ID,Value,Duration,Price) > .drinks_va
set @d_d,@menu; // Effect Display > .drinks_ef
mes "Drink Name: "+.drinks_n$[@d_n];
mes "Effect: "+.drinks_n$[@d_n+1];
set @dur,.drinks_va[@d_v+2];
set @sec,@dur/1000;
if(@sec >= 60) set @min,@sec/60;
mes "Duration: "+ ( (@min)? @min+" Minutes.":@sec +" Seconds.");
mes "Costs: "+set(@cost,.drinks_va[@d_v + 3]);
mes "Correct?";
if(select("- Yes:- No") - 1) close;
if(Zeny < @cost) {
next;
mes .n$;
mes "You don't have enough Zeny.";
mes "Please come back as soon as you have";
mes "at least "+@cost+" Zeny.";
close;
}
close2;
// Effect, Duration, Value(of Effect)
//dispbottom "Debug: Effect initialize.";
sc_start .drinks_va[@d_v],.drinks_va[@d_v+2],.drinks_va[@d_v+1];
//dispbottom "Debug: Complete - Next is Effect Display.";
if(.drinks_ef[@d_d]) skilleffect .drinks_ef[@d_d],.drinks_va[@d_v+1];
//dispbottom "Debug: Effect Display Complete - Next Confirm Message";
dispbottom "Boost: "+.drinks_n$[@d_n+1]+" for "+ (.drinks_va[@d_v+2]/1000)/60+" seconds has been granted.";
//dispbottom "Debug: Zeny Reduce - Process...";
set Zeny,Zeny - @cost;
//dispbottom "Debug: Zeny Reduce Complete - Next is if cook is available.";
if(.@cook_id$ != "") {
set .@temp_rid,getcharid(3);
set .@bonus,@cost/.share;
setd("$cook_"+$cook_id[@e]+"_ge[1]"),getd("$cook_"+$cook_id[@e]+"_ge[1]") + .@bonus;
//dispbottom "Debug: Cook Announce initialize...";
detachrid;
if(attachrid(getcharid(3,.@cook_n$))) announce "Restaurant Mananger: Balance updated to "+getd("$cook_"+getcharid(0)+"_ge[1]")+" Zeny",3,0x00FF00;
detachrid;
}
break;
}
close;
case 2:
mes .n$;
mes "[===Cook Managment===]";
mes "How can I help you?";
next;
switch(select("- "+ ( (!CookLvl)?"Cook Application":"Status")+":- Menu Managment:- Nothing")) {
case 1:
mes .n$;
if(!CookLvl) {
mes "So you want to applicate as an cook?";
if(select("- Yes, please:- Nevermind") - 1) close;
next;
mes .n$;
mes "To be able to become a cook,";
mes "I'll need a \"small\" fee from you.";
mes "Which would be "+.fee+" Zeny.";
mes "Still wanna continue?";
if(select("- Yes, please:- Nevermind") - 1) close;
next;
mes .n$;
if(Zeny < .fee) {
mes "You don't have the required amount of money.";
mes "Please come again as soon as you have it.";
close;
}
set Zeny,Zeny - .fee;
set CookLvl,1;
setd("$cook_"+getcharid(0)+"$"),strcharinfo(0);
setarray getd("$cook_"+getcharid(0)+"_ge"),CookLvl,0;
setarray $cook_id[getarraysize($cook_id)],getcharid(0);
mes "Congratulation!!";
mes "You are now an Level 1 Cook.";
mes "Happy cooking.";
close;
} else {
mes "[=== Status ===]";
mes "Level: "+CookLvl;
mes "EXP: "+CookExp;
mes "Till next Level: "+ ((CookLvl*.nlvlrate) - CookExp)+" EXP";
mes "Balance: "+getd("$cook_"+getcharid(0)+"_ge[1]");
next;
switch(select("- Withdraw money:- Quit Cooking:- Nothing")) {
case 1:
mes .n$;
if(getd("$cook_"+getcharid(0)+"_ge[1]") == 0) {
mes "There is nothing that can be withdrawn.";
close;
}
if( (Zeny + getd("$cook_"+getcharid(0)+"_ge[1]")) >= 1000000000) {
mes "You have too much zeny with you.";
mes "Please come again as soon as you have more space for it.";
close;
}
set Zeny,Zeny + getd("$cook_"+getcharid(0)+"_ge[1]");
setd("$cook_"+getcharid(0)+"_ge[1]"),0;
mes "Withdrawal was successfull.";
close;
case 2:
mes .n$;
mes "Really wanna quit being a cook?";
mes "Your log will be deleted.";
if(select("- Continue:- Nevermind") - 1) close;
deletearray getd(".menu_"+getcharid(0)+"_f$[0]"),128; // Deleting Menus
deletearray getd(".menu_"+getcharid(0)+"_ef[0]"),128; // Deleting Effects
set getd("$cook_"+getcharid(0)+"$"),""; // Delete Char Name
deletearray getd("$cook_"+getcharid(0)+"_ge[0]"),128; // Delete Cook Lvl + Zeny in array
for ( set .@d,0; .@d < getarraysize($cook_id); set .@d,.@d + 1) {
if($cook_id[.@d] == getcharid(0)) {
deletearray $cook_id[.@d],1; // Delete Char ID
break;
}
}
set CookLvl,0;
set CookExp,0;
next;
mes .n$;
mes "Your log has been deleted.";
mes "I'm sad for loosing such a good cook.";
case 3:
close;
}
}
break;
case 2:
mes .n$;
if(getarraysize(getd("$cook_"+getcharid(0)+"$")) < 1) {
mes "I'm sorry, but you are not a cook yet.";
close;
}
mes "So how can I be of help?";
/* // Used for bug fixing :D
if(getgmlevel()) {
mes "===== 1st Dish Display ======";
mes getd(".menu_"+getcharid(0)+"_f$[0]");
mes getd(".menu_"+getcharid(0)+"_f$[1]");
mes getd(".menu_"+getcharid(0)+"_f$[2]");
mes "=============================";
switch(select("- Reset All:- Reset Timer:- Reset Lvl:- Nothing")) {
case 1:
set CookDelay,0;
set CookLvl,1;
set CookExp,0;
break;
case 2:
set CookDelay,0;
break;
case 3:
set CookLvl,1;
set CookExp,0;
break;
}
}
*/
next;
switch(select("- Create a menu:- Delete a menu:- More Information:- Nothing")) {
case 1:
set @MaxMen,(CookLvl/10) + 1;
// Checking if menu exists or max dishes is reached
if( (getarraysize(getd(".menu_"+getcharid(0)+"_f$")) / 3) >= @MaxMen) {
mes .n$;
mes "You have reached the maxium amount of dishes you can cook with your current level.";
close;
}
// Delay
if(gettimetick(2) < CookDelay) {
mes .n$;
mes "I'm sorry, but the heat of your last cooking attempt has not faded yet.";
mes "Please wait "+(CookDelay-gettimetick(2))+" Seconds.";
close;
}
set @a,getarraysize(getd(".menu_"+getcharid(0)+"_f$")) / 2;
set @b,getarraysize(getd(".menu_"+getcharid(0)+"_f$"));
while( @a < @MaxMen) {
next;
mes .n$;
mes "Now put the dish name:";
if(input(@d_name$,1,30) != 0) {
next;
mes .n$;
mes "Maximum 30 letters.";
continue;
}
next;
mes .n$;
mes "Good, now an description:";
mes "If you put \"None\" nothing will be displayed.";
if(input(@d_desc$,1,20) != 0) {
next;
mes .n$;
mes "Maximum 20 letters.";
continue;
}
next;
mes .n$;
mes "Now put the effect for it:";
mes "Format: Effect Name (Bonus)";
set @ef_m$,"";
for ( set @m,1; @m < getarraysize(.effect_n$); set @m,@m + 1 ) {
set @ef_m$,@ef_m$ + "- "+.effect_n$[@m] + ( (.effect_va[@m] != 0)?" ("+.effect_va[@m]+")":"") + ( (.effect_n$[@m+1] != "")?":":"");
}
set @ef_c,select(@ef_m$);
setarray getd(".menu_"+getcharid(0)+"_f$["+@b+"]"),@d_name$,@d_desc$;
setarray getd(".menu_"+getcharid(0)+"_ef["+@a+"]"),.effect_id[@ef_c];
//setd(".menu_"+getcharid(0)+"_f$["+@b+"]"),@d_name$;
//setd(".menu_"+getcharid(0)+"_f$["+(@b+1)+"]"),@d_desc$;
//setd(".menu_"+getcharid(0)+"_f$["+(@b+2)+"]"),.effect_id[@ef_c];
set @b,@b+2; // New Dish
set @a,@a+1; // Dish total count
}
next;
mes .n$;
mes "Re-Check:";
for( set @c,0; @c < getarraysize(getd(".menu_"+getcharid(0)+"_f$")); set @c,@c+2) {
if(getd(".menu_"+getcharid(0)+"_f$["+@c+"]") != "") {
mes getd(".menu_"+getcharid(0)+"_f$["+@c+"]");
mes "("+getd(".menu_"+getcharid(0)+"_f$["+(@c+1)+"]")+")";
set @ef_e,@c/2;
for ( set @e,1; @e < getarraysize(.effect_id); set @e,@e + 1) {
if(.effect_id[@e] == getd(".menu_"+getcharid(0)+"_ef["+(@ef_e)+"]")) {
mes "==== Effect ====:";
mes .effect_n$[@e];
mes (.effect_va[@e] != 0)?"Bonus: "+.effect_va[@e]:"";
break;
}
}
mes (getd(".menu_"+getcharid(0)+"_f$["+(@c+3)+"]") != "")?"*------*------*":"===============";
}
}
mes "The price will be "+set(@pri,CookLvl*.price)+" Zeny.";
if(select("- Proceed:- Cancel") - 1) {
deletearray getd(".menu_"+getcharid(0)+"_f$[0]"),128;
close;
}
next;
if(CookLvl < .m_clvl) {
set CookExp,CookExp + .exprate;
if( CookExp >= (CookLvl*.nlvlrate)) {
set CookLvl,CookLvl + 1;
set CookExp,0;
dispbottom "You have achieved the level "+CookLvl;
setd("$cook_"+getcharid(0)+"$[1]"),CookLvl;
} else {
dispbottom "Cook Exp: "+CookExp+", until next level: "+ ((CookLvl*.nlvlrate) - CookExp)+" EXP.";
}
}
setd(".menu_"+getcharid(0)+"_ge"),@pri;
mes .n$;
mes "Thanks for creating such a delicious meal.";
mes "See ya again till the heat has faded in about " + (.delay/3600) + " hours.";
set CookDelay,gettimetick(2) + .delay;
close;
case 2:
mes .n$;
// Checking if menu exists
if( getarraysize(getd(".menu_"+getcharid(0)+"_f$")) < 2) {
mes "There is no menu to delete.";
close;
}
// Looping the menus via name:
mes "These are the dishes in your menu:";
for( set @lm,0; @lm < getarraysize(getd(".menu_"+getcharid(0)+"_f$")); set @lm,@lm + 2) {
mes getd(".menu_"+getcharid(0)+"_f$["+@lm+"]");
set @del_m$,@del_m$ + "- "+getd(".menu_"+getcharid(0)+"_f$["+@lm+"]") + ( (getd(".menu_"+getcharid(0)+"_f$["+(@lm+2)+"]") != "")?":":"");
}
next;
mes .n$;
mes "Please choose the menu you want to delete.";
next;
set @sel_del,select(@del_m$)*2-2;
mes .n$;
mes "You have chosen the menu";
mes getd(".menu_"+getcharid(0)+"_f$["+@sel_del+"]");
mes "Is that correct?";
if(select("- Yes:- No") - 1) close;
next;
mes .n$;
mes "The dish will now be deleted.";
deletearray getd(".menu_"+getcharid(0)+"_f$["+@sel_del+"]"),2;
deletearray getd(".menu_"+getcharid(0)+"_ef$["+(@sel_del/2)+"]"),1;
close;
case 3:
mes .n$;
mes "How this works:";
mes "[=== EXP ===]";
mes "You gain for every menu "+.exprate+" EXP, for the next level you need, your current level multiplied by "+.nlvlrate+".";
mes "Example: You are level 2 > 2*"+.nlvlrate+" = "+(.nlvlrate*2)+" EXP, which would be "+(.nlvlrate*2)/.exprate +" menus.";
mes "The maximum level you can achieve is "+.m_clvl+".";
next;
mes "[=== Effects ===]";
mes "To be it worth eating your menus you can enhance them with special effects.";
mes "At the beginning you can add one effect and one dish to your menu.";
mes "Each 10th level you can add another dish.";
mes "Also you can choose an additional effect on every 5th level.";
next;
mes "[=== Prices ===]";
mes "For each menu your Cook Level*"+.price+".";
close;
case 4:
close;
}
case 3:
close;
}
case 3:
close;
}
OnInit:
set .n$,"[Restaurant Manager]";
set .m_clvl,100; // Max Cook Level
set .share,5; // Share of Zeny gained from the sold menus in %
set .price,10000; // Value multiplied for Menu Price > CookLvl*.price
set .exprate,10; // EXP gained each cooking attempt
set .nlvlrate,100; // Value multiplied for Exp till next lvl > CookLvl*.nlvlrate
set .fee,100000; // Fee for Cook Application (in Zeny of course :P)
set .delay,43200; // Cooking Delay to prevent exploit/spam > in Seconds (Default: 43200 = 12 Hours)
//==================================
// Effect Settings - Effect ID, Value, Effect Display
// Effect ID, should be obvious, see db/const.txt > "SC_"
// Value: Some effecs won't need a value like "Intravision"
// Just read the effect display and combinue it with the value set.
// Efffect Display: ...
// .m_ef_dis[X]: Effect Animation from Skill DB, [X] = Menu
//==================================
// Note: Don't add/remove a single value, do a whole line or it will occur in an error.
//==================================
setarray .effect_n$[1],"Intravision", //SC_INTRAVISION > 186
"Increase All Stats", //SC_INCALLSTATUS > 187
"Increase Str", //SC_INCSTR > 188
"Increase Agi", //SC_INCAGI > 189
"Increase Vit", //SC_INCVIT > 190
"Increase Int", //SC_INCINT > 191
"Increase Dex", //SC_INCDEX > 192
"Increase Luk", //SC_INCLUK > 193
"Increase Hit", //SC_INCHIT > 194
"Increase Hit in %", //SC_INCHITRATE > 195
"Increase Flee", //SC_INCFLEE > 196
"Increase Flee in %", //SC_INCFLEERATE > 197
"Increase Max HP in %", //SC_INCMHPRATE > 198
"Increase Max SP in %", //SC_INCMSPRATE > 199
"Increase ATK in %", //SC_INCATKRATE > 200
"Increase MATK in %", //SC_INCMATKRATE > 201
"Increase DEF in %", //SC_INCDEFRATE > 202
"Increase Base ATK", //SC_BATKFOOD > 211
"Increase MATK", //SC_MATKFOOD > 213
"Increase Resistance", //SC_SCRESIST > 214
"Base Exp Boost in %", //SC_EXPBOOST > 257
"Item Drop Boost in %", //SC_ITEMBOOST > 258
"Job Exp Boost in %"; //SC_JEXPBOOST > 292
setarray .effect_id[1],186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,211,213,214,257,258,292;
setarray .effect_va[1],0,5,10,10,10,10,10,10,100,10,100,10,10,10,10,10,10,200,200,5,50,25,50;
setarray .effect_ef[1],380,34,34,34,34,34,34,34,45,45,45,45,358,374,355,33,34,34,361,0,0,0;
//==================================
// Drinks Settings:
// .drinks_n$: Display for Name and Effect
// .drinks_va: effect_id,duration,price;
// Effect:
// - sc_start, like the effects from above > .effect_n$
// Duration: In Milliseconds (Default: 30 Min > 1800 Seconds*1000)
// Price: Default is 5k
//.drinks_ef[X]: Effect Animation from Skill DB, [X] = Menu
//==================================
// Note: Don't add/remove a single value, do a whole line or it will occur in an error.
//==================================
setarray .drinks_n$[1],"Coka Cola","Int + 5%",
"Sprite","Int + 5%",
"Fanta","Int + 5%",
"Red Bull","Improve Concentration Lvl 5",
"Beer","Attack Power + 5%",
"Vine","Defense + 5%",
"Apple Juice","Int + 15",
"Orange Juice","Vit + 15";
setarray .drinks_va[1],SC_INCMSPRATE,5,1800000,5000,
SC_INCMSPRATE,5,1800000,5000,
SC_INCMSPRATE,5,1800000,5000,
SC_CONCENTRATE,5,1800000,5000,
SC_INCATKRATE,5,1800000,5000,
SC_INCDEFRATE,5,1800000,5000,
SC_INCINT,15,1800000,5000,
SC_INCVIT,15,1800000,5000;
setarray .drinks_ef[1],74,74,74,45,355,33,34,33;
end;
OnClock0001:
for (set .@r,0; .@r < getarraysize($cook_id); set .@r,.@r+1) {
deletearray getd(".menu_"+$cook_id[.@r]+"_f$[0]"),128;
setd(".menu_"+$cook_id[.@r]+"_ge"),0;
}
announce "Restaurant Manager: The menus has been deleted.",0;
end;
OnPCLoginEvent:
//dispbottom "Debug: Check if you are an Cook";
if(getarraysize(getd("$cook_"+getcharid(0)+"$")) < 1) end;
//dispbottom "Debug: Result: You are an Cook - Continue with Balance Update Announce.";
announce "Restaurant Mananger: Balance updated to "+getd("$cook_"+getcharid(0)+"$[2]")+" Zeny",3,0x00FF00;
//dispbottom "Debug: Balance Update Announced ended - Last Step: CookLvl Update.";
//dispbottom "Debug: Lvl from array: "+getd("$cook_"+getcharid(0)+"$[1]")+" - Your current lvl: "+CookLvl;
if(getd("$cook_"+getcharid(0)+"$[1]") != ""+CookLvl) setd("$cook_"+getcharid(0)+"$[1]"),""+CookLvl;
//dispbottom "Debug: Update complete.";
end;
}