arkadaşlar bende bi level scpsi var onlan biraz oynamınızı istiyorum :)

simdi level arttırmak için bir oyuncu birini kestigi zaman puan gelsin ona göre level artsın birde playerın isminin üstünde level kaç oldugunu yazmasını istiyorum örneğin [ Level : X ] Gibi

Scp;

********************************************
//   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&&#35039;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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> + &&#35123;3 10}
INT=<INT> + &&#35123;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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=&&#35123;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:&&#3592;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&&#35039;i seciniz.
ON=0 Sleeves of Regeneration [1800 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1800)
SRC.SYSMESSAGE @54 Yeterli quest point&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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&&#35039;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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=&&#35123;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&&#35036;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]

ŞİMDİDEN tESEKKURLER..

version 56b


arkadaslar bide safede yere atılan itemlerin silinmesiniz istiyorum 10 sn içinde silinsin mesela..
birkere böyle bir kelime olamaz kendi experience ya tam ya hiç kendi tecruben yaz... yada your experience falan... + anlatmak istediklarini anlatacak birileri muhakkak vardır biraz bekle :D
inşallah yardım eden cıkar :)
merak etme uyuyorlardır yarın gelince yardım ederler sende yat acelen yoksa yarın akşama kesin alırsın sonucu :D
yok ben uyumam :D
ok abi bişi soracam sen bu scp yi kendinmi yazdın yoksa bir yerdenmi aldın çünkü versiyonda 55 yazıyor sen sphere 56b için diyorsun
hyr ben yazmadım u-s da verilmiş bi denemek istedim
Silindi
Neophyte
0
Sabahtan beri forum'la ilgileniyorum atık cidden beynim sulandı ama yanlış görmediysem zaten üstünde level kaç olduğunu yazması için orada event var o eventi verdirirsen kafasında tepesinde artık nederseniz orada kaç olduğu yazar... Diğer sorununa gelince onada yarın bakarım çünkü acayip uykum var ve script ufak birşey değil baya uzun şimdi kafamı yoramadım kusura bakam yarın birşeyle yapmaya çalışırım...
he bende onu farkettim
tmm teşekkur ederim bide o dedigin eventsi nereye ekliyicemde isminin üzerinde cıkıcak ?
Silindi
Neophyte
0
ya eventi bir yere eklemene gerek yok normal girişte on=@login altına ekleyebilirsin
onu şu şekillerde verebilirsin:

eğer başlangıçta bir stoneye tıklanarak başlanıyorsa
eğer bir events stone oluşturulup verilebilir
bir item oluşturulup tüm playerlere tek tek targetlenerek dağıtılabilir...
[ITEMDEF i_baslangic]
NAME=Baslangic Tasi
ID=i_grave_stone_4
ON=@Create
ATTR=04
COLOR=0823


On=@Click
message @0805 Baslangic Stone
return 1

On=@Dclick
if (<src.tag.baslangicstone> = 1)
src.sysmessage @0805 Bu Ne Aclik Bole...
return 1
else
src.tag.baslangicstone=1
src.dialog d_baslangicstone
return 1
endif

[DIALOG d_baslangicstone]
0, 0
nomove
resizepic 20 5 3500 550 300 // Main menu

resizepic 40 65 3000 500 30 // Warrior

PAGE 0
button 45 70 2714 2715 1 0 1
dtext 77 70 2100 Oyuna Basla:
dtext 200 70 45 Yeni Bir Maceraya Hazir misin ?

dtext 45 35 100 SaiLoR Pvp
dtext 45 270 100 Burasi SaiLoR Burada Pvp Konusur...

[DIALOG d_baslangicstone BUTTON]
on=0
src.sysmessage @0805 Tusa basmadan kapatamazsiniz.
dialog d_baslangicstone
return 1
on=1
SRC.FAME 100
SRC.KARMA 100
SRC.STR 100
SRC.DEX 100
SRC.INT 100
SRC.HITS 100
SRC.STAM 100
SRC.MANA 100
SRC.ALLSKILLS 1000
src.NEWITEM i_spellbook
ACT.MORE 0ffffffff
ACT.MORE2 0ffffffff
ACT.BOUNCE
src.newitem=i_bag
SRC.ACT.COLOR=63
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_robe
SRC.ACT.COLOR=0454
SRC.ACT.ATTR=04
SRC.ACT.EQUIP
src.newitem=i_shoes_plain
SRC.ACT.ATTR=04
SRC.ACT.equip
src.newitem=i_boots_calf
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_bandage,250
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_staff_taming
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_rune_book
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_studded_sleeves
SRC.ACT.ATTR=04
SRC.ACT.COLOR 0454
SRC.ACT.equip
src.newitem=i_studded_gloves
SRC.ACT.equip
SRC.ACT.ATTR=04
SRC.ACT.COLOR 0454
src.newitem=i_studded_gorget
SRC.ACT.equip
SRC.ACT.ATTR=04
SRC.ACT.COLOR 0454
src.newitem=i_studded_tunic
SRC.ACT.equip
SRC.ACT.COLOR 0454
SRC.ACT.ATTR=04
src.newitem=i_studded_leggings
SRC.ACT.equip
SRC.ACT.COLOR 0454
SRC.ACT.ATTR=04
src.newitem=i_katana_force
SRC.ACT.equip
SRC.ACT.ATTR=04
src.newitem=i_spear_short_force
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_axe_war_force
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_spear_force
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_apron_half
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_bandana
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
SRC.GO 1360,1625,94
SRC.newitem i_gold
SRC.ACT.AMOUNT 50000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE @90 Aldiginiz itemlerin hepsi newbified.
endif
return 1


Başlangıc stone bu yapabilirmisin ?
[ITEMDEF i_baslangic]
NAME=Baslangic Tasi
ID=i_grave_stone_4
ON=@Create
ATTR=04
COLOR=0823


On=@Click
message @0805 Baslangic Stone
return 1

On=@Dclick
if (<src.tag.baslangicstone> = 1)
src.sysmessage @0805 Bu Ne Aclik Bole...
return 1
else
src.tag.baslangicstone=1
src.dialog d_baslangicstone
return 1
endif

[DIALOG d_baslangicstone]
0, 0
nomove
resizepic 20 5 3500 550 300 // Main menu

resizepic 40 65 3000 500 30 // Warrior

PAGE 0
button 45 70 2714 2715 1 0 1
dtext 77 70 2100 Oyuna Basla:
dtext 200 70 45 Yeni Bir Maceraya Hazir misin ?

dtext 45 35 100 SaiLoR Pvp
dtext 45 270 100 Burasi SaiLoR Burada Pvp Konusur...

[DIALOG d_baslangicstone BUTTON]
on=0
src.sysmessage @0805 Tusa basmadan kapatamazsiniz.
dialog d_baslangicstone
return 1
on=1
SRC.FAME 100
SRC.KARMA 100
SRC.STR 100
SRC.DEX 100
SRC.INT 100
SRC.HITS 100
SRC.STAM 100
SRC.MANA 100
SRC.ALLSKILLS 1000
src.NEWITEM i_spellbook
ACT.MORE 0ffffffff
ACT.MORE2 0ffffffff
ACT.BOUNCE
src.newitem=i_bag
SRC.ACT.COLOR=63
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_robe
SRC.ACT.COLOR=0454
SRC.ACT.ATTR=04
SRC.ACT.EQUIP
src.newitem=i_shoes_plain
SRC.ACT.ATTR=04
SRC.ACT.equip
src.newitem=i_boots_calf
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_bandage,250
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_staff_taming
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_rune_book
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
src.newitem=i_studded_sleeves
SRC.ACT.ATTR=04
SRC.ACT.COLOR 0454
SRC.ACT.equip
src.newitem=i_studded_gloves
SRC.ACT.equip
SRC.ACT.ATTR=04
SRC.ACT.COLOR 0454
src.newitem=i_studded_gorget
SRC.ACT.equip
SRC.ACT.ATTR=04
SRC.ACT.COLOR 0454
src.newitem=i_studded_tunic
SRC.ACT.equip
SRC.ACT.COLOR 0454
SRC.ACT.ATTR=04
src.newitem=i_studded_leggings
SRC.ACT.equip
SRC.ACT.COLOR 0454
SRC.ACT.ATTR=04
src.newitem=i_katana_force
SRC.ACT.equip
SRC.ACT.ATTR=04
src.newitem=i_spear_short_force
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_axe_war_force
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_spear_force
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_apron_half
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
src.newitem=i_bandana
SRC.ACT.BOUNCE
SRC.ACT.ATTR=04
SRC.GO 1360,1625,94
SRC.newitem i_gold
SRC.ACT.AMOUNT 50000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE @90 Aldiginiz itemlerin hepsi kaybolmaz.
IF (<src.sex> == man)
src.events +e_tier1
else
src.events +e_woman
endif
return 1

tmm oldu :D



Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.