OpenKore's automacro to cast Full Chemical Protection (FCP) to player in certain guild only | (c) Cydh/PServeRO

[ok]macro_fcp.txt

# Automacro to cast Full Chemical Protection (FCP) on chat
automacro fcp {
	pubm "fcp",2
	call {
		if (@eval(checkPlayerGuild("$.lastpub")) == 1) {
			do sp CR_FULLPROTECTION "$.lastpub"
		} else {
			do e ??
		}
	}
	timeout 1
}

# usage must be near the player
# @eval(checkPlayerGuild("playername"))
sub checkPlayerGuild {
	my ($name) = @_;
	foreach my $_player (@{$::playersList->getItems()}) {
		next if $_player->{'name'} eq "";
		next if $_player->{'actorType'} ne "Player";
		if ($_player->{'name'} eq "$name" && $_player->{'guild'}) {
			# Add guild name here
			return 1 if ($_player->{'guild'}{'name'} eq "Anjal.Saber");
			return 1 if ($_player->{'guild'}{'name'} eq "R18 Doujin");
			return 1 if ($_player->{'guild'}{'name'} eq "-= Skizofrenia =-");
		}
	}
	return 0;
}

Hi,

Good macro script anyway, may I know if I change this to priest buff like this

# Automacro to cast Guild Buff on chat
automacro guildbuff {
	pubm /(buff|agi|bless)/i
	call {
		if (@eval(checkPlayerGuild("$.lastpub")) == 1) {
			   do sp 29 $.lastpub
			   pause 2
			   do sp 34 $.lastpub
			   pause 2
			   do sp 73 $.lastpub
			   pause 4
			   do sp 66 $.lastpub
		} else {
			do e omg
			do c who you?
		}
	}
	timeout 1
}

# usage must be near the player
# @eval(checkPlayerGuild("playername"))
sub checkPlayerGuild {
	my ($name) = @_;
	foreach my $_player (@{$::playersList->getItems()}) {
		next if $_player->{'name'} eq "";
		next if $_player->{'actorType'} ne "Player";
		if ($_player->{'name'} eq "$name" && $_player->{'guild'}) {
			# Add guild name here
			return 1 if ($_player->{'guild'}{'name'} eq "Openkore1");
			return 1 if ($_player->{'guild'}{'name'} eq "Openkore1");
			return 1 if ($_player->{'guild'}{'name'} eq "Openkore1");
		}
	}
	return 0;
}

Do I really need this?
foreach my $_player (@{$::playersList->getItems()})

Sorry for bothering you, I'm not really expert on macro.

Thanks