karazu

File Name: Extended Vending System v1.8.1
File Submitter: dastgirpojee
File Submitted: 16 May 2013
File Category: Source Modifications

Original topic and code here: http://ea-support.ru/index.php?/topic/525-vending-za-ljuboi-lut/page__p__5382"]link[/url]
Idea: http://www.eathena.ws/board/index.php?showtopic=274111"]link[/url]
rAthena: http://rathena.org/board/topic/60817-extended-vending-system-18/"]link[/url]
You can enable or disable the cash / item in file db/item_vending.txt


Vending title can be looks like: "[ITEM_ID] name"


Modify your client data files:

idnum2itemdisplaynametable.txt
idnum2itemresnametable.txt
Enjoy.

New:
v1.8.1:
08 April 2013:
03 May 2013:
15 May 2013:

Created by Lilith,
Modified by Dastgir

Click here to download this file

It's actually something much bigger than that :>

If I find time and motivation I'll maybe check for security exploits once it's done. Most of the panels out there got critical vulnerabilities.
 
In fact really depend if the project interest me.

Its a RO Shield, which claims that it protects the server from bots and hacks and apparently have no updates from years

It is not yet added @ Hercules.(Maybe i will make a pull request, so core dev can review it.)

BG Flavius CTF (Source Edit to support eAmodBG in hercules) Its the edits to current eAmod script and hercules source to make eAmodBG(CTF) workable in Hercules

So how to add new map?

 
 
set .Map$,"payon";  this is how I add.
 
 
set .Map$,"payon"prontera"; 

Hello, I am trying to make a custom item that allows player to do @at or @autotrade because of vending skill.

Yes I want them to be like merchant.

I only have 1 Problem.

-Why is it that every time I type @at or @autotrade the character will be log-off. 
 
Note:
- When i Type /w or @who the character is still online and vending, the problem is the character is invisible.

- NO error in the console 

 

If your Server is failing please have a patience in maintaining it, All the server will start from a scratch and instead of closing it just give it more time to grow.

Some of the old servers are not really that good, it just happen that the players already gained their trust. because no matter what happened they did not closed the server that easy. 

"OnPCLoginEvent:" is commented on your script... or if you don't want it to be run on Login, try this one:
http://upaste.me/40a31236669d3d23c

#include <stdio.h>#include <stdlib.h>#include <string.h>#include <math.h>#include "../common/HPMi.h"#include "../map/clif.h"#include "../map/atcommand.h"#include "../map/script.h"#include "../map/pc.h"#include "../common/HPMDataCheck.h"HPExport struct hplugin_info pinfo ={ "@dance", // Plugin name SERVER_TYPE_MAP,// Which server types this plugin works with? "0.1b", // Plugin version HPM_VERSION, // HPM Version (don't change, macro is automatically updated)};ACMD(dance){int msg;msg = rand()%9;switch(msg){ case 0: case 1: case 3: case 5: case 7: case 9: clif->specialeffect(&sd->bl, 400, ALL_CLIENT); if (msg==0 || msg==1) {clif->specialeffect(&sd->bl, 413, ALL_CLIENT);} else if(msg==3){clif->specialeffect(&sd->bl, 415, ALL_CLIENT);} else if(msg==5){clif->specialeffect(&sd->bl, 458, ALL_CLIENT);} else if(msg==7){clif->specialeffect(&sd->bl, 501, ALL_CLIENT);} else{clif->specialeffect(&sd->bl, 550, ALL_CLIENT);} break; case 2: case 4: case 6: case 8: clif->specialeffect(&sd->bl, 300, ALL_CLIENT); if (msg==2){clif->specialeffect(&sd->bl, 414, ALL_CLIENT);} else if (msg==4){ clif->specialeffect(&sd->bl, 426, ALL_CLIENT); } else if (msg==6){ clif->specialeffect(&sd->bl, 466, ALL_CLIENT); } else { clif->specialeffect(&sd->bl, 540, ALL_CLIENT); } }return true;}/* Server Startup */HPExport void plugin_init (void){ clif = GET_SYMBOL("clif"); atcommand = GET_SYMBOL("atcommand"); script = GET_SYMBOL("script"); skill = GET_SYMBOL("skill"); addAtcommand("dance",dance);} Try it..

- script JobLvTen -1,{OnPCJobLvUpEvent:if (JobLevel==10){ getitem 502,1; //Any Other Code dispbottom "You get a bonus for reaching job lvl.10";}end;}

* jaBote switches on @Ind mode *
 
rAthena to Hercules database converters
 
Hello~! What?!
I've observed a big rise of rAthena to Hercules database conversion requests this week, so I've just revised again the converters I made before and will be releasing on the repository so that people can find them more easily. What does that do?
We have two new .SQL files on our repository that make the conversion easy. One is for applying on the main ragnarok table (sql-files/rathena-main-upgrade.sql) and the other is for the logs one (sql-files/rathena-logs-upgrade.sql).Please remember to make a backup prior to converting the database, just in case something goes wrong. This is meant to convert a fully upgraded rAthena to a fully upgraded Hercules. If you have some uninstalled rAthena upgrades please install them first. Avoid using it if there has been an upgrade posted in rAthena newer than the date of the converter or, at least, you didn't apply it or know how to undo the changes (remember that main.sql is usually fully upgraded both in Hercules and in rAthena). Some data (especially the data we don't use here on Hercules may be lost on the conversion). We'll not be resposible for this. How does it work?
Plain and simple: just load them on the respective databases you have in rAthena, as if they were the original main.sql or logs.sql. Obviously enough, they won't work if you don't have CREATE, ALTER, INDEX and DROP permissions (and maybe others too) for the user(s) you'll be running this. These converters will NOT work if you changed the table names. Special thanks
rAthena staff for their database structure and upgrades. Hercules staff for the database structure and upgrades. All the users that requested the converters in their respective topics. for suggesting this to be committed to the repository. @Haru for last minute corrections. Disclaimer
As I warned before, there may be some intended or unintended data loss. Please make a backup before applying. This may get outdated quite quicly without me noticing about that. If that's so, please make a pull request or ping me to update the converter when I have time. I've avoided to name the files as "upgrades" here on the topic, but I've named them like that to make them have the name structure as the eAthena upgrade. This is NOT an offense to rAthena staff by any means. People are requesting this, so I made the conversion process easy for them, much like rAthena made a converter from eAthena and nobody got offended. Just that. Links~u!
Main database converter commit. Logs database converter commit. * jaBote switches off @Ind mode *

This was previously a PM he sent to me, and I encouraged him to make a topic out of it.
 
I'll also share the insights I gave him via PM (Felipe Brasil, please certify I didn't edit a single letter from it), along with a couple of side notes:
Side note:
There are a couple of systems I'd be willing to have, but overall product, its support and price are no way an appeal for me. Anyways that is not an option for the no-donation oriented servers I've had (only one as main admin, some others as co-admin without being owner).
 
None of my servers were meant to be profitable and I'm proud none of them ever were (with not even a single surplus month, which I'm also proud of). Only donating people were these who actually trusted me and wanted to help me cover ONLY the monthly expenses, not those that wanted any donation items. In fact, they weren't given any exclusive privilege. You can hear me rant about that on my blog entry.
 
This allows me to say your server can be successful without that hotchpotch of features (of which you'll use only a couple) provided you can be creative and keep an income of features to your server.
 

 
However, while it is known I'm not a fan of eAmod, this topic is to have a polite, civil and appropriate discussion about this 3rd party paid modification. I won't allow any attacks or drama to be held on (I especially mean this for these people that make me think they're permanently angry when reading them) this topic, or I will start handing down warnings (and other proper punishments when needed) no matter who did it (be it a member of Hercules, someone defending eAmod or the Pope of Rome himself) or it'll get closed and removed if gets out of control.

Points depends on ".Quests" setting.
Point Calculation is something like.
It loops for (.Quests) times for setting variable (a = a+(Monster level, which you are hunting) )
then points are calculated. (Points = 3+(a/.Quests/6)
So Basically Minimum Points are 3, Maximum Points Depends upon Monster Level and the value of .Quests (Line 148 and line 155)

Try this:
OnEquipScript: <" { atcommand "@aura999"; } ">OnUnequipScript: <" { atcommand "@aura 0"; } ">

File Name: Elemental Practice Targets
File Submitter: Dastgir Pojee
File Submitted: 01 May 2014
File Category: Sprites & Palettes
 
Elemental Practice Targets by Request(http://herc.ws/board/topic/5492-elemental-practice-targets/)
This Download contains sprite only.
Elemental Practice Targets are the monsters, and contains 10 Sprites:
1)Emperium Practice Target
2)Fire Practice Target
3)Ghost Practice Target
4)Holy Practice Target
5)Neutral Practice Target
6)Poison Practice Target
7)Shadow Practice Target
8)Undead Practice Target
9)Water Practice Target
10)Wind Practice Target
11)Earth Practice Target
 
Credits to Rytech, for uploading these files on eathena.
 
Click here to download this file

Hello Hercules Community,

I am offering my Services to you @ some expense of money.

Works for Emulator: Hercules/rAthena/Others(if any)
Services:
Scripting. (Min Price:5$ ) Source Modification(/Addition).(Min Price: 5$) Converting to/Creating a Plugin[Hercules Specific].(Min Price: 5$) Migrating Your Server. (Min Price: 10$) Adding Custom Items/Maps/Mobs. (Min Price: 5$) Creating/Adding New Skills. (Min Price: 10$) Changing of Emulator (Min Price: 10$) ClientSide Things. (Min Price: 5$) Fixing Errors. (Min Price: 5$) Script Review. Consulting And Anything else, that you want, just drop me a PM
Maximum Price: Depends on Complexity of the Work
What Else:
Free Support for Service bought from me.

Contact Info:
Post Here Via PM Payment Methods:
PayPal Only PM me if you want any other payment method, and I might check If I can have it.

Status: AVAILABLE

While I was working on some item_data reconstruction(A Paid Source requested to me..) I discovered that we can create ItemID with greater than 32k ID. (Atleast on 2013-08-07,Since I use this mostly, I tested it with this client.), so maybe as kRO has reached almost 30k, they already increased itemid range...
 
Some of the testings: http://imgur.com/zKGwMFZ
Also I tried to make different items like equipable, usable, and I was able to wear and use them....
 
We would need to modify some mysql tables and change some "short" type(in source)...
 
Atleast I tested until 65535 , So maybe client is restricting ID > 65535 now?(Since Item Failed to create when tried with ID>65535).
 
 
So my suggestion is to change short types and mysql tables, and make itemdb support to 65535 by default...

prontera,165,185,4  script  Card Remover  100,{  disable_items;  mes "["+strnpcinfo(1)+"]";  mes "Do u want to remove some cards?";  if(select("Remove Card","Close") == 2 ) close;    mes " ","Choose an item.";    setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";    set .@menu$,"";    for( set .@i,1; .@i <= 10; set .@i,.@i+1 ) {      if( getequipisequiped(.@i) )        set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";        set .@menu$, .@menu$ + ":";    }    set .@part, select(.@menu$);    if( !getequipisequiped(.@part) ) {      mes " ","Check Equip.";      close;    }    if(getequipcardcnt(.@part) == 0) {      mes " ","No cards compounded.";      close;    }    successremovecards .@part;    close;}

File Name: Rebirth System
File Submitter: Dastgir
File Submitted: 05 Apr 2014
File Category: Utility
 
It is Rebirth System , which allows to rebirth unlimited times
 
Some of its features on how it works
It does not give any Extra StatusPoints(Adjustable via Config)
Requires Some Item to Rebirth
Rewards are given when you rebirth with x% chance
You can Only Rebirth when you are Max Level (3rd,2nd job Configurable Option)
RebirthSystem Ranking(To know who has Rebirth How many times)
Master Rebirth System(When you have Rebirthed for x times, You can do Master Rebirth. You can add ItemReward and ItemRequirements, only for MasterRebirth too..)
GM can reset the Rebirth Rankings(Affects StatusPoint Given)
Can Force the User to be rebirthed to Novice/High Novice.
Can Give x status point every Rebirth.
Can Give y status point every Master Rebirth.
Can Limit Number of Rebirth/Master Rebirths.
Can rebirth to Any Jobs(Job Adjustable via Config)

I made this script because it was requested to me by someone.
 
Click here to download this file

Creedit go to : Capuche
Every Rebirth Will give you an Item by Chance (1% Apple,  2%Jellopy, 10% Lemon.) " For this script i was using Ms @AnnieRuru scripting trick "
 
prontera,150,170,5 script Spec 833,{function checkItem; // check if player have all item requiredfunction colorItemrequired; // color the text. Red : not enough item, green otherwisefunction deleteItem; // delete all items requiredfunction displayItemneed; // display all items need at startfunction getItemReward; // give the items rewardfunction weightreq; // check if your current weight is highter than weight high novice .@eac = eaclass(); if ( num_rebirth == .reset_max ) { mes "You can only rebirth x"+ .reset_max +"."; emotion e_gasp; close; } else if( NextJobExp || NextBaseExp || !( .@eac&EAJL_2 ) || !Upper ) { mes "You must be rebirth max level/max job level."; close; } mes "Items need :"; displayItemneed(); next; switch( select( "^777777~ Rebirth", "~ Informations", "~ Good bye^000000" ) ) { case 1: weightreq(); checkItem(); deleteItem(); break; case 2: mes "You can only rebirth ^ff0000x"+ .reset_max +"^000000. You already rebirth ^ff0000x"+ num_rebirth +"^000000."; close; case 3: mes "Bye."; close; } num_rebirth += 1; jobchange Job_Novice; resetlvl 3; announce "[ Rebirth system ] : "+ strcharinfo(0) +" rebirth for the "+ num_rebirth +" time !", 0; close;function checkItem { for ( ; .@i < .size_item; .@i += 2 ) if ( countitem( .item_req[.@i] ) < .item_req[ .@i+1 ] + num_rebirth ) { mes "You don't have enought "+ getitemname( .item_req[.@i] ) +". ^ff0000["+ countitem( .item_req[.@i] ) +"/"+ ( .item_req[ .@i+1 ] + num_rebirth ) +"]^000000"; close; } return;}function colorItemrequired { if ( countitem( .item_req[ getarg(0) ] ) < .item_req[ getarg(0)+1 ] + num_rebirth ) return "^ff0000"; return "^00ff00";}function deleteItem { for ( ; .@i < .size_item; .@i += 2 ) delitem .item_req[.@i], ( .item_req[ .@i+1 ] + num_rebirth ); if ( num_rebirth >= .change_reward ) delitem .add_item_req[0], ( .add_item_req[1] + num_rebirth - .change_reward ); return;}function displayItemneed { for ( ; .@i < .size_item; .@i += 2 ) mes colorItemrequired( .@i ) +" - x"+ ( .item_req[ .@i+1 ] + num_rebirth ) +" "+ getitemname( .item_req[.@i] ); if ( num_rebirth >= .change_reward ) { if ( .add_item_req[1] + num_rebirth - .change_reward > countitem( .add_item_req[0] ) ) .@color$ = "^ff0000"; else .@color$ = "^00ff00"; mes .@color$ +"- x"+ ( .add_item_req[1] + ( num_rebirth - .change_reward ) ) +" "+ getitemname( .add_item_req[0] ); } return;}function getItemReward { .@rand = rand(.totalchance); .@r = 0; while ( ( .@rand -= .itemchance[.@r] ) >= 0 ) .@r++; getitem .reward[.@r], .@ramt; return;}function weightreq { if ( Weight > 20000 ) { mes "You have too much items on you. Your weight will be too high after rebirth."; close; } return;}OnInit: .reset_max = 50; // how much reset max or set to value you need// item required <item ID>, <number>// Set the item reequired for rebirth to your need setarray .item_req, 501, 5, 502, 2, 503, 3; .size_item = getarraysize( .item_req );// rewards <item ID>, <number> .@ramt = 1; setarray .reward, 501,502,503,504,505,506,507,508,509; setarray .rewardchance, 90,80,70,60,50,40,30,20,10; .@r = 0; while ( .reward[.@r] ) { .totalchance += .rewardchance[.@r]; .@r++; } end;}

-  script  adssfcvb  -1,{OnCommand:   if ( !countitem(501) ) { // change 501 to your item id.   dispbottom "You must have an Font Ticket to use this command";   end;   }   atcommand "@font " + .@atcmd_parameters$;   end;  OnInit:   bindatcmd "font", strnpcinfo(3)+"::OnCommand"; // HERE PLEASE STRNPCINFO(3)   end;} Then remove the delitem part.

File Name: Auraset
File Submitter: Dastgir
File Submitted: 24 Mar 2014
File Category: Plugins
 
For Building Plugins:
Windows: http://herc.ws/wiki/Building_HPM_Plugin_for_MSVC
Linux: http://herc.ws/wiki/Building_HPM_Plugin_for_gcc
 
Usage:
Atcommand:
(usage: @aura <aura1> {<aura2> <aura3>})
(aura1,aura2 are optional)
 
ScriptCommand:
(usage: aura aura1{,aura2,aura3}
aura1 is compulsory, while aura2,aura3 are optional.
 
aura1,aura2,aura3 are AuraID's
 
NOTE: 1) This effects are permanent(unless the effect is not, which is clientside) and if you want to remove it, either do "@aura 0 0 0" or by Script (aura(0,0,0))
2) If you type aura(586,-1,240), the 2nd aura will remain same, while first and third aura will change.
 
You can check/set User's AuraID's by following variables
USERAURA - Aura1
USERAURA1 - Aura2
USERAURA2 - Aura3
 
You can also change aura by changing these variables.
 
Some Useful aura Combinations:
{ 586, -1, -1 },{ 586, 362, -1 },{ 586, 362, 240 },{ 418, -1, -1 },{ 486, -1, -1 },{ 485, -1, -1 },{ 239, -1, -1 },{ 240, -1, -1 },{ 241, -1, -1 },{ 620, -1, -1 },{ 202, -1, -1 },{ 362, -1, -1 },{ 678, -1, -1 },{ 679, -1, -1 },{ 680, -1, -1 },{ 239, 418, -1 },{ 239, 486, -1 },{ 239, 485, -1 },{ 240, 418, -1 },{ 240, 486, -1 },{ 240, 485, -1 },{ 241, 418, -1 },{ 241, 486, -1 },{ 241, 485, -1 },{ 620, 418, -1 },{ 620, 486, -1 },{ 620, 485, -1 },{ 239, 418, 202 },{ 239, 486, 202 },{ 239, 485, 202 },{ 240, 418, 202 },{ 240, 486, 202 },{ 240, 485, 202 },{ 241, 418, 202 },{ 241, 486, 202 },{ 241, 485, 202 },{ 620, 418, 202 },{ 620, 486, 202 },{ 620, 485, 202 },{ 239, 418, 362 },{ 239, 486, 362 },{ 239, 485, 362 },{ 240, 418, 362 },{ 240, 486, 362 },{ 240, 485, 362 },{ 241, 418, 362 },{ 241, 486, 362 },{ 241, 485, 362 },{ 620, 418, 362 },{ 620, 486, 362 },{ 620, 485, 362 },{ 239, 418, 678 },{ 239, 486, 678 },{ 239, 485, 678 },{ 240, 418, 678 },{ 240, 486, 678 },{ 240, 485, 678 },{ 241, 418, 678 },{ 241, 486, 678 },{ 241, 485, 678 },{ 620, 418, 678 },{ 620, 486, 678 },{ 620, 485, 678 },{ 680, 679, 678 },
I guess no further explanation is needed.
 
Click here to download this file

isn't the plugin is just below the code ?
and there is no need to read the sql table, its not like this stuff is run when the player is offline
to actually hit the player, both the source and target has to be online, so just use guild->check_alliance with enemy flag to read them
 
make the script shorter a bit
src/map/battle.c | 6 ++++++ 1 file changed, 6 insertions(+)diff --git a/src/map/battle.c b/src/map/battle.cindex 24f39a3..52b24ec 100644--- a/src/map/battle.c+++ b/src/map/battle.c@@ -6020,6 +6020,12 @@ int battle_check_target( struct block_list *src, struct block_list *target,int f if( (s_bl = battle->get_master(src)) == NULL ) s_bl = src; + if ( s_bl->type == BL_PC && t_bl->type == BL_PC ) {+ TBL_PC *sd = BL_CAST( BL_PC, s_bl );+ if ( guild->check_alliance( sd->status.guild_id, ((TBL_PC*)t_bl)->status.guild_id, 1 ) && !map->list[sd->bl.m].flag.town && !map->list[sd->bl.m].flag.nowarpto )+ return 1;+ }+ if ( s_bl->type == BL_PC ) { switch( t_bl->type ) { case BL_MOB: // Source => PC, Target => MOB http://upaste.me/28fd11097df8e9a10 
 
you know ... I start to think that lilith's faction system can actually be release entirely with plugins ..