[function upgradekur]
db.connect
db.execute "create table upgradetablo (id int unsigned not null auto_increment primary key,playeruid text,playerismi text,silahadi text,silahuid text,silahdurumu text);"
sysmessage @0481,,1 Upgrade sistemi kuruldu

[function upgrade]
if <isempty <src.ctag.silahsirala>>
src.ctag.silahsirala playeruid
endif
ctag.dialogindex 0
sdialog d_upgrade_istat

[dialog d_upgrade_istat]
180,50
nomove
page 0
resizepic 0 0 8153 600 360
resizepic 10 10 3000 580 340
dhtmlgump 175 15 200 200 0 0 <serv.name> Upgrade Sistemi
dhtmlgump 40 50 200 200 0 0 Player Adı
dhtmlgump 150 50 200 200 0 0 Player Uid
dhtmlgump 245 50 200 200 0 0 Silah Değeri
dhtmlgump 350 50 200 200 0 0 Silah Uid
dhtmlgump 450 50 200 200 0 0 Silah Adı

db.connect
db.query "select * from upgradetablo order by <src.ctag.silahsirala> desc limit <eval <src.ctag.dialogindex>>,<eval <src.ctag.dialogindex>+12>";
for index 0 12
if <db.row.<dlocal.index>.playeruid>
local.y=((<dlocal.index>*20)+75)
dhtmlgump 40 <dlocal.y> 200 20 0 0 <def.bfont_red><db.row.<dlocal.index>.playerismi>
dhtmlgump 155 <dlocal.y> 200 20 0 0 <def.bfont_red><db.row.<dlocal.index>.playeruid>
dhtmlgump 240 <dlocal.y> 200 20 0 0 <def.bfont_red><db.row.<dlocal.index>.silahadi>
dhtmlgump 345 <dlocal.y> 200 20 0 0 <def.bfont_red><db.row.<dlocal.index>.silahuid>
dhtmlgump 450 <dlocal.y> 200 20 0 0 <def.bfont_red><db.row.<dlocal.index>.silahdurumu>
endif
endfor

button 60 327 9909 911 1 0 1
button 460 327 9903 9905 1 0 2
dtext 25 327 0455 Geri
dtext 483 327 0455 İleri

[dialog d_upgrade_istat button]
on=0
src.ctag.dialogindex=0
return 1
on=1
if <src.ctag.dialogindex> > 0
src.ctag.dialogindex -=12
endif
sdialog d_upgrade_istat
return 1
on=2
src.ctag.dialogindex +=12
sdialog d_upgrade_istat
return 1

[itemdef i_upstone]
id=i_forge
name=a upgrade forge
type=t_upforge

on=@create
color 0453
attr 08000

[typedef=t_upforge]
on=@click
message @055,,1 <name>
return 1

on=@dclick
if (<distance> > 3)
src.sysmessage @0481,,1 Forge'ye uzaktasınız.
return 1
else
dialogclose d_upgrade_menu
SDIALOG d_upgrade_menu
return 1
endif

[function f_upgrade]
targetf upgrade1
src.sysmessage @055,,1 Upgrade yapıcağınız silahı seçiniz?
return 1

[function upgrade1]
obj=<argo>
if !(<obj.npc>)
src.sysmessage @021,,1 (Upgrade): Seçilen kişi bir silah değil
elif (<obj.isPlayer>)
src.sysmessage @021,,1 (Upgrade): Seçilen kişi bir silah değil
elif !(<src.restest 1 i_upgrade_parsomen>)
src.sysmessage @39,9,1 (Upgrade): [+15] için bir upgrade scroll gerekmektedir.
elif !(<obj.isweapon>)
src.sysmessage @0481,,1 (Upgrade): Sadece silahlari upgrade edebilirsiniz.
elif (<obj.type> == t_weapon_bow)
src.sysmessage @0481,,1 (Upgrade): Sadece silahlari upgrade edebilirsiniz.
elif (<obj.morey> == 0) || (<obj.morey> == 200) || (<obj.morey> == 400) || (<obj.morey> == 600) && (<obj.isweapon>)
src.sysmessage @39,9,1 (Upgrade): Ancak [+12] silahları upgrade yapabilirsiniz.!
elif (<obj.morey> == 1000)
src.sysmessage @0481,,1 (Upgrade): Daha fazla upgrade edemezsiniz.
else
if (rand(4) == 1)
serv.newitem <obj.dispid>_vanq
new.tag.silahcik Basılmış (+15)
new.bounce
new.color 0811
new.update

db.connect
db.execute "insert into upgradetablo VALUES (NULL, '<uid>', '<addslashes <name>>', '<new.tag.silahcik>','<new.uid>','<new.name>');"

obj.remove
src.consume 1 i_upgrade_parsomen
src.sysmessage @39,9,1 (Upgrade): <obj.name>'nin değeri +15 olmuştur.
return 1
else
obj.remove
src.consume 1 i_upgrade_parsomen
src.sysmessage @39,9,1 (Upgrade): Silahınız upgrade ederken yandı.!
return 1
endif

[itemdef i_upgrade_parsomen]
id=i_scroll_blank
name=a upgrade scroll

on=@create
color 07a1

on=@click
message @055,,1 <amount> <name>
return 1

on=@dclick
return 1

[dialog d_upgrade_menu]
180,50
nomove
page 0
resizepic 0 0 8153 140 160
resizepic 10 10 3000 120 140
for x 1 2
button 15 <eval (35 * <local.x>)+10> 4005 4006 1 0 <dlocal.x>
endfor
dhtmlgump 50 45 200 200 0 0 <def.bfont_blue>Upgrade Yap
dhtmlgump 50 80 200 200 0 0 <def.bfont_red>Menüye Git

[dialog d_upgrade_menu button]
on=0

on=1
src.f_upgrade
return 1
on=2
src.upgrade
return 1
[eof]