Oxxy

Script that I made a while ago, was thinking about creating somekind of reputation system. For example, if you complete quests in Prontera town, you add "Prontera reputation" and then you can make interesting scripts. Its up to your imagination.
// ==== Author: Oxxy // ==== Version: 1.0.1 // ==== Changelog: // ==== Version 1.0.0: First Release. // ==== Version 1.0.1: Fixed script little bit. // ==== Increases Player's <Town> reputation by <value> // ==== Syntax is: CallFunc("getRep", "<Town>", <value>); function    script    getRep    {     .@Town$ = getarg(0);     .@rep = getarg(1);     setd(.@Town$+"_rep"), getd(.@Town$+"_rep") + .@rep;     return; } // ==== Check if player meets <value> reputation requirement of <Town> reputation. // ==== Syntax is: CallFunc("CheckRep", "<Town>", <value>); // ==== Returns 0 if Town's name reputation lower than required reputation. // ==== Returns 1 if Town's name reputation greater or equal to required rep. function    script    checkRep    {     .@Town$ = getarg(0);     .@neededRep = getarg(1);     set @townRep$, getd(.@Town$+"_rep");          if(@townRep$ < .@neededRep)         return 0;          if(@townRep$ >= .@neededRep)         return 1;          return; } // ==== Decreases Player's <Town> reputation // ==== First argument is Town's name (i.e Prontera) // ==== Second argument is the amount of town's reputation you want to decrease by. // ==== Third argument means if you want to delete all the reputation of the town <Town>, to delete all the reputation set it to 1. // ==== Syntax is: CallFunc("delRep", "<Town>", <value>, "<1:0>"); function    script    delRep    {     .@Town$ = getarg(0);     .@amount = getarg(1);     .@del_all = getarg(2);          if(.@del_all)         setd(.@Town$+"_rep"), 0;     else         setd(.@Town$+"_rep"), getd(.@Town$+"_rep") - .@amount;              if(getd(.@Town$+"_rep") - .@amount < 0)         setd(.@Town$+"_rep"), 0;              return; } // ==== Shows Player's <Town> reputation // ==== Syntax is: CallFunc("showRep", "<Town>"); function    script    showRep    {     .@Town$ = getarg(0);     .@townRep = getd(.@Town$+"_rep");         dispbottom "Your "+.@Town$+" town reputation is "+.@townRep;         return; }

map/status.c(6447-6451):
 
  case SC_FREEZE:    sc_def = st->mdef*100;    sc_def2 = st->luk*10 + SCDEF_LVL_DIFF(bl, src, 99, 10);    tick_def2 = status_get_luk(src) * -10; //Caster can increase final duration with luk    break;
 
Change the
sc_def = st->mdef*100; to
sc_def = st->luk*28; You will have 99% defense from Freeze if you have 355 luk. (355*28 = 9940; 9940/100 = 99.4 = 99%);

for duration after
sc_def = st->mdef*100; add
tick_def = st->luk*25; You will have 71% of time reduction of freeze if you have 355 luk (355 * 25 = 7100, 7100/100 = 71%)

Hello Hercules Community,
 
Let me explain it first.
It is ExtendedBG, which tends to contain all eAmodBG modes and extra modes(as and when coded).
Some Previews:
http://imgur.com/a/2SSVR
Ohh, and the last thing I forgot to tell,
Its 100% Plugin and Script, no Source Edits ..
 
Special Thanks To:
jaBote co-founded this project(and really thanks to him , that he motivated me at start at provided some functions and idea of how the base should be, and what we should do it to give flavor of Hercules in it).
 
Repository Link: https://github.com/dastgirp/eBG (Please read README.md for installation steps)
 
Leave Comments/Suggestions if you find something.
NOTE:
 There might be some(/many) debug messages left in map-server which will be cleaned up. I will add battle.conf soon (you have to add it yourself for now or edit the plugin) The plugin might be a big mess to read/understand (I did many experiments over the year) There might be some bugs Thanks to @Rebel and @Myriad for testing and providing initial feedback
Contact me on Discord: @Dastgir#1460 if there's some urgent issue or else open the issue in github. keep this topic for support.
 
Want to encourage me??

 

Updated that script, feel free to post any errors. :]

Hope this will help you

Sure, here it is, but it's very old, and needs to be fixed a bit :-)
 
btw, next time, mention me in post, so I can see if you answered. I didn't see your post :-)

Here you go:
 
prontera,150,150,1   script   PutBack   987,{  mes "Hi. Can i help you?";  if(select("Put coins back to CP:Close") == 2) close;  if (countitem(677) < 100){    mes "I'm sorry, you need at least 100 coins because 100 is equal to 1 credit.";    close;  }    mes "Input amount:";  input .@a,100,1000;  if(.@a%100) {    mes "Can't transfer that much";    mes "Because your amount of coins ins't dividable by 100";    close;  }    if(countitem(677) < .@a) {    mes "You don't have enough "+getitemname(677);    mes "You need "+(.@a - countitem(677))+" more "+getitemname(677);    close;  }    next;  .@cp_credits = .@a/100;  mes "Here you go!";  mes "You will get "+.@cp_credits;    query_sql("UPDATE `cp_credits` SET `balance` = `balance` + "+ .@cp_credits +" WHERE `account_id` = '"+getcharid(3)+"'");  delitem 677, .@a;  close;}  
Didn't test it btw.

First of all, i would like to remind you that all i am offering is the truth that happened to me few month ago. It is up to you whether you want to believe me or not. The story start when...
 
Few months ago,i was developing my own ragnarok server, i wish to have my own harmony license and start to look around for someone who want to sell their harmony account. My friends informed me that i can ask a person name Vince de vera at facebook a.k.a c0nflict at Rathena board. So,i added him on facebook and asking him if he is selling his harmony account. He told me that he is selling it due to the lost of interest in continuing his RO server because of recurring DDOS attack. After making a deal,he insisted me to send the payment via western union instead of paypall. I trusted him because i though he is part of the rAthena community. I knew he is active,well known and also a good contributor. But then,i was wrong..Below are part of our conversation and the deal we have made:
 








 
 
After i got scam by c0nflict, i feel so disappointing and i keep myself away from the Ragnarok life until recently. Again,i wish to open a new ragnarok server and i was searching for a new hosting. I came across Ragnahosting. I took the asia package that they offered. After i have made payment for the hosting using my paypall account, i was suprised to found out that the payment goes toTITA ABELO.
 

 
The same person who scam me few month back. That person is the same person, c0nflict. So,i left Ragnahosting because i don't feel secure to let them host my server. I hope you guys don't fall into his trap.
 
He ran off after letting me to use his harmony account for a few days. He even blocked me on Facebook. I manage to keep all the screenshot before he ran off. I wanted to share this to let you guys aware of this scammer. 
 
His new hosting company :  http://ragnahosting.com
Rathena profile : https://rathena.org/board/user/309-conflicts/
 
Thanks for reading.
 
p/s : i have made this post at rAthena, unfortunately he used his power and tittle as "support leader" to sabotage my post and removed almost all the proved. He also twisted the plot by saying that he removed my access to harmony account just because i read his unread email inbox. That is totally bullshit because he used a normal dummy email for his harmony account, not a private (important) email for him. Else, if so why would i read his email which is none of my business. I was asking him to change the ownership of harmony account by replacing my email. He did not do it and ran off after few days giving me access to harmony.

Tried it by myself. Doing the thing I did. It only shows hours for now.

Try this, change your settings in import/drops.conf to

// The rate the common items are dropped (Items that are in the ETC tab, besides card)item_rate_common: 10000item_rate_common_boss: 10000item_drop_common_min: 1item_drop_common_max: 10000// The rate healing items are dropped (items that restore HP or SP)item_rate_heal: 10000item_rate_heal_boss: 10000item_drop_heal_min: 1item_drop_heal_max: 10000// The rate at which usable items (in the item tab) other then healing items are dropped.item_rate_use: 10000item_rate_use_boss: 10000item_drop_use_min: 1item_drop_use_max: 10000// The rate at which equipment is dropped.item_rate_equip: 10000item_rate_equip_boss: 10000item_drop_equip_min: 1item_drop_equip_max: 10000// The rate at which cards are droppeditem_rate_card: 10000item_rate_card_boss: 10000item_drop_card_min: 1item_drop_card_max: 10000// The rate adjustment for the MVP items that the MVP gets directly in their inventory// Mode: 0 - official order, 1 - random order, 2 - all itemsitem_rate_mvp: 10000item_drop_mvp_min: 1item_drop_mvp_max: 10000//item_drop_mvp_mode: 0// The rate adjustment for card-granted item drops.item_rate_adddrop: 10000item_drop_add_min: 1item_drop_add_max: 10000// Rate adjustment for Treasure Box drops (these override all other modifiers)item_rate_treasure: 100item_drop_treasure_min: 1item_drop_treasure_max: 10000

Did you check console?
 
//===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================invek,113,215,5 script Poring Summoner 99,{mes "[Poring Summoner]";if(getgroupid() < 10) { if(.Event) mes "There is no Poring Summon Event on now."; else { mes "There is a Poring Summon Event on now!"; mes "Location: " + .Map$; mes "Special Porings: " + .SpecialPorings[1]; mes "Normal Porings: " + .NormalPorings[0]; } close;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]"; switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) { case 1: mes "Which item would you like Special Porings to drop?"; mes "Please input the item ID:"; input .ItemID; goto Main; case 2: mes "How many Special Porings would you like me to summon?"; input .SpecialPorings; goto Main; case 3: mes "How many Normal Porings would you like me to summon?"; input .NormalPorings; goto Main; case 4: mes "Starting the event now...";OnHour02: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!OnHour05:OnHour09:OnHour14:OnHour17:OnHour20:OnHour23: set $@ran, rand(1,7); if ($@ran == 7) set .Map$,"aldebaran"; if ($@ran == 6) set .Map$,"alberta"; if ($@ran == 5) set .Map$,"izlude"; if ($@ran == 4) set .Map$,"payon"; if ($@ran == 3) set .Map$,"geffen"; if ($@ran == 2) set .Map$,"morocc"; if ($@ran == 1) set .Map$,"prontera"; set .Event,1; monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill"; monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill"; set .SpecialPorings[1],.SpecialPorings; set .NormalPorings[1],.NormalPorings; announce "The Poring Event has begun!",bc_all; announce "Location: " + .Map$,bc_all; announce "Special Porings: " + .SpecialPorings,bc_all; announce "Normal Porings: " + .NormalPorings,bc_all; close; case 5: mes "Ending the event now..."; goto EndEvent; }OnTimer216000000: announce "Poring Summoner has ended. No one killed the Porings.",bc_all; killmonster .Map$,"All"; set .Event,0; stopnpctimer; end;OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; getitem .ItemID,1; goto PoringCount;OnNormalKill: set .NormalPorings[1],.NormalPorings[1]-1; goto PoringCount;PoringCount: announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end;EndEvent: if(.Event) announce "The Poring Summon Event is now over!",bc_all; killmonster .Map$,"All"; set .Event,0;.SpecialPorings[1] = 0;.NormalPorings[1] = 0;   close; OnInit:.ItemID = 7227;.SpecialPorings = 10;.NormalPorings = 150;end;}  
Try this, should be working okay.

herc/conf/inter-athena.conf
 
// Level range for sharing within a partyparty_share_level: 15

5 hours ( 60  seconds * 60 minutes * 5 )
 
Btw, better do it that way (waitingroom):
 
OnInit:delwaitingroom;waitingroom "Bossnia MVP",0;end;} either way map server will throw warnings every time you @reloadscript
 
Btw, for saying Thanks there is "Thumbs up" (green) button :>

Sorry, wrong place to place right curly.
 
Delete the one I said to you and add it here:
 
}else{ set zeny,zeny-50000000; warp "bossnia_0" + .@choice,202,204; set #delay,#delay + ( 3600 * 5 );}end; after end;
so it will be like this:

}else{ set zeny,zeny-50000000; warp "bossnia_0" + .@choice,202,204; set #delay,#delay + ( 3600 * 5 );}end;}  

Here it is, bro:
 
prontera,150,150,6  script  Aura NPC  700,{  mes "[Aura NPC]";  mes "Please choose an aura from the list!";  switch(select("Aura 1:Aura 2:Aura 3:Aura 4: Aura 5: Aura 6")) {      case 1:      next;      mes "[Aura NPC]";      mes "Your Aura was set to #1";      aura 586,-1,-1;      close;            case 2:      next;      mes "[Aura NPC]";      mes "Your Aura was set to #2";      aura 586,362,-1;      close;            case 3:      next;      mes "[Aura NPC]";      mes "Your Aura was set to #3";      aura 586,362,240;      close;            case 4:      next;      mes "[Aura NPC]";      mes "Your Aura was set to #4";      aura 418,-1,-1;      close;            case 5:      next;      mes "[Aura NPC]";      mes "Your Aura was set to #5";      aura 486,-1,-1;      close;            case 6:      next;      mes "[Aura NPC]";      mes "Your Aura was set to #6";      aura 485,-1,-1;      close;  }}

Actually this will be right:
  unsigned int ratio = skillratio + 100*(8 + st->sp/10); //You'd need something like 6K SP to reach this max, so should be fine for most purposes. if (ratio > 60000) ratio = 60000; //We leave some room here in case skillratio gets further increased.

means if you have 6k sp the formula will be:
skillratio + 100*(8+6000/10) = skillratio + 100*608 = skillratio + 60800
 

in this part:
 
  if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {    successrefitem .@part;    next;    emotion e_no1;    mes "[Blacksmith Mighty Hammer]";    mes "The sound refreshes my mind everytime I hear it.";    mes "Here, have it. Refine succeeded flawlessly!";    close;  }  
change to that:
 
  if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {    successrefitem .@part;    if(getequiprefinerycnt(.@part) == 12)      announce strcharinfo(0)+" refined item "+getitemname(getequipid(.@part))+" to the +12 state!",bc_all;    next;    emotion e_no1;    mes "[Blacksmith Mighty Hammer]";    mes "The sound refreshes my mind everytime I hear it.";    mes "Here, have it. Refine succeeded flawlessly!";    close;  }

SMF

Description:
 
  Shows current players online, then a list with players online   © 2015, Oxxy, v2.1.3  
The only small config:
 
  .maxPlayersPerPage = 20;  // Max number per page that'll be shown.   .MinGrpID = 1;        // Min. group id to show in GM list. Also player with grp id < .MinGrpID can't see GMs location.    .MaxGrpID = 99;        // Max. group id to show in GM list. Players that have grp id > .MaxGrpID won't be shown in the GMs list.        .showPlayerInfo = 7;    // Bitwise variable,                  // 1 = Show only Base/Job Level after the name                  // 2 = Show only Map after the name                  // 3 = Show Base/Job Level + Map after the name                  // 4 = Show only Job after the name                  // 5 = Show Job + Base/Job Level                  // 6 = Show Job + Map                  // 7 = Show Job + Base/Job level + Map                    .checkWOE = 1;        // If you set this to 1, then it will not show locations during WOE.                  // 0 to disable this check.              .showPlayerInfoWOE = 5;    // Show players info while WOE is on? Bitwsie Variable; .checkWOE have to be set to 1.                  // 1 = Show only Base/Job Level                  // 2 = Show only Map                  // 3 = Show Base/Job Level + Map                  // 4 = Show only Job                  // 5 = Show Job + Base/Job Level                  // 7 = Show Job + Base/Job Level + Map                    .showPeakOnline = 3;    // Show peak online? Bitwise variable                  // 1 = show only in NPC dialog                  // 2 = show only in waitingroom                  // 3 = show in NPC and waitingroom together.        .announceCurrentOnline = 1; // Announce current online every hour?        .allowOtherSortTypes = 1;  // Allow sort by map, b.lvl, j.lvl or class?                  // 1 = yes                  // 0 = no  

Changelist:
 
/*   © 2015, Oxxy, v2.0   v1.0 initial release.   v1.1 added @online atcommand.   v1.2 added GMs online list.  v1.2.1 fixed typos.  v1.2.2 fixed menu.  v1.2.3 fixed more typos.  v1.3 added config to show location, level, location+level or nothing but name.  v1.3.1 fixed MORE typos, finally should be working.  v1.4 Added .MaxGrpID config. See OnInit for description.  v1.5 Added GM Level to show together with GM's name. Location of GM will only be shown if the variable .showLocation equals to 1 and your group id is more than 0  v1.5.1 fixed small typo in check of group id. (OnPCLoginEvent and OnPCLogoutEvent)  v1.5.2 Instead of SQL query, update waitingroom with script command getusers(1). - ty Dastgir for pointing that out.  v1.5.3 Merged .showLocation and .showLevel variable into one bitwise variable .showPlayerInfo - ty Dastgir  v1.5.4 Added Job level to show in NPC. so .showPlayerInfo = 1; shows Base and Job level together.  v1.6 Added Peak Online  v1.7 Added disabling of location show when WOE is on if setting .checkWOE equal to 1.  v1.8 Added menu after every .maxPlayersPerPage players, that will allow you to quit at any point, or just continue listing through players.  v1.8.1 translated russian string, accidently got from my script.  v1.8.2 now only players with .minGrpID can see GMs location, fixed one more russian string. hehe.  v1.9 Added Job to show, changed variable .showLocLevel to .showPlayerInfo   v1.9.1 Fixed peak online. Now should be saving properly.  v1.9.2 Cleaned up code a bit(GM location showing code)  v1.9.3 Swapped array variables from .NPC_type to $Global_type -> GMs will be still shown even if you @reloadscript  v1.9.4 Added .showPeakOnline bitwise variable. Check OnInit  v1.9.5 Added new option .announceCurrentOnline. Check OnInit  v1.9.6 Added support of .hidePlayerInfoWOE  v1.9.7 Renamed .hidePlayerInfoWOE to .showPlayerInfoWOE, updated info. Check OnInit  v1.9.8 Updated script, made it with infinite loop which makes it more user-friendly to players  v1.9.9 More explicit conditions - ty GaryMcNabb for helping  v2.0 Added X and Y coordinates to show together with GM's location. (Only players with grp id > .MinGrpID can see GM's location)   v2.1 Fixed GM Online list, added sorting by player chose.   v2.1.1 Deleted useless code.  v2.1.2 Fixed small typos.   v2.1.3 Fixed users online.*/  
PLEASE, USE ONLY THE LATEST VERSION OF THE SCRIPT. (Last version: 2.1.3)
 
Screenshots:

online_players2.0.txt
online_players2.1.txt
online_players2.1.2.txt
online_players2.1.3.txt

SELECT * FROM 'char' WHERE 'account_id' = account_id;

You can't find info about deleted chars.

now thats handy

Building plugins under Windows
Building plugins under Linux

What this plugin does?:
It allows you to make your chat colored!

New commands:

2 script commands:*color2hex(var) - converts the decimal value into hex, showing the color in #HEXFORMAT (like #FF0000);*setcolor(var) - sets CHAT_COLOR variable to var value;
 
@color "HEX_COLOR";example usage: @color 0x0000FF - will set your chat color to Blue.

Changelist:
version 1.0: initial release

Screenshots:


 
Added other version of chat_color, now it doesn't disguise you and make you targetable, tho you can't see by yourself the color of your chat. That is done this way because the packet 0x2C1 actually was made to be used only by npcs. For you it will look like normal (green in chat, white above the head), others will see the true color(red, for example, if you set your @color 0xFF0000). :-)
 
Example script to set color:

prontera,150,150,6   script  chat color  700,{  mes color2hex(CHAT_COLOR);  mes CHAT_COLOR;  if(select("close:set color value") == 1) close;  input .@a$;  setcolor(axtoi(.@a$));  close;}
chat_color.c
chat_colorA.c

Building plugins under Windows
Building plugins under Linux

What this plugin does?:
It allows you to make your chat colored!

New commands:

2 script commands:*color2hex(var) - converts the decimal value into hex, showing the color in #HEXFORMAT (like #FF0000);*setcolor(var) - sets CHAT_COLOR variable to var value;
 
@color "HEX_COLOR";example usage: @color 0x0000FF - will set your chat color to Blue.

Changelist:
version 1.0: initial release

Screenshots:


 
Added other version of chat_color, now it doesn't disguise you and make you targetable, tho you can't see by yourself the color of your chat. That is done this way because the packet 0x2C1 actually was made to be used only by npcs. For you it will look like normal (green in chat, white above the head), others will see the true color(red, for example, if you set your @color 0xFF0000). :-)
 
Example script to set color:

prontera,150,150,6   script  chat color  700,{  mes color2hex(CHAT_COLOR);  mes CHAT_COLOR;  if(select("close:set color value") == 1) close;  input .@a$;  setcolor(axtoi(.@a$));  close;}
chat_color.c
chat_colorA.c

Building plugins under Windows
Building plugins under Linux

What this plugin does?:
It allows you to make your chat colored!

New commands:

2 script commands:*color2hex(var) - converts the decimal value into hex, showing the color in #HEXFORMAT (like #FF0000);*setcolor(var) - sets CHAT_COLOR variable to var value;
 
@color "HEX_COLOR";example usage: @color 0x0000FF - will set your chat color to Blue.

Changelist:
version 1.0: initial release

Screenshots:


 
Added other version of chat_color, now it doesn't disguise you and make you targetable, tho you can't see by yourself the color of your chat. That is done this way because the packet 0x2C1 actually was made to be used only by npcs. For you it will look like normal (green in chat, white above the head), others will see the true color(red, for example, if you set your @color 0xFF0000). :-)
 
Example script to set color:

prontera,150,150,6   script  chat color  700,{  mes color2hex(CHAT_COLOR);  mes CHAT_COLOR;  if(select("close:set color value") == 1) close;  input .@a$;  setcolor(axtoi(.@a$));  close;}
chat_color.c
chat_colorA.c

Building plugins under Windows
Building plugins under Linux

What this plugin does?:
It allows you to make your chat colored!

New commands:

2 script commands:*color2hex(var) - converts the decimal value into hex, showing the color in #HEXFORMAT (like #FF0000);*setcolor(var) - sets CHAT_COLOR variable to var value;
 
@color "HEX_COLOR";example usage: @color 0x0000FF - will set your chat color to Blue.

Changelist:
version 1.0: initial release

Screenshots:


 
Added other version of chat_color, now it doesn't disguise you and make you targetable, tho you can't see by yourself the color of your chat. That is done this way because the packet 0x2C1 actually was made to be used only by npcs. For you it will look like normal (green in chat, white above the head), others will see the true color(red, for example, if you set your @color 0xFF0000). :-)
 
Example script to set color:

prontera,150,150,6   script  chat color  700,{  mes color2hex(CHAT_COLOR);  mes CHAT_COLOR;  if(select("close:set color value") == 1) close;  input .@a$;  setcolor(axtoi(.@a$));  close;}
chat_color.c
chat_colorA.c