Anasayfa
UO Sunucular
Forumlar
Profilim
Kod:
[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]

SPONSOR

SPONSOR

Xearth 24-08-2010 13:35    
eline sağlık :P
muhacan 25-08-2010 01:26    
hayırlı kullanışlar
Sky 27-03-2011 12:22    
Ellerine sağlık
#ff.dll 31-03-2011 17:48    
Tek beğendiğim mysql'e dökülmesi Bu kadarını yapmışsın fazlasıyla geliştirilebilirdi.
muhacan 09-01-2013 00:47    
can sıkıntısına yazmıştım paylaşmak istediğim eğer çok fazla detaya girmek isteseydim zaten bi ton şey aklımda var bunu ilerleyen zamanlarda açıcağım sunucuda düşünüyorum genede yorumlarınızı için teşekkür ederim

Üyelerin oylama ortalaması (10 dışında) : 7.50  
Oylar: 4 den itibaren 23-08-2010 06:44

BENZER SAYFALAR

Bu bölüm sayfalarda aradığınıza daha kolay ulaşabilmek ve bulmak adına rehber niteliğinde olacaktır.

Sosyal Ağ ile Giriş Yap