// Referral Gifts
// Rebased from Moubootaur Legends
// Author:
//    Jesusalva

function	script	OpenFriendGift	{
	if (BaseLevel < 5) {
		dispbottom l("You must reach level 5 to open this gift.");
		getitembound FriendGift, 1, 1;
	} else {
        // FIXME PLACEHOLDER !!
        getitem Acorn, 1;
		//getitem EventCoin, rand(1,3);

        .@aid=getvaultvar(REFERRAL_PROG);
        .@vid="playerCache"::account2vault(.@aid);
		.@cid="playerCache"::account2char(.@aid);
        .@cn$="playerCache"::account2name(.@aid);
		$REFERRAL_IDS[.@vid]=$REFERRAL_IDS[.@vid]+1;
		dispbottom l("Oooh, a gift from %s!", .@cn$);
		rodex_sendmail(.@cid, "TMW Team", "Invite Accepted", strcharinfo(0)+" accepted your invite and got level 5!\nAs they get stronger, more rewards will be sent to you!", rand(50,150));
	}
    return;
}