Chernobel Yazdığı Bir Sistem Hiç Sorun Yok
// petevents=pet_events
// Sphere.ini de PetEvents= bölümü "pet_events" şeklinde değiştirilecek.
// * yazan: Chernobel
// * son güncelleme: 00:39 07.12.2007 //* bu script en iyi "Lucida Sans Unicode" yazı tipi, boyut 9'da görüntülenir
//-----------------------------------------------------------------------------------------------
// Sphere.ini de PetEvents= bölümü "pet_events" şeklinde değiştirilecek.
[defname clevel]
clvl_exp2 500
clvl_exp3 700
clvl_exp4 900
clvl_exp5 1100
clvl_exp6 1200
clvl_exp7 1350
clvl_exp8 2100
clvl_exp9 3000
clvl_exp10 6000
clvl_exp11 7500
clvl_exp12 9200
clvl_exp13 10000
clvl_exp14 12000
clvl_exp15 13000
clvl_exp16 14000
clvl_exp17 16000
clvl_exp18 17500
clvl_exp19 18500
clvl_exp20 19000
clvl_exp21 20000
clvl_exp22 21000
clvl_exp23 22000
clvl_exp24 23000
clvl_exp25 24000
clvl_exp26 25000
clvl_exp27 27000
clvl_exp28 28000
clvl_exp29 30000
clvl_exp30 31000
clvl_exp31 32000
clvl_exp32 33000
clvl_exp33 34000
clvl_exp34 35000
clvl_exp35 36000
clvl_exp36 37000
clvl_exp37 39000
clvl_exp38 40000
clvl_exp39 42000
clvl_exp40 43500
clvl_exp41 46000
clvl_exp42 50000
clvl_exp43 53000
clvl_exp44 56000
clvl_exp45 60000
clvl_exp46 61000
clvl_exp47 63000
clvl_exp48 65000
clvl_exp49 68000
clvl_exp50 70000
clvl_exp51 71000
clvl_exp52 72000
clvl_exp53 73000
clvl_exp54 74500
clvl_exp55 76000
clvl_exp56 79000
clvl_exp57 81000
clvl_exp58 85000
clvl_exp59 86000
clvl_exp60 87000
clvl_exp61 90000
clvl_exp62 100000
clvl_exp63 111000
clvl_exp64 120000
clvl_exp65 200000
clvl_exp66 220000
clvl_exp67 250000
clvl_exp68 300000
clvl_exp69 350000
clvl_exp70 500000
clvl_exp71 650000 // Bu satırları çoğaltarak istediğin kadar level koyabilirsin.
clvl_maxstr 400 // Player Skillclasstakiyle birebir olsun.
clvl_maxint 290 // Player Skillclasstakiyle birebir olsun.
clvl_maxdex 400 // Player Skillclasstakiyle birebir olsun.
clvl_maxstat 10 // Level atlarken seçilecek toplam stat miktarı.
[plevel 1]
sac
level
[function level]
if (<eval <src.tag.level>> <1)
src.events +e_clvl
src.update
src.tag.level 1
src.ostr 100
src.oint 100
src.odex 100
src.modstr 0
src.modint 0
src.moddex 0
src.tag.sstr <str>
src.tag.ddex <dex>
src.tag.iint <int>
endif
sdialog d_clevel
[dialog d_clevel]
0,0
resizepic 90 80 3500 300 185
resizepic 95 85 9350 290 10
resizepic 95 100 9350 290 145
resizepic 95 248 9350 290 10
resizepic 105 105 9350 140 40
dhtmlgump 110 110 120 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Level
dhtmlgump 110 125 120 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_black><eval <src.tag.level>>
resizepic 105 160 9350 140 40
dhtmlgump 110 165 120 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Experience
dhtmlgump 110 180 120 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_black><eval <src.tag.exp>>
if (<eval <def.clvl_exp<eval <eval <src.tag.level>>+1>>>==0)
dhtmlgump 250 110 150 40 0 0 <def.h4><def.bfont_size3><def.bfont_black>Sırada başka<def.br>level yok.
else
dhtmlgump 250 110 150 40 0 0 <def.h4><def.bfont_size3><def.bfont_black><eval <eval <src.tag.level>>+1>. Level için gereken<def.br>Exp: <eval <def.clvl_exp<eval <eval <src.tag.level>>+1>>>
endif
button 100 215 2511 2510 1 0 1
dhtmlgump 135 215 250 20 0 0 <def.h4><def.bfont_size3><def.bfont_dred>LEVEL ATLA
//button 225 215 2511 2510 1 0 3
//dhtmlgump 260 215 250 20 0 0 <def.h4><def.bfont_size3><def.bfont_dred>EXP DEED'E ÇEVİR
page 2
resizepic 90 280 3500 300 185
resizepic 95 285 9350 290 10
resizepic 95 300 9350 290 145
resizepic 95 448 9350 290 10
resizepic 105 305 9350 270 30
dhtmlgump 110 310 250 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Toplam <eval <def.clvl_maxstat>> Stat Seçme Hakkınız Var
resizepic 105 350 9350 270 60
dhtmlgump 110 360 70 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Str
dhtmlgump 190 360 70 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Int
dhtmlgump 270 360 70 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Dex
dtextentry 137 380 20 20 0 0 0
dtextentry 217 380 20 20 0 1 0
dtextentry 297 380 20 20 0 2 0
button 115 417 4023 4025 1 0 2
dhtmlgump 150 417 250 20 0 0 <def.h4><def.bfont_size3><def.bfont_dred>LEVEL ATLA
[dialog d_clevel button]
onbutton 1
if (<eval <src.tag.exp>> < <eval <def.clvl_exp<eval <eval <src.tag.level>>+1>>>)
src.sysmessage @1153 Level atlamak için Experience yetmiyor.
return 1
endif
if (<eval <def.clvl_exp<eval <eval <src.tag.level>>+1>>>==0)
src.sysmessage @1153 Zaten son leveldasınız.
return 1
endif
sdialog d_clevel 2
onbutton 2
if !(<isnum <argtxt[0]>>) || !(<isnum <argtxt[1]>>) || !(<isnum <argtxt[2]>>)
src.sysmessage @1153 Statlara rakam yazmak zorundasınız.
sdialog d_clevel 2
return 1
endif
var.clvl_stats <eval <argtxt[0]>> + <eval <argtxt[1]>> + <eval <argtxt[2]>>
if !(<eval <var.clvl_stats>>==<eval <def.clvl_maxstat>>)
src.sysmessage @1153 Statların toplamı <eval <def.clvl_maxstat>> olmak zorunda.
sdialog d_clevel 2
return 1
endif
if (<eval <src.ostr>+<eval <argtxt[0]>>> > <eval <def.clvl_maxstr>>)
src.sysmessage @1153 Str <eval <def.clvl_maxstr>>'den yüksek olamaz.
sdialog d_clevel 2
return 1
endif
if (<eval <src.ont>+<eval <argtxt[1]>>> ><eval <def.clvl_maxint>>)
src.sysmessage @1153 Int <eval <def.clvl_maxint>>'den yüksek olamaz.
sdialog d_clevel 2
return 1
endif
if (<eval <src.odex>+<eval <argtxt[2]>>> ><eval <def.clvl_maxdex>>)
src.sysmessage @1153 Dex <eval <def.clvl_maxdex>>'den yüksek olamaz.
sdialog d_clevel 2
return 1
endif
src.tag.exp -=<eval <def.clvl_exp<eval <eval <src.tag.level>>+1>>>
src.tag.level +=1
effect=3,0375a,6,30,1
src.ostr +=<eval <argtxt[0]>>
src.oint +=<eval <argtxt[1]>>
src.odex +=<eval <argtxt[2]>>
src.tag.sstr <src.ostr>
src.tag.iint <src.oint>
src.tag.ddex <src.odex>
[Plevel 1]
acctix
[function acctix]
sdialog d_clevel_2x
src.sysmessage @1153 Exp transfer menusu acilmistir.
return 1
[dialog d_clevel_2x]
0,0
resizepic 90 280 3500 300 185
resizepic 95 285 9350 290 10
resizepic 95 300 9350 290 145
resizepic 95 448 9350 290 10
resizepic 105 305 9350 270 60
dhtmlgump 110 310 250 20 0 0 <def.center><def.h4><def.bfont_size3><def.bfont_dred>Kaç Experience Çevireceksiniz?
dtextentry 200 330 200 20 0 1 0
button 185 377 4023 4025 1 0 1
dhtmlgump 225 377 250 20 0 0 <def.h4><def.bfont_size3><def.bfont_dred>ÇEVİR
[dialog d_clevel_2x Button]
on=0
src.sysmessage vazgectiniz
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @1153 Rakam girmelisiniz.
sdialog d_clevel_2x
return 1
endif
if (<eval <src.tag.exp>> < <eval <argtxt[1]>>)
src.sysmessage @1153 Bu kadar experience'ınız yok.
sdialog d_clevel_2x
return 1
endif
if (<eval <argtxt[1]>> <100)
src.sysmessage @1153 En az 100 Experience Deed yapabilirsiniz.
sdialog d_clevel_2x
return 1
endif
if (<eval <argtxt[1]>> > 50000)
src.sysmessage @1153 En çok 50.000 Experience Deed yapabilirsiniz.
sdialog d_clevel_2x
return 1
endif
src.tag.exp -=<eval <argtxt[1]>>
serv.newitem i_deed_cexp
new.tag.exp <eval <argtxt[1]>>
new.tag.yazan <src.name>
new.bounce
src.sysmessage @1153 Experience'leri deede çevirdiniz.
[itemdef i_deed_cexp]
id i_deed
type t_script
name Experience Deed
on=@create
attr 04
on=@click
message @1153 [<eval <tag0.exp>>]
message @038 Experience Deed by <tag.yazan>
return 1
on=@dclick
src.tag.exp +=<eval <tag.exp>>
src.sysmessage @1153 <eval <tag.exp>> experience karakterinize eklendi.
remove
return 1
[events pet_events]
on=@death
act.tag.exp +=<eval <str>/2>
act.sysmessageua 026,6,6,trk <eval <str>/2>Experience Kazandiniz.
[function sac]
targetf sacf
src.sysmessage @0810 Cesedi Secin
[function sacf]
if !(<uid.<argo.uid>.isitem>)
src.sysmessage @1153 Bu bir ceset değil.
return 1
elif !(strmatch('<uid.<argo.uid>.type>','t_corpse'))
src.sysmessage @1153 Bu bir ceset değil.
return 1
elif !(strmatch('<uid.<argo.uid>.link.name>','0'))
src.sysmessage @1153 Bu bir insan cesedi
return 1
endif
try uid.<argo.uid>.remove
src.tag.exp +=8
src.sysmessage @0810 8 Experience kazandiniz.
[events e_clvl]
on=@environchange
if (<src.modstr>==0)
if !(<src.ostr>==<eval <src.tag.sstr>>)
src.ostr <eval <src.tag.sstr>>
src.str <eval <src.tag.sstr>>
endif
endif
if (<src.modint>==0)
if !(<src.oint>==<eval <src.tag.iint>>)
src.oint <eval <src.tag.iint>>
src.int <eval <src.tag.iint>>
endif
endif
if (<src.moddex>==0)
if !(<src.odex>==<eval <src.tag.ddex>>)
src.odex <eval <src.tag.ddex>>
src.dex <eval <src.tag.ddex>>
endif
endif
[plevel 1]
deneseco
[function deneseco]
src.sysmessage @1153 str <eval <src.tag.sstr>>
src.sysmessage @1153 dex <eval <src.tag.ddex>>
src.sysmessage @1153 int <eval <src.tag.iint>>
[eof]
[function levelsac]
if (<src.hits> == 0 )
src.sysmessage @49 Oluyken deneyim kazanamazsiniz..
return 1
else
foritems 4
if (<type> == t_corpse)
cesetsorgula
endif
endfor
timer 1
return 1
[function cesetisorgula]
if !(<morex> == 400)
remove
src.tag.expgeliyor <src.tag.exp>
src.tag.exp +={1 500}
src.sysmessage @07a1 <eval <src.tag.exp> - <src.tag.expgeliyor>> exp geldi.
return 1
endif
Buda Benim Küçük Eklediğim Bir Sistem Işey Yarar Umarım..