Türkiye'nin en eski ve aktif online oyun platformu, Ultima Online, Counter-Strike ve diğer online oyunlar hakkında Türkçe haber, bilgi ve forum sunuyor. Türkiye'nin en eski ve aktif online oyun platformu, Ultima Online, Counter-Strike ve diğer online oyunlar hakkında Türkçe haber, bilgi ve forum sunuyor.
  • ANASAYFA
  • ULTIMA ONLINE
    • Ultima Online Oyuncu Rehberi

      Ultima Online Oyuncu Rehberi

      Oyunu hakkında tanıcı bilgiler ve ipuçları

    • Ultima Online Server List

      Ultima Online Server List

      Önemli özellikleri ve online oyuncu sayıları

    • Ultima Online Script

      Ultima Online Script

      Sphere, RunUO, Razor scriptleri

    • Ultima Online Forum

      Ultima Online Forum

      UO hakkında görüş alışverişi

  • FORUM
  • DOKÜMAN
  • İNDİR
  • DISCORD 41
   Üye ol    Giriş
120
  1. UO Scriptleri
  2. Sphere Scripts
  3. Gumps/Dialogs
  4. Açık Arttırma
Kell

Açık Arttırma

  • Kell
  • 2007-08-21 14:42
  • 0 Yorumlar
  • 9968 Görüntüleme
// aceleyle yazdım bi sürü var kullandım başka bi yolu varsa pm atın.



[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 Acik arttirma su an icin baslamamis.
endif
return 1


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


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


on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage Sadece rakam kullanabilirsiniz.
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage Hatali bir rakam girdiniz.
elseif (<eval <argtxt[1]>> < <eval <var.enyuksek>+50000> )
src.sysmessage En yuksek tekliften 50k daha fazla teklif etmelisiniz
elseif (<eval <argtxt[1]>> > <src.totalgold>)
src.sysmessage Bankanizda <eval <argtxt[1]>> kadar altin bulunmuyor.
else
var.enyuksekyapan <src.name>
var.enyuksek <eval <argtxt[1]>>
var.enyuksekyapanuid <src.uid>
serv.allclients sysmessage @49 <serv.name> Acik Arttirma Duyuru:
serv.allclients sysmessage @49 <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 Acik arttirmayi kazandiniz.
f_ihalebitti
serv.allclients sysmessage @49 <serv.name> Acik arttirma Duyuru:
serv.allclients sysmessage @49 <var.enyuksekyapan> acik arttirmayi kazandi..
endif

[function ayarihale]
if (<account.plevel> < 6)
src.sysmessage Sadece admin ve ownerlar kullanabilir.
else
sdialog d_ihaleayar
endif
endif

[dialog d_ihaleayar]
50,50
nomove
resizepic 0 0 5054 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_unicorn
dtext 40 70 1152 binegin ismi:
dtextentry 120 70 90 20 49 2 Unicorn
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 00 By Scripter KeLL
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 @49 <serv.name> Acik arttirma Duyuru:
serv.allclients sysmessage @49 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 0fb4
attr 04

on=@Dclick
if !(<topobj.uid> = <src.uid>)
src.sysmessage @55 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 <serv.name>
message @07a1 Acik Arttirma Binegi
return 1




[FUNCTION acikal]
IF (<totalgold> < <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

Değerlendirmeler

0 0

Total votes: 0

Üye Ol veya Giriş Yap

Bu içeriğe yorum atmak istiyorsanız hemen üye olun veya giriş yapın.

Discord ile Bağlan
Twitch ile Bağlan
Steam ile Bağlan
Google ile Bağlan

Yorumlar (0)

Henüz yorum yapılmamış
Sadece kayıtlı kullanıcılar yeni yorum yapabilir.


Ultima-Strike Discord
Benzer Sayfalar
  • Açık Arttırma Sistemi

    2009-08-10 14:59

  • CS:GO FPS Arttırma ile ilgili detaylı bilgilendirici faydalı döküman
    CS:GO FPS Arttırma ile İlgili Herşey

    2017-05-28 02:58

  • Firefox’ta iki kritik açık

    2005-05-11 00:04

  • Counter Strike: GO'ya Açık Beta!

    2012-06-15 12:10



  • Son Forumlar
  • Sayfalar
  • Arizone
    Üyeliği 15 yıl ve üzerinde olanlar.

    Ultima Online 1 gün önce

  • Nefrelius
    Alcor UO Reborn

    Sunucular 1 hafta önce

  • System_Error
    Client Patlaması

    Ultima Online 1 hafta önce

  • georgm15
    CS2 turnuvaları tartışmalı başladı.

    Counter-Strike 2 1 hafta önce

  • georgm15
    Counter-Strike 1.6 İndir - Tek Link Hızlı-

    Counter-Strike 1 hafta önce

  • Cihangir algın
    Razor Kullanımı

    RunUo Scripting 3 hafta önce

  • Lucretius
    Rampage Pvp

    Sunucular 1 ay önce

  • Lucretius
    Nephilim Pvp

    Sunucular 1 ay önce

  • redi4817
    NightUO

    Sunucular 1 ay önce

  • Cengiz MERDİT
    Sphere 56T Nightly Sürümü

    Ultima Online 1 ay önce

  • aygun
    Esgaroth UO

    Sunucular 1 ay önce

  • deonist
    Alysa Pvp ( Aktif ! )

    Sunucular 1 ay önce

  • mthN
    Nebula Uo gerçekleri

    Ultima Online 2 ay önce

  • buffa
    Kullanılması Gereken Rate Ayarları

    Counter-Strike 2 ay önce

  • Lucretius
    Aktif Satılık Server !

    Sunucular 2 ay önce

  • Skill seçimlerinizi planlamak artık çok daha kolay

    Ultima Online Karakter Yapılandırma Aracı Bölümü Açıldı!

    2024-10-31 22:47

  • Ultima Online topluluğu, ClassicUO'nun sadece web client olarak kullanılabileceğinin açıklanmasının ardından tepkili.

    Resmi UO, Oyuncuları İkiye Böldü: Web Client Yeterli mi?

    2024-10-14 17:45

  • Ultima Online, ClassicUO ile resmi işbirliği yapıyor! Performans iyileştirmeleri, geniş oyun penceresi ve daha fazlası geliyor.

    Ultima Online, ClassicUO ile Resmi İşbirliğine Gidiyor

    2024-09-26 14:21

  • Centred#

    2024-07-08 22:50

  • CentrED+ 7.9

    2024-07-08 22:34

  • Distance(uzaklık) Sorgusu Hakkında

    2024-06-19 22:05

  • UoFiddler

    2024-06-01 02:19

  • UoFiddler ile Map Kopyalama

    2024-05-31 21:17

Menü
  • ANASAYFA
  • FORUM
  • DOKÜMAN
  • İNDİR
  • İLETİŞİM
  • Bağlantılar
  • CS 1.6 indir
  • CS 1.6 Türkçe
  • CS 1.6 Bot
  • CS 1.6 CFG
  • CS 1.6 Rate Ayarları
  • UO Server
  • Ghost Mouse indir
  • FPS Nedir?
  • Ultima Online PVP Server
  • Makroman
  • UO Karakter Yapılandırma
    © 2004 - 2025 Ultima-Strike. Her hakkı saklıdır.