Ev Açık arttırma sistemi. Tamamen geliştirilmeye açık istediğiniz gibi kullanabilirsiniz paylaşasım geldi
Teşekkürler
Kod:
[ITEMDEF i_acik_arttirma]
DEFNAME=i_acik_arttirma
ID=i_gravestone
NAME=Acik Arttirma
TYPE=T_Script
on=@create
attr 010
color 07a1
On=@Click
message @0799,,1 Açık Arttırma Panel
return 1
ON=@DClick
src.sdialog d_acik
src.findid.i_acik_arttirma.attr 010
return 1
[dialog d_acik]
250,40
resizepic 60 60 83 312 352
resizepic 66 62 3500 300 350
resizepic 80 92 3000 275 25
tilepic 280 350 3826
tilepic 285 355 3823
tilepic 280 365 3819
tilepic 290 370 3825
tilepic 295 375 3820
tilepic 290 370 3823
tilepic 295 365 3820
button 90 170 000037 000038 1 0 1 // Başlat
button 90 205 000037 000038 1 0 2 // Ekle
button 90 150 000037 000038 1 0 3 // Yenile
button 90 225 000037 000038 1 0 4 // Fiyat
button 90 130 000037 000083 1 0 5 // Bc gönder
dtext 110 130 1153 Broadcast Gönder
dtext 110 150 1153 Yenile
dtext 110 170 1153 Başlat
dtext 82 185 799 ---------------------------------
dtext 110 205 38 Eşya
dtext 82 240 799 ---------------------------------
dtext 82 300 799 ---------------------------------
dtext 110 225 38 Fiyat
dtext 100 260 1153 Başlangıç Fiyatı : <eval <tag.fiyat>>
dtext 100 280 38 Satılan Ev : <tag0.esyaadi>
dtext 120 95 799 D'hara Açık Arttırma Panel
dtext 100 320 39 Son Teklif : <eval <var.teklifx>>
dtext 100 335 39 Teklifi Gönderen : <var.gonderen>
dtext 100 350 39 İlk Fiyat : <eval <tag.fiyat>>
dtext 80 365 799 Version 0.1 By Abadan
[dialog d_acik text]
<eval <tag.fiyat>>
?
[dialog d_acik BUTTON]
On=0
src.hata Duyurudan vazgeçtiniz.
On=1
serv.allclients sysmessage @038,,1,1,1 [- Açık Arttırma Duyuru -]
serv.allclients sysmessage @07a1,,1 <serv.name> Staff <tag0.esyaadi> isimli evi <eval <tag.fiyat>> gp'den başlayarak açık arttırtmaya sunmuştur!
serv.allclients sysmessage @0799,,1 Açık arttırmaya katılmak için (.Teklif) yazmanız yeterli olucaktır.
serv.newitem i_duyuru_yasakci
new.equip
on=2
targetf f_itemsec
on=3
src.smy Liste yenilendi
src.dialogclose d_acik
src.tag0.fiyat 0
src.tag0.esyaadi Eklenmiş eşya yok.
on=4
src.sdialog d_fiat
on=5
serv.allclients sysmessage @038,,1,1,1 [- Açık Arttırma Duyuru -]
serv.allclients sysmessage @07a1,,1 <tag0.esyaadi> isimli evin açık arttırması <eval <var.teklifx>> gp'den devam ediyor.
[function f_itemsec]
if (<argo.value> == 0)
src.hata Bu eşya değersiz.
return 1
src.tag0.esyaadi <argo.name>
src.smy <argo.name> menüye eklendi.
[dialog d_fiat]
100,20
resizepic 180 170 5120 250 100
resizepic 205 223 9300 190 30
textentry 211 225 555 25 1153 0 1
button 190 190 4030 4031 1 0 1
dtext 220 190 044 Tamam
dtext 395 225 1153 Gp.
[dialog d_fiat TEXT]
Fiyatı belirleyiniz.
?
[dialog d_fiat BUTTON]
On=0
on=1
if (strmatch('<argtxt[0]>','?'))
src.hata Bir değer girmediniz.
return 1
endif
if ((strlen(<argtxt[0]>)) > 7)
src.hata En büyük para birimi olan 7 basamağı geçemez.
return 1
endif
IF (<IsNum <ARGTXT[<local._for>]>>==0)
src.hata Hatali karakter girdiniz.
RETURN 1
endif
src.tag0.fiyat <eval <argtxt[0]>>
src.sdialog d_acik
src.smy Belirlenen Fiyat : <eval <tag0.fiyat>>
var.teklifx <argtxt[1]>
var.gonderen <src.name>
Buda Teklif
Kod:
[PLEVEL 1]
teklif
[function teklif]
src.dialogclose d_tekliff
src.dialog d_tekliff
[DIALOG d_tekliff]
0,0
resizepic 66 62 3500 300 410
resizepic 80 92 3000 275 25
resizepic 135 250 3000 150 25
dtext 140 95 799 <serv.name> Açık Arttırma
tilepic 90 410 3823
tilepic 85 425 3820
tilepic 75 405 3823
tilepic 80 425 3820
tilepic 300 410 3823
tilepic 295 425 3820
tilepic 290 405 3823
tilepic 280 425 3820
button 250 273 000037 000038 1 0 1
dtext 90 120 38 Merhaba <name>;
dtext 90 140 038 Bu sistem sayesinde açık arttirmaya
dtext 90 155 038 sunulmuş evlere fiyat verebilir
dtext 90 170 038 açık arttırmadan satın alabilirsiniz.
dtext 90 185 038 Açık arttırma belirli günlerde
dtext 90 200 038 yapılıp stafflar tarafından duyurulur.
dtext 90 215 038 Fiyatınızı aşşağıya yazınız.
dtext 285 250 38 Gp
dtext 165 273 38 Fiyat Ver
dtext 80 355 39 Son Teklif : <eval <var.teklifx>> gp
dtext 80 370 39 Teklifi Gönderen : <var.gonderen>
dtext 80 385 39 Teklif zamanı : <var.tekzaman>
dtext 80 300 99 Satılan Ev : <tag0.esyaadi>
dtext 80 315 99 Açık Arttırma Süresi: 12 Saat
dtext 80 330 99 İlk Fiyat : <eval <tag.fiyat>>
dtext 130 420 799 <serv.name> Online Gaming
dtextentry 140 250 555 25 1153 1 ?
[dialog d_tekliff BUTTON]
On=1
if (strmatch('<argtxt[1]>','?'))
src.hata Bir değer girmediniz.
return 1
endif
if ((strlen(<argtxt[1]>)) > 7)
src.hata En büyük para birimi olan 7 basamağı geçemez.
return 1
endif
IF (<IsNum <ARGTXT[1]>>==0)
src.hata Hatali karakter girdiniz.
RETURN 1
endif
IF (<argtxt[1]> < <eval <var.teklifx>>)
src.hata Siz <var.gonderen> den daha az bir teklif gönderemezsiniz.
RETURN 1
endif
if (<gp> < <eval <var.teklifx>>)
src.hata Bankanızda verdiğiniz teklif kadar altın bulunmamaktadır.
return 1
endif
var.teklifx <argtxt[1]>
var.gonderen <src.name>
var.tekzaman <serv.rtime>
src.tag0.fiyat <eval <argtxt[0]>>
src.smy Belirlenen Fiyat : <eval <tag0.fiyat>>
src.smy Teklifi gönderdiniz.