tjungz212
-
Posts
36 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Posts posted by tjungz212
-
-
Request Custom aura great job 3rd & cool Or how to create a custom aura detail
-
Request jobmaster for all job 3rd job & special helmet to fit each job to the latest svn rathena
-
Thank You Very Helpful my goddameit
The problem is completed
solved
-
How TO Fix My Error
Npc Script
//===== rAthena Script ======================================= //= All-in-One NPC //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.6 //===== Description: ========================================= //= A compilation of commonly-used NPC scripts. //== Includes job changer, stylist, refiner, card remover, //== coin exchanger, rentals, resetter, platinum skills, //== sex changer, identifier, healer, buffer, and repairman. //============================================================ prontera,152,193,6 script Master-NPC 646,{ function Get_Platinum; function Equip_Menu; cutin "kakashi",2; if (getarraysize(.OnClick)) { if (.OnClick[0]) { specialeffect2 313; percentheal 100,100; } if (.OnClick[1]) { specialeffect2 42; sc_start SC_BLESSING,600000,10; specialeffect2 37; sc_start SC_INCREASEAGI,600000,10; } if (.OnClick[2] && getbrokenid(1)) { specialeffect2 101; atcommand "@repairall"; } } set .@menu$,""; for (set .@i,0; .@i < getarraysize(.MainMenu$); set .@i,.@i+1) { if (.MenuOption & pow(2,.@i)) set .@menu$, .@menu$+" ~ "+.MainMenu$[.@i]; set .@menu$, .@menu$+":"; } switch(select(.@menu$)) { case 1: function Job_Menu; function A_An; if (Class > 4049) { message strcharinfo(0),"No more jobs are available."; close; } if (checkfalcon() || checkcart() || checkriding() || ismounting()) { message strcharinfo(0),"Please remove your "+((checkfalcon())?"falcon":"")+((checkcart())?"cart":"")+((checkriding())?"Peco":"")+((ismounting())?"mount":"")+" before proceeding."; close; } if (.SkillPointCheck && SkillPoint) { message strcharinfo(0),"Please use all your skill points before proceeding."; close; } set .@eac, eaclass(); set .@i, ((.ThirdClass)?roclass(.@eac&EAJ_UPPERMASK):Class); if (.@i > 6 && .@i < 22) { if (BaseLevel < .Rebirth[0] || JobLevel < .Rebirth[1]) { set .@blvl, .Rebirth[0]-BaseLevel; set .@jlvl, .Rebirth[1]-JobLevel; message strcharinfo(0),"You need "+((.@blvl>0)?.@blvl+" more base levels "+((.@jlvl>0)?"/ ":""):"")+((.@jlvl>0)?.@jlvl+" more job levels ":"")+"to continue."; close; } if (Class > 21) { Job_Menu(roclass(.@eac|EAJL_THIRD)); close; } while(1) { set .@i, select(" ~ ^0055FFRebirth^000000:"+((.ThirdClass)?" ~ ^FF0000Third Class^000000":"")+": ~ ^777777Cancel^000000"); if (.@i==3) close; Job_Menu(((.@i==1)?4001:roclass(.@eac|EAJL_THIRD))); } } set .@j1, roclass(.@eac|EAJL_2_1); set .@j2,roclass(.@eac|EAJL_2_2); if ((.@eac&EAJ_UPPERMASK) == EAJ_SUPER_NOVICE) setarray .@exp[0],roclass(.@eac|EAJL_THIRD),99; if (Class == Job_Ninja) setarray .@exp[0],.@j1,70; if (.@exp[0] && .ThirdClass) { if (BaseLevel < .Rebirth[0] || JobLevel < .@exp[1]) { set .@blvl, .Rebirth[0]-BaseLevel; set .@jlvl, .@exp[1]-JobLevel; message strcharinfo(0),"You need "+((.@blvl>0)?.@blvl+" more base levels "+((.@jlvl>0)?"/ ":""):"")+((.@jlvl>0)?.@jlvl+" more job levels ":"")+"to continue."; close; } Job_Menu(.@exp[0]); close; } if (.@eac&EAJL_2) if (.@eac&(EAJL_UPPER|EAJL_BABY) || roclass(.@eac|EAJL_UPPER) == -1) { message strcharinfo(0),"No more jobs are available."; close; } if ((.@eac&EAJ_BASEMASK) == EAJ_NOVICE) { if (JobLevel < .JobReq[0]) message strcharinfo(0),"A job level of "+.JobReq[0]+" is required to change into the 1st Class."; else if (Class == 4001 && .LastJob && lastJob) Job_Menu(roclass((eaclass(lastJob)&EAJ_BASEMASK)|EAJL_UPPER)); else switch(Class) { case 0: Job_Menu(1,2,3,4,5,6,23,4046,24,25,4023); case 4001: Job_Menu(4002,4003,4004,4005,4006,4007); case 4023: Job_Menu(4024,4025,4026,4027,4028,4029,4045); default: message strcharinfo(0),"An error has occurred."; break; } close; } if (roclass(.@eac|EAJL_2_1) == -1 || roclass(.@eac|EAJL_2_2) == -1) message strcharinfo(0),"No more jobs are available."; else if (!(.@eac&EAJL_2) && JobLevel < .JobReq[1]) message strcharinfo(0),"A job level of "+.JobReq[1]+" is required to change into the 2nd Class."; else if (.LastJob && lastJob && (.@eac&EAJL_UPPER)) Job_Menu(lastJob+4001); else Job_Menu(.@j1,.@j2); close; function Job_Menu { if (getargcount() > 1) { set .@menu$,""; for(set .@i,0; .@i<getargcount(); set .@i,.@i+1) set .@menu$, .@menu$+" ~ "+jobname(getarg(.@i))+":"; set .@menu$, .@menu$+" ~ ^777777Cancel^000000"; } while(1) { if (getargcount() > 1) { set .@i, getarg(select(.@menu$)-1,0); if (!.@i) close; } else set .@i, getarg(0); if ((.@i == 23 || .@i == 4045) && BaseLevel < .SNovice) { message strcharinfo(0),"A base level of "+.SNovice+" is required to turn into a "+jobname(.@i)+"."; } else if (select(" ~ Change into ^0055FF"+jobname(.@i)+"^000000 class: ~ ^777777Go back^000000")==1) { message strcharinfo(0),"Became "+A_An(jobname(.@i))+"!"; if (.@i==4001 && .LastJob) set lastJob, Class; jobchange .@i; if (.@i==4001 || .@i==4023) resetlvl(1); specialeffect2 338; specialeffect2 432; if (.Platinum) Get_Platinum; close; } if (getargcount() == 1) return; } end; } function Get_Platinum { skill 142,1,0; switch(BaseClass) { case 0: if (Class !=23) skill 143,1,0; break; case 1: skill 144,1,0; skill 145,1,0; skill 146,1,0; break; case 2: skill 157,1,0; break; case 3: skill 147,1,0; skill 148,1,0; break; case 4: skill 156,1,0; break; case 5: skill 153,1,0; skill 154,1,0; skill 155,1,0; break; case 6: skill 149,1,0; skill 150,1,0; skill 151,1,0; skill 152,1,0; break; default: break; } switch(roclass(eaclass()&EAJ_UPPERMASK)) { case 7: skill 1001,1,0; break; case 8: skill 1014,1,0; break; case 9: skill 1006,1,0; break; case 10: skill 1012,1,0; skill 1013,1,0; break; case 11: skill 1009,1,0; break; case 12: skill 1003,1,0; skill 1004,1,0; break; case 14: skill 1002,1,0; break; case 15: skill 1015,1,0; skill 1016,1,0; break; case 16: skill 1007,1,0; skill 1008,1,0; skill 1017,1,0; skill 1018,1,0; skill 1019,1,0; break; case 17: skill 1005,1,0; break; case 18: skill 238,1,0; break; case 19: skill 1010,1,0; break; case 20: skill 1011,1,0; break; default: break; } return; } function A_An { setarray .@A$[0],"a","e","i","o","u"; set .@B$, "_"+getarg(0); for(set .@i,0; .@i<5; set .@i,.@i+1) if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0); return "a "+getarg(0); } case 2: setarray .@Look[1],7,1,6; set .@s, select(" ~ Cloth color: ~ Hairstyle: ~ Hair color"); set .@Revert, getlook(.@Look[.@s]); set .@Style,1; while(1) { setlook .@Look[.@s], .@Style; message strcharinfo(0),"This is style #"+.@Style+"."; set .@menu$, " ~ Next (^0055FF"+((.@Style!=.Styles[.@s])?.@Style+1:1)+"^000000): ~ Previous (^0055FF"+((.@Style!=1)?.@Style-1:.Styles[.@s])+"^000000): ~ Jump to...: ~ Revert to original (^0055FF"+.@Revert+"^000000)"; switch(select(.@menu$)) { case 1: set .@Style, ((.@Style!=.Styles[.@s])?.@Style+1:1); break; case 2: set .@Style, ((.@Style!=1)?.@Style-1:.Styles[.@s]); break; case 3: message strcharinfo(0),"Choose a style between 1 - "+.Styles[.@s]+"."; input .@Style,0,.Styles[.@s]; if (!.@Style) set .@Style, rand(1,.Styles[.@s]); break; case 4: set .@Style, .@Revert; setlook .@Look[.@s], .@Revert; break; } } end; case 3: function Refine_Item; if (.EnrichedRefine) if (select(" ~ Normal Refiner: ~ Enriched Refiner")==2) { Equip_Menu(1); setarray .@Materials[0],7619,7620,7620,7620,7620; setarray .@Safe[0],4,7,6,5,4; set .@WLv, getequipweaponlv(@i); message strcharinfo(0),"Item: +"+getequiprefinerycnt(@i)+" "+getequipname(@i); if(select(" ~ Refine item (2 * ^0055FF"+getequippercentrefinery(@i)+"^000000% success): ~ ^777777Cancel^000000")==2) close; Refine_Item(1, .@Materials[.@WLv], .RP[.@WLv], .@Safe[.@WLv], 1); close; } Equip_Menu(1); setarray .@Materials[0],985,1010,1011,984,984; setarray .@Safe[0],4,7,6,5,4; set .@WLv, getequipweaponlv(@i); set .@SafeCount, .@Safe[.@WLv]-getequiprefinerycnt(@i); message strcharinfo(0),"Item: +"+getequiprefinerycnt(@i)+" "+getequipname(@i); switch(select(" ~ Refine once (^0055FF"+getequippercentrefinery(@i)+"^000000% success): ~ Refine multiple times (up to "+(10-getequiprefinerycnt(@i))+"): ~ Refine to safe limit ("+((.@SafeCount>0)?.@SafeCount+" refines":"^777777disabled^000000")+"): ~ ^777777Cancel^000000")) { case 1: Refine_Item(1, .@Materials[.@WLv], .RP[.@WLv], .@Safe[.@WLv]); close; case 2: input .@Refines; if (.@Refines+getequiprefinerycnt(@i) > 10 || .@Refines < 1) message strcharinfo(0),"Invalid number ("+.@Refines+")."; else Refine_Item(.@Refines, .@Materials[.@WLv], .RP[.@WLv], .@Safe[.@WLv]); close; case 3: if (.@SafeCount < 1) message strcharinfo(0),"The item has already reached the safe limit."; else Refine_Item(.@SafeCount, .@Materials[.@WLv], .RP[.@WLv], .@Safe[.@WLv]); close; case 4: close; } function Equip_Menu { setarray .@pos$[1],"Upper Headgear","Armor","Left hand","Right hand","Garment","Footgear","Left Accessory","Right Accessory","Mid Headgear","Lower Headgear"; set .@menu$,""; for (set .@i,1; .@i <= 10; set .@i,.@i+1) { if (getequipisequiped(.@i)) set .@menu$, .@menu$+.@pos$[.@i]+" [^0055FF"+getequipname(.@i)+"^000000]"; set .@menu$, .@menu$+":"; } set @i, select(.@menu$); if (!getequipisequiped(@i)) { message strcharinfo(0),"Nothing is equipped there!"; close; } if (getarg(0)) { if (!getequipisenableref(@i)) { message strcharinfo(0),getequipname(@i)+" cannot be refined."; close; } if (getequiprefinerycnt(@i) >= 10 ) { message strcharinfo(0),"+"+getequiprefinerycnt(@i)+" "+getequipname(@i)+" cannot be refined any further."; close; } } return; } function Refine_Item { message strcharinfo(0),"I'll need "+getarg(0)+"x "+getitemname(getarg(1))+" and "+getarg(0)*getarg(2)+" Zeny."; if (countitem(getarg(1)) < getarg(0) || Zeny < getarg(0)*getarg(2)) { sleep2 500; message strcharinfo(0),"Come back when you have the required materials."; close; } if (getequiprefinerycnt(@i)+getarg(0) > getarg(3)) { sleep2 500; message strcharinfo(0),"The item will be refined above the safe limit. It may break."; } sleep2 500; if(select(" ~ ^0055FFContinue^000000: ~ ^777777Cancel^000000")==2) close; set .@j, getarg(0); while(.@j) { delitem getarg(1), 1; set Zeny, Zeny-getarg(2); if (getarg(4,0)) { if (getequippercentrefinery(@i) <= rand(100) && getequippercentrefinery(@i) <= rand(100)) { message strcharinfo(0),getequipname(@i)+" broke while refining."; failedrefitem @i; close; } } else { if (getequippercentrefinery(@i) <= rand(100)) { message strcharinfo(0),getequipname(@i)+" broke while refining."; failedrefitem @i; close; } } successrefitem @i; set .@j, .@j-1; } message strcharinfo(0),"All done!"; close; } case 4: if (.Prices[0]) message strcharinfo(0),"It costs "+.Prices[0]+" Zeny to remove cards."; Equip_Menu(0); if (Zeny < .Prices[0]) { message strcharinfo(0),"You don't have enough Zeny."; close; } set .@j,getequipcardcnt(@i); if (!.@j) { message strcharinfo(0),"There are no cards compounded to "+getequipname(@i)+"."; close; } if (!checkweight(4001,(.@j+1))) { message strcharinfo(0),"You're carrying too many items!"; close; } message strcharinfo(0),"Item: "+getequipname(@i); if (select(" ~ Remove "+.@j+" card(s): ~ ^777777Cancel^000000")==2) close; set Zeny, Zeny-.Prices[0]; successremovecards @i; message strcharinfo(0),"Cards successfully removed!"; close; case 5: mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]"; mes "What would you like to do today?"; set .@trade_type, select("- Coins -> Zeny:- Zeny -> Coins"); mes "Very well. Here is the list on how much each coin is worth:"; for (set .@a, 0; .@a < getarraysize(.coin_id); set .@a, .@a + 1) { mes .colors$[3 + .@a] + getitemname(.coin_id[.@a]) + .colors$[0] + ": " + .coin_to_zeny_format$[.@a] + "z"; set .@coin_menu$, .@coin_menu$ + (.@coin_menu$ == "" ? "" : ":") + .colors$[3 + .@a] + getitemname(.coin_id[.@a]) + .colors$[0]; } mes "Tell me, what coin would you like to exchange?"; next; set .@coin_choice, select(.@coin_menu$) - 1; next; mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]"; switch(.@trade_type) { case 1: // Coins -> Zeny mes "How much coins would you like to give up?"; input .@amount; if (.@amount <= 0) { // Invalid Number? mes .colors$[2] + "Please Input a number greater than 0:"; cutin "",255; close; } else if (countitem(.coin_id[.@coin_choice]) < .@amount) { mes .colors$[2] + "I'm sorry, you do not have " + .@amount + " " + getitemname(.coin_id[.@coin_choice]) + (.@amount == 1 ? "" : "s"); cutin "",255; close; } else { // Ok! Checks Passed, Let's Trade! if(Zeny >= 1000000000) goto L_FullZeny; //Checks to see if the player has more than 1.8b set Zeny,Zeny + (.coin_to_zeny[.@coin_choice] * .@amount); delitem .coin_id[.@coin_choice],.@amount; cutin "",255; break; } case 2: // Zeny -> Coins mes "How much coins would you like?"; input .@amount; if (.@amount <= 0) { // Invalid Number? mes .colors$[2] + "Please Input a number greater than 0:"; cutin "",255; close; } else if (!checkweight(.coin_id[.@coin_choice],.@amount)) { // Will it Make Char Overweight? mes .colors$[2] + "I'm Sorry, but you can't carry this due to weight restrictions"; cutin "",255; close; } else if (Zeny < .coin_to_zeny[.@coin_choice] * .@amount) { mes .colors$[2] + "I'm sorry, you do not have enough zeny..."; cutin "",255; close; } else { // Checks OK! Let's trade! set Zeny, Zeny - (.coin_to_zeny[.@coin_choice] * .@amount); getitem .coin_id[.@coin_choice], .@amount; cutin "",255; } } mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]"; mes "Pleasure doing business with you."; close2; cutin "", 255; close; L_FullZeny: next; mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]"; mes "I'm sorry, but I can't allow you to exchange Coins into Zeny when you have over 1.8b zeny."; close; case 6: if (Zeny < .Prices[2]) { message strcharinfo(0),"It costs "+.Prices[2]+" Zeny to rent."; close; } if (ismounting()) { message strcharinfo(0),"You must first remove your mount."; close; } else if ((eaclass()&EAJ_THIRDMASK==EAJ_RANGER) && !countitem(6124)) { if (!checkfalcon() && getskilllv(127) && !checkwug()) { if(select(" ~ Falcon: ~ Warg")==1) setfalcon; else getitem 6124,1; } else getitem 6124,1; } else if ((eaclass()&EAJ_THIRDMASK==EAJ_MECHANIC) && !checkcart() && getskilllv(39)) { if (!checkmadogear() && getskilllv(2255)) { if(select(" ~ Cart: ~ Mado")==1) setcart; else setmadogear; } else setcart; } else if (!checkcart() && getskilllv(39)) setcart; else if (!checkfalcon() && getskilllv(127) && !checkwug()) setfalcon; else if (!checkriding() && getskilllv(63)) { if (eaclass()&EAJ_THIRDMASK==EAJ_RUNE_KNIGHT) setdragon; else setriding; } else if (!checkmadogear() && getskilllv(2255)) setmadogear; else { message strcharinfo(0),"You do not meet requirements to rent."; close; } set Zeny, Zeny-.Prices[2]; specialeffect2 276; close; case 7: if (.Prices[1]) message strcharinfo(0),"It costs "+.Prices[1]+" Zeny to reset stats or skills."; set .@i, select(" ~ Stat reset: ~ Skill reset: ~ Cancel"); if (.@i==3) close; if (Zeny < .Prices[1]) { message strcharinfo(0),"You don't have enough Zeny."; close; } set Zeny, Zeny-.Prices[1]; if (.@i==1) ResetStatus; else { sc_end SC_ALL; ResetSkill; } message strcharinfo(0),((.@i==1)?"Stats":"Skills")+" reset!"; close; case 8: Get_Platinum; specialeffect2 441; message strcharinfo(0),"Platinum skills received!"; close; case 9: setarray .@Total[0],0,0; getinventorylist; for(set .@i,0; .@i<@inventorylist_count; set .@i,.@i+1) { if (@inventorylist_identify[.@i]) continue; if (Zeny < .Prices[3]) { dispbottom "It costs "+.Prices[3]+" to identify an item."; break; } set Zeny, Zeny-.Prices[3]; delitem2 @inventorylist_id[.@i],1,0,0,0,0,0,0,0; getitem @inventorylist_id[.@i],1; setarray .@Total[0], .@Total[0]+1, .@Total[1]+.Prices[3]; } if (!.@Total[0]) { message strcharinfo(0),"No items identified."; close; } specialeffect2 154; message strcharinfo(0),"Identified "+.@Total[0]+" items"+((.@Total[1])?" for "+.@Total[1]+" Zeny":"")+"."; close; } OnInit: // --------------------- Config --------------------- setarray .MainMenu$[0], // Set menu options! "Change Jobs", // [1] "Stylist", // [2] "Refiner", // [4] "Remove Cards", // [8] "Exchange Coins", // [16] "Rentals", // [32] "Reset Stats/Skills", // [64] "Platinum Skills", // [128] "Identify All"; // [512] set .MenuOption,1|2|4|8|16|32|64|128|512; setarray .OnClick[0],1,1,1; // When clicked: heal [0], buff [1], repair [2] (1: yes / 0: no) setarray .Styles[1],553,37,250; // Maximum dye, hair style, and hair setarray .colors$[0],"^000000", "^336699", "^550000", "^996633", "^666666", "^FFFF66", "^99CCCC"; setarray .coin_id[0],673, 675, 671, 674; setarray .coin_to_zeny[0],10000000,100000000,500000000,1000000000; setarray .coin_to_zeny_format$[0],"10,000,000","100,000,000","500,000,000","1000,000,000"; setarray .Prices[0],1000000,10000,0,100; // Zeny to remove cards [0], reset [1], rent [2], identify [3] setarray .Rebirth[0],99,50; // Minimum base level, job level to rebirth OR change to third class setarray .JobReq[0],10,40; // Minimum job level to turn into 1st class, 2nd class set .ThirdClass,1; // Enable third classes? (1: yes / 0: no) set .SNovice,45; // Minimum base level to turn into Super Novice set .LastJob,1; // Enforce linear class changes? (1: yes / 0: no) set .SkillPointCheck,0; // Force player to use up all skill points? (1: yes / 0: no) set .Platinum,1; // Get platinum skills automatically? (1: yes / 0: no) set .EnrichedRefine,1; // Allow enriched refiner option? (1: yes / 0: no) setarray .RP[0],2000,50,200,5000,20000; // Zeny for armor, lv1, lv2, lv3, lv4 refines // -------------------------------------------------- cutin "",255; end; }
-
How to enable 2nd password or pin code system in src
Bump
-
How To Enable 2nd Password And Sql ?
-
Someone please Help Me to GM command to Normal Player I've edited in group.conf but it does not work what are other examples?
groups: ( { id: 0 /* group 0 is the default group for every new account */ name: "Player" level: 0 inherit: ( /*empty list*/ ) commands: { /* no commands by default */ commands: true mobinfo: true iteminfo: true whodrops: true whereis: true jailtime: true autoloot: true alootid: true autotrade: true go: true } permissions: { /* without this basic permissions regular players could not trade or party */ can_trade: true can_party: true } },Is there any other Config should change except in grup.conf?
-
No error in login , char , map sql
is there another place for config setting than in group.conf I ask if there are examples
-
I could not use gm command on group_id 0, for a normal player
groups: ( { id: 0 /* group 0 is the default group for every new account */ name: "Player" level: 0 inherit: ( /*empty list*/ ) commands: { /* no commands by default */ commands: true mobinfo: true iteminfo: true whodrops: true whereis: true jailtime: true autoloot: true alootid: true autotrade: true go: true } permissions: { /* without this basic permissions regular players could not trade or party */ can_trade: true can_party: true } }, {Is there a solution?
Request JobMaster
in Script Requests
Posted
Sir emistry .
The way how the script combines the two ... Sorry prior to his many questions, I am newbie