UO-Dev Arama

 

İçerde : 1 misafir, 0 üye : --- Sayfalar: 1
Yazar
Skill Title: Apprentice
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 32
Beğeni: 2
Mesaj #92964   11-08-2017 23:09 GMT    
     
sa beyler elimde burdan aldıgım bir acik arttırma scp'ti var biraz topladım ben ama su para olayını yapamadım parayı cekmıyor neden olabilir baya ugrasmama ragmen anlamıs degilim bir göz atarmsınız yardımcı olurmsunuz

Script Kodu:
[itemdef i_acikarttirma]
id i_grave_stone
name acik arttirma

on=@create
color 49

on=@dclick
if (<var.acikarttirmabasla>= 1 )
sdialog d_acikarttirma
return 1
else
src.sysmessage @45,,1 Acik arttirma su an icin baslamamis.
endif
return 1


[dialog d_acikarttirma]
50,50
nomove
resizepic 0 0 3600 550 300
dtext 150 20 045 <serv.name> Acik Arttirma Menusu
dtext 40 60 1153 Ihaleye sunulan esya: <var.ihaleesyasi>
dtext 40 80 1153 En yuksek teklif: <eval <var.enyuksek>>
dtext 40 100 1153 En yuksek teklifi yapan: <var.enyuksekyapan>
dtextentry 50 152 90 20 38 1 <eval <var.enyuksek> +50000>
dtext 40 120 045 Bitis Fiyati: <eval <var.bitisfiyati>>
button 150 150 4005 4006 1 0 1
dtext 190 150 045 Teklif Yap
dtext 200 250 38 Klasik Pvp


[dialog d_acikarttirma button]
on=0
src.sysmessage @38,,1 Acik arttirmaya katilmaktan vazgectiniz.
return 1


on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @38,,1 Hata: Sadece rakam kullanabilirsiniz.
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @38,,1 Hata: Hatali bir rakam girdiniz.
elseif (<eval <argtxt[1]>> < <eval <var.enyuksek>+50000> )
src.sysmessage @38,,1 Hata: En yuksek tekliften 50k daha fazla teklif etmelisiniz
elseif (<src.gold> < <dargtxt[1]>)
src.sysmessage Bankanizda <dargtxt[1]> altin bulunmuyor.
else
var.enyuksekyapan <src.name>
var.enyuksek <eval <argtxt[1]>>
var.enyuksekyapanuid <src.uid>
serv.allclients sysmessage @045,,1 <serv.name> Acik Arttirma Duyuru:
serv.allclients sysmessage @0bb2,,1  <var.enyuksekyapan> , <var.ihaleesyasi> icin <eval <var.enyuksek>> teklifi yapti.
f_ihale_bittimi <eval <argtxt[1]>>
endif
endif

[function f_ihale_bittimi]
if (<eval <args>> >= <eval <var.bitisfiyati>>
src.sysmessage @045,,1 Acik arttirmayi kazandiniz.
f_ihalebitti
serv.allclients sysmessage @045,,1 <serv.name> Acik arttirma Duyuru:
serv.allclients sysmessage @0bb2,,1 <var.enyuksekyapan> acik arttirmayi kazandi..
endif

[function iihale]
if (<account.plevel> < 6)
src.sysmessage @38,,1 HATA: Sadece admin ve ownerlar kullanabilir.
else
sdialog d_ihaleayar
endif
endif

[dialog d_ihaleayar]
50,50
nomove
resizepic 0 0 3600 550 300
dtext 150 20 1152 Acik Arttirma Ayar menusu
dtext 40 50 1152 binegin idsi:
dtextentry 120 50 90 20 49 1 c_m_nightmare
dtext 40 70 1152 binegin ismi:
dtextentry 120 70 90 20 49 2  Nightmare
dtext 40 90 1152 baslangic fiyati:
dtextentry 150 90 150 20 49 3 2500000
dtext 40 110 1152 bitis fiyati:
dtextentry 150 110 150 20 49 4 7000000

button 100 210 2473 2474 1 0 1
dtext 150 250 045 SLencer Tatafindan Ayarlanir !
dtext 140 213 1153 Ihaleyi baslat!


[dialog d_ihaleayar button]
on=1
var.binek <argtxt[1]>
var.ihaleesyasi <argtxt[2]>
var.enyuksek <argtxt[3]>
var.bitisfiyati <argtxt[4]>
acikal <var.bitisfiyati>
var.acikarttirmabasla 1
serv.allclients sysmessage @045,,1 <serv.name> Acik arttirma Duyuru:
serv.allclients sysmessage @0bb2,,1 Acik arttirma baslamistir!! - Satilan binek:  (<var.ihaleesyasi>)  Baslangic fiyati <eval <var.enyuksek>>tir.
return 1

[function f_ihalebitti]
serv.newitem i_deed_ihalebinek
new.tag.binekid <var.binek>
new.cont <var.enyuksekyapanuid>
var.acikarttirmabasla 0
var.enyuksekyapan
var.enyuksekuid
var.enyuksek


[ITEMDEF i_deed_ihalebinek]
DEFNAME=i_deed_ihalebinek
NAME=Binek Deed
ID=i_deed
WEIGHT=5.0
TYPE=t_script

On=@Create
color 0901
attr 04

on=@Dclick
if !(<topobj.uid> = <src.uid>)
src.sysmessage @38,,1 Hata : Bunu kullanabilmeniz icin cantanizda olmali.
return 1
else
src.newnpc <tag.binekid>
link <src.act.uid>
link.oskin <link.color>
link.newitem i_memory
link.act.attr 04
link.act.more1 04
link.act.more2 <serv.time>
link.act.morep <link.p>
link.act.color memory_ipet
link.act.timer -1
link.act.link <src.uid>
link.act.cont <link.uid>
link.flags <link.flags>&statf_pet
link.update
link.anim 5
link.bark 3
remove
return 1
endif

on=@click
message @07a1,,1 <serv.name>
message @44,,1 Acik Arttirma Binegi
return 1




[FUNCTION acikal]
IF (<gold> < <ARGN1>)
RETURN 1
ENDIF
LOCAL.AMOUNT=<ARGN1>
WHILE (<LOCAL.AMOUNT>)
IF (0<FINDLAYER.21.FINDID.i_gold>)
LOCAL.GOLD=<FINDLAYER.21.FINDID.i_gold.amount>
IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0)
FINDLAYER.21.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT>
LOCAL.AMOUNT=0
ELSE
FINDLAYER.21.FINDID.i_gold.remove
LOCAL.AMOUNT -= <LOCAL.GOLD>
ENDIF
ELIF (0<FINDLAYER.29.FINDID.i_gold>)
LOCAL.GOLD=<FINDLAYER.29.FINDID.i_gold.amount>
IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0)
FINDLAYER.29.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT>
LOCAL.AMOUNT=0
ELSE
FINDLAYER.29.FINDID.i_gold.remove
LOCAL.AMOUNT -= <LOCAL.GOLD>
ENDIF
ENDIF
ENDWHILE
UPDATE



Yazar
Skill Title: Journeyman
Toplam Mesaj: 157
Oyun Tarzı: Rp
Emulatör: Sphere
Tecrübe: Scripter
Yaş: 27
Beğeni: 36
Mesaj #92965   12-08-2017 04:01 GMT    
     

Script Kodu:
if <ARGTXT[0]> >= (<db.row.0.step>+<db.row.0.currentbid>)
IF (<SRC.BANKBALANCE> >= <eval <ARGTXT[0]> >) //if <src.restest <ARGTXT[0]> i_gold>
if 0<db.row.0.highestbidder>
ref1=<db.row.0.highestbidder>
serv.newitem i_check_brnx
new.more1=<db.row.0.currentbid>
new.more2 <ref1.uid>
new.cont=<uid.(<db.row.0.highestbidder>).findlayer.29.uid>
try uid.<db.row.0.highestbidder>.hata  <src.name>  <eval(<ARGTXT[0]>)> kadar teklif yapıldı   : <eval (<db.row.0.amount>)> <uid.<db.row.0.uid>.name>. Eger esyayi hala istiyorsaniz, daha yuksek bir teklifte bulunmalisiniz. Depositonuz bankaniza geri iade edilmistir..
endif
DB.EXECUTE "UPDATE <tag.auction_table> SET currentbid='<ARGTXT[0]>', highestbidder='<src.uid>' WHERE uid='<db.row.0.uid>'"
SRC.GOLD -= <eval <ARGTXT[0]> >
src.hata // yaptığın teklif miktarı bla bla kadar yapıldı üstü olursa bigiendirilsiniz.. falan fialn
DIALOG d_auction_item_details
return 1
else
src.hata  teklif yapcak kadar paran yok
dialog d_auction_item_details
return 1
endif
else
src.hata En dusuk <eval (<db.row.0.step>+<db.row.0.currentbid>)> bla bla teklif fazla yapmalısınız
dialog d_auction_item_details
return 1
endif
return 1
on=5
src.ctag.auctionid=
src.ctag.dialogindex=0
DIALOG d_auction_item_list
return 1

Bla bla bla ama bu sistem baştan sona kötü 2008 yılında yazılmış birşey bil.


Son güncelleme: Marshall Longcloak tarafından 12-08-2017 04:12 GMT, önce düzenlendi.


Marshall.寂しい
Discord: Marshall.寂しい#1650

Yazar
Skill Title: Apprentice
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 32
Beğeni: 2
Mesaj #92967   13-08-2017 00:13 GMT    
     
Bunu tamm nereye eklemeliyim



Sayfalar: 1


Benzer Konular :

KonularMesajlarSon gönderenTarih
Pazar vendor message sorunu10berkanu09-07-2021
Renk sorunu11mahsuni26-05-2021
Binek renk sorunu9senedor25004-05-2021
Dclick sorunu36manyaqq20-03-2021
Fizleme sorunu5senedor25012-03-2021


Kullanıcı Adı:Parola: Beni Hatırla?


Mythic broadsword sphereserver modernuo runuo ServUO JustUO

Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,

UO-Dev Footer UO-Dev Footer