

freak
Members-
Posts
10 -
Joined
-
Last visited
Profile Information
-
Gender
Male
-
Location
Indonesia
Recent Profile Visitors
786 profile views
freak's Achievements

Poring (1/15)
0
Reputation
-
Hei, may I have your NPC Copy Skill script for Shadow Caster or Stalker? I have script like this. prontera,150,150,5 script Stalker 909,{ if ( StalkerSkill != 0 )goto Remove_Skill; if ( getskilllv(225) == 0 ) goto End_Talk; if ( getskilllv(225) > 0 ) goto Start_Talk; Remove_Skill: skill StalkerSkill,0,0; set StalkerSkill,0; dispbottom "[ Stalker NPC ] : Previous Skills has been Removed.."; dispbottom "[ Stalker NPC ] : Even Skills Icons remained. But [ Un-Useable ]"; end; End_Talk: mes "[ ^FF0000Stalker NPC^000000 ]"; mes "Please make sure you have the skills required to copy a skills."; close; // -- Edit Format : "<Skill Name>", for each case at a new line in order for a Better viewing.. Start_Talk: mes "[ ^FF0000Stalker NPC^000000 ]"; mes "Choose which skills you want to copy..but a Payment will be charged for each skill you choose."; next; switch(select("Acid Demonstration", // Case 1: "First Wind", // Case 2: "Jack Frost", // Case 3: "Sacrifice", // Case 4: "Spear of Ice", // Case 5: "Strom Gust")){ // Case 6: //"Aspersio", // Case 7: //"B.S Sacramenti", // Case 8: //"Bowling Bash", // Case 9: //"Backstab")){ // Case 10: // -- Edit Format : callsub S_CopySkill,<Skill ID>,<Skill Level 10>,<Skill Cost>; // -- Leave the Level as 10 better.because after they relog ..they will auto get level 10 Skills. // -- I think can add up to 128 Case. Which is 128 Skills choose-able~ // -- If you want it to announce then add "announce" at the back of <skill cost> like Case 10. case 1: callsub S_CopySkill,4490,10,500000; // Acid case 2: callsub S_CopySkill,540,5,500000; // First Wind case 3: callsub S_CopySkill,2204,5,500000; // Jack Frost case 4: callsub S_CopySkill,368,5,500000; // Sacrifice case 5: callsub S_CopySkill,537,10,500000; // Spear of Ice case 6: callsub S_CopySkill,89,10,500000,"announce"; // Strom Gust //case 7: callsub S_CopySkill,68,getskilllv(225),500000; // Aspersio //case 8: callsub S_CopySkill,69,getskilllv(225),500000; // B.S Sacramenti //case 9: callsub S_CopySkill,62,getskilllv(225),500000; // Bowling Bash //case 10: callsub S_CopySkill,212,getskilllv(225),500000,"announce"; // Backstab } S_CopySkill: if ( Zeny < getarg(2)){ mes "[ ^FF0000Stalker NPC^000000 ]"; mes "You must have at least "+getarg(2)+" Zeny to get the Skill."; close; } skill getarg(0),getarg(1),0; set Zeny,Zeny-getarg(2); set StalkerSkill,getarg(0); dispbottom "[ Stalker NPC ] : New Skill fee is [ "+getarg(2)+" Zeny ]."; dispbottom "[ Stalker NPC ] : Check Your Skill Tree Now..for the New Skill."; if (compare(getarg(3),"announce")) announce strcharinfo(0) + " has just obtained a new skill !!",bc_map; end; //OnPCLoginEvent: //if ( StalkerSkill != 1 ){ //skill StalkerSkill,getskilllv(225),0; //} //end; } but, when I get one skill and I go to dungeon or other city. My skill was dissapear. I hope you can help me. Thank before
-
how long the event will stop when no body find the NPC in 1 round? and how if I want to change to 5 minutes?
-
Hei, can you give me Hide n Seek NPC? (Auto Event) thanks before
-
nope. it is not error. but it is like reconnect server. Help please
-
i use rathena 17384. my problem like char server reconnect every 2 hours (example) so all player will disconnect can you help me? thanks before
-
Hei, can you help me for this problem? I always get disconnect when I play. the server like restart. so all player will disconnect. how i can fix it?
-
but I have waited it for 1 week and it still same
-
guys, can you help me to fix preview in facebook? like when I type my website on facebook. it will show you like how if I want to change Freak Ragnarok Online :: [index] :: to Kedai Ragnarok online :: [index] :: ?? thanks before
-
Thanks, it's work
-
Hai, can you help me for disable job Kagerou and Oboro at my Job Master Script? //===== rAthena Script ======================================= //= Job Master //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.3 //===== Compatible With: ===================================== //= rAthena SVN r16114+ //===== Description: ========================================= //= A fully functional job changer. //===== Additional Comments: ================================= //= 1.0 Initial script. //= 1.1 Fixed reset on Baby job change. //= 1.2 Added Expanded Super Novice support and initial Kagerou/Oboro support. //= 1.3 Kagerou/Oboro added. //============================================================ glemior,185,327,5 script Job Master 123,{ function Job_Menu; function A_An; mes "[Job Master]"; if (Class > 4049) { mes "No more jobs are available."; close; } if (checkfalcon() || checkcart() || checkriding() || ismounting()) { mes "Please remove your "+((checkfalcon())?"falcon":"")+((checkcart())?"cart":"")+((checkriding())?"Peco":"")+((ismounting())?"mount":"")+" before proceeding."; close; } if (.SkillPointCheck && SkillPoint) { mes "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; mes "You need "+((.@blvl>0)?.@blvl+" more base levels "+((.@jlvl>0)?"/ ":""):"")+((.@jlvl>0)?.@jlvl+" more job levels ":"")+"to continue."; close; } if (Class > 21) { mes "Switch to third class?"; next; Job_Menu(roclass(.@eac|EAJL_THIRD)); close; } while(1) { mes "Select an option."; next; set .@i, select(" ~ ^0055FFRebirth^000000:"+((.ThirdClass)?" ~ ^FF0000Third Class^000000":"")+": ~ ^777777Cancel^000000"); if (.@i==3) close; mes "[Job Master]"; mes "Are you sure?"; next; Job_Menu(((.@i==1)?4001:roclass(.@eac|EAJL_THIRD))); mes "[Job Master]"; } } 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; mes "You need "+((.@blvl>0)?.@blvl+" more base levels "+((.@jlvl>0)?"/ ":""):"")+((.@jlvl>0)?.@jlvl+" more job levels ":"")+"to continue."; close; } mes "Switch to "+jobname(.@exp[0])+"?"; next; Job_Menu(.@exp[0]); close; } if (.@eac&EAJL_2) if (.@eac&(EAJL_UPPER|EAJL_BABY) || roclass(.@eac|EAJL_UPPER) == -1) { mes "No more jobs are available."; close; } if ((.@eac&EAJ_BASEMASK) == EAJ_NOVICE) { if (JobLevel < .JobReq[0]) mes "A job level of "+.JobReq[0]+" is required to change into the 1st Class."; else if (Class == 4001 && .LastJob && lastJob) { mes "Switch classes now?"; next; 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: mes "An error has occurred."; break; } close; } if (roclass(.@eac|EAJL_2_1) == -1 || roclass(.@eac|EAJL_2_2) == -1) mes "No more jobs are available."; else if (!(.@eac&EAJL_2) && JobLevel < .JobReq[1]) mes "A job level of "+.JobReq[1]+" is required to change into the 2nd Class."; else if (.LastJob && lastJob && (.@eac&EAJL_UPPER)) { mes "Switch classes now?"; next; Job_Menu(lastJob+4001); } else Job_Menu(.@j1,.@j2); close; function Job_Menu { while(1) { if (getargcount() > 1) { mes "Select a job."; set .@menu$,""; for(set .@i,0; .@i<getargcount(); set .@i,.@i+1) set .@menu$, .@menu$+" ~ "+jobname(getarg(.@i))+":"; set .@menu$, .@menu$+" ~ ^777777Cancel^000000"; next; set .@i, getarg(select(.@menu$)-1,0); if (!.@i) close; if ((.@i == 23 || .@i == 4045) && BaseLevel < .SNovice) { mes "[Job Master]"; mes "A base level of "+.SNovice+" is required to turn into a "+jobname(.@i)+"."; close; } mes "[Job Master]"; mes "Are you sure?"; next; } else set .@i, getarg(0); if (select(" ~ Change into ^0055FF"+jobname(.@i)+"^000000 class: ~ ^777777"+((getargcount() > 1)?"Go back":"Cancel")+"^000000") == 1) { mes "[Job Master]"; mes "You are now "+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) callsub Get_Platinum; close; } if (getargcount() == 1) return; mes "[Job Master]"; } end; } 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); } 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(BaseJob) { 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; OnInit: 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,1; // Force player to use up all skill points? (1: yes / 0: no) set .Platinum,1; // Get platinum skills automatically? (1: yes / 0: no) end; } hat's my scripts Help me please! Thanks before