Mhalicot

Hi,
 
Kindly check this quest.h
 
and increase your 
#define MAX_QUEST_DB (60355+1) // Highest quest ID + 1 that is because of this commit Questlog Fix

Hi, 
 
For more information about the new Hercules Item database kindly visit and read this 
Item DB file structure overhaul

gumamit ka ng TortoiseSVN ..
 
after installation, rightclick mo kahit saan, tapos piliin mo SVN Checkout
 
tapos, dun sa URL of repository: type mo https://github.com/HerculesWS/Hercules
 
tapos dun sa Checkout directory: type mo kung saan mo gusto ilagay yung hercules, example D:Program Files (x86)GravityHercules
 
tapos click mo OK, then antayin mo lang matapos.
 
pag complete na. Open mo sa loob ng folder yung trunk, then compile mo na yung server mo. tapos ka na..

use atcommand "@disguise 1317"; 
- disguise "1317";+ atcommand "@disguise 1317";

^ Its up to you, check this out 
+-----+------------------------+-------------------+| int | enum SERVICETYPE | "servicetype" tag |+-----+------------------------+-------------------+| 0 | SERVICETYPE_KOREA | korea | <---- will appear request button on login and will disable your Mail| 1 | SERVICETYPE_AMERICA | america || 2 | SERVICETYPE_JAPAN | japan || 3 | SERVICETYPE_CHINA | china || 4 | SERVICETYPE_TAIWAN | taiwan || 5 | SERVICETYPE_THAI | thai || 6 | SERVICETYPE_INDONESIA | indonesia || 7 | SERVICETYPE_PHILIPPINE | philippine || 8 | SERVICETYPE_MALAYSIA | malaysia || 9 | SERVICETYPE_SINGAPORE | singapore || 10 | SERVICETYPE_GERMANY | germany || 11 | SERVICETYPE_INDIA | india || 12 | SERVICETYPE_BRAZIL | brazil || 13 | SERVICETYPE_AUSTRALIA | australia || 14 | SERVICETYPE_RUSSIA | russia || 15 | SERVICETYPE_VIETNAM | vietnam || 17 | SERVICETYPE_CHILE | chile || 18 | SERVICETYPE_FRANCE | france || 19 | SERVICETYPE_UAE | uae |+-----+------------------------+-------------------+

Reference topic : http://rathena.org/board/topic/84169-specialty-shops/
 
Pull Request : https://github.com/HerculesWS/Hercules/pull/232 (Tested it out, and its working.) 
Diff File: SpecialShop_v1.2.diff (In case someone want to use it early/dev rejected it.)
I have tested this source, and it works fine, anyone who wants to try can test it.




Although in cashshop rearrangement, we would like if format is this
<map name>,<x>,<y>,<facing>   pointshop <NPC Name> <sprite id>,<"points">,<"description">,<itemid>:<price>{,<itemid>:<price>...}  Where description is the name of point put, like if variable if PkP and description is PvP Points.
Then when we open shop it will show in chat box (not npc dialog box), that "This shop uses PvP Points for purchasing items. Current PvP Points:123"
 

SAME topic: http://herc.ws/board/topic/3176-how-to-fix-this-all-in-one-npc-by-euphy/
 
Please use search before creating a topic
 
 
find this 
if (.Platinum) Get_Platinum; close; replace with 
if (.Platinum) function Get_Platinum; close; 

what kind of mining script is that? if you want you can try this http://herc.ws/board/topic/1893-utility-variant-mining/

it doesn't happen when you put your code inside the code tools
 
- script tabbecspace -1,{

you still cant follow the instruction don't you?
 
1. Download and extract files using 7z or any application that can extract it.
2. extract it in your server directory ex: C:/RO Server/Hercules/
2.1. edit conf/plugins.conf and add autopots
3. find autopots/autopots.sln and recompile it.
4. You can now start using your ready made plugins 
 
so it will merge to your server files.
 
I think you cant get what I mean,
 
try to make your own compiler.. 
http://herc.ws/wiki/Building_HPM_Plugin_for_MSVC

File Name: autopots
File Submitter: Mhalicot
File Submitted: 25 Nov 2013
File Category: Plugins
 
HPM autopots complete package.
 
Compatible with Windows System Only
 
if you are using Linux, ignore other files and use only autopots.c
 
Instruction.
 
1. Download and extract files using 7z or any application that can extract it.
2. extract it in your server directory ex: C:/RO Server/Hercules/
2.1. edit conf/plugins.conf and add autopots
3. find autopots/autopots.sln and recompile it.
4. You can now start using your ready made plugins
 
if you are using VS2010/VS2009/vs2013 or whatsoever and you are failing to compile because of platform issue.
this is what you need to do.
 
In Recompiling:
If you are using other MSVS/C
Quote
 
Note: Recompile if you modify the script.
if you want to use berry only type
 
@autopots 50 607 0 0
@autohp 50 607
@autosp 50 607
 
To turn it of, simply type @autopots again
If you have any questions feel free to drop a comment.
 
for more info on how to to use HPM visit Here
(Tested on Hercules rev. 137**)
Credit: Original file by Goddameit and converted by Me
 
Click here to download this file

no, make a new folder for it and just re-add all of the customs that you made in your server..

^ Release Autopots Plugins Leave vote

File Name: autopots
File Submitter: Mhalicot
File Submitted: 25 Nov 2013
File Category: Plugins
 
HPM autopots complete package.
 
Compatible with Windows System Only
 
if you are using Linux, ignore other files and use only autopots.c
 
Instruction.
 
1. Download and extract files using 7z or any application that can extract it.
2. extract it in your server directory ex: C:/RO Server/Hercules/
2.1. edit conf/plugins.conf and add autopots
3. find autopots/autopots.sln and recompile it.
4. You can now start using your ready made plugins
 
if you are using VS2010/VS2009/vs2013 or whatsoever and you are failing to compile because of platform issue.
this is what you need to do.
 
In Recompiling:
If you are using other MSVS/C
Quote
 
Note: Recompile if you modify the script.
if you want to use berry only type
 
@autopots 50 607 0 0
@autohp 50 607
@autosp 50 607
 
To turn it of, simply type @autopots again
If you have any questions feel free to drop a comment.
 
for more info on how to to use HPM visit Here
(Tested on Hercules rev. 137**)
Credit: Original file by Goddameit and converted by Me
 
Click here to download this file

- script Warper -1,{ set .@price,1000; // Zeny required for warp set .@item,501; // Item Required for warp mes "["+strnpcinfo(1)+"]"; mes "Hi "+strcharinfo(0); if (.@item) { mes "Item required ^ff0000"+getitemname(.@item)+"^000000."; if (!countitem(.@item)) close; delitem getitemname(.@item),1; } if (.@price) { mes "Warp costs ^ff0000"+.@price+" Zeny.^000000"; if (Zeny < .@price) close; if(select("^0055FFWarp^000000:^777777Cancel^000000") == 2) close; set Zeny, Zeny-.@price; } warp "prontera",150,150;} or you can add this to your warper.txt

- script Warper -1,{ set .@price,1000; // Zeny required for warp set .@item,501; // Item Required for warp mes "["+strnpcinfo(1)+"]"; mes "Hi "+strcharinfo(0); if (.@item) { mes "Item required ^ff0000"+getitemname(.@item)+"^000000."; if (!countitem(.@item)) close; delitem getitemname(.@item),1; } if (.@price) { mes "Warp costs ^ff0000"+.@price+" Zeny.^000000"; if (Zeny < .@price) close; if(select("^0055FFWarp^000000:^777777Cancel^000000") == 2) close; set Zeny, Zeny-.@price; } warp "prontera",150,150;} or you can add this to your warper.txt

File Name: Nobanking mapflag
File Submitter: sevenzz23
File Submitted: 23 Nov 2013
File Category: Source Modifications

as a requested by http://herc.ws/board/topic/3089-how-to-disable-banking-in-chosen-maps

~ can't make a pull request at this moment so I decided to make a patch first.
~ 'nobanking' mapflag disables the usage of the bank button.
 
Tested on Rev. 132***

Click here to download this file

try to change bVariableCastrate to bCastrate.
 
bVariableCastrate = renewal
bCastrate = pre-renewal..
 
if you check and compare your item data of pre-renewal and renewal..
 
this is the comparison
 
Renewal 
4145,Berzebub_Card,Berzebub Card,6,20,,10,,,,,,,,136,,,,,{ bonus bVariableCastrate,-30; },{},{} Pre-renewal
4145,Berzebub_Card,Berzebub Card,6,20,,10,,,,,,,,136,,,,,{ bonus bCastrate,-30; },{},{}  
 
if you are using item_db.conf
 
Renewal
{ Id: 4145 AegisName: "Berzebub_Card" Name: "Berzebub Card" Type: 6 Buy: 20 Weight: 10 Loc: 136 Script: <" bonus bVariableCastrate,-30; ">}, Pre-Renewal
{ Id: 4145 AegisName: "Berzebub_Card" Name: "Berzebub Card" Type: 6 Buy: 20 Weight: 10 Loc: 136 Script: <" bonus bCastrate,-30; ">},

try to fine your patcher here. or pick:
 
KPatcher NeonCube Thor Patcher Triad Patcher

and follow the instruction carefully..

@ts please read http://herc.ws/wiki/Custom_Items
 
or Item Placement on Data Folder (For New Clients)

use:
 
//===== Hercules Script ======================================//= Job Master//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.4//===== Description: =========================================//= A fully functional job changer.//===== Additional Comments: =================================//= 1.1 Fixed reset on Baby job change. [Euphy]//= 1.2 Added Expanded Super Novice support and initial Kagerou/Oboro support. [Euphy]//= 1.3 Kagerou/Oboro added. [Euphy]//= 1.4 Rebellion added. [Mhalicot]//============================================================prontera,153,193,6 script Job Master 2_F_MAGICMASTER,{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 || Class == Job_Gunslinger) 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;}

you can find that information here
 
> Custom Items - iteminfo.lub
 
you can also use iteminfo.lua if you diff your client "Read lua befor lub"

Same Topic > http://herc.ws/board/topic/3021-help-with-this-script-please/?hl=%2Bwarp+%2Bdelay
 
 
- script atcmd_warpdelay -1,{OnInit: bindatcmd "warp",strnpcinfo(3)+"::OnAtcommand",0,99; end;OnAtcommand: set .@min,5; //delay in mins set .@delay,.@min * 60; if (warpdelay > gettimetick(2)) { set .@delaytime,warpdelay - gettimetick(2); message strcharinfo(0),"You must wait "+.@delaytime+" seconds to use this command again."; end; } setarray .@param$,.@atcmd_parameters$[0],.@atcmd_parameters$[1],.@atcmd_parameters$[2]; set .@map$,implode(.@param$," "); atcommand "@warp "+.@map$+""; set warpdelay,gettimetick(2) + .@delay; end;}  Credit: kyeme
I think this can answer your question without editing your source..

The Project is 100% Done[The Quest is 100% usable(Tested it Myself)].
Project Link: https://github.com/M45T3Ryu/KO-Proyect/tree/beta (updating the bugs here first)


ToDo:
Revising All NPC'S[Phase 5/5].(Done at 19th November 18:00 GMT+5:30)

People Working on the Project:
1)Me(Dastgir Pojee)
2)M45T3R(Seems that leaved this project from July)

Phase Changelogs:



Phase 5 Completed:(Revised KO_main)
KO_main up to official.Updated Constants,Added Some Checks,Added cutins,Corrected warps of Battle Test. [Phase 5/5 Completed]

 
P.S: iRO Quest and kRO Quest are almost 100% Same(Some dialog translation may differ and nothing else.)

Any Suggestions and Help are welcome.