AnnieRuru

- script main -1,{OnInit: .minplayer2start = 5; end;OnStart: if ( getwaitingroomstate( 0, "left" ) < .minplayer2start || getwaitingroomstate( 0, "right" ) < .minplayer2start ) end; announce "blahblah start !", bc_all; donpcevent "left::OnStart"; donpcevent "right::OnStart"; delwaitingroom "left"; delwaitingroom "right"; disablenpc "left"; disablenpc "right"; end;}prontera,157,187,5 script left 100,{ end;OnInit: sleep 1; waitingroom strnpcinfo(0), getvariableofnpc( .minplayer2start, "main" ) +1, "main::OnStart", getvariableofnpc( .minplayer2start, "main" ); end;OnStart: warpwaitingpc "guild_vs2", 9, 50; end;}prontera,160,187,5 script right 100,{ end;OnInit: sleep 1; waitingroom strnpcinfo(0), getvariableofnpc( .minplayer2start, "main" ) +1, "main::OnStart", getvariableofnpc( .minplayer2start, "main" ); end;OnStart: warpwaitingpc "guild_vs2", 90, 50; end;}same people ?http://rathena.org/board/topic/92911-what-is-the-problem/

http://rathena.org/board/topic/92930-about-party/?p=246451
I think already answered over there ...

perfectly built script, I can only see 1 bug and 2 improvements
 
1.
bindatcmd "claim",strnpcinfo(3)+"::OnClaim"; bindatcmd "code",strnpcinfo(3)+"::OnEditCode";when you write an atcommand that player can usealways set charcommand level to 99 or 100
 
its simple to reproduce
when pvp/gvg, type '#claim <player name that you hated>' and will send a chat box on the player,
cause him to have a moment of pause because need to type something
yet again ... this kind of knowledge can only acquire when you have work on a live server =/
 
2.
so change into like this
bindatcmd "claim",strnpcinfo(3)+"::OnClaim", 0, 100; bindatcmd "code",strnpcinfo(3)+"::OnEditCode", 99, 100;so you don't have to ( getgmlevel() < 99 ) end; 
3.
query_sql "SELECT `nameid`, `amount` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pc$) + "'", .@item, .@amt; if ( !.@item ) dispbottom "Either invalid code or the code is already claimed by other people";can be simplify as if ( !query_sql( "SELECT `nameid`, `amount` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pc$) + "'", .@item, .@amt ) ) dispbottom "Either invalid code or the code is already claimed by other people";

you mean you are still using the damn old emulator where has_instance2 is not supported ?try check your script_commands.txt and see your emulator support has_instance2 or not
https://github.com/HerculesWS/Hercules/blob/master/doc/script_commands.txt#L7971
 
maybe try change has_instance2( "guild_vs2" ) into instance_id(1)
otherwise, I can't support people using such old emulator
 
#define MAX_PARTY 12
inside mmo.h
 
@Hadeszeus
turn off the gvg mapflag

simple patch
 
http://upaste.me/631810678b37dc39c
 
tested with
prontera,157,183,1 shop kjvhkxjvx 100,501:-1,1201:-1,2304:-1note that npc shops that already has a value will still overwrite the price though 
and of course ... merchant can discount/overcharge it

/*DROP TABLE IF EXISTS `reward_codes`;CREATE TABLE IF NOT EXISTS `reward_codes` ( `code` VARCHAR(10) NOT NULL DEFAULT '', `nameid` INT(11) UNSIGNED NOT NULL DEFAULT '0', `item_name` VARCHAR(45) NOT NULL DEFAULT '', `amount` SMALLINT(6) UNSIGNED NOT NULL DEFAULT '0', `time_created` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00' PRIMARY KEY (`code`)) ENGINE = MYISAM;DROP TABLE IF EXISTS `rewardlogs`;CREATE TABLE `rewardlogs` ( `account_id` INT( 10 ) NOT NULL, `code` VARCHAR( 10 ) NOT NULL, `redeem_time` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00') ENGINE = MyISAM;*/- script promoclaim -1,{OnInit: bindatcmd "claim",strnpcinfo(3)+"::OnClaim"; bindatcmd "code",strnpcinfo(3)+"::OnEditCode"; end; OnClaim: // if ( getgmlevel() ) end; mes "^FF0000 Enter a new promotional code."; input .@pc$; close2; query_sql "SELECT `nameid`, `amount` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pc$) + "'", .@item, .@amt; if ( !.@item ) dispbottom "Either invalid code or the code is already claimed by other people"; else { getitem .@item, .@amt; dispbottom "Promotional code successfully redeemed."; query_sql "DELETE FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pc$) + "'"; query_logsql "INSERT INTO `rewardlogs` VALUES ( '" + getcharid(3) + "', '" + escape_sql(.@pc$) + "', NOW() )"; } end; OnEditCode: if ( getgmlevel() < 99 ) end; set .@choice$, "Setup a new promotional code:View existing codes:Delete exisiting codes:Cancel"; setarray .@length, 4,10; // <min>,<max> switch ( select( .@choice$ ) ) { case 1: input .@pcode$; if ( getstrlen( .@pcode$ ) < .@length[0] || getstrlen( .@pcode$ ) > .@length[1] ) { dispbottom "Codes must not be less than " +.@length[0]+ " and must be greater than " +.@length[1]+ "."; end; } mes "You have entered ^FF0000"+.@pcode$+"^000000 as the code."; mes "Are you sure?"; if ( select("Yes:No, thanks") - 1 ) end; query_sql "SELECT `code` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pcode$) + "'", .@pcode_exists; if ( .@pcode_exists ) { dispbottom "Sorry, that code already exist."; end; } mes "Please set a reward for the players who has entered the code."; input .@reward; next; if ( !.@reward || getitemname(.@reward) == "null" ) { dispbottom "Sorry, that is an invalid item id."; end; } set .@iname$, getitemname(.@reward); mes "Item number ^FF0000"+.@reward+"^000000"; mes "is equivalent to ^FF0000"+.@iname$+"^000000."; mes "Are you sure?"; next; if ( select("Yes:No, thanks") - 1 ) end; mes "How many ^FF0000"+.@iname$+"^000000.?"; input .@amount; next; if ( !.@amount ) { dispbottom "Sorry, that is an invalid amount number."; end; } mes "Are you sure?"; next; if ( select("Yes:No, thanks") - 1 ) end; query_sql "INSERT INTO `reward_codes` VALUES ( '" + escape_sql(.@pcode$) + "', '" + .@reward + "', '" + escape_sql(.@iname$) + "', '" + .@amount + "', NOW() )"; dispbottom "Done creating code!"; break; case 2: set .@nb, query_sql("SELECT code, item_name, amount FROM `reward_codes` ORDER BY time_created DESC LIMIT 20", .@code$, .@nid$, .@amount); if ( !.@nb ) { dispbottom "No exisiting codes."; end; } dispbottom "============================================="; dispbottom "============== EXISITING CODES =============="; dispbottom "============================================="; for(set .@i,0; .@i < .@nb; set .@i,.@i+1) dispbottom ""+.@code$[.@i]+" ( Reward: "+.@amount[.@i]+" "+.@nid$[.@i]+" ) "; dispbottom "============================================="; break; case 3: input .@dcode$; query_sql "SELECT `code` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@dcode$) + "'", .@dcode_exists; if ( !.@dcode_exists ) { dispbottom "Promotional code not found."; end; } mes "Would you like to delete that code?"; next; if ( select("Yes:No, thanks") - 1 ) end; query_sql "DELETE FROM `reward_codes` WHERE `code` = '" + escape_sql(.@dcode$) + "'"; break; case 4: break; default: break; } close;}

https://github.com/HerculesWS/Hercules/blob/master/db/sc_config.txt
 
SC_INCMHPRATE, 1
SC_INCMSPRATE, 1

prontera,160,160,3  script  OnTouchHeal  100,5,5,{end;OnTouch:  specialeffect2 EF_HEAL2; percentheal 100,100; // heal 100% hp and sp.  end;}this?

nicee
you can fix that by using 1) including ../common/strlib.h, loading the strlib interface and replacing strncpy with safestrncpy

you type @sleep and then your character lays down ( looks like Novice Skill Trickdead ) and sleeps ( zZzZzZ ~ over your head ).
Type @sleep again to wake up. While you sleep you can not be attacked.
Usefull to go pee or poo in real life while your charcter is on a field or in a dungeon with agressive mobs.
 
mfg
Snowflake

Download: 1.3
plugin
 
 
--------------------------------
 
everything is inside this sample
http://upaste.me/10bb21957e0971185
its meant to attachrid online players
 
checkmes ...
is just like addrid with type 1 ... means only attachrid on players that doesn't have a npc dialog
- script test dialog -1,{Onaaa: mes "hi"; close;OnInit: while (1) { getmemberaid ALL_CLIENT; for ( .@i = 0; .@i < $@onlinecount; .@i++ ) { if ( !checkmes( $@onlineaid[.@i] ) ) { // if don't have a npc dialog attachrid $@onlineaid[.@i]; addtimer 1, strnpcinfo(0)+"::Onaaa"; } } sleep 1000; }}  

Download: 1.3
plugin
 
 
--------------------------------
 
everything is inside this sample
http://upaste.me/10bb21957e0971185
its meant to attachrid online players
 
checkmes ...
is just like addrid with type 1 ... means only attachrid on players that doesn't have a npc dialog
- script test dialog -1,{Onaaa: mes "hi"; close;OnInit: while (1) { getmemberaid ALL_CLIENT; for ( .@i = 0; .@i < $@onlinecount; .@i++ ) { if ( !checkmes( $@onlineaid[.@i] ) ) { // if don't have a npc dialog attachrid $@onlineaid[.@i]; addtimer 1, strnpcinfo(0)+"::Onaaa"; } } sleep 1000; }}  

Download: 1.3
plugin
 
 
--------------------------------
 
everything is inside this sample
http://upaste.me/10bb21957e0971185
its meant to attachrid online players
 
checkmes ...
is just like addrid with type 1 ... means only attachrid on players that doesn't have a npc dialog
- script test dialog -1,{Onaaa: mes "hi"; close;OnInit: while (1) { getmemberaid ALL_CLIENT; for ( .@i = 0; .@i < $@onlinecount; .@i++ ) { if ( !checkmes( $@onlineaid[.@i] ) ) { // if don't have a npc dialog attachrid $@onlineaid[.@i]; addtimer 1, strnpcinfo(0)+"::Onaaa"; } } sleep 1000; }}  

Download: 1.3
plugin
 
 
--------------------------------
 
everything is inside this sample
http://upaste.me/10bb21957e0971185
its meant to attachrid online players
 
checkmes ...
is just like addrid with type 1 ... means only attachrid on players that doesn't have a npc dialog
- script test dialog -1,{Onaaa: mes "hi"; close;OnInit: while (1) { getmemberaid ALL_CLIENT; for ( .@i = 0; .@i < $@onlinecount; .@i++ ) { if ( !checkmes( $@onlineaid[.@i] ) ) { // if don't have a npc dialog attachrid $@onlineaid[.@i]; addtimer 1, strnpcinfo(0)+"::Onaaa"; } } sleep 1000; }}  

it should be below bg_warp .team and before sleep .eventlastingso around line 87~93
 
putting a countdown require to use setwall and delwall
I've made another similar stuff in this battleground topic
http://rathena.org/board/topic/90734-annieruru-custom-bg/
you can use it as reference
 
oh and, the setwall has to be done before bg_warp too
there is a bug if you bg_warp and then setwall, client will crash
http://rathena.org/board/topic/89525-help-on-bg-emperium/
.
.
post the map here and I'll finish it up

This plugin has outdated
Haru has already fixed queue iterator script command
this plugin is no longer needed
 
sample battleground script using queue iterator
http://upaste.me/ab3022385d0127b7f
 

 
outdated topics from eathena or rathena
this one is more update
 
Download: 1.5
plugin
 
-----------------------------------------
 
*createbgid , , , , ;
create a specific battleground ID, for the rest .... refer to doc
.red = createbgid( "guild_vs3", 13,50, strnpcinfo(0)+"::Onredout", strnpcinfo(0)+"::Onreddead" );.blue = createbgid( "guild_vs3", 86,50, strnpcinfo(0)+"::Onblueout", strnpcinfo(0)+"::Onbluedead" );.-----------------------------------------
 
*setbgid {, };
*setbgid {, };
player attached to the script will join the battleground team,
but if a player name ( or account ID ) is specify, will let that player join the battleground team
 
for debugging purposes
this command can return positive number ( > 0 ) if the function is successful
if it return negative :-
-1: the battleground team haven't create yet ... has to be create with createbgid
-2: the team already full, it reached MAX_BG_MEMBERS = 30 which can increase at srcmapbattleground.h
-3: player not found ... happens when the input is not online or not found
-5: the player already join the battleground ID that you specify
 
if the player has joined battleground ID 3, and you use setbgid 5;
this will force the player to leave battleground ID 3 and join battleground ID 5 without any notification
( player who same group will receive a message mention that "player xxx leaving battlefield" )
only when the player joined bg ID 9, and use setbgid 9; then only the command return -5
but the script will still continue running without posting any error, so don't worry
 
setbgid 0; is equal to *bg_leave;
and setbgid 0, "annie"; or setbgid 0, 2000000;
will make the player "annie" ( or account id 2000000 ) leave the battleground team without using *attachrid + *bg_leave
warpwaitingpc "guild_vs3", 0,0;for ( .@i = 0; .@i < $@warpwaitingpcnum; .@i++ )setbgid ( .@i % 2 )? .red : .blue, $@warpwaitingpc[.@i];.-----------------------------------------
 
*getbgusers ;
similar to getpartymember , 2; // <-- return account ID
this will create an array "$@arenamembers" holding all the player's account ID from the battleground team
and $@arenamembersnum is equal to bg_get_data(, 0), just like $@partymembercount
getbgusers .red;for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )getitem 501, 1, $@arenamembers[.@i];.-----------------------------------------
 
sample script
http://upaste.me/7de710709dbb6fa17
 
example script for reference material
default battleground system using waitingroom, works in clean rathena/hercules
http://upaste.me/497010755d3295805
this script using this custom script commands
http://upaste.me/b2781075699b0f8d9
you can tell it really does make the script shorter
 
 
 

This plugin has outdated
Haru has already fixed queue iterator script command
this plugin is no longer needed
 
sample battleground script using queue iterator
http://upaste.me/ab3022385d0127b7f
 

 
outdated topics from eathena or rathena
this one is more update
 
Download: 1.5
plugin
 
-----------------------------------------
 
*createbgid , , , , ;
create a specific battleground ID, for the rest .... refer to doc
.red = createbgid( "guild_vs3", 13,50, strnpcinfo(0)+"::Onredout", strnpcinfo(0)+"::Onreddead" );.blue = createbgid( "guild_vs3", 86,50, strnpcinfo(0)+"::Onblueout", strnpcinfo(0)+"::Onbluedead" );.-----------------------------------------
 
*setbgid {, };
*setbgid {, };
player attached to the script will join the battleground team,
but if a player name ( or account ID ) is specify, will let that player join the battleground team
 
for debugging purposes
this command can return positive number ( > 0 ) if the function is successful
if it return negative :-
-1: the battleground team haven't create yet ... has to be create with createbgid
-2: the team already full, it reached MAX_BG_MEMBERS = 30 which can increase at srcmapbattleground.h
-3: player not found ... happens when the input is not online or not found
-5: the player already join the battleground ID that you specify
 
if the player has joined battleground ID 3, and you use setbgid 5;
this will force the player to leave battleground ID 3 and join battleground ID 5 without any notification
( player who same group will receive a message mention that "player xxx leaving battlefield" )
only when the player joined bg ID 9, and use setbgid 9; then only the command return -5
but the script will still continue running without posting any error, so don't worry
 
setbgid 0; is equal to *bg_leave;
and setbgid 0, "annie"; or setbgid 0, 2000000;
will make the player "annie" ( or account id 2000000 ) leave the battleground team without using *attachrid + *bg_leave
warpwaitingpc "guild_vs3", 0,0;for ( .@i = 0; .@i < $@warpwaitingpcnum; .@i++ )setbgid ( .@i % 2 )? .red : .blue, $@warpwaitingpc[.@i];.-----------------------------------------
 
*getbgusers ;
similar to getpartymember , 2; // <-- return account ID
this will create an array "$@arenamembers" holding all the player's account ID from the battleground team
and $@arenamembersnum is equal to bg_get_data(, 0), just like $@partymembercount
getbgusers .red;for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )getitem 501, 1, $@arenamembers[.@i];.-----------------------------------------
 
sample script
http://upaste.me/7de710709dbb6fa17
 
example script for reference material
default battleground system using waitingroom, works in clean rathena/hercules
http://upaste.me/497010755d3295805
this script using this custom script commands
http://upaste.me/b2781075699b0f8d9
you can tell it really does make the script shorter
 
 
 

This plugin has outdated
Haru has already fixed queue iterator script command
this plugin is no longer needed
 
sample battleground script using queue iterator
http://upaste.me/ab3022385d0127b7f
 

 
outdated topics from eathena or rathena
this one is more update
 
Download: 1.5
plugin
 
-----------------------------------------
 
*createbgid , , , , ;
create a specific battleground ID, for the rest .... refer to doc
.red = createbgid( "guild_vs3", 13,50, strnpcinfo(0)+"::Onredout", strnpcinfo(0)+"::Onreddead" );.blue = createbgid( "guild_vs3", 86,50, strnpcinfo(0)+"::Onblueout", strnpcinfo(0)+"::Onbluedead" );.-----------------------------------------
 
*setbgid {, };
*setbgid {, };
player attached to the script will join the battleground team,
but if a player name ( or account ID ) is specify, will let that player join the battleground team
 
for debugging purposes
this command can return positive number ( > 0 ) if the function is successful
if it return negative :-
-1: the battleground team haven't create yet ... has to be create with createbgid
-2: the team already full, it reached MAX_BG_MEMBERS = 30 which can increase at srcmapbattleground.h
-3: player not found ... happens when the input is not online or not found
-5: the player already join the battleground ID that you specify
 
if the player has joined battleground ID 3, and you use setbgid 5;
this will force the player to leave battleground ID 3 and join battleground ID 5 without any notification
( player who same group will receive a message mention that "player xxx leaving battlefield" )
only when the player joined bg ID 9, and use setbgid 9; then only the command return -5
but the script will still continue running without posting any error, so don't worry
 
setbgid 0; is equal to *bg_leave;
and setbgid 0, "annie"; or setbgid 0, 2000000;
will make the player "annie" ( or account id 2000000 ) leave the battleground team without using *attachrid + *bg_leave
warpwaitingpc "guild_vs3", 0,0;for ( .@i = 0; .@i < $@warpwaitingpcnum; .@i++ )setbgid ( .@i % 2 )? .red : .blue, $@warpwaitingpc[.@i];.-----------------------------------------
 
*getbgusers ;
similar to getpartymember , 2; // <-- return account ID
this will create an array "$@arenamembers" holding all the player's account ID from the battleground team
and $@arenamembersnum is equal to bg_get_data(, 0), just like $@partymembercount
getbgusers .red;for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )getitem 501, 1, $@arenamembers[.@i];.-----------------------------------------
 
sample script
http://upaste.me/7de710709dbb6fa17
 
example script for reference material
default battleground system using waitingroom, works in clean rathena/hercules
http://upaste.me/497010755d3295805
this script using this custom script commands
http://upaste.me/b2781075699b0f8d9
you can tell it really does make the script shorter
 
 
 

This plugin has outdated
Haru has already fixed queue iterator script command
this plugin is no longer needed
 
sample battleground script using queue iterator
http://upaste.me/ab3022385d0127b7f
 

 
outdated topics from eathena or rathena
this one is more update
 
Download: 1.5
plugin
 
-----------------------------------------
 
*createbgid , , , , ;
create a specific battleground ID, for the rest .... refer to doc
.red = createbgid( "guild_vs3", 13,50, strnpcinfo(0)+"::Onredout", strnpcinfo(0)+"::Onreddead" );.blue = createbgid( "guild_vs3", 86,50, strnpcinfo(0)+"::Onblueout", strnpcinfo(0)+"::Onbluedead" );.-----------------------------------------
 
*setbgid {, };
*setbgid {, };
player attached to the script will join the battleground team,
but if a player name ( or account ID ) is specify, will let that player join the battleground team
 
for debugging purposes
this command can return positive number ( > 0 ) if the function is successful
if it return negative :-
-1: the battleground team haven't create yet ... has to be create with createbgid
-2: the team already full, it reached MAX_BG_MEMBERS = 30 which can increase at srcmapbattleground.h
-3: player not found ... happens when the input is not online or not found
-5: the player already join the battleground ID that you specify
 
if the player has joined battleground ID 3, and you use setbgid 5;
this will force the player to leave battleground ID 3 and join battleground ID 5 without any notification
( player who same group will receive a message mention that "player xxx leaving battlefield" )
only when the player joined bg ID 9, and use setbgid 9; then only the command return -5
but the script will still continue running without posting any error, so don't worry
 
setbgid 0; is equal to *bg_leave;
and setbgid 0, "annie"; or setbgid 0, 2000000;
will make the player "annie" ( or account id 2000000 ) leave the battleground team without using *attachrid + *bg_leave
warpwaitingpc "guild_vs3", 0,0;for ( .@i = 0; .@i < $@warpwaitingpcnum; .@i++ )setbgid ( .@i % 2 )? .red : .blue, $@warpwaitingpc[.@i];.-----------------------------------------
 
*getbgusers ;
similar to getpartymember , 2; // <-- return account ID
this will create an array "$@arenamembers" holding all the player's account ID from the battleground team
and $@arenamembersnum is equal to bg_get_data(, 0), just like $@partymembercount
getbgusers .red;for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )getitem 501, 1, $@arenamembers[.@i];.-----------------------------------------
 
sample script
http://upaste.me/7de710709dbb6fa17
 
example script for reference material
default battleground system using waitingroom, works in clean rathena/hercules
http://upaste.me/497010755d3295805
this script using this custom script commands
http://upaste.me/b2781075699b0f8d9
you can tell it really does make the script shorter
 
 
 

ok, took me more than 5 hours to rewrite this script
 
wow_domi_0.5.txt
the only thing that I'm not done is the respawn system ...
someone need to clarify how it is exactly work
 
other than that, I think I've fixed every single bugs I can find from previous version
.
.
.
thanks for answering ... lolyeah I know how it feels
when you posted that topic 3 years ago, you wanted to make your 1st free release map as a thanks giving for the community
but now you have totally past that stage
perhaps you want to give this project to the next generation ?
.
.
.
its already on the eathena forumwww.eathena.ws/board/index.php?showtopic=272293

.
.
.
btw, call the friend of yours to make these few maps too
7 element woe -> http://rathena.org/board/topic/72989-capture-the-flag-woe-script/?p=149792
martial art tournament -> http://www.eathena.ws/board/index.php?showtopic=272624

today I got time to write
so I spoon feed
 
http://upaste.me/2e2110748aa7496b0
http://upaste.me/75f61074917489868#

https://github.com/HerculesWS/Hercules/blob/master/conf/battle/monster.conf#L190

prontera,150,150,0 script Sample 100,{ if ( countiem( 501 ) < 10 || !countitem( 514 ) ) { mes "You need 10 apple and 1 grape"; close; } if ( !getcharid( 1 ) ) { mes "You don't have a party"; close; } if ( getpartyleader( getcharid( 1 ), 2 ) != getcharid( 0 ) ) { mes "You must be a party leader"; close; } delitem 501, 10; delitem 514, 1; warpparty "prontera",150,150,getcharid( 1 ); end;}

rentitem2 -> http://rathena.org/board/topic/90918-emistrys-rentitem2-be-added-to-svn/?p=243967
makeitem2
equip2 -> http://www.eathena.ws/board/index.php?showtopic=278129
 
add all 3 of them !
you also need getequipexpiretick ?http://www.eathena.ws/board/index.php?act=attach&code=showtopic&tid=241313

this is why i made this clients Annie