Jump to content
  • 0
Sign in to follow this  
MikZ

Gvg Event convert to Hercules

Question

Good day!
I found this timely gvg event in rathena. 
May I request to convert to Hercules please.
Got error on below which cant test the script correctly. thank you!

image.png.d502e4b3bfcd9cf6ac45415b55c6c283.png

Spoiler

// Automated GvG Event 2.0 Beta version
// Event runs every hour via OnMinute timer.
// Feel free to edit as you wish
// By : Mabuhay
// Free release
// Dont remove credit
// Updated to v 2.0
/*
	- Added gepard support and check to every members
	- More flexible options
	- Can set cash, members, timer, and winpoints if gm starts the command.
	
	New mechanics.
	
	- When using @gvgeventjoin, all your members must be around you by 5x5 cell.
	
	NOTE:
		item rewards are only to be set here in script because adding them
		in the GM option would be quite troublesome for me :D
*/
//
-	script	gvg_event	-1,{
OnInit:
	// Enable gepard check?
	// set to true to enable
	.gepard = true;

	// How many guild members are required?
	// 3 = 3v3
	// 5 = 5v5
	// etc..
	// only to be set once..
	if ( !$gvgevent_mem ) $gvgevent_mem = 2; 
	
	// registration timer in mins.
	// only to be set once..
	if ( !$gvgevent_time ) $gvgevent_time = 1; 
	
	// how much points to win? Points is earned per kill
	// only to be set once..
	if ( !$gvgevent_winpts ) $gvgevent_winpts = 2; 
	
	// item reward
	// <item_id>, <amount>
	setarray .item,
		501, 10,
		502, 5;
	
	// how much cash points earned
	// set to 0 to disable
	if ( !$gvgevent_cash ) $gvgevent_cash = 100; 
	
	.size = getarraysize(.item);
	bindatcmd "gvgeventstart", strnpcinfo(0)+"::OnStartEvent",60,60;
	bindatcmd "gvgeventend", strnpcinfo(0)+"::OnEndEvent",60,60;
	bindatcmd "gvgeventjoin", strnpcinfo(0)+"::OnJoinEvent";
	end;
	
OnStartEvent:
	mes "Hi GM, what do you want to do?";
	mes "Current settings :";
	mes "Member count : "+ $gvgevent_mem;
	mes "Registration time : "+ $gvgevent_time;
	mes "Win points : "+ $gvgevent_winpts;
	mes "Cashpoint reward : "+ $gvgevent_cash;
	next;
	switch(select("Start Event:Set Mem Count:Set Reg timer:Set Win Points:Set Cashpoint Reward")) {
	case 1:
		mes "Starting event..";
		close2;
		break;
	case 2: 
		mes "Enter member count value";
		mes "current : "+ $gvgevent_mem;
		next;
		input .@amt, 1;
		mes "Do you want to set member count to "+ .@amt +"?";
		next;
		select("Yes");
		mes "Done!";
		close2;
		$gvgevent_mem = .@amt;
		end;
	case 3:
		mes "Enter registration time value";
		mes "current : "+ $gvgevent_time;
		next;
		input .@amt, 1;
		mes "Do you want to set registration time to "+ .@amt +"?";
		next;
		select("Yes");
		mes "Done!";
		close2;
		$gvgevent_time = .@amt;
		end;
	case 4:
		mes "Enter win points value";
		mes "current : "+ $gvgevent_winpts;
		next;
		input .@amt, 1;
		mes "Do you want to set win points to "+ .@amt +"?";
		next;
		select("Yes");
		mes "Done!";
		close2;
		$gvgevent_winpts = .@amt;
		end;
	case 5:
		mes "To disable, set to zero (0)";
		mes "current : "+ $gvgevent_cash;
		next;
		input .@amt;
		mes "Do you want to set cashpoints to "+ .@amt +"?";
		next;
		select("Yes");
		mes "Done!";
		close2;
		$gvgevent_cash = .@amt;
		end;
	}
OnMinute00: // runs every hour..
	if ( .start ) end;
	.start = 1;
	.@m = $gvgevent_mem;
	gvgoff "guild_vs1";
	for ( .@j = 1; .@j < 9; .@j++ )
		enablenpc "#bari0"+.@j;
	setwall "guild_vs1", 12, 48, 4, DIR_NORTH, 0, "wonderwall_1";
	setwall "guild_vs1", 87, 48, 4, DIR_NORTH, 0, "wonderwall_2";
	for ( .@i = $gvgevent_time; .@i > 0; .@i-- ) {
		if ( .start < 2 ) {
			announce "<"+.@m+"v"+.@m+" Guild Event> Event start in "+.@i+" min(s) until slots are taken. Register now.", bc_all;
			sleep 60000;
		}
	}
	if ( !.slot1 || !.slot2 ) {
		announce "<"+.@m+"v"+.@m+" Guild Event> Event is cancelled. Not enough participants.", bc_all; 
		donpcevent strnpcinfo(0)+"::OnEndEvent";
		end;
	}
	announce "<"+.@m+"v"+.@m+" Guild Event> Guild ["+getguildinfo(GUILDINFO_NAME,.slot1)+"] vs Guild ["+getguildinfo(GUILDINFO_NAME,.slot2)+"].", bc_all;
	end;

OnJoinEvent:
	.@GID = getcharid(2);
	if (.@GID == 0) {
		mes "Sorry, you are not in a guild.";
		close;
	}
	if (getguildinfo(GUILDINFO_MASTER_CID,.@GID)) {
		mes "Sorry, only your guild master can register.";
		close;
	}
	if ( !.start ) {
		mes "Event has not started.";
		close;
	} else if ( .start == 2 ) {
		mes "Event is still on-going.";
		close;
	} else {
		if ( .slot1 && .slot2 ) {
			mes "All slots has been taken.";
			close;
		}
		if ( !.slot1 ) .@slot = 1;
		else if ( !.slot2) .@slot = 2;
		if ( .slot1 == .@GID ) {
			mes "You're guild has already registered.";
			close;
		}
		getmapxy(.@map$, .@x, .@y, BL_PC);
		getareaunits(BL_PC,.@map$,.@x+5,.@y+5,.@x-5,.@y-5,.@char_name$[0]);
		freeloop(true);
		for(.@i=0;.@i<getarraysize(.@char_name$);.@i++)
		if ( getcharid(2, .@char_name$[.@i] ) == .@GID ) {
			if ( .gepard ) {
				query_sql("SELECT `last_unique_id` FROM `login` WHERE `account_id` = '"+ getcharid(3, .@char_name$[.@i] ) +"'", .@unique_id$);
				.@gvg_gepard$[.@gsize++] = .@unique_id$;
				if ( countinarray( .@gvg_gepard$[0], .@unique_id$ ) > 1 ) .@duplicate++;
			}
			.@current_mem++;
			.@aid[.@size++] = convertpcinfo(.@char_name$[.@i], CPC_ACCOUNT);
			.@validmem$[.@size2++] = .@char_name$[.@i];
		}
		freeloop(false);	
		if ( .@current_mem < $gvgevent_mem ) {
			mes "You need at least "+$gvgevent_mem+" guild members around you"+(.gepard ? " with unique gepard id":"")+".";
			close;
		}
		if ( .@current_mem > $gvgevent_mem ) {
			mes "You need only need "+$gvgevent_mem+" guild members around you"+(.gepard ? " with unique gepard id":"")+".";
			close;
		}
		if ( .gepard && .@duplicate ) {
			mes "Gepard ID duplicate detected.";
			mes "A member around you is using dual account.";
			close;
		}
		mes "Participating members are :";
		for ( .@i = 0; .@i < .@size2; .@i++)
			mes "~ "+ .@validmem$[.@i];
		next;
		mes "Are you ready ?";
		next; 
		select("Yes");
		switch ( .@slot ) {
			case 1: .slot1 = .@GID; break;
			case 2: .slot2 = .@GID; break;
		}
		for ( .@j = 0; .@j < .@size; .@j++ ) {
			attachrid(.@aid[.@j]);
			.@gid = getcharid(2);
			sc_end SC_ALL; // remove all status buffs
			percentheal 100,100; // heals before warp
			warp "guild_vs1", ( .slot1 == .@gid ) ? 7 : 92, 50;
		}
		detachrid;
		if ( .slot1 && .slot2 ) {
			.start = 2;
			awake strnpcinfo(0);
			sleep 3000;
			mapannounce "guild_vs1", "Get ready !~", bc_blue;
			sleep 2000;
			for ( .@i = 5; .@i > 0; --.@i ) {
				mapannounce "guild_vs1", .@i +" !~", bc_blue;
				sleep 1000;
			}
			mapannounce "guild_vs1", "Start !~", bc_blue;
			gvgon "guild_vs1";
			for ( .@j = 1; .@j < 9; .@j++ )
				disablenpc "#bari0"+.@j;
			delwall "wonderwall_1";
			delwall "wonderwall_2";
		}
	}
	end;
	
OnPCKillEvent:
	if ( .start && strcharinfo(3) == "guild_vs1" ) {
		.@GID = getcharid(2);
		if ( .@GID == .slot1 ) .guild1_score++;
		else if ( .@GID == .slot2 ) .guild2_score++;
		mapannounce "guild_vs1", strcharinfo(0) +" of Guild ["+getguildinfo(GUILDINFO_NAME,.@GID)+"] has pawned "+ rid2name(killedrid), bc_blue;
		mapannounce "guild_vs1", "Guild ["+getguildinfo(GUILDINFO_NAME,.slot1)+"] - "+.guild1_score+" || Guild ["+getguildinfo(GUILDINFO_NAME,.slot2)+"] - "+.guild2_score+"", bc_blue;
		if ( .guild1_score == $gvgevent_winpts || .guild2_score == $gvgevent_winpts ) {
			gvgoff "guild_vs1";
			if ( .guild1_score > .guild2_score ) { .winner = .slot1; .loser = .slot2; }
			else { .winner = .slot2; .loser = .slot1; }
			.@m = $gvgevent_mem;
			announce "<"+.@m+"v"+.@m+" Guild Event> Guild ["+getguildinfo(GUILDINFO_NAME,.winner)+"] is victorious against Guild ["+getguildinfo(GUILDINFO_NAME,.loser)+"] !", bc_all;
			mapannounce "guild_vs1", "Rewards will be delivered in few seconds before warping out.", bc_blue;
			sleep 8000; // 8 sec pause so participating members can re-warp if dead
			getmapunits(BL_PC, "guild_vs1", .@aid[0]);
			for(.@i=0;.@i<getarraysize(.@aid);.@i++) {
				attachrid(.@aid[.@i]);
				if ( getcharid(2) == .winner ) { // if winner
					for ( .@j = 0; .@j < .size; .@j+=2 )
						getitem .item[.@j], .item[.@j+1]; 
					if ( $gvgevent_cash ) {
						#CASHPOINTS += $gvgevent_cash;
						dispbottom "You have gained "+$gvgevent_cash+" cashpoints. Total : "+ #CASHPOINTS;
					}
				} else if ( getcharid(2) == .loser ) { // if loser
					dispbottom "Thank you for participating GvG Event."; 
				}
			}			
			detachrid;
			sleep 2000; // 2 sec pause..
			donpcevent strnpcinfo(0)+"::OnEndEvent";
			end;
		}
		attachrid( killedrid );
		.@GID = getcharid(2);
		if ( .@GID == .slot1 || .@GID == .slot2 ) {
			dispbottom "You will be warped back to the battle area in few secs.";
			sleep2 4000; // return to battle in 5 sec
			warp "guild_vs1", (.@GID == .slot1) ? 7:(.@GID == .slot2) ? 92:50, 50;
			sleep2 1000; // heal in 1 sec
			percentheal 100,100;
		}
	}
	end;
	
OnEndEvent:
	if ( !.start ) end;
	.start = .slot1 = .slot2 = .loser = .winner = .guild1_score = .guild2_score = false;
	mapwarp "guild_vs1", "prontera", 150, 180;
	end;
}

// Barricades
guild_vs1,12,48,0	script	#bari01	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,12,49,0	script	#bari02	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,12,50,0	script	#bari03	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,12,51,0	script	#bari04	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,87,48,0	script	#bari05	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,87,49,0	script	#bari06	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,87,50,0	script	#bari07	1906,{ end; OnInit: disablenpc strnpcinfo(0); }
guild_vs1,87,51,0	script	#bari08	1906,{ end; OnInit: disablenpc strnpcinfo(0); }

 

 

Edited by AnnieRuru
add spoiler so the post don't stretch too far

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

https://gist.github.com/AnnieRuru/834aac8736731d45877e7f85d2666969

I don't have gepard, so I turned it off

 

bruh ... I just wanted to convert this script I just made in rathena yesterday

then I see a VERY similar script shows up here in hercules <_<

Share this post


Link to post
Share on other sites
  • 0
On 9/10/2020 at 9:56 PM, Kuroyama said:

I don't know if this is something similar to that getareaunits, but you can try it.

 

image.png.d4c2559a46931947ca14a980ccf0dd2e.png

 


Thanks!

Now I'm having prob with convertpcinfo command.

image.png.0d30f11a78886aac7414fba237cfae6e.png

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.