[EVENTS FIX]
ON=@StepStealth
IF (<SRC.FINDLAYER(25)>)
ARGN1=1
SRC.CTAG0.STEALTH 0
RETURN 1
ENDIF

IF (<SRC.CTAG0.STEALTH> < <SRC.F_MOVE_STEALTH>)
ARGN1=0
SRC.CTAG0.STEALTH +=1
ELSE
ARGN1=1
SRC.CTAG0.STEALTH 0
ENDIF

ON=@UserWarMode
IF (<SRC.ACTION>==SKILL_MAGERY) || (<SRC.ACTION>==ID(SKILL_MAGERY))
SRC.TAG0.NOMOVETILL=
ENDIF

ON=@SpellCast
IF (<ACT.ISCHAR>)
  IF (<ACT.NPC>)
    IF (<DARGN>=7) || (<DARGN>=9) || (<DARGN>=15) || (<DARGN>=16) || (<DARGN>=17) || (<DARGN>=36)
      SRC.SYS_HATA Npclere bu büyüyü atamazsınız.
      RETURN 1
    ENDIF
  ENDIF
ENDIF

IF (<ACT.ISPLAYER>)
  IF (<ACT.FLAGS>&STATF_DEAD) && (<DARGN>!=59)
    SRC.SYS_HATA Ölü kişilere büyü atamazsınız.
    RETURN 1
  ENDIF
ENDIF

IF (<DARGN> == 12)
SRC.SPELLFREEZE 2
ELSEIF (<DARGN> == 20)
SRC.SPELLFREEZE 2
ELSEIF (<DARGN> == 7)
SRC.SPELLFREEZE 1
ELSEIF (<DARGN> == 29)
SRC.SPELLFREEZE 3
ELSEIF (<DARGN> == 11)
SRC.SPELLFREEZE 2
ELSEIF (<DARGN> == 44)
SRC.SPELLFREEZE 3
ELSEIF (<DARGN> == 4)
SRC.SPELLFREEZE 2
ELSEIF (<DARGN> == 22)
SRC.SPELLFREEZE 1
ELSE
SRC.SPELLFREEZE (<DARGN3> / 6)
ENDIF

ON=@SkillGain
IF (<SRC.SKILLTOTAL> > 800.0) && !(<SRC.ISGM>)
SERV.WRITEFILE SCRIPTS/LOGS/Account_Bug_Table.TXT Skill total aşılmış:Oyuncu ismi(<SRC.NAME>=<SRC>),Skilltotal:(<SRC.SKILLTOTAL>),Account:(<SRC.ACCOUNT>),IP(<SRC.ACCOUNT.LASTIP>),Tarih(<SERV.RTIME>)
ENDIF

IF (<SRC.<SERV.SKILL.<DARGN1>.NAME>> != 100.0)
SERV.WRITEFILE SCRIPTS/LOGS/Character_Skill_Gain.txt Karakter:(<SRC.NAME>=<SRC>)Skill:(<SERV.SKILL.<DARGN1>.NAME>),Karakterin skilli:(<SRC.<SERV.SKILL.<DARGN1>.NAME>>),Max skill derecesi:(<FVAL <DARGN3>>)
ENDIF

FOR 48
IF (<SRC.<SERV.SKILL.<DLOCAL._FOR>.NAME>> > 100.0)
  SRC.<SERV.SKILL.<DLOCAL._FOR>.NAME> 100.0
  SERV.WRITEFILE SCRIPTS/LOGS/Account_Bug_Table.txt Skill Max aşılmış:Oyuncu ismi:(<SRC.NAME>=<SRC>),Skill:(<SRC.<SERV.SKILL.<DARGN1>.NAME>>)
ENDIF
ENDFOR

ON=@SpellSuccess
IF (<SRC.REGION.FLAGS>®ION_FLAG_GUARDED) && (<F_FIX_SPELL <DARGN1>>) || (<SERV.SPELL.<DARGN1>.FLAGS>&SPELLFLAG_SUMMON)
SRC.CRIMINAL 1
ENDIF

ON=@ItemSell
REF5=<ARGO.FINDLAYER(LAYER_BANKBOX)>
REF5.MORE1=9999999
REF5.MORE2=9999999

ON=@Profile
OYUNCU
RETURN 1

ON=@ITEMPICKUP_PACK
IF (<SRC.ISDIALOGOPEN D_ITEM_BUY>) || (<SRC.ISDIALOGOPEN D_ADD_ITEM>)
SRC.SYS_HATA Tezgahtar'la ilgilenirken bunu yapamazsınız.
RETURN 1
ENDIF

ON=@ItemUnequip
IF (<SRC.ACTION>==SKILL_MINING) || (<SRC.ACTION>==ID(SKILL_MINING))
IF (<ACT.BASEID>==I_PICKAXE)
  SRC.ACTION = -1
  SRC.SYS_HATA Kazmayı düşürdüğünüz için maden çıkaramadınız.
  RETURN 1
ENDIF
ENDIF

IF (<SRC.ACTION>==SKILL_FISHING) || (<SRC.ACTION>==ID(SKILL_FISHING))
IF (<ACT.TYPE>==T_FISH_POLE)
  SRC.ACTION = -1
  SRC.SYS_HATA Oltanızı düşürdüğünüz için balık tutamadınız.
  RETURN 1
ENDIF
ENDIF

IF (<SRC.ACTION>==SKILL_LUMBERJACK) || (<SRC.ACTION>==ID(SKILL_LUMBERJACK))
IF (<ACT.TYPE>==T_WEAPON_AXE)
  SRC.ACTION = -1
  SRC.SYS_HATA Baltanızı düşürdüğünüz için odun çıkaramadınız.
  RETURN 1
ENDIF
ENDIF

ON=@Kill
IF (<ARGO.ISPLAYER>)
ARGO.TAG0.KILLER=<SRC>
ENDIF


ON=@ItemDropon_Item
IF ((<ARGO.TOPOBJ.BASEID>==c_horse_pack) || (<ARGO.TOPOBJ.BASEID>==c_llama_pack)) && ((<ACT.ATTR>&attr_newbie) || (<ACT.TYPE>==t_deed))
  SRC.SYS_HATA Newbie eşyaları pack hayvanlara yükleyemezsiniz.
  RETURN 1
ENDIF


ON=@ItemEquip
IF (<ACT.DISPID>==i_deathshroud)
IF (<SRC.MAGERY> < <ACT.MOREY>) || (<ACT.MOREY> > <SRC.EVALUATINGINTEL>) || (<ACT.MOREY> > <SRC.MEDITATION>)
  SRC.SYS_HATA Bu robeyi giymek için <FVAL <ACT.MOREY>> Magery,Evaluating Intel ve Meditation yeteneğine ihtiyacınız var.
  ACT.UNEQUIP
ENDIF
ENDIF

IF (<ACT.ISWEAPON>) || STRMATCH(*bow*,<ACT.TYPE>) || (<ACT.TYPE>==T_WAND)
IF (<SRC.<SERV.SKILL.<ACT.SKILL>.NAME>> < <ACT.MOREY>) || (<SRC.TACTICS> < <ACT.MOREY>)
  SRC.SYS_HATA Bu silahı kullanamazsınız.
  SRC.SYS_HATA [Skill:<FVAL <ACT.MOREY>>,<SERV.SKILL.<ACT.SKILL>.NAME> ve Tactics]
  ACT.UNEQUIP
ENDIF
ENDIF

IF (<ACT.ISWEAPON>) && (<ACT.DMORE2>==1)
SRC.SYS_HATA Disarm aldığınız silahı şuanda kullanamazsınız.
ACT.UNEQUIP
ENDIF

ON=@ItemDclick
IF STRMATCH(*T_SHIP*,<ACT.TYPE>) && (<SRC.ISEVENT.F_RECALL>)
SRC.SYS_HATA Bunu şuanda yapamazsınız.
RETURN 1
ENDIF

IF (<ACT.DISPID>==I_DEED) && STRMATCH(*MULTI*,<ACT.MORE1>) && !STRMATCH(*SHIP*,<ACT.BASEID>)
IF (<SRC.CHECK_ACCOUNT_TYPEDEF T_MULTI> >= <DDEF.MAX_ACCOUNT_HOUSES>)
  SRC.SYS_HATA Oyun hesabınızda en fazla <DDEF.MAX_ACCOUNT_HOUSES> ev olabilir.
  RETURN 1
ENDIF
ENDIF

ON=@CharClick
IF (<ACT.OWNER>) && (<ACT.NPC>==1) || (<ACT.BASEID>==C_M_GOLEM_TINKER)
REF3=<ACT.OWNER>
ACT.MESSAGE @<QVAL (<REF3.KILLS> < <SERV.MURDERMINCOUNT>)?060:020> [<REF3.NAME>]
ENDIF

IF (<ACT.FINDID.I_RUNE_SUMMON_CREATURE>) && !STRMATCH(*guard*,<ACT.BASEID>)
ACT.MSG_OK [Silinmesine:<ACT.FINDID.I_RUNE_SUMMON_CREATURE.TIMER>]
ENDIF

ON=@ItemClick
IF (<ACT.ATTR>&04)
ACT.MSG_OK [Newbified]
ENDIF

IF (<ACT.ISWEAPON>) && !(<ACT.MOREY>==00) && !(<ACT.TYPE>==T_WAND)
ACT.MSG_OK [<ACT.F_MOREYNAME>]
ENDIF

IF (<ACT.CONT>==<SRC>)
IF (<ACT.TYPE>==T_WEAPON_XBOW)
  ACT.MSG_NORMAL [Bolts:<SRC.FINDID.<ACT.TDATA3>.AMOUNT>]
  ELSEIF (<ACT.TYPE>==T_WEAPON_BOW)
  ACT.MSG_NORMAL [Arrows:<SRC.FINDID.<ACT.TDATA3>.AMOUNT>]
ENDIF
ENDIF

ON=@Hunger
IF (<DARGN1> < 10)
SRC.SAYUA 075f,6,6,0 *Açlıktan Karnı Guruldar*
ELSEIF (<DARGN1> < 6)
SRC.SAYUA 075f,6,6,0 *Açlıktan Başı Döner*
ELSEIF (<DARGN1> < 1)
SRC.SAYUA 075f,6,6,0 *Açlıktan Ölmek Üzeredir*
ELSEIF (<DARGN1> = 0)
SRC.SAYUA 075f,6,6,0 *Açlıktan Ölür*
SRC.TIMERF 1,HITS 0
SRC.TIMERF 1,FOOD 3
ENDIF

On=@ItemDropOn_Ground
IF !((<SRC.WEIGHT>+<ACT.WEIGHT>) > <SRC.MAXWEIGHT>)
IF ((<SRC.ACTION>==ID(SKILL_FISHING)) || (<SRC.ACTION>==SKILL_FISHING))
  IF (<ACT.TYPE>==T_FISH)
   ACT.CONT=<SRC>
  ENDIF
ENDIF
ENDIF

IF !((<SRC.WEIGHT>+<ACT.WEIGHT>) > <SRC.MAXWEIGHT>)
IF ((<SRC.ACTION>==ID(SKILL_MAGERY))) || (<SRC.ACTION>==SKILL_MAGERY))
  IF (<ACT.TYPE>==T_FOOD)
   ACT.CONT=<SRC>
  ENDIF
ENDIF
ENDIF

ON=@Rename
IF (<ARGO.NPC>)
SRC.SYS_HATA Npc isimlerinin değiştirilmesi yasaklanmıştır.
  RETURN 1
ENDIF

ON=@ItemTargon_Item
IF (<ACT.ISWEAPON>) && (<ARGO.MORE1>==s_explosion)
SRC.SYS_HATA Explosion potionları bu şekilde patlatamazsınız.
RETURN 1
ENDIF

ON=@ItemTargon_Ground
IF (<ACT.DISPID>==i_deed_ship) && (<SRC.REGION.FLAGS>&Region_Flag_Ship)
SRC.SYS_HATA Gemideyken başka bir gemi kuramazsınız.
RETURN 1
ENDIF

ON=@Mount
IF (<ARGO.FLAGS>&Statf_Poisoned)
IF (<SRC.ANIMALLORE> < 60.0)
  SRC.SYS_HATA Poison etkisi altındaki bir bineğe binmek için 60.0 healing gereklidir.
  RETURN 1
ELSE
  ARGO.F_REMOVE_POISON
  ARGO.UPDATE
ENDIF
ENDIF

IF (<ARGO.FINDID.I_RUNE_PARALYZE>)
  ARGO.FINDID.I_RUNE_PARALYZE.REMOVE
ELSEIF (<ARGO.FINDID.I_RUNE_PARALYZE_FIELD>)
  ARGO.FINDID.I_RUNE_PARALYZE_FIELD.REMOVE
ENDIF

ON=@ItemBuy
IF (<DDEF.CITY_SYSTEM_ACTIVE>==1)
REF2=<SRC.REGION.TAG0.OWNER>
REF3=<REF2.TAG0.STONE_UID>
IF (<REF2>) && (<REF2>!=<SRC>) && !(<F_CHARACTER_CONTROL <REF2>>) && (<REF2.ACCOUNT.LASTIP>!=<SRC.ACCOUNT.LASTIP>)
REF2.GOLD +=<DLOCAL.TOTALCOST>
REF3.TAG0.HASILAT +=<DLOCAL.TOTALCOST>
ENDIF
ENDIF

ARGO.TIMERF 50,RESTOCK
SRC.SYS_OK <ARGO.NAME> isimli vendordan, <DARGN> adet, <DLOCAL.TOTALCOST> gold karşılığında <ACT.NAME> aldınız.

ON=@SpellEffect
IF (<DARGN1>==38) || (<DARGN1>==47)
IF (<FINDID.I_POUCH_TRAPPED>)
IF (<FINDID.I_POUCH_TRAPPED.MORE2> > 1)
EFFECT 3,I_FX_EXPLODE,3,25,1
SOUND SND_SPELL_EXPLOSION
DAMAGE 2
FINDID.I_POUCH_TRAPPED.MORE2 --
RETURN 1
ELSE
EFFECT 3,I_FX_EXPLODE,3,25,1
SOUND SND_SPELL_EXPLOSION
DAMAGE 2
FINDID.I_POUCH_TRAPPED.REMOVE
RETURN 1
ENDIF
ELSEIF (<SRC.UID>!=<UID>)
FINDID.I_RUNE_POISON.REMOVE
FINDID.I_RUNE_POISON_FIELD.REMOVE
ENDIF
ENDIF
LOCAL.RESIST=<EVAL (<MAGICRESISTANCE>/5) - (<SPELLCIRCLE <DARGN1>>)/20>
IF (<SERV.SPELL.<DARGN1>.FLAGS>&SPELLFLAG_HARM)
SRC.SKILLGAIN 26 1.0
ENDIF
IF (<SERV.SPELL.<DARGN1>.FLAGS>&SPELLFLAG_RESIST) && (<UID> != <SRC>)
IF (RAND(5)==1)
ARGN3 -=<DLOCAL.RESIST>
SYSMESSAGE You feel yourself resisting magical energy.
ENDIF
ENDIF

ON=@Gethit
IF (<FINDTYPE.T_EQ_TRADE_WINDOW>)
FINDTYPE(T_EQ_TRADE_WINDOW).REMOVE
ENDIF

ON=@Death
SRC.FINDID(i_rune_incognito).REMOVE
SRC.FINDID(i_bleeding).REMOVE
IF (<SRC.FLAGS>&Statf_Poisoned)
SRC.FLAGS <SRC.FLAGS>&~Statf_Poisoned
ENDIF
SRC.F_CloseAllDialogs
SRC.Tag0.NomoveTill=0

ON=@StatChange
LOCAL.STAT=<EVAL <SRC.STR> + <SRC.INT> + <SRC.DEX>>
IF (<dLOCAL.STAT> 225) && !(<SRC.FINDTYPE(t_spell)>)
IF (<SRC.ISEVENT.E_STAT>)
SRC.STR <SRC.OSTR>
SRC.INT <SRC.OINT>
SRC.DEX <SRC.ODEX>
SERV.WRITEFILE SCRIPTS/LOGS/Account_Bug_Table.txt Stat aşılmış,İsim(<SRC.NAME>=<SRC>),Hesap(<SRC.ACCOUNT>),Tarih(<SERV.RTIME>),Stat toplamı(<DLOCAL.STAT>)
ENDIF
ENDIF
IF (<dLOCAL.STAT> < 225) && (<SRC.ISEVENT.E_STAT>) && !(<SRC.F_CHECK_STAT 32,44,47>) || !(<SRC.FINDTYPE.T_SPELL>)
IF (<SRC.ISEVENT.E_STAT>)
SRC.STR <SRC.OSTR>
SRC.INT <SRC.OINT>
SRC.DEX <SRC.ODEX>
ENDIF
ENDIF