[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>&REGION_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