sphere_issets.scp

VERSION=0.56T


// [function IsKarmaTitle]
// IF (<KARMA.Wicked>)
	// RETURN Wicked
// ELSEIF (<KARMA.Belligerent>)
	// RETURN Belligerent
// ELSEIF (<KARMA.Neutral>)
	// RETURN Neutral
// ELSEIF (<KARMA.Kindly>)
	// RETURN Kindly
// ELSEIF (<KARMA.Goodhearted>)
	// RETURN Goodhearted
// ENDIF

// RETURN  


// [function IsFameTitle]
// IF (<FAME.Anonymous>)
	// RETURN Anonymous
// ELSEIF (<FAME.Known>)
	// RETURN Known
// ELSEIF (<FAME.Famous>)
	// RETURN Famous
// ENDIF
// RETURN  


[FUNCTION IsScrollSpell]
IF !(<ISEMPTY <ARGS>>)
	IF (STRMATCH('I_SCROLL_PARALYZE_FIELD','<ARGS>'))
		LOCAL.SPELL=S_PARALYZATION_FIELD
	ELSE
		LOCAL.SPELL=S_<STRSUB 9 99 <ARGS>>
	ENDIF
	
	RETURN <LOCAL.SPELL>
ENDIF

[FUNCTION IsSpellFindSpellBook]
IF !(<ISEMPTY <ARGS>>)
	CharFindSpellBook <ARGS>
ENDIF

[FUNCTION CharFindSpellBook]
LOCAL.SPELL=<ARGS>
FORCONTTYPE t_spellbook
    LOCAL.X ++
ENDFOR




[FUNCTION ColoredItemTitle]
// magic weapons
IF STRMATCH(*ruin*,<BASEID>)
	RETURN ruin
	
ELIF STRMATCH(*might*,<BASEID>)
	RETURN might
	
ELIF STRMATCH(*force*,<BASEID>)
	RETURN force
	
ELIF STRMATCH(*power*,<baseid>)
	RETURN power
	
ELIF STRMATCH(*vanq*,<baseid>)
	RETURN vanquishing

// magic armors
ELIF STRMATCH(*defense*,<baseid>)
	RETURN defense

ELIF STRMATCH(*guarding*,<baseid>)
	RETURN guarding

ELIF STRMATCH(*hardening*,<baseid>)
	RETURN hardening

ELIF STRMATCH(*fortification*,<baseid>)
	RETURN fortification

ELIF STRMATCH(*invulnerability*,<BASEID>)
	RETURN invulnerability

// colored armors
ELIF STRMATCH(*agapite*,<BASEID>)
	RETURN Agapite

ELIF STRMATCH(*blackrock*,<BASEID>)
	RETURN Blackrock

ELIF STRMATCH(*bloodrock*,<BASEID>)
	RETURN Bloodrock

ELIF STRMATCH(*bronze*,<BASEID>)
	RETURN Bronze

ELIF STRMATCH(*gold*,<BASEID>)
	RETURN Golden

ELIF STRMATCH(*rose*,<BASEID>)
	RETURN Rose

ELIF STRMATCH(*mytheril*,<BASEID>)
	RETURN Mytheril

ELIF STRMATCH(*shadow*,<BASEID>)
	RETURN Shadow

ELIF STRMATCH(*silver*,<BASEID>)
	RETURN Silver

ELIF STRMATCH(*valorite*,<BASEID>)
	RETURN Valorite

ELIF STRMATCH(*verite*,<BASEID>)
	RETURN Verite
ENDIF
RETURN


[FUNCTION CreatedAt]
RETURN <TAG0.CREATEDAT>






[FUNCTION IsCharType]
IF (<NPC>)
	LOCAL.CHARTYPE = <NPC>
ELSEIF (<SRC.ISPLAYER>)
	LOCAL.CHARTYPE = -1
ENDIF
RETURN <DLOCAL.CHARTYPE>




[FUNCTION IsTeleportItem]
IF (<BASEID> == I_RUNEBOOK_GATE || <BASEID> == I_MOONGATE || <BASEID> == I_MOONGATE_BLACK || <BASEID> == I_MOONGATE_BLUE || <BASEID> == I_MOONGATE_RED || <TYPE> == T_TELEPAD_CUSTOM || <TYPE> == T_TELEPAD)
	RETURN 1
ENDIF
RETURN 0





[FUNCTION ShowDurability]
IF (<ARGV0>)
	RETURN %<eval 100 - <eval <hits>*100>/<maxhits>> eski
ELSE
	RETURN %<eval <eval <hits>*100>/<maxhits>> yeni
ENDIF




[FUNCTION IsRegionNameDetail]
IF (<IsInHouse>)
	REF1=<UID.<REGION.UID>.MORE1> // ÖLDÜRÜLDÜĞÜ YERİN SAHİBİ EV-GEMİ
	LOCAL.REGION <STRARG <STRTOUPPER(<STRSUB 0 1 <REGION.NAME>>)><STRTOLOWER(<STRSUB 1 16 <REGION.NAME>>)>> (<REF1.NAME> evinde)
ELSEIF (<IsInShip>)
	REF2=<UID.<REGION.UID>.MORE1> // ÖLDÜRÜLDÜĞÜ YERİN SAHİBİ EV-GEMİ
	LOCAL.REGION <STRARG <STRTOUPPER(<STRSUB 0 1 <REGION.NAME>>)><STRTOLOWER(<STRSUB 1 16 <REGION.NAME>>)>> (<REF2.NAME> gemisinde)
ELSE
	LOCAL.REGION <REGION.NAME>	
ENDIF

RETURN <LOCAL.REGION>





//add here something to format <LOCAL.Timestamp> into a readable value (eg: 1 month, 8 days, etc)
[FUNCTION AccountAgeDiffforHuman]
ARGS=<EXPLODE /., <ACCOUNT.FIRSTCONNECTDATE>>
LOCAL.Timestamp =<SERV.RTICKS.FROMTIME <ARGV0>,<ARGV1>,<ARGV2>,<ARGV3>,<ARGV4>,<ARGV5>>
LOCAL.sec=<eval (<SERV.RTICKS>-<LOCAL.Timestamp>)/5>
If (<eval <local.sec>/518400>)
  local.timeleft=<eval <local.sec>/518400> ay.
elif (<eval <local.sec>/86400>)
  local.timeleft=<eval <local.sec>/86400> gun.
elif (<eval <local.sec>/3600>)
  local.timeleft=<eval <local.sec>/3600> saat.
elif (<eval <local.sec>/60>)
  local.timeleft=<eval <local.sec>/60> dk.
else
  local.timeleft=<eval <local.sec>> sn.
endif
return <local.timeleft>





[FUNCTION AccountAge]
ARGS=<EXPLODE /., <ACCOUNT.FIRSTCONNECTDATE>>
LOCAL.Timestamp =<SERV.RTICKS.FROMTIME <ARGV0>,<ARGV1>,<ARGV2>,<ARGV3>,<ARGV4>,<ARGV5>>
LOCAL.Timestamp=<eval (<SERV.RTICKS>-<LOCAL.Timestamp>)>
return <DLOCAL.Timestamp>




[FUNCTION SERV.AYNAME]
ARGS=Aralik,Ocak,Subat,Mart,Nisan,Mayis,Haziran,Temmuz,Agustos,Eylul,Ekim,Kasim
RETURN <ARGV[<SERV.rtime.format %m>]>




[FUNCTION IsNotAllowedRecallArea]
IF (<REGION.DEFNAME> == a_yomotsu_mines)
	RETURN 1
ELSEIF (<REGION.DEFNAME> == a_duello_inside_0)
	RETURN 1
ELSEIF (<REGION.DEFNAME> == a_duello_inside_0_2v2)
	RETURN 1
ELSEIF (<REGION.DEFNAME> == a_baslangic)
	RETURN 1
ENDIF
RETURN 0



[FUNCTION IsDyeable]
// IF (<ISITEM>)
	// IF (<ATTR>&ATTR_MOVE_NEVER || <ATTR>&ATTR_STATIC || <ATTR>&ATTR_MAGIC)
		// RETURN 0
	// ELSEIF (<TYPE> == T_ARMOR || <TYPE> == T_SHIELD || <TYPE> == T_GOLD)
		// RETURN 0
	// ELSEIF (<DYE> >= 1 || <CAN>&CAN_I_DYE)
		// RETURN 1
	// ELSEIF (<SERV.ITEMDEF.<BASEID>.DYE> >= 1 || <SERV.ITEMDEF.<BASEID>.CAN>&CAN_I_DYE)
		// RETURN 1
	// ENDIF
// ENDIF
// RETURN 0
IF (<ISITEM>)
	IF ( <DYE> >= 1 || <CAN>&CAN_I_DYE || <SERV.ITEMDEF.<BASEID>.DYE> >= 1 || <SERV.ITEMDEF.<BASEID>.CAN>&CAN_I_DYE )
		RETURN 1
	ENDIF
ENDIF
RETURN 0






[FUNCTION ISNEARPLAYERS]
FORCLIENTS 18
	IF (<ISPLAYER>) && !(<ISGM>)
		LOCAL.PLAYERS ++
	ENDIF
ENDFOR
RETURN <dLOCAL.PLAYERS>




[FUNCTION IsGenderName]
return <IsSexName>




[FUNCTION IsSexName]
IF (<OBODY>==c_man)
	RETURN Male
ELSEIF (<OBODY> == c_woman)
	RETURN Female
ELSEIF (<OBODY> == c_man_gm)
	RETURN GM
ELSE
	RETURN -
ENDIF





[FUNCTION IsEquipArmorType]
LOCAL.TYPE=<ARGV0>
ARGS=4,6,7,10,13,19,24
WHILE (<DARGS>)
	IF (<FINDLAYER.<ARGV0>.ISVALIDE>) && (<FINDLAYER.<ARGV0>.TYPE> == <LOCAL.TYPE>)
		LOCAL.AR ++
	ENDIF
	ARGS=<STREAT <ARGS>>
ENDWHILE
RETURN <DLOCAL.AR>




[FUNCTION ISPC]
RETURN <ACCOUNT.TAG0.PCID>





[FUNCTION NoGoldMsg]
IF (<SRC.DTAG0.VEND_COINTYPE> == 1)
	RETURN Bu işlem için <BolukAyir <DARGS>> gpye ihtiyacınız var. (Gerekli sanal gold: <BolukAyir <EVAL <DARGS>-<VIRTUALGOLD>>>)
ENDIF
RETURN Bu işlem için <BolukAyir <DARGS>> gpye ihtiyacınız var. (Gerekli fiziksel gold: <BolukAyir <EVAL <DARGS>-<GOLD>>>)





[FUNCTION ISHAFTASONU]
IF (<SERV.RTIME.FORMAT %w> == 6) || (<SERV.RTIME.FORMAT %w> == 7)
	RETURN 1
ENDIF
RETURN 0



[FUNCTION IsWeekendNow]
IF (<SERV.RTIME.FORMAT %w> == 6) || (<SERV.RTIME.FORMAT %w> == 7)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsFullItemName]
LOCAL.NAME <NAME>
IF (<AMOUNT> > 1)
	LOCAL.NAME .=<AMOUNT>
ENDIF

RETURN <LOCAL.NAME>




////////////////////-------
////////// String
////////////////////-------


[FUNCTION ISBADCHAR]
LOCAL.CHAR=<ASC <ARGS>>
IF ( (<LOCAL.CHAR> >= 030) && (<LOCAL.CHAR> <= 039)) // 0-9
	RETURN 0
ELSEIF ( (<LOCAL.CHAR> >= 041) && (<LOCAL.CHAR> <= 05A)) // A-Z
	RETURN 0
ELSEIF ( (<LOCAL.CHAR> >= 061) && (<LOCAL.CHAR> <= 07A)) // a-z
	RETURN 0
ELSEIF (<LOCAL.CHAR> == 0A0 || <LOCAL.CHAR> == 020 || <LOCAL.CHAR> == 00) // NO-BREAK SPACE
	RETURN 0
ENDIF
RETURN 1



[FUNCTION ISFORBIDSTRING]
IF  (STRMATCH(*<SERV.NAME>*,'<ARGS>'))
	RETURN 1
ENDIF
FOR 1 <ARRAYCOUNT <DEF.forbidden_strings>>
	IF  (STRMATCH(*<ARRAY <DEF.forbidden_strings>,<DLOCAL._FOR>>*,'<ARGS>'))
		RETURN 1
	ENDIF
ENDFOR
RETURN 0


[FUNCTION ISSTRING]
IF (STRREGEX(^[a-zA-Z]+$,<ARGS>))
	RETURN 1
ENDIF
RETURN 0





[FUNCTION ISALPHANUMERIC]
IF (STRREGEX(^[a-zA-Z0-9]+$,<ARGS>))
	RETURN 1
ENDIF
RETURN 0




[FUNCTION IsBlank]
LOCAL.ASC <ASC <ARGS>>

IF !(<EVAL STRLEN(<ARGS>)>)
	RETURN 1
ELSEIF (<dLOCAL.ASC> == 0) 
	RETURN  1
ELSEIF (STRMATCH('0','<ARGS>')) 
	RETURN  1
ELSEIF (STRMATCH('','<ARGS>')) 
	RETURN  1
ELSEIF (<ISEMPTY <ARGS>>)
	RETURN  1
ELSEIF (STRMATCH('-','<ARGS>'))
	RETURN 1
ELSEIF (STRMATCH('-','<STRSUB 0 1 <ARGS>>'))
	RETURN 1
ENDIF
IF (<ISNUM <ARGS>>)
	IF (<ARGS> <= 0)
		RETURN 1
	ENDIF
ENDIF
RETURN 0



[FUNCTION IsDamageName]
IF (<HITS> > <MAXHITS>)
	LOCAL.STATUSMSG <DEFMSG.ITEMSTATUS_PERFECT> // kusursuz
	
ELSEIF (<HITS> == <MAXHITS>)
	LOCAL.STATUSMSG <DEFMSG.ITEMSTATUS_FULL> // hasarsız
	
ELSEIF (<HITS> > <EVAL <MAXHITS> / 2>)
	LOCAL.STATUSMSG <DEFMSG.ITEMSTATUS_WELLWORN> // iyi
		
ELSEIF (<HITS> > <EVAL <MAXHITS> / 3>)
	LOCAL.STATUSMSG <DEFMSG.ITEMSTATUS_SCRATCHED>  // yıpranmış
		
ELSEIF (<HITS> > 3)
	LOCAL.STATUSMSG <DEFMSG.ITEMSTATUS_BADLY> // ağır hasarlı
ELSE
	LOCAL.STATUSMSG <DEFMSG.ITEMSTATUS_FALL_APART> // parçalanmak üzere
ENDIF

RETURN <LOCAL.STATUSMSG>

		
		
		
[FUNCTION IsWeaponPoisonLevelName]
IF (<MOREZ>)
	IF ((<MOREZ> >= 1) && (<MOREZ> < 53))
		LOCAL.CONDITION sickly
	ELSEIF ((<MOREZ> >= 53) && (<MOREZ> < 73))
		LOCAL.CONDITION very ill
	ELSEIF ((<MOREZ> >= 73) && (<MOREZ> < 96))
		LOCAL.CONDITION extremely
	ELSEIF ((<MOREZ> >= 96) && (<MOREZ> < 127))
		LOCAL.CONDITION deadly
	ENDIF
RETURN <LOCAL.CONDITION>
ENDIF	





[FUNCTION IsHomeFullPosition]
ARGS=<HOME>
IF (<ARGV> == 2)
	LOCAL.HOMEP <ARGV0>,<ARGV1>,0,0
	
ELSEIF (<ARGV> == 3)
	LOCAL.HOMEP <ARGV0>,<ARGV1>,<ARGV2>,0
ELSEIF (<ARGV> == 4)
	LOCAL.HOMEP <ARGV0>,<ARGV1>,<ARGV2>,<ARGV3> 
ENDIF

IF (<ARGV0> <= 0)
	LOCAL.HOMEP=0
ENDIF
RETURN <LOCAL.HOMEP>








[FUNCTION IsFireFieldItem]

[FUNCTION IsPoisonFieldItem]

[FUNCTION IsEnergyFieldItem]

[FUNCTION IsParalyzeFieldItem]

[FUNCTION IsStoneFieldItem]




[FUNCTION IsSpellFieldItem]
// IF (<TYPE> == T_SPELL)
	// IF (<DISPID> == 080 || <BASEID> == i_fx_field_fire_ns || <BASEID> == i_fx_field_fire || <BASEID> == i_fx_poison_field || <BASEID> == i_fx_poison_field_ns)
		// RETURN 1
	// ENDIF
// ENDIF
// RETURN 0

IF (<TYPE> == T_SPELL) 
	RETURN 1
ELSEIF (<BASEID> == 080) 
	RETURN 1
ELSEIF (STRMATCH(*I_FX_ENERGY_FIELD*,'<BASEID>'))
	RETURN 1
ELSEIF (STRMATCH(*I_FX_FIELD_PARALYZE*,'<BASEID>'))
	RETURN 1
ELSEIF (STRMATCH(*I_FX_POISON_FIELD*,'<BASEID>'))
	RETURN 1
ELSEIF (STRMATCH(*I_FX_FIELD_FIRE*,'<BASEID>'))
	RETURN 1
ELSEIF (STRMATCH(*I_FX_FIELD_FIRE_NS*,'<BASEID>'))
	RETURN 1
ENDIF
RETURN 0




[FUNCTION f_isHuman]
IF ( (<OBODY>==c_man) || (<OBODY>==c_woman) )
   RETURN 1
ENDIF
RETURN 0


[FUNCTION f_isElf]
IF ( (<OBODY>==c_elf_male) || (<OBODY>==c_elf_female) )
   RETURN 1
ENDIF
RETURN 0


[FUNCTION f_isGarg]
IF ((<OBODY>==c_gargoyle_male) || (<OBODY>==c_gargoyle_female))
   RETURN 1
ENDIF
RETURN 0


[FUNCTION F_ISFEMALE]
IF (<SERV.CHARDEF.<OBODY>.CAN>&MT_FEMALE)	//Checking on chardef directly here because if you change your body your Can flags won't be updated since they are now stored in the char itself when it creates.
	RETURN 1
ENDIF
RETURN 0

[FUNCTION f_isCursed]
FORCHARLAYER 32
   IF (<BASEID>==i_rune_curse)
      RETURN 1
   ENDIF
ENDFOR
RETURN 0


[FUNCTION IsMan]
IF ((<BODY> == C_MAN) || (<ID> == C_MAN) || (<OBODY> == C_MAN))
RETURN 1
ENDIF
RETURN 0


[FUNCTION IsWoman]
IF ((<BODY> == C_WOMAN) || (<ID> == C_WOMAN) || (<OBODY> == C_WOMAN))
RETURN 1
ENDIF
RETURN 0



[FUNCTION ISHUMAN]
IF (<OBODY>==C_MAN) 
   RETURN 1
ELSEIF (<OBODY>==C_WOMAN)
   RETURN 1
ENDIF
RETURN 0



[FUNCTION ISELF]
IF ( (<OBODY>==C_ELF_MALE) || (<OBODY>==C_ELF_FEMALE) )
   RETURN 1
ENDIF
RETURN 0



[FUNCTION ISGARG]
IF ( (<OBODY>==C_GARGOYLE_MALE) || (<OBODY>==C_GARGOYLE_FEMALE) )
   RETURN 1
ENDIF
RETURN 0



[FUNCTION ISFEMALE]
IF (<SERV.CHARDEF.<OBODY>.CAN>&MT_FEMALE) 
	RETURN 1
ELSEIF (<ISWOMAN>)
	RETURN 1
ENDIF
RETURN 0




[FUNCTION ISOFFLINE]
IF !(<ISONLINE>)
	RETURN 1
ENDIF
RETURN 0


// ARGV0 = UZAKLIK
// ARGV1 = OBJE/NESNE

[FUNCTION ISDIFF]
IF (<DISTANCE <ARGV1>> > <ARGV0>) || !(<CANSEELOS <ARGV1>>)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION ISNEWBIE]
IF (<ATTR>&ATTR_NEWBIE)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION ISMAGIC]
IF (<ATTR>&ATTR_MAGIC)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsOnRide]
IF (<FINDLAYER.LAYER_HORSE>)
	RETURN 1
ELSEIF (<FLAGS>&STATF_ONHORSE)
	RETURN 1
ENDIF
RETURN 0




// IF (<REGION.SAFE>) 
	// RETURN 1
// ELSEIF (STRMATCH('Star','<REGION.NAME>')) 
	// RETURN 1
// ELSEIF (STRMATCH('Safe Alan','<REGION.NAME>'))
	// RETURN 1
// ENDIF
// RETURN 0


[FUNCTION IsUseSkill]
// IF (<ACTION> > 0)
	IF ((<ACTION> == ID(SKILL_<ARGV0>)) || (<ACTION> == SKILL_<ARGV0>))
		RETURN 1
	ENDIF
// ENDIF
RETURN 0



[FUNCTION IsPoisoned]
IF (<FLAGS>&STATF_POISONED) 
	RETURN 1
ELSEIF (<FINDID.I_RUNE_POISON>)
	RETURN 1
ENDIF
RETURN 0



[FUNCTION IsNoFullHp]
IF !(<FLAGS>&STATF_DEAD) && (<hits> < <str>)
RETURN 1
ENDIF
RETURN 0

[FUNCTION IsNoFullMp]
IF !(<FLAGS>&STATF_DEAD) && (<mana> < <int>)
RETURN 1
ENDIF
RETURN 0


[FUNCTION IsNoFullSp]
IF !(<FLAGS>&STATF_DEAD) && (<stam> < <dex>)
RETURN 1
ENDIF
RETURN 0



[FUNCTION ISHELPSTUCK]
IF (<FINDID.I_MEMORY_HELPPAGE_STUCK>)
	IF (<FINDID.I_MEMORY_HELPPAGE_STUCK.MORE1>)
		RETURN 1
	ENDIF
ENDIF
RETURN 0


[FUNCTION ISINPACK]
REF1=<ARGS>
IF (<REF1.ISVALIDE> && <REF1.ISITEM>) 
	IF (<REF1.CONT>)
		RETURN 1
	ELSEIF (<REF1.TOPOBJ>) && (<REF1.TOPOBJ> == <UID>)
		RETURN 1
	ENDIF
ENDIF
RETURN 0
// IF (<REF1>)
	// IF !(<REF1.CONT>)
		// RETURN 0
	// ELSEIF ((<REF1.CONT.UID> == <FINDLAYER.21>) || (<REF1.TOPOBJ.UID> == <UID>)) && (<REF1.CONT.UID> != <FINDLAYER.29>)
		// RETURN 1
	// ELSE
		// RETURN 0
	// ENDIF
// ENDIF
// RETURN 0



// [FUNCTION IsPk]
// IF (<KILLS> >= <SERV.MURDERMINCOUNT>)
	// RETURN 1
// ENDIF
// RETURN 0

[FUNCTION ISPK]
IF (<ISCHAR>)
	IF !(<NPC>)
	LOCAL.MURDERKILL=<EVAL <SERV.MURDERMINCOUNT>+1>
		IF (<KILLS> >= <LOCAL.MURDERKILL>) || (<KARMA> <= -2001)
			RETURN 1
		ENDIF
	ELSE
		IF (<KARMA> <= -800)
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 0



[FUNCTION ISCRIMINAL]
IF (<ISPLAYER>)
	IF (<FLAGS>&STATF_CRIMINAL) || (<KARMA> <= -2000)
		RETURN 1
	ELSE
		RETURN 0
	ENDIF	
ENDIF
IF ((<FLAGS>&statf_criminal) || (<karma> <= 0)) && (<NPC> != brain_human)
	RETURN 1
ELSE
	RETURN 0
ENDIF




[FUNCTION IsMountItem]
IF (<TYPE> == T_FIGURINE) 
	RETURN 1
ELSEIF (<BASEID> == I_DEED_SHRINK) 
	 RETURN 1
ENDIF
RETURN 0




[FUNCTION IsMultiDeed]
IF (<SERV.MULTIDEF.<MORE1>.TYPE> == T_MULTI) 
	RETURN 1
ELSEIF (<SERV.MULTIDEF.<MORE1>.TYPE> == T_MULTI_CUSTOM) 
	RETURN 1
ELSEIF (<SERV.MULTIDEF.<MORE1>.TYPE> == T_SHIP)
	RETURN 1
ENDIF
RETURN 0




[FUNCTION IsImpassableItemFlag]
IF (<ISITEM>)
	IF (<SERV.TILEDATA.ITEM(<DISPIDDEC>).FLAGS>&<DEF.tilef_impassable>)
		return 1
	ENDIF
ENDIF
RETURN 0

[FUNCTION IsImpassableItem]
IF !((<ATTR>&ATTR_MOVE_NEVER) || (<CAN>&can_i_door) || (<CAN>&can_i_blocklos) || (<BASEID> == I_BACKPACK) || (<BASEID> == I_BAG)) && ((STRMATCH(*sticks*,'<BASEID>')) || (<BASEID> == I_HAY_SHEAF) || (<TYPE> == T_CONTAINER) || (<TYPE> == T_SAND))
	 RETURN 1
ENDIF
RETURN 0


[FUNCTION IsInvis]
IF (<FLAGS>&STATF_INVISIBLE|STATF_INSUBSTANTIAL) 
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsHide]
IF (<FLAGS>&STATF_HIDDEN|STATF_INVISIBLE|STATF_INSUBSTANTIAL)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsEmptyLink]
IF !(<LINK>) 
	RETURN 1
ELSEIF (<LINK> == <DEF.link_invalid>) 
	RETURN 1
ELSEIF (<LINK> <= 0) 
	RETURN 1
ELSEIF (STRMATCH('0','<LINK>)) 
	RETURN 1
ELSEIF (STRMATCH('','<LINK>')) 
	RETURN 1
ELSEIF (<ISEMPTY <LINK>>) 
	RETURN 1
ENDIF
RETURN 0





// .show IsGuildAlignCount 0 (natural)
// .show IsGuildAlignCount 1 (order)
// .show IsGuildAlignCount 2 (chaos)
[FUNCTION IsGuildAlignCount]
IF (<ARGS> >= 0) || (<ARGS> <= 2)
	FORINSTANCES i_guild_stone
		IF (<ALIGN> == <ARGS>)
			LOCAL.ALIGN_<ARGS> ++
		ENDIF
	ENDFOR
	RETURN <DLOCAL.ALIGN_<ARGS>>
ENDIF





[FUNCTION IsMonsters]
IF (<ISCHAR>) 
	IF (<NPC> == brain_berserk) 
		RETURN 1
	ELSEIF (<NPC> == brain_thief)
		RETURN 1
	ELSEIF (<NPC> == brain_monster)
		RETURN 1
	ELSEIF (<NPC> == brain_undead)
		RETURN 1
	ELSEIF (<NPC> == brain_dragon)
		RETURN 1
	ENDIF
ENDIF
RETURN 0



[FUNCTION IsVendors]
IF (<ISCHAR>) 
	IF (<NPC> == brain_stable) 
		RETURN 1
	ELSEIF (<NPC> == brain_healer)
		RETURN 1
	ELSEIF (<NPC> == brain_banker)
		RETURN 1
	ELSEIF (<NPC> == brain_vendor)
		RETURN 1
	ELSEIF (<NPC> == brain_beggar)
		RETURN 1
	ENDIF
ENDIF
RETURN 0



[FUNCTION IsHealables]
IF (<ISCHAR>) 
	IF (<ISPLAYER>)
		RETURN 1
		
	ELSEIF (<NPC> == brain_animal)
		RETURN 1
		
	ENDIF
ENDIF
RETURN 0


[FUNCTION IsGolems]
IF (<ISCHAR>) 
	IF (strmatch(*c_golem_tinker*,'<baseid>'))
		RETURN 1
	ENDIF
ENDIF
RETURN 0





[FUNCTION IsMountables]
// IF (<ISCHAR>) && (<SERV.CHARDEF.<BASEID>.TAG0.BINEK>)
// mount_0xc8
// mount_0xc8
IF (<ISCHAR>) 
	LOCAL.ID 0x<STRSUB 1 99 <SERV.CHARDEF.<BASEID>.ID>>
	LOCAL.MT <def.mount_<LOCAL.ID>>
	IF !(<ISBLANK <LOCAL.MT>>) && (<RESOURCETYPE <LOCAL.MT>> == RES_ITEMDEF)
		RETURN 1
	ENDIF
	// IF (<ISTEVENT.e_generic_npc_mounts>)
		// RETURN 1
	// ENDIF
ENDIF
RETURN 0



[FUNCTION IsSummons]
IF (<ISCHAR>) 
	IF (<NPC>)
		IF (<FINDID.I_RUNE_SUMMON_CREATURE>)
			RETURN 1
			
		// ELSEIF (<ISEVENT.E_SUMMON_CREATURE>) 
			// RETURN 1
			
		// ELSEIF (<BASEID> == C_SUMMON_HORSE_1) 
			// RETURN 1
			
		// ELSEIF (<BASEID> == C_SUMMON_HORSE_2) 
			// RETURN 1
			
		// ELSEIF (<BASEID> == C_SUMMON_HORSE_3) 
			// RETURN 1
			
		// ELSEIF (<BASEID> == C_SUMMON_HORSE_4)
			// RETURN 1
			
		ELSE
			RETURN 0
		ENDIF
	ENDIF
ENDIF
RETURN 0





[FUNCTION IsSignID]
// START: 0x0BA3 = 2979
// END: 0x0C0E = 3086
IF (<DISPID> == 0B95)
	LOCAL.SIGN=1
ELSEIF (<DISPID> == 0B96)
	LOCAL.SIGN=1
ELSEIF (<DISPID> == 01F28)
	LOCAL.SIGN=1
ELSEIF (<DISPID> == 01F29)
	LOCAL.SIGN=1
ENDIF
IF ((<DISPID> >= 2979) && (<DISPID> <= 3086))
	LOCAL.SIGN=1
ENDIF
RETURN <DLOCAL.SIGN>


[FUNCTION IsFoods]
IF (<TYPE> == T_FRUIT) || (<TYPE> == T_GRAIN) || (<TYPE> == T_MEAT_RAW) || (<TYPE> == T_FOOD_RAW) || (<TYPE> == T_FOOD) || (<TYPE> == T_FOOD_RAW)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsDoors]
IF (<TYPE> == T_DOOR) 
	RETURN 1
ELSEIF (<TYPE> == T_DOOR_LOCKED) 
	RETURN 1
ELSEIF (<TYPE> == T_DOOR_OPEN)
	RETURN 1
ENDIF
RETURN 0



// etrafındaki eşya sayısı
[FUNCTION IsNearItemCount]
REF1=<UID>
IF (<P.M>)
	FORITEMS 1
		REF2=<UID>
		IF (<REF1.DISPID> == <REF2.DISPID>) && (<REF1.DISTANCE <REF2>> <= 1)
			LOCAL.ITEMS ++
		ENDIF
	ENDFOR
ENDIF
RETURN <LOCAL.ITEMS>





[FUNCTION IsMulti]
IF (<TYPE> == T_MULTI) 
	RETURN 1
ELSEIF (<TYPE> == T_MULTI_CUSTOM)
	RETURN 1
ENDIF
RETURN 0




// Ev sistemi icinde var.
// [FUNCTION IsOnHouse]
// REF1 = <REGION.UID>
// IF (<IsInHouse>) && !(<Z> == <SERV.MAP(<P.X>,<P.Y>,<P.M>).TERRAIN.Z>)
	// RETURN 1
// ENDIF
// RETURN 0


[FUNCTION IsInHouse]
IF (<REGION.FLAGS>&REGION_FLAG_HOUSE)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsInShip]
IF (<REGION.FLAGS>&REGION_FLAG_SHIP)
	RETURN 1
ENDIF
RETURN 0


[FUNCTION IsOnSea]
IF !(<REGION.FLAGS>&REGION_FLAG_SHIP)
	// IF (<P.Z> <= -3) && ( (<P.TYPE> == T_WATER) || (<P.TERRAIN> == 05f) || (<P.TERRAIN> == 055) || (<P.TERRAIN> == 059) || (<P.TERRAIN> == 064) || (<P.TERRAIN> == 0AA) || (<ISNEARTYPE T_WATER 0>) )
	IF (<P.Z> <= -1) && ( (<P.TYPE> == T_WATER) || (<P.TERRAIN> == 05f) || (<P.TERRAIN> == 055) || (<P.TERRAIN> == 059) || (<P.TERRAIN> == 064) || (<P.TERRAIN> == 0AA) || (<ISNEARTYPE T_WATER 0>) )
		RETURN 1
	ENDIF
ENDIF
RETURN 0


[FUNCTION IsDeath]
IF (<FLAGS>&STATF_DEAD) 
	RETURN 1
ELSEIF (<HITS> <= 0)
	RETURN 1
ENDIF
RETURN 0


[eof]