quesoph

here ya go
OneCharPerGMAccount.patch

Created by WiseWarrior
Modified by quesoph
Original Thread: http://www.eathena.ws/board/index.php?showtopic=241064
Download: Party Drop Rate.patch

^
here
Extended Vending System Hercules Rev 14395.patch .patch

This is a free release.
Please do not claim my work as yours.

robotgloves.7z
 

This is a free release.
Please do not claim my work as yours.

robotgloves.7z
 

why not use something like this
 
 
switch (select ( #AlootSet1ID1 != 0? "Item ID "+#AlootSet1ID1+" - ("+getitemname(#AlootSet1ID1)+")": "Add Item" ) )

This command will debuff all players in your current map.
 
Good for PvP and GvG event..
 
 
 
I made this command back when I was using rA.
 
debuff.7z
 
 
Update 06 / 15 / 2014:

debuff.c

May Digest 2014
The following digest covers the month of May 1st - May 31st 2014.
 
Hello everyone! I apologize for the delay on bringing this topic to the community! Was caught up in a few things

Development Highlights
[*]Corrected GM level override checks for Nouse and Trade (e9b9764) [*]Updated db2sql converter to match changes (0e1f7bb) [*]Added April 2014 Client Packet Data (3750df9) [*]Implemented MD_RANDOMTARGET, see doc/mob_db_mode_list.txt for more information (10e6f1a) [*]Added guild_castle_invite and guild_castle_expulsion to guild.conf, they determine how invite/expel work inside castles during WoE/GvG (407502a) [*]Improved CFLAGS/CPPFLAGS handling (b7373b6) [*]Improved @go command (67d5e67) [*]Changed battle_config definition to extern to avoid mistakes in plugins (d350bfe) [*]Removed trailing whitespace (sources) (5d67f33) [*]Fixed some charset issues (3bd57cf) [*]Travis Improvements (23f7856) [*]Changed set_reg behavior on pc_setparam failure, now it won't simply end the script, if a dialog window is open it'll also CLOSE it (d689201) [*]Moved MAX_CARTS and NEW_CARTS defines into common/mmo.h (65e43c2) [*]Small changes in NPC loading/reloading (a2dec94) [*]Homunculus S Update (f4f4b33)

 
Scripting Highlights
[*]Corrected Bioethics quest checks in the Biochemist NPC (bd86d05) [*]Fixed an exploit in custom job master (ed9dd7c) [*]Added missing changequest commands on Alchemist Job Change Quest (4b4e573) [*]Removed trailing whitespace (scripts) (c030940) [*]Wolfchev's Laboratory Instance Release (1a477c4) (Clean ups: 108705a) [*]Optimized THQS_TTShop.txt and corrected a minor mistake (90c8d73) [*]Added documentation regarding trader objects (6d4ae76)

 
Database Highlights
[*]Extended ItemDB! Supports several other formats (P1: 49500a5) (P2: 244985a) (P3 File Deletions: 43d96e8) [*]Updated item_db.conf to match AEGIS (ae289d6) (Fixes: 7bb8db2) [*]Removed enchantments from const (ddc16a0)

 
May Statistics
[*]During the period there were 89 Commits. [*]Of these 89 commits, 14 included bug-fixes. [*]9 Commits from Pull Requests [*]In this month, there were 87,778 Additions and 61,228 Deletions.

This is an old modification by AnnieRuru

Hi,
 
After reading again and again this topic : Hercules WPE Free - June 14th Patch I saw that people don't really know how to figure out if the keys they are using are broken or not.
 
So I wrote an online tool to help them (design stolen from jsperf.com).
 
http://www.robrowser.com/prototype/packet-keys/
 
This tool simulate 100'000 self encryption of the key to check if it's strong or not (I can set it higher, but it will stress your browser to have the same result).
  Bonus, a form to help you generate your own keys. Have fun~

//===== Hercules Script ======================================//= Job Master//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.3//===== 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]//============================================================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) 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;}

atcommand.c
 
 
pet.h
 
 
 
clif.c
 
 

https://github.com/HerculesWS/Hercules/blob/master/src/map/skill.c#L11601
Add:
 
+ case UNT_SPIDERWEB:    case UNT_ANKLESNARE:    case UNT_MANHOLE: Pre-Renewal: https://github.com/HerculesWS/Hercules/blob/master/db/pre-re/skill_unit_db.txt#L85
Renewal: https://github.com/HerculesWS/Hercules/blob/master/db/re/skill_unit_db.txt#L85
Replace with:
 
405,0xb7,   ,  0, 1,1000,enemy, 0x002  //PF_SPIDERWEB  
Pre-Renewal:https://github.com/HerculesWS/Hercules/blob/master/db/pre-re/skill_db.txt#L451
Renewal: https://github.com/HerculesWS/Hercules/blob/master/db/re/skill_db.txt#L451
Replace with:
 
405,7,6,2,0,0x1,0,1,1,no,0,0,3,magic,0,    PF_SPIDERWEB,Fiber Lock  
tested.

- script dualclientkicker -1,{ //by skormOnPCLoadMapEvent: set .@charmap$, strcharinfo(3); if(!compare(.tmp$,.@charmap$)) end; //set .@len, query_sql("SELECT DISTINCT `account_id` FROM `char` WHERE `account_id` IN (SELECT `account_id` FROM `login` WHERE `last_ip` = (SELECT `last_ip` FROM `login` WHERE `account_id`="+getcharid(3)+")) AND `online` <> 0;",.@a); set .@len, query_sql("select account_id from `char` right join login on login.account_id = `char`.account_id where `char`.online = 1 and login.last_ip = '"+ getcharip() +"'",.@a ); //Annieruru Addition. if(.@len-1) { for(set(.@d,0);.@d<.@len;set(.@d,.@d+1)) { getmapxy(.@map$,.@x,.@y,0,rid2name(.@a[.@d])); if(.@charmap$==.@map$&&rid2name(.@a[.@d])!=strcharinfo(0)) { dispbottom "Duel accounts not allowed in WOE."; warp "geffen",0,0; // change this. to atcommand "@jail "+strcharinfo(0);   } } } end; OnInit: setarray .maps$ , "aldeg_cas01", "gefg_cas01", "payg_cas01", "prtg_cas01"; set .lens , getarraysize(.maps$) ; for(set(.a,0);.a<.lens;set(.a,.a+1)) { setmapflag .maps$[.a], mf_loadevent ; set .tmp$ ,.tmp$+.maps$[.a]+","; }}

https://github.com/HerculesWS/Hercules/blob/master/npc/custom/jobmaster.txt#L182
 
change
 
set .ThirdClass,1;    // Enable third classes? (1: yes / 0: no) to
 
set .ThirdClass,0;    // Enable third classes? (1: yes / 0: no)

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;}

March 2014 news
[*]Add support for 2013 december packets. [*]Massive bugs fixes and optimizations (thanks for feedback). [*]Remove some memory leaks [*]Add GZIP compression in remote client (and http cache). [*]Add visual casting spells to skills. [*]Add support for high jump packet (sliding entities) and body relocation. [*]Now able to attack players by pressing SHIFT keyu (or /noshift /ns). [*]Add skipServerList config to skip server list if there is only one element in the list. [*]Add skipIntro config to skip the intro window. [*]Add autoLogin config (I let you imagine - facebook api ?). [*]Now displaying GM sprites. [*]Add support for text color (what player are saying + Admin text - yellow). [*]Introduce SI_CLAIRVOYANCE (maya purple card). [*]The character can now move to pick an item on the ground. [*]Add shadow table DB (to display shadow size). [*]Remove sprite 111 and 139 from scene. [*]Introduce QPet system.

 
Screenshots of the Month



 
Note: the "Slot Machine" in the Pet Capture is different than the official one, this one use all the animation frames stored in the sprite/action and looks (in my opinion) really better.

#include <stdio.h>#include <stdlib.h>#include <string.h>#include "../common/HPMi.h"#include "../common/timer.h"#include "../map/script.h"#include "../map/pc.h"#include "../map/clif.h"#include "../map/battle.h"#include "../map/status.h"#include "../common/HPMDataCheck.h"/*1.0 Initial Script [Mhalicot]   Topic: http://goo.gl/vbmQnr2.0 Added Map restriction "izlude", GVG/PVP.   You can't use @afk when your dead. [Mhalicot]2.1 Update compilation compatibility in latest   rev. 13300  [Mhalicot]2.2 Fixed bug when using @afk. [Mhalicot]2.3 Fixed map crash when using @afk [Mhalicot]3.0 Added unable to use @afk when receiving damage. [Mhalicot]*/HPExport struct hplugin_info pinfo = {   "afk",   // Plugin name   SERVER_TYPE_MAP,// Which server types this plugin works with?   "3.0",   // Plugin version   HPM_VERSION,   // HPM Version (don't change, macro is automatically updated)};ACMD(afk) {  if(sd->bl.m == map->mapname2mapid("izlude")) {    clif->message(fd, "@afk is not allowed on this map.");    return true;  }  if( pc_isdead(sd) ) {    clif->message(fd, "Cannot use @afk if you are dead.");    return true;  }  if(DIFF_TICK(timer->gettick(),sd->canlog_tick) < battle->bc->prevent_logout) {    clif->message(fd, "Failed to use @afk, please try again later."); //<- (10s)10000ms delay to edit look for conf/battle/player.conf search for prevent_logout    return true;  }  if( map->list[sd->bl.m].flag.autotrade == battle->bc->autotrade_mapflag )  {    if(map->list[sd->bl.m].flag.pvp || map->list[sd->bl.m].flag.gvg){      clif->message(fd, "You may not use the @afk maps PVP or GVG.");    return true;    }    sd->state.autotrade = 1;    sd->state.monster_ignore = 1;    pc_setsit(sd);    skill->sit(sd,1);    clif->sitting(&sd->bl);    clif->changelook(&sd->bl,LOOK_HEAD_TOP,471);    clif->specialeffect(&sd->bl, 234,AREA);            if( battle->bc->at_timeout )      {      int timeout = atoi(message);      status->change_start(NULL, &sd->bl, SC_AUTOTRADE, 10000, 0, 0, 0, 0, ((timeout > 0) ? min(timeout,battle->bc->at_timeout) : battle->bc->at_timeout) * 60000, 0);    }      clif->chsys_quit(sd);      clif->authfail_fd(sd->fd, 15);    } else  clif->message(fd, "@afk is not allowed on this map.");   return true;}/* Server Startup */HPExport void plugin_init (void){   clif = GET_SYMBOL("clif");  skill = GET_SYMBOL("skill");   script = GET_SYMBOL("script");   pc = GET_SYMBOL("pc");  battle = GET_SYMBOL("battle");  map = GET_SYMBOL("map");  status = GET_SYMBOL("status");  timer = GET_SYMBOL("timer");  addAtcommand("afk",afk);}

-  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.

Since the beginning of scripting in the Athena project, I don't believe, or can remember of, a set of guidelines / standards which have ever been released. Standards are created as a way to develop a style which remains consistent among all script releases.
 
Due to the lack of standards, most athena scripts are styled depending on the scripter / author's personal preference. This has resulted in a mix of styles, which have become hard to read, and even harder to contribute to in the future (due to ugly script styling).
 
Because of this, I would like to propose a set of Scripting Standards, to finally get us on track to clean scripts in the Athena Project.
 
Attached are the standards I have developed, as well as an example script following the standards. Please review them and be sure to let me know what you think.
 
This is by no means accepted into the community yet, I would like feedback first before this is even considered to be official.
 
Thank You.
 
(Files best viewed in : Sublime Text 2 or Notepad++)
alberta.txt
AS Standards.txt

Seems like I didn't write a post here about this project, it's time to do it.
I'm here to introduce roBrowser, an open source project that try to port Ragnarok Online in the browser using web technologies (javascript, HTML5, WebGL).
 
As it's running in a web browser, roBrowser isn't OS dependent and run fine on Linux, Macintosh and Windows. It's also running on some smartphone and tablets but it depend if the system support webgl and I have to admit, it has bad control (not optimize for touch control).
 
It can also be run as a Chrome App, I personally use it to have a nice icon on my desktop.
From now, I tested it (and it's working) on Chrome, Firefox, Safari and Opera. It will work in future on IE11 when they will fix their rendering engine.
 
roBrowser is not a different game as Gravity built (Ragnarok Zero, Ragnarok Violet, ...), this project is intended to be another client for RO1, to connect on private servers.
 


Get the source
(Thanks to report all bugs)

If you like roBrowser, you can help me improving it or
even thinking about doing a donation ?


 
 
 
Screenshots










 
 

The project is still on going, currently missing a lot of features to match the official client (trade ui, npc buy/sell, ...), but I'm working on it.
 

Some usefulls links :
[*] Source code [*]Installation guide [*]WebSite [*]API Guide [*]Forum [*]Demo (Yep there is even a demo if you want to try it).

dicastes01,206,179,3  script  Informações  100,{  mes "[GM]";  mes "Olá, sou o GM do jogo.";    mes "Eu tenho a autoridade necessária para fazer o que for preciso..";  mes "Você deve estar atrás de informações sobre o servidor, certo?";  switch(select("- Mercado Negro. :- Horários da WoE. :- Quem são os GMs. :Cancelar")) {    case 1:      next;      mes "Vou te levar até lá.";      warp "dicastes01", 117, 169;      close;      case 2:      next;      mes "Os horários da WoE são baseados no HORÁRIO DE BRASÍLIA! - Horários: QUINTA WOE 1.0 DE 20:00 ATÉ 21:00, SEXTA WOE 2.0 DE 20:00 ATÉ 21:00, SÁBADO WOE 2.0 DE 20:00 ATÉ 21:00, DOMINGO WOE 1.0 DE 20:00 ATÉ 21:00";      mes "Esses são os horários e dias da Guerra do Emperium do servidor Ragna Blast!";      mes "Vou te levar até o Point da WoE.";      warp "dicastes01", 252, 256;      close;    case 3:      next;      mes "Os GMs do server, usam uam roupa parecida com a minha. Nesse mesmo estilo.";      mes "TODOS ELES USAM [GM] no nome! De tanto os jogadores não são habilitados a usar [GM] no nome de seu personagem.";      mes "Só acredite no GM, se ele tiver uma roupa como a minha, e tiver o nome IDÊNTICO como o da lista a seguir:";      next;      mes "[GM]Prontera";      mes "[GM]Payon";      mes "[GM]Geffen";      mes "[GM]Morroc";      mes "E só. Somente esses.";      mes "para mais informações, acesse WWW.RAGNABLAST.TK";      close;    case 4:      close;  }} here

File Name: Ultimate Guild Ranker
File Submitter: Dastgir
File Submitted: 17 Mar 2014
File Category: PvP, WoE, GvG, & Battleground
 
Script By Request : http://herc.ws/board/topic/4756-ultimate-guild-ranking
Percentage Changes:AgitCount= 20%Emp Break = 50%Active Participants = 20%KDR = 10%
Features:
Guild Ranking
Previous Month Guild Ranking
Rewards based on previous month

Edits to made after installing the Script:
Open npc/guild/agit_main.txt
Add Following Line
doevent "UltimateRanker#00::OnEmpBreak";
Before
// Adjust Economy Invest Level for Castle set .@Economy,getcastledata(strnpcinfo(2),2) - 5;
 
Have a Custom WoE? And its not triggering the Script??
Solution: add the following line on EmperiumBreaking Label.
doevent "UltimateRanker#00::OnEmpBreak";
 
Please report any bugs/suggestions.
 
Click here to download this file