********************************************
//   LEVEL.SCP - LEVEL SYSTEM       &จ
// PROJE BASLANGIC TARIHI:13 Haziran 2004 &จ
////// ----------------------------&จ&จ
////// ------------Lyn-------------&จ&จ
////// ----------------------------&จ&จ
VERSION=0.55

[plevel 1]
level

[DIALOG d_leveling_system]
50,100

page 0
resizepic 50 10 5054 450 310

//resizepic 50 10 3000 450 310
//resizepic 50 10 9270 450 310 // dis lacivert bg
//resizepic 60 20 9350 430 290
//resizepic 60 20 3500 430 290 // ust beyaz bg

htmlgump 200 30 400 20 0 0 0 // baslik seysi

resizepic 325 70 9350 150 72 // STAT CERCEVESI

htmlgump 423 280 25 20 9 0 0 // cikis seysi
button 389 277 4018 4019 1 0 0 // cikis butonu

resizepic 75 225 9350 400 40 // exp kısmı

button 80 79 2224 2118 1 0 1 // title
button 80 99 2224 2118 2 0 2 // level
button 80 119 2224 2118 3 0 3 // trivia
button 80 139 2224 2118 4 0 4 // quest
button 80 159 2224 2118 5 0 5 // tier

htmlgump 103 77 100 20 3 0 0 // title
htmlgump 180 77 100 20 14 0 0 // tag.title
//text 103 77 1123 3
//text 180 77 1123 14

htmlgump 103 97 100 20 4 0 0 // level
htmlgump 185 97 100 20 15 0 0 // level

htmlgump 103 117 100 20 5 0 0 // trivia
htmlgump 195 117 100 20 16 0 0 // trivia

htmlgump 103 137 100 20 6 0 0 // quest
htmlgump 195 137 100 20 17 0 0 // quest

htmlgump 103 157 100 20 7 0 0 // tier
htmlgump 178 157 100 20 18 0 0 // tier

htmlgump 103 225 100 20 10 0 0 // gerekli
htmlgump 190 225 100 20 11 0 0 // exp
htmlgump 290 225 100 20 12 0 0 // exp
htmlgump 355 225 100 20 19 0 0 // exp

htmlgump 103 245 100 20 13 0 0 // exp
htmlgump 200 245 100 20 20 0 0 // exp

htmlgump 335 77 100 20 21 0 0 // STR / HITS
htmlgump 400 77 100 20 22 0 0 // STR / HITS

htmlgump 335 97 100 20 23 0 0 // <MANA>/<INT>
htmlgump 410 97 100 20 24 0 0 // <MANA>/<INT>

htmlgump 335 117 100 20 25 0 0 // <STAM>/<DEX>
htmlgump 405 117 100 20 26 0 0 // <STAM>/<DEX>

htmlgump 370 205 100 20 27 0 0 // REqlam (:

[DIALOG d_leveling_system text]
<var.pg_font1>><serv.name> Level System //1
<var.pg_font1>><tag.title>
<var.pg_font1>>Tekrar Yap
<var.pg_font1>>New Title :
<var.pg_font1>>New Level :
<var.pg_font1>>Trivia Points :
<var.pg_font1>>Quest Points :
<var.pg_font1>>Tier Level :
<var.pg_font1>>Weapons
<var.pg_font1>>Cikis
<var.pg_font1>>Level atlamak  // 10
<var.pg_font1>>icin gerekli olan
<var.pg_font1>>experience:
<var.pg_font1>>Kendi experince:
<var.pg_font1>><TAG.tITLE>
<var.pg_font1>><EVAL <TAG.TITLED>>
<var.pg_font1>><EVAL <tag.TRIVIAS>>
<var.pg_font1>><EVAL <tag.questpoints>>
<var.pg_font1>><EVAL <TAG.TIER>>
<var.pg_font1>><EVAL <SRC.TAG.TNL>>
<var.pg_font1>><eval <tag.experience>> // 20
<var.pg_font1>>Strength :
<var.pg_font1>><HITS>/<STR>
<var.pg_font1>>Intelligence :
<var.pg_font1>><MANA>/<INT>
<var.pg_font1>>Dexterity :
<var.pg_font1>><STAM>/<DEX>
<var.pg_font1>><serv.name>


[DIALOG d_leveling_system BUTTON]
ON=0
sysmessage @1153 Level menusu kapatildi....

ON=1
IF <EVAL <tag.EXPERIENCE>> > 999999
tag.TITLE=Gladiator
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 499999
tag.TITLE=Exhaulter
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 299999
tag.TITLE=Warrior
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 199999
tag.TITLE=Nightblade
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 9999
tag.TITLE=Expert
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 6999
tag.TITLE=Crew Worker
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 3999
tag.TILE=Beginner
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> < 3998
tag.TITLE=Newbie
SOUND 512
RETURN 0


ON=2
CHECKSTATS

ON=3
SRC.MENU m_trivia

ON=4
SRC.MENU m_questitems

ON=5
IF <EVAL <TAG.TITLED>>=25
MENU m_remort
RETURN 0
ELSE
message @54 Henuz tier atlayacak seviyeye gelememissiniz...
RETURN 0

//**********************************************************
//**                     EVENTS                           **
//**********************************************************

[EVENTS e_tier1]
ON=@CLICK
IF (<SRC.BODY>=c_man)
message @1153 Tier <EVAL <TAG.TIER>>, Level <EVAL <TAG.TITLED>>
RETURN 0
IF (<FLAGS>&statf_criminal)
RETURN 0
ELSEIF (<KILLS>>=4)
RETURN 0
ELSE
TAG.SPEECHCOLOR <SPEECHCOLOR>
SPEECHCOLOR 00bd
SPEAK <NAME>
SPEECHCOLOR <TAG.SPEECHCOLOR>
RETURN 1
ENDIF
RETURN 0
ENDIF
RETURN 0

[EVENTS e_woman]
ON=@CLICK
IF (<SRC.BODY>=c_woman
message @1153 Tier <EVAL <TAG.TIER>> Level <EVAL <TAG.TITLED>>
RETURN 0
IF (<FLAGS>&statf_criminal)
RETURN 0
ELSEIF (<KILLS>>=4)
RETURN 0
ELSE
TAG.SPEECHCOLOR <SPEECHCOLOR>
SPEECHCOLOR 00bd
SPEAK <NAME>
SPEECHCOLOR <TAG.SPEECHCOLOR>
RETURN 1
ENDIF
RETURN 0
ENDIF
RETURN 0

ON=@HIT
IF (<FINDLAYER(2).UID>)
VAR.X=RAND(20)
IF X=0
SYSMESSAGE @1153 SHIELD PUNCH!
SRC.HITS=<SRC.HITS> + (-25)
ANIM 14
RETURN 0
ELSE
RETURN 0
ENDIF

ON=@DEATH
SRC.NEWITEM=i_yesnon
SRC.ACT.EQUIP

ON=@GetHit

[ITEMDEF i_yesnon]
DEFNAME=i_yesnon
ID=i_handr_1
NAME=RES YES NO
TYPE=t_EQ_script
LAYER=layer_special

ON=@CREATE
ATTR=attr_decay

ON=@EQUIP
TIMER=5

ON=@TIMER
CONT.MENU m_res_yesno
REMOVE

[TYPEDEF t_res_yesno]
ON=@DCLICK
IF (<SRC.UID>=<LINK>)
MENU m_res_yesno
RETURN 0
ELSE
SRC.SYSMESSAGE This is not your corpse!
RETURN 0

[MENU m_res_yesno]
Do you wish to resurrect? You will loose experience if you do!
ON=0 Evet!
IF (<EVAL <SRC.TAG.EXPERIENCE>><250)
SRC.SYSMESSAGE @54 Canlanabilmek icin yeterli experience&裟e sahip degilsiniz!
RETURN 0
ELSE
SRC.RESURRECT
SRC.NEWITEM=i_temp_safe
SRC.ACT.ATTR=attr_decay
SRC.ACT.EQUIP
IF (<EVAL <SRC.TAG.TITLED>>>20)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-5000)
SRC.SYSMESSAGE You have lost alot of experience.
RETURN 0
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>15)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-2500)
SRC.SYSMESSAGE You have quite a bit of experience.
RETURN 0
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>10)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-1000)
SRC.SYSMESSAGE You have lost a bit of experience.
RETURN 0
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>5)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-500)
SRC.SYSMESSAGE You have lost alot of experience.
RETURN 0
ELSE
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-250)
SRC.SYSMESSAGE You have lost some experience.
RETURN 0
ON=0 Hayir!
SRC.SYSMESSAGE You have chosen not to resurrect.
RETURN 0

[ITEMDEF i_temp_safe]
DEFNAME=i_temp_safe
ID=i_handr_1
NAME=TEMP SAFE
LAYER=layer_special
TYPE=t_EQ_script

ON=@CREATE
ATTR=ATTR_DECAY

ON=@EQUIP
CONT.INVUL
CONT.SYSMESSAGE @54 5 Saniye olumsuz kalacaksiniz.
TIMER=5

ON=@TIMER
CONT.SYSMESSAGE @54 Uzerinizdeki korumalar kalkti.
CONT.INVUL
REMOVE

[EVENTS e_exp1]
ON=@DEATH
SRC.NEWITEM=i_expgainlow
SRC.ACT.MOREX=&褳10 1 11 1 12 1 13 1 14 1 15 1 16 1 17 1 18 1 19 1 20 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainlow]
DEFNAME=i_expgainlow
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=5)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE @1153 Bonus buldunuz.
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu.
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE @54 Experience alamadiniz.
REMOVE

//////////////////////////////////////////////////////////////////////

[ITEMDEF i_expg]
DEFNAME=i_expg
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
ATTR=02

ON=@DCLICK
DIALOG d_leveling_system
CHECKSTATS
REMOVE

[EVENTS e_exp2]
ON=@DEATH
SRC.NEWITEM=i_expgainmiddle
SRC.ACT.MOREX=&褳20 1 21 1 22 1 23 1 24 1 25 1 26 1 27 1 28 1 29 1 30 1 31 1 32 1 33 1 34 1 35 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainmiddle]
DEFNAME=i_expgainmiddle
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=10)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience aldiniz.
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE @54 TRIVA POINT BULDUNUZ...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE @54 Experience alamadiniz.
REMOVE

//////////////////////////////////////////////////////////////////////

[EVENTS e_exp3]
ON=@DEATH
SRC.NEWITEM=i_expgainhigh
SRC.ACT.MOREX=&褳30 1 31 1 32 1 33 1 34 1 35 1 36 1 37 1 38 1 39 1 40 1 41 1 42 1 43 1 44 1 45 1 46 1 47 1 48 1 49 1 50 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainhigh]
DEFNAME=i_expgainhigh
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=3)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience ikiye katlandi.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(25)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu.
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=15)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE @54 Experience alamadiniz.
REMOVE

//////////////////////////////////////////////////////////////////////

[EVENTS e_exp4]
ON=@DEATH
SRC.NEWITEM=i_expgainveryhigh
SRC.ACT.MOREX=&褳40 1 41 1 42 1 43 1 44 1 45 1 46 1 47 1 48 1 49 1 50 1 51 1 52 1 53 1 54 1 55 1 56 1 57 1 58 1 59 1 60 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainveryhigh]
DEFNAME=i_expgainveryhigh
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=3)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience ikiye katlandi.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(12)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=8)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience ikiye katlandi.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(25)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=20)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE @54 Experience kazanamadiniz.
REMOVE

//////////////////////////////////////////////////////////////////////

[EVENTS e_exp5]
ON=@DEATH
SRC.NEWITEM=i_expgainhighest
SRC.ACT.MOREX=&褳40 1 41 1 42 1 43 1 44 1 45 1 46 1 47 1 48 1 49 1 50 1 51 1 52 1 53 1 54 1 55 1 56 1 57 1 58 1 59 1 60 1 61 1 62 1 63 1 64 1 65 1 66 1 67 1 68 1 69 1 70 1 71 1 72 1 73 1 74 1 75 1 76 1 77 1 78 1 79 1 80 1 81 1 82 1 83 1 84 1 85 1 86 1 87 1 88 1 89 1 90 1 91 1 92 1 93 1 94 95 1 96 1 97 1 98 1 99 1 100 1 }
SRC.ACT.ATTR=0002
SRC.ACT.MOREY=1
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainhighest]
DEFNAME=i_expgainhighest
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=3)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience ikiye katlandi.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(6)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=8)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience ikiye katlandi.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(12)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu..
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=20)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience ikiye katlandi.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(25)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=26)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Kazanilan experience: <MOREX>
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE @54 Double experience kazandiniz.
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE Trivia Point Buldunuz...
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE @1153 <CONT.NAME> bonus buldu...
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE Experience kazanamadiniz.
REMOVE

//**********************************************************
//**                  FUNCTIONS                           **
//**********************************************************

[FUNCTION checkstats]
IF (<EVAL <TAG.EXPERIENCE>><99)
IF (<EVAL <TAG.TITLED>>=1)
STR=100
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=2)
RETURN 1
ENDIF
STR=100
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
TAG.TITLED=1
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 1 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>><999)
IF (<EVAL <TAG.TITLED>>=2)
STR=110
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=3)
RETURN 1
ENDIF
TAG.TITLED=2
STR=110
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 2 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>999999)
IF (<EVAL <TAG.TITLED>>=25)
STR=1600
RETURN 1
ENDIF
TAG.TITLED=25
STR=1600
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 25 oldu. TEBRIKLER...
SERV.ALLCLIENTS SOUND 045
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>499999)
IF (<EVAL <TAG.TITLED>>=24)
STR=1500
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=25)
RETURN 1
ENDIF
TAG.TITLED=24
STR=1500
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 24 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>299999)
IF (<EVAL <TAG.TITLED>>=23)
STR=1400
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=24)
RETURN 1
ENDIF
TAG.TITLED=23
STR=1400
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 23 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>199999)
IF (<EVAL <TAG.TITLED>>=22)
STR=1300
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=23)
RETURN 1
ENDIF
TAG.TITLED=22
STR=1300
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 22 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>149999)
IF (<EVAL <TAG.TITLED>>=21)
STR=1200
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=22)
RETURN 1
ENDIF
TAG.TITLED=21
STR=1200
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 21 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>99999)
IF (<EVAL <TAG.TITLED>>=20)
STR=1100
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=21)
RETURN 1
ENDIF
TAG.TITLED=20
STR=1100
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 20 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>89999)
IF (<EVAL <TAG.TITLED>>=19)
STR=1000
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=20)
RETURN 1
ENDIF
TAG.TITLED=19
STR=1000
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 19 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>79999)
IF (<EVAL <TAG.TITLED>>=18)
STR=900
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=19)
RETURN 1
ENDIF
TAG.TITLED=18
STR=900
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 18 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>69999)
IF (<EVAL <TAG.TITLED>>=17)
STR=800
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=18)
RETURN 1
ENDIF
TAG.TITLED=17
STR=800
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 17 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>59999)
IF (<EVAL <TAG.TITLED>>=16)
STR=700
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=17)
RETURN 1
ENDIF
TAG.TITLED=16
STR=700
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 16 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>49999)
IF (<EVAL <TAG.TITLED>>=15)
STR=600
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=16)
RETURN 1
ENDIF
TAG.TITLED=15
STR=600
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 15 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>39999)
IF (<EVAL <TAG.TITLED>>=14)
STR=500
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=15)
RETURN 1
ENDIF
TAG.TITLED=14
STR=500
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 14 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>29999)
IF (<EVAL <TAG.TITLED>>=13)
STR=450
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=14)
RETURN 1
ENDIF
TAG.TITLED=13
STR=450
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 13 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>19999)
IF (<EVAL <TAG.TITLED>>=12)
STR=400
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=13)
RETURN 1
ENDIF
TAG.TITLED=12
STR=400
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 12 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>14999)
IF (<EVAL <TAG.TITLED>>=11)
STR=350
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=12)
RETURN 1
ENDIF
TAG.TITLED=11
STR=350
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 11 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>9999)
IF (<EVAL <TAG.TITLED>>=10)
STR=300
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=11)
RETURN 1
ENDIF
TAG.TITLED=10
STR=300
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 10 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>8999)
IF (<EVAL <TAG.TITLED>>=9)
STR=275
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=10)
RETURN 1
ENDIF
TAG.TITLED=9
STR=275
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 9 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>7999)
IF (<EVAL <TAG.TITLED>>=8)
STR=250
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=9)
RETURN 1
ENDIF
TAG.TITLED=8
STR=250
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 8 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>6999)
IF (<EVAL <TAG.TITLED>>=7)
STR=225
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=8)
RETURN 1
ENDIF
TAG.TITLED=7
STR=225
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 7 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>5999)
IF (<EVAL <TAG.TITLED>>=6)
STR=200
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=7)
RETURN 1
ENDIF
TAG.TITLED=6
STR=200
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 6 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>4999)
IF (<EVAL <TAG.TITLED>>=5)
STR=175
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=6)
RETURN 1
ENDIF
TAG.TITLED=5
STR=175
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 5 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>3999)
IF (<EVAL <TAG.TITLED>>=4)
STR=150
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=5)
RETURN 1
ENDIF
TAG.TITLED=4
STR=150
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 4 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>1999)
IF (<EVAL <TAG.TITLED>>=3),
STR=125
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=4)
RETURN 1
ENDIF
TAG.TITLED=3
STR=125
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 3 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>1000)
IF (<EVAL <TAG.TITLED>>=2)
STR=110
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=3)
RETURN 1
ENDIF
TAG.TITLED=2
STR=110
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE @54 <NAME> level 2 oldu.
MESSAGE @1153 Level atladiniz..
RETURN 1
ENDIF

[FUNCTION level]
SRC.EVENTS=e_tier1
SRC.EVENTS=e_woman
IF (<EVAL <SRC.TAG.TITLED>>=1)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=100
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=2)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=2000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=3)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=4000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=4)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=5000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=5)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=6000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=6)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=7000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=7)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=8000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=8)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=9000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=9)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=10000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=10)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=15000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=11)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=20000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=12)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=30000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=13)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=40000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=14)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=50000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=15)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=60000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=16)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=70000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=17)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=80000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=18)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=90000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=19)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=100000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=20)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=150000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=21)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=200000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=22)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=300000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=23)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=500000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=24)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=1000000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=25)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE @54 Dexterity&裟niz en fazla 100 olabilir!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=REMORT
DIALOG d_leveling_system
RETURN 0
ELSE
DIALOG d_leveling_system

[FUNCTION con]
SRC.NEWITEM=i_con_mon
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE What monster shalt I consider attacking?

[FUNCTION sac]
SRC.NEWITEM=i_sacri_corpse
SRC.ACT.MOREX=&褳1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 1 11 1 12 1 13 1 14 1 15 1}
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Select what corpse ye wishes to sacrifice to the Gods.

//**********************************************************
//**                      MENUS                           **
//**********************************************************

[MENU m_remort]
You have chosen to remort your character. PLEASE READ OUR WEBPAGE FOR INFORMATION REGARDING HOW THE TIER SYSTEM WORKS. Do you wish to continue?
ON=0 NO WAY!
SRC.SYSMESSAGE You have chosen not to remort your character.
ON=0 YES, I dub myself!
IF !<SRC.RESTEST 5000 i_gold>
SRC.SYSMESSAGE You do not have the required attributes to remort. You must have 5000 gold pieces, 1000 quest points and 10 trivia points.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1000)
SRC.SYSMESSAGE You do not have the required attributes to remort. You must have 5000 gold pieces, 1000 quest points and 10 trivia points.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TRIVIAS>><10)
SRC.SYSMESSAGE You do not have the required attributes to remort. You must have 5000 gold pieces, 1000 quest points and 10 trivia points.
RETURN 1
ELSE
SRC.SYSMESSAGE Your character is being remorted...
SRC.STR=100
SRC.DEX=100
SRC.INT=100
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1000)
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-10)
SRC.TAG.TITLED=01
SRC.TAG.EXPERIENCE=0
SRC.TAG.TITLE=Newbie
SRC.CONSUME=5000 i_gold
SERV.ALLCLIENTS SYSMESSAGE <NAME> has been reborn.
IF (<EVAL <SRC.TAG.TIER>>=8)
SRC.SYSMESSAGE @54 Daha ilerisimi? Bence yeter :)
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=7)
SKILLCLASS Class_Tier8
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=6)
SKILLCLASS Class_Tier7
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=5)
SKILLCLASS Class_Tier6
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=4)
SKILLCLASS Class_Tier5
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=3)
SKILLCLASS Class_Tier4
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=2)
SKILLCLASS Class_Tier3
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=1)
SKILLCLASS Class_Tier2
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
SKILLCLASS Class_Tier1
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ON=0 View Webpage On How Tiering Works.
SRC.WEBLINK=http:&จuolegends.ath.cxtier.html

[MENU m_trivia]
Hangi yonde kullanmak istiyorsunuz..
ON=0 Intelligence + 10 [1 tp]
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE @54 Yeterli trivia point sahibi degilsiniz.
RETURN 0
ELSE
SRC.INT=<SRC.INT> + 10
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
RETURN 0
ON=0 Dexterity + 10 [1 tp]
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE @54 Yeterli trivia point sahibi degilsiniz.
RETURN 0
ELSE
SRC.DEX=<SRC.DEX> + 10
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
RETURN 0
ON=0 Quest Point +10 [1 tp]
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE @54 Yeterli trivia point sahibi degilsiniz.
RETURN 0
ELSE
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>>+10

[MENU m_questitems]
Almak istediginzi Quest Item&裟i seciniz.
ON=0 Sleeves of Regeneration [1800 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1800)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_sleeves
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1800)
RETURN 0
ON=0 Gloves of Strength [2200 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><2200)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_gloves
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-2200)
RETURN 0
ON=0 Gorget of Intelligence [1500 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1500)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_gorget
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1500)
RETURN 0
ON=0 Leggings of Agility [2500 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><2500)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_leggings
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-2500)
RETURN 0
ON=0 Tunic of Magic Resistance [3000 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><3000)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_tunic
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-3000)
RETURN 0
ON=0 Cap of True Sight [1200 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1200)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_cap
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1200)
RETURN 0
ON=0 Shield of Power [3600 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><3600)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_shield
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-3600)
RETURN 0
ON=0 Ring of Intellect Regeneration [1900 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1900)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_ring
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1900)
RETURN 0
ON=0 Potion of Virtue [500 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><500)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_potion_virtue
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-500)
RETURN 0
ON=0 Cloak of Reflection [900 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><900)
SRC.SYSMESSAGE @54 Yeterli quest point&裟e sahip degilsiniz.
RETURN 0
ELSE
SRC.NEWITEM=i_cloak_reflection
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-900)
RETURN 0

//**********************************************************
//**                      ITEMS                           **
//**********************************************************

[ITEMDEF i_cloak_reflection]
DEFNAME=i_cloak_reflection
ID=i_cape
NAME=Cloak of Reflection
WEIGHT=8


ON=@CREATE
ATTR=04
COLOR=0481
HITPOINTS=&褳5000 10000}

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
CONT.SYSMESSAGE You feel reflective towards magic.
CONT.SPELLEFFECT s_magic_reflection,1000
src.newitem i_werb_rcfix
src.act.equip
src.act.timer 15
src.act.attr 00006
RETURN 0
ELSE
SRC.SYSMESSAGE @54 Bu size ait degil kullandiginiz icin cezalandirilacaksiniz.
CONT.GO JAIL
SRC.MESSAGE @54 Yetkililere page atiniz aksi takdirde bu item silinecektir.

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE You no longer feel reflective towards magic.
CONT.FINDID.i_rune_magic_reflection.REMOVE
RETURN 0

ON=@CLICK
message @1153 <name>
return 1

[itemdef i_werb_rcfix]
ID=i_handr_1
NAME=RC FIX
TYPE=t_EQ_script
WEIGHT=0
LAYER=30

on=@equip
src.findlayer.(20).attr 00014
timer 15

on=@unequip
src.findlayer.(20).attr 00004
CONT.SPELLEFFECT s_magic_reflection,1000
CONT.SYSMESSAGE You feel reflective towards magic.

on=@timer
attr attr_decay
remove 1

[ITEMDEF i_con_mon]
DEFNAME=i_con_mon
ID=i_handr_1
NAME=Con Monster Timer
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=attr_decay

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_ITEM
CONT.SYSMESSAGE You cannot consider that!
RETURN 1

ON=@TARGON_CHAR
IF (<SRC.TARG.BODY>=c_man)
CONT.SYSMESSAGE You cannot consider humans.
RETURN 1
ELSE
IF (<SRC.TARG.BODY>=c_woman)
CONT.SYSMESSAGE You cannot consider humans.
RETURN 1
ELSE
IF (<SRC.TARG.STR>>1500)
CONT.SYSMESSAGE That monster would walk all over you!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>1000)
CONT.SYSMESSAGE That monster would be a challenge!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>500)
CONT.SYSMESSAGE That monster is very powerful!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>250)
CONT.SYSMESSAGE That monster would be a definate fight!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>100)
CONT.SYSMESSAGE That monster is not so tough!
RETURN 1
ELSE
CONT.SYSMESSAGE That monster looks fairly weak!
RETURN 1

ON=@TIMER
REMOVE

[ITEMDEF i_sacri_corpse]
DEFNAME=i_sacri_corpse
ID=i_handr_1
NAME=Sacrificial Corpse Timer
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=attr_decay

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_ITEM
IF !(<SRC.TARG.LINK>=04fffffff)
CONT.SYSMESSAGE You cannot sacrifice a human corpse.
RETURN 1
ELSE
IF !(<SRC.TARG.BASEID>=i_corpse)
CONT.SYSMESSAGE That is not a corpse, thine Gods are angered.
RETURN 1
ELSE
SRC.TARG.REMOVE
CONT.SYSMESSAGE Thine Gods are happy for the sacrifice, you are being rewarded.
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=&褳1 10}
SRC.ACT.CONT=<CONT.UID>
VAR.X=RAND(35)
IF X=0
CONT.SYSMESSAGE That was a virtued corpse, you are being rewarded quest points.
CONT.TAG.QUESTPOINTS=<EVAL <CONT.TAG.QUESTPOINTS>> + <MOREX>
CONT.SOUND 0102
REMOVE
RETURN 1
ELSE
REMOVE
RETURN 1

ON=@TIMER
REMOVE
RETURN 1

[ITEMDEF i_qrequest]
DEFNAME=i_qrequest
ID=i_gravestone
NAME=Quest Request [double click]
WEIGHT=5000
TYPE=t_script

ON=@CREATE
COLOR=079d

ON=@DCLICK
IF (<SRC.ACCOUNT.PLEVEL>>=2)
SRC.GOUID <TAG.UID>
SRC.SAY HAIL! I am <SRC.NAME>! Your quest will begin.
RETURN 1
ELSE
IF <EVAL <TAG.QR>>=1>
SRC.SYSMESSAGE A character is currently being quested, please try again shortly.
SRC.GO <SRC.TAG.LASTPOS>
RETURN 1
ELSE
SRC.SYSMESSAGE You have been queued to begin a quest, if a seer is online, your quest will begin shortly.
TAG.QR=1
TAG.UID=<SRC.UID>
SRC.GO <SRC.TAG.LASTPOS>
RETURN 1

[ITEMDEF i_dbl_exp]
DEFNAME=i_dbl_exp
ID=i_handr_1
NAME=DBL EXP
TYPE=t_EQ_script
WEIGHT=0
LAYER=layer_special

ON=@CREATE
TIMER=3600

ON=@TIMER
CONT.SYSMESSAGE Your double experience time is over.
CONT.TAG.DEXP 0
REMOVE

[ITEMDEF i_potion_virtue]
DEFNAME=i_potion_virtue
NAME=Potion of Virtue
ID=i_bottle_empty
WEIGHT=1
TYPE=t_script

ON=@CREATE
COLOR=079e

ON=@CLICK
message @1153 Potion of Virtue
return 1

ON=@DCLICK
IF (<SRC.FINDID.i_pot_wait>)
SRC.SYSMESSAGE @1153 Saatte bir kere kullanabilirsiniz...
RETURN 1
ELSEIF (<SRC.UID>=<LINK>)
SRC.HITS=<SRC.STR>
SRC.STAM=<SRC.DEX>
SRC.MANA=<SRC.INT>
SRC.SYSMESSAGE @1153 Daha cevik bir hale geldiniz..
SRC.NEWITEM=i_pot_wait
SRC.ACT.ATTR=04
SRC.ACT.EQUIP
RETURN 1
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

[ITEMDEF i_pot_wait]
DEFNAME=i_pot_wait
NAME=POT WAIT
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=3600

ON=@TIMER
CONT.SYSMESSAGE @1153 Potion of Virtue artık kullanabilirsiniz..
REMOVE
RETURN 0

[ITEMDEF i_aardwolf_sleeves]
DEFNAME=i_aardwolf_sleeves
Name=Aardwolf Sleeves of Regeneration
ID=i_platemail_arms
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Sleeves

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@CLICK
message @1153 Sleeves of Regeneration
return 1

ON=@EQUIP
CONT.SYSMESSAGE @1153 Sleeves of Regeneration
IF (<SRC.UID>=<LINK>)
TIMER=1
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@TIMER
IF (<CONT.HITS>>=<CONT.STR>)
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=0)
CONT.HITS=<CONT.HITS>+1
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=1)
CONT.HITS=<CONT.HITS>+2
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=2)
CONT.HITS=<CONT.HITS>+3
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=3)
CONT.HITS=<CONT.HITS>+4
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=4)
CONT.HITS=<CONT.HITS>+5
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=5)
CONT.HITS=<CONT.HITS>+6
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=6)
CONT.HITS=<CONT.HITS>+7
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=7)
CONT.HITS=<CONT.HITS>+8
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=8)
CONT.HITS=<CONT.HITS>+10
TIMER 1
RETURN 1
ENDIF

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE @1153 Sleeves of Regeneration
RETURN 0

[ITEMDEF i_aardwolf_gloves]
DEFNAME=i_aardwolf_gloves
Name=Aardwolf Gloves of Strength
ID=i_platemail_gloves
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Gloves

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@CLICK
message @1153 Gloves of Strength
return 1

ON=@EQUIP
CONT.SYSMESSAGE @1153 Strength [+100]
IF (<SRC.UID>=<LINK>)
SRC.STR=<SRC.STR> + 100
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@UNEQUIP
CONT.SYSMESSAGE @1153 Strength [-100]
SRC.STR=<SRC.STR> + (-100)
RETURN 0

[ITEMDEF i_aardwolf_shield]
DEFNAME=i_aardwolf_shield
Name=Aardwolf Shield of Power
ID=i_shield_heater
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=80
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Shield

ON=@CREATE
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@CLICK
message @1153 Shield of Power
return 1

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
CONT.SYSMESSAGE @1153 Kendinizi cok daha guclu hissediyorsunuz...
CONT.SPELLEFFECT s_protection,1000
CONT.FINDID.i_rune_protection.TIMER 99999999
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@UNEQUIP
CONT.SYSMESSAGE @1153 Artik kendinizi daha zayif hissediyorsunuz...
CONT.FINDID.i_rune_protection.REMOVE

[ITEMDEF i_aardwolf_gorget]
DEFNAME=i_aardwolf_gorget
Name=Aardwolf Gorget of Intelligence
ID=i_platemail_gorget
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Gorget

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@CLICK
message @1153 Gorget of Intelligence
return 1

ON=@EQUIP
CONT.SYSMESSAGE @1153 Intelligence [+100]
IF (<SRC.UID>=<LINK>)
SRC.INT=<SRC.INT> + 100
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@UNEQUIP
CONT.SYSMESSAGE @1153 Intelligence [-100]
SRC.INT=<SRC.INT> + (-100)
RETURN 0

[ITEMDEF i_aardwolf_leggings]
DEFNAME=i_aardwolf_leggings
Name=Aardwolf Leggings of Agility
ID=i_platemail_leggings
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Leggings

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
src.tag.azfreeze 1
CONT.SYSMESSAGE @1153 Kadim buyulerin gucune eristiniz...
IF (<SRC.UID>=<LINK>)
TIMER=1
CONT.SYSMESSAGE You begin to feel super dexterous.
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@CLICK
message @1153 Leggings of Agility
return 1

ON=@TIMER
IF (<CONT.STAM>>=<CONT.STR>)
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=0)
CONT.STAM=<CONT.STAM>+1
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=1)
CONT.STAM=<CONT.STAM>+2
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=2)
CONT.STAM=<CONT.STAM>+3
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=3)
CONT.STAM=<CONT.STAM>+4
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=4)
CONT.STAM=<CONT.STAM>+5
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=5)
CONT.STAM=<CONT.STAM>+6
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=6)
CONT.STAM=<CONT.STAM>+7
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=7)
CONT.STAM=<CONT.STAM>+8
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=8)
CONT.STAM=<CONT.STAM>+10
TIMER 1
RETURN 1
ENDIF

ON=@UNEQUIP
src.tag.azfreeze 0
TIMER -1
CONT.SYSMESSAGE @1153 Kadim buyulerin gucu uzerinizden kayboldu...
RETURN 0

[ITEMDEF i_aardwolf_tunic]
DEFNAME=i_aardwolf_tunic
Name=Aardwolf Tunic of Magic Resistance
ID=i_platemail_chest
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Tunic

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@CLICK
message @1153 Tunic of Magic Resistance
return 1

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
SRC.MAGICRESISTANCE=<SRC.MAGICRESISTANCE> + 150
SRC.SYSMESSAGE @1153 Buyulere karsi direnciniz artti...
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@UNEQUIP
SRC.MAGICRESISTANCE=<SRC.MAGICRESISTANCE> + (-150)
SRC.SYSMESSAGE @1153 Buyulere karsi olan direncinizi kaybettiniz...
RETURN 0

[ITEMDEF i_aardwolf_cap]
DEFNAME=i_aardwolf_cap
Name=Aardwolf Cap of True Sight
ID=i_platemail_helm
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Cap

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@CLICK
message @1153 Cap of True Sight
return 1

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
IF (<SRC.NIGHTSIGHT>=1)
RETURN 0
ELSE
SRC.NIGHTSIGHT
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@UNEQUIP
IF (<SRC.NIGHTSIGHT>=1)
SRC.NIGHTSIGHT
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_aardwolf_ring]
DEFNAME=i_aardwolf_ring
Name=Aardwolf Ring of Intellect Regeneration
ID=i_ring_silver
WEIGHT=6
FLIP=1
REQSTR=65

ON=@CREATE
COLOR=0480
HITPOINTS=&褳4000 6000}

ON=@CLICK
message @1153 Ring of Intellect Regeneration
return 1

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
TIMER=2
CONT.SYSMESSAGE @1153 Ring of Intellect Regeneration
RETURN 0
ELSE
SRC.SYSMESSAGE @1153 Bu size ait degil.
CONT.GO JAIL
SRC.MESSAGE Page atiniz. Baskasina ait bir itemi kullanmaya calistiniz..

ON=@TIMER
IF (<CONT.MANA>>=<CONT.STR>)
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=0)
CONT.MANA=<CONT.MANA>+1
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=1)
CONT.MANA=<CONT.MANA>+2
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=2)
CONT.MANA=<CONT.MANA>+3
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=3)
CONT.MANA=<CONT.MANA>+4
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=4)
CONT.MANA=<CONT.MANA>+5
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=5)
CONT.MANA=<CONT.MANA>+6
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=6)
CONT.MANA=<CONT.MANA>+7
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=7)
CONT.MANA=<CONT.MANA>+8
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=8)
CONT.MANA=<CONT.MANA>+10
TIMER 2
RETURN 1
ENDIF

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE @1153 Ring of Intellect Regeneration
RETURN 0

[ITEMDEF i_qpoints] //15 min
DEFNAME=i_qpoints
NAME=Red Hide Quest
ID=i_handr_1
TYPE=t_EQ_script
WEIGHT=0
LAYER=LAYER_SPECIAL

ON=@CREATE
TIMER=3

ON=@TIMER
CONT.SYSMESSAGE You have earned <MOREX> quest points.
CONT.TAG.QUESTPOINTS=<EVAL <CONT.TAG.QUESTPOINTS>> + <MOREX>
REMOVE

[ITEMDEF i_qtower]
DEFNAME=i_qtower
ID=i_deed
WEIGHT=5000
NAME=[double click]
TYPE=t_script

ON=@CREATE
COLOR=078d

ON=@DCLICK
MOREX=&褳1 35}
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + <MOREX>
SRC.SYSMESSAGE @1153 <MOREX> quest points kazandiniz...
RETURN 1

//**********************************************************
//**                   SKILLCLASSES                       **
//**********************************************************

[SKILLCLASS Class_Tier1]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier1
NAME=Tier 1
//EVENTS=e_tier1
STATSUM=3300
SKILLSUM=800.0
STR=1600
INT=1600
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier2]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier2
NAME=Tier 2
//EVENTS=e_tier1
STATSUM=3500
SKILLSUM=900.0
STR=1700
INT=1700
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier4]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier3
NAME=Tier 3
//EVENTS=e_tier1
STATSUM=3700
SKILLSUM=1000.0
STR=1800
INT=1800
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier4]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier4
//NAME=Tier 4
//EVENTS=e_tier1
STATSUM=3900
SKILLSUM=1100.0
STR=1900
INT=1900
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier5]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier5
NAME=Tier 5
//EVENTS=e_tier1
STATSUM=4100
SKILLSUM=1200.0
STR=2000
INT=2000
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier6]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier6
NAME=Tier 6
//EVENTS=e_tier1
STATSUM=4300
SKILLSUM=1300.0
STR=2100
INT=2100
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier7]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier7
NAME=Tier 7
//EVENTS=e_tier1
STATSUM=4500
SKILLSUM=1400.0
STR=2200
INT=2200
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier8]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier8
NAME=Tier 8
//EVENTS=e_tier1
STATSUM=5100
SKILLSUM=1500.0
STR=2500
INT=2500
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0


//**********************************************************
//**                   NEWBIE CHANN                       **
//**********************************************************

[FUNCTION newbiechan]
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==2)
SRC.SYSMESSAGE You are banned from using this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==1)
SRC.FINDID.i_hear_newbie.REMOVE
SRC.TAG.HEARNEWBIE 0
SRC.SYSMESSAGE Newbie channel has been turned off.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==2)
SRC.SYSMESSAGE You are banned from using this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>=0)
SRC.NEWITEM i_hear_newbie
SRC.ACT.CONT <SRC.UID>
SRC.TAG.HEARNEWBIE 1
SRC.SYSMESSAGE Newbie channel is now on.
SRC.SYSMESSAGE Use .newbie [text] to talk on this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>9)
SRC.SYSMESSAGE You are no longer a newbie, this is not possible.
RETURN 1
ELSE
RETURN 1
ENDIF

[FUNCTION newbieban]
SRC.NEWITEM=i_newbieba
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Whom do you wish to ban from newbie channel?

[ITEMDEF i_newbieba]
DEFNAME=i_newbieba
ID=i_handr_1
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=02

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_CHAR
SRC.TARG.FINDID.i_hear_newbie.REMOVE
SRC.TARG.TAG.HEARNEWBIE 2
SRC.TARG.SYSMESSAGE You have been banned from the newbie channel.
RETURN 1

ON=@TIMER
REMOVE

[FUNCTION newbieunban]
SRC.NEWITEM=i_newbieunba
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Whom do you wish to unban from newbie channel?

[ITEMDEF i_newbieunba]
DEFNAME=i_newbieunba
ID=i_handr_1
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=02

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_CHAR
SRC.TARG.TAG.HEARNEWBIE 0
SRC.TARG.SYSMESSAGE You have been unbanned from the newbie channel.
RETURN 1

ON=@TIMER
REMOVE

[FUNCTION newbie]
MSGMEMBERS <ARGS>
RETURN 1

[FUNCTION msgmembers]
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==2)
SRC.SYSMESSAGE You are banned from using this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==0)
SRC.SYSMESSAGE @54 Sistem devre dI&補I.
RETURN 1
ELSEIF (<EVAL <SRC.TAG.TITLED>><10)
SERV.ALLCLIENTS FINDID.i_hear_newbie.CONT.SYSMESSAGE <SRC.NAME> [Level <EVAL <SRC.TAG.TITLED>>]:  <ARGS>
RETURN 1
ELSEIF (<EVAL <SRC.TAG.NEWBIEHELPER>>=1)
SERV.ALLCLIENTS FINDID.i_hear_newbie.CONT.SYSMESSAGE <SRC.NAME> [Newbie-Helper]:  <ARGS>
RETURN 1
ELSEIF (<EVAL <SRC.TAG.TITLED>>>9)
SRC.SYSMESSAGE You are no longer a newbie! You cannot talk on this channel any longer.
RETURN 1
ENDIF

[ITEMDEF i_hear_newbie]
DEFNAME i_hear_newbie
NAME=Hearing NEWBIE Memory [DO NOT REMOVE]
ID=i_memory
TYPE=T_EQ_SCRIPT
LAYER=30


[EOF]