//===== rAthena Script =======================================
//= Referred by Event
//===== By: ==================================================
//= Irata
//===== Current Version: =====================================
//= 1.0 
//===== Compatible With: =====================================
//= rAthena SVN r15300+
//===== Description: =========================================
//= Show a message/menu after "player" logged in.
//= There can "player" choose the option how he find your
//= Server, after "player" choose something, he get 25000 zeny
//============================================================

-	script	ReferrEvent	-1,{
	end;
		
set .@thename$, "[^6E8B3DReferred Event^000000]";		
set .@getzeny, 25000;


// Main script~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~under this line :D
OnPCLoginEvent:

if(newcharreward){
	if( !#referredby ){
L_Start:
		mes .@thename$;
		mes "Welcome, we want to know how you find this server?";
		mes "We need this information";
		mes "to improve our advertising.";
		next;
		mes .@thename$;
		mes "A friend brought you to us?";
		mes "Then he should get a point!";
		mes "Dont worry you get Zeny for helping us!";
		mes "how do you find us?";
		next;
		menu "Friend",L_Friend,"RateMyServer",L_RMS,"Some Voting Page",L_Voting,"I want fill it later",L_otherway,"Other",L_Later,"I dont want to help!",L_No;
	}	
}
end;

L_Friend:
	deletearray @names$[0], 128;
			input @temp$;
			if(@temp$ == "0" || @temp$ == "") 
				goto L_Start;

			query_sql("select name from `char` where `name` like '%"+escape_sql(@temp$)+"%' order by name ASC", @names$);
			goto L_Listing;
	goto L_Friend;

L_Listing:
	if (!getarraysize(@names$)) {
		mes .@thename$;
		mes "No player found with partial name.";
		next;
		goto L_Friend;
	}
	set @temp$, "";
	for (set @i, 0; @i < getarraysize(@names$); set @i, @i+1) {
		set @temp$, @temp$+@names$[@i]+((@i < getarraysize(@names$)-1)?":":"");
	}
	menu @temp$,-,"Back",L_Start;
	callsub(S_View,@names$[@menu-1]);
	goto L_Friend;

S_View:
query_sql("select referrer, referred from `di_ref_event` where `referrer` = '"+getarg(0)+"'", @playersql$, @playerpsql);
if (!getarraysize(@playersql$)) {
	query_sql "INSERT INTO `di_ref_event` (`referrer`, `referred`) VALUES ('"+getarg(0)+"', '1')";			  
}else{
set @playerpsql, @playerpsql+1;
query_sql "UPDATE `di_ref_event` SET `referred` = "+@playerpsql+" WHERE `referrer` = '"+getarg(0)+"'";
}
	mes .@thename$;
	mes "Thank you for this information!";
	mes "Here 25.000z for you!";
	mes "Have fun on CurseRO";
	set Zeny, Zeny+.@getzeny;
	set #referredby, 1;
	close;


L_RMS:
	query_sql("select referrer, referred from `di_ref_event` where `referrer` = 'RateMyServer'", @rmssql$, @rmspsql);
if (!getarraysize(@rmssql$)) {
	query_sql "INSERT INTO `di_ref_event` (`referrer`, `referred`) VALUES ('RateMyServer', '1')";			  
}else{
set @rmspsql, @rmspsql+1;
query_sql "UPDATE `di_ref_event` SET `referred` = "+@rmspsql+" WHERE `referrer` = 'RateMyServer'";
}
	mes .@thename$;
	mes "Thank you for this information!";
	mes "Here 25.000z for you!";
	mes "Have fun on CurseRO";
	set Zeny, Zeny+.@getzeny;
	set #referredby, 1;
	close;

L_Voting:
	query_sql("select referrer, referred from `di_ref_event` where `referrer` = 'VOTE-PAGE'", @vpsql$, @vppsql);
if (!getarraysize(@vpsql$)) {
	query_sql "INSERT INTO `di_ref_event` (`referrer`, `referred`) VALUES ('VOTE-PAGE', '1')";			  
}else{
set @vppsql, @vppsql+1;
query_sql "UPDATE `di_ref_event` SET `referred` = "+@vppsql+" WHERE `referrer` = 'VOTE-PAGE'";
}
	mes .@thename$;
	mes "Thank you for this information!";
	mes "Here 25.000z for you!";
	mes "Have fun on CurseRO";
	set Zeny, Zeny+.@getzeny;
	set #referredby, 1;
	close;

L_Voting:
	query_sql("select referrer, referred from `di_ref_event` where `referrer` = 'Other'", @othersql$, @otherpsql);
if (!getarraysize(@otherpsql$)) {
	query_sql "INSERT INTO `di_ref_event` (`referrer`, `referred`) VALUES ('Other', '1')";			  
}else{
set @otherpsql, @otherpsql+1;
query_sql "UPDATE `di_ref_event` SET `referred` = "+@otherpsql+" WHERE `referrer` = 'Other'";
}
	mes .@thename$;
	mes "Thank you for this information!";
	mes "Here 25.000z for you!";
	mes "Have fun on CurseRO";
	set Zeny, Zeny+.@getzeny;
	set #referredby, 1;
	close;

L_Later:
	mes .@thename$;
	mes "It's okey! Next time you Login";
	mes "we will ask you again! :)";
	close;

L_No:
	mes .@thename$;
	mes "Okey.. thank you anyway..";
	set #referredby, 1;
	close;


OnInit:
	query_sql "CREATE TABLE IF NOT EXISTS `di_ref_event` (`referrer`  varchar(25) NULL ,`referred`  int(255) NULL )" ;
end;
}