Auto Gm Topuk .katil Ve Dakikalari SAymıyo Help

[function katil]
dialog d_topukkatil

ve

[Dialog d_katil BUTTON]

ONBUTTON=0
src.sms Sayin <src.name>, Yarismaya Katilmaktan vazgectiniz. Iyi Oyunlar.
return 1

ONBUTTON=2

burada d_katil i topukkatil yap

burayı böyle olarak değiştir.

[DIALOG d_topukkatil]
0 0
resizepic 100 100 5054 345 180
dtext 169 110 785 Topuk Yarismasi
dtext 115 130 69 Gm Topuk Yarismasi Bilgileri :
dtext 115 150 39 Duzenleyen : <var.duzenleyen>
dtext 115 170 39 Ucret : <eval <var.topukgiris>> Gold
dtext 137 221 29 Evet, Katilmak Istiyorum.
dtext 137 246 49 Hayir, Katilmak Istemiyorum.
button 115 220 210 211 1 0 1
button 115 245 210 211 1 0 2

[Dialog d_topukkatil BUTTON] 

ONBUTTON=0
src.sms Sayin <src.name>, Yarismaya Katilmaktan vazgectiniz. Iyi Oyunlar.
return 1

ONBUTTON=2
src.sms Sayin <src.name>, Yarismaya Katilmaktan vazgectiniz. Iyi Oyunlar.
return 1

diğer scpyi kopyala bir kenera bu scpyi dene bi bakalım

[function katil]
sdialog d_topukkatil

[DIALOG d_topukkatil]
0 0
resizepic 100 100 5054 345 180
dtext 169 110 785 Topuk Yarismasi
dtext 115 130 69 Gm Topuk Yarismasi Bilgileri :
dtext 115 150 39 Duzenleyen : <var.duzenleyen>
dtext 115 170 39 Ucret : <eval <var.topukgiris>> Gold
dtext 137 221 29 Evet, Katilmak Istiyorum.
dtext 137 246 49 Hayir, Katilmak Istemiyorum.
button 115 220 210 211 1 0 1
button 115 245 210 211 1 0 2

[Dialog d_topukkatil BUTTON] 

ONBUTTON=0
src.sysmessage Sayin <src.name>, Yarismaya Katilmaktan vazgectiniz. Iyi Oyunlar.
return 1

ONBUTTON=2
src.sysmessage Sayin <src.name>, Yarismaya Katilmaktan vazgectiniz. Iyi Oyunlar.
src.dialogclose d_topukkatil
return 1

ONBUTTON=1
if (<var.topukbasladibe> == 0)
src.sysmessage Sayin <src.name>, Suanda Yarisma Bulunmamakta. Lutfen Daha sonra tekrar deneyiniz. Iyi Oyunlar...
src.dialogclose d_topukkatil
return 1
endif

if (<var.topukbasladi> == 0)
src.sysmessage Sayin <src.name>, Yarisma Baslamis Bile Uzgunuz Gec kaldiniz... Daha sonra tekrar deneyin. Iyi Oyunlar...
src.dialogclose d_topukkatil
return 1
endif

if (<src.account.plevel> > 1)
src.sysmessage Stafflar Yarismalara Katilamaz.
return 1
endif

if (<src.findlayer.25.uid>)
src.sysmessage @38,,1 Altinizda binek varken Katilamazsiniz.
return 1
endif

if (<src.hits> < <src.str>)
src.sysmessage @38,,1 Yaraliyken Yarismaya Katilamazsiniz.
return 1
endif

if <src.restest <eval <var.topukgiris>> i_gold>
src.consume <eval <var.topukgiris>>  i_gold
src.events +e_topuk
src.bankayollababa
src.tag0.killeri <src.kills>
src.kills 10
var.gmtopukodul +=<eval <var.topukgiris>>
var.topuklol +=1
src.hits <src.str>
src.stam <src.dex>
src.go 5600,1228,5
src.nightsight 1
timerf 1,serv.allclients sysmessage @0785,1,1 <src.name> Yarismaya Katildi.Toplam Yarismaci Sayisi: <eval <var.topuklol>>, Odul : <eval <var.gmtopukodul>> Gold.
src.stone 1
else
src.sysmessage @0481,1,1 <eval <var.topukgiris>>  gold yaninizda olmali!
return 1


[DIALOG d_topukyap]
150,200

nomove
page 0
resizepic 0 0 5054 345 180
resizepic 215 135 3000 110 35
dtext 62 15 39 Gm Topuk
text 50 15 600 2
text 13 35 0 3
text 13 55 0 0
text 130 85 0 1
button 110 85 210 211 1 0 1

dtext 20 142 39 Katilim Ucreti Ne Olsun :
dtextentry 230 140 90 20 990 1 0


[DIALOG d_topukyap TEXT]
Gm Topuk Ucretini Belirlemeniz Gerek.
Tamam
*                           *
Sayin <src.name>, Gm Topuk Yapmak Uzeresiniz,

[DIALOG d_topukyap BUTTON] 

ONBUTTON=0
src.sysmessage Topuk yapmaktan Vazgectiniz.
return 1

ONBUTTON=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @786,1,1 Gm Topuk Giris Parasini sadece sayilardan olusturabilirsin.(Girdigin : <argtxt[1]>)
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @786,1,1 Hatali bir rakam girdiniz.(Girdigin : <eval <argtxt[1]>>)
elseif (<eval <argtxt[1]>> > 65000)
        src.sysmessage @080a Yarisma Maximum 65k Ile Ucretlendirilebilir.
        return 1
else
serv.allclients sysmessage Gm Topuk Giris Ucreti <eval <argtxt[1]>> Olarak Ayarlanmistir.
var.topukgiris <eval <argtxt[1]>>
serv.allclients sysmessage @0785 Gm Topuk Yarismasi Baslamistir.
serv.allclients sysmessage @0785,1,1 Gm Topuk Yarismasina Katilmak istiyorsaniz .katil yazmaniz yeterli.
src.newitem i_topukvar
src.act.p 5104,1759
var.topukbasladi 1
var.topukbasladibe 1
var.duzenleyen <src.name>
var.yarisma 1
var.topuklol 0
endif

[plevel 5]
topukbaslasin

[Function topukbaslasin]
if (<var.topukbasladi> == 0)
src.dialog d_topukyap
return 1
else
src.sysmessage Suan Zaten Bi Topuk yarismasi baslatilmis...
return 1
endif

[itemdef i_topukvar]
id i_grave_Stone
name topuk duzenliorum plz silmeyin

on=@create
timerf=30 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 4 Dakika 30 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=60 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 4 Dakika... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=120 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 3 Dakika... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=180 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 2 Dakika... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=240 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 1 Dakika... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=270 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 30 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=285 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 15 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=290 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 10 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=295 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 5 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=296 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 4 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=297 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 3 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=298 serv.allclients sysmessage Gm Topuk Katilimlarinin Bitmesine Son, 2 Saniye... [Ucret : <eval <var.topukgiris>>] Katilmak Icin : (.katil) Yazmaniz Yeterli.
timerf=299 serv.allclients sysmessage Gm Topuk Katilimlari Sona Ermistir. Lutfen bu konuda page atmayiniz.
color 080a
attr 010
timer 300
return 1


on=@timer
tupukubaslatirmisin
topukstoneleriacarmisin
var.topukbasladi 0
serv.allclients stone 0
serv.newnpc c_vortex
new.p 5608,1234,5
new.color 0785
new.name Physcho Killer
serv.allclients fix
serv.allclients nightsight 1
serv.allclients sysmessage @0785,1,1 Gm Topuk Yarismasi Baslamistir. Butun yarismacilara basarilar dileriz.
return 1


[function topukubaslatirmisin]
serv.newnpc c_vortex
new.p 5615,1236,6
new.color 0785
new.name Physcho Killer
serv.allclients fix
serv.allclients nightsight 1
return 1

[function topukstoneleriacarmisin]
if (<src.isevent.e_topuk>)
return 1
else
serv.allclients stone 0


[events e_topuk]
on=@logout
src.stone 0
src.go 1908,2098
src.events -e_topuk
var.topuklol -=1
src.kills <src.tag.killeri>
return 1

on=@death
src.go 1908,2098
src.events -e_topuk
src.resurrect
src.hits <src.str>
src.kills <src.tag.killeri>
serv.allclients sysmessage <name> Gm Topuk yarismasinda oldu...
var.topuklol -=1
return 1

on=@gethit
if (<var.topuklol> == 1)
src.remove
src.newitem i_topukbitiriorum
src.act.drop
src.fix
return 1
endif

on=@mount
return 1

on=@click
message @033 Gm Topuk [Event]
message @07a1 <name>
return 1

on=@itemdclick
return 1

on=@itempickup_ground
action -1
return 1

on=@skillstart
skill fail
return 1

on=@spellcast
if (<src.account.plevel> == 1)
src.sysmessage @0785 Sayin <name>, Yarismadayken bunu yapamassiniz.
f_fizzle
return 1

[itemdef i_topukbitiriorum]
id i_moongate_red
name Btirici
type t_telepad

on=@create
color 0455
timer 100
attr 010

on=@step
if (<src.account.plevel> > 1)
src.star
src.s A.q salakmiyim neyim yarisma gatesinden gecmeye calistim 
return 1
endif

if (<src.baseid> == c_vortex)
src.stone 1
src.remove 1
return 1
endif

src.tag0.kazandigimzaman <serv.rtime>
src.newitem i_check_brnx
src.new.more1 <var.gmtopukodul>
src.new.more2 <src.uid>
src.new.cont <src.findlayer(29).uid>
src.new.tag0.odulbu 1
src.go 1908,2098
src.newitem=i_topuk_odul
serv.allclients nightsight 0
src.act.cont <src.findlayer(29).uid>
src.act.attr 06
src.act.timer 604800
src.sysmessage Odulunuz Bankaniza Yollandi.
src.go 1908,2098

db.execute "insert into gmtopuk (id, kazanan, tarih) VALUES (NULL,'<src.name>','<src.tag0.kazandigimzaman>');"
remove
var.gmtopuk <src.name>
var.gmtopukodul 0
var.topukgirilmez 0
var.topukbasladi 0
var.duzenleyen 0
var.yarisma 0
var.topuklol 0
var.topukgiris 0
var.topukbasladibe 0

src.events -e_topuk
serv.allclients sysmessage @0785,1,1 GM Topuk Yarismasini Kazanan "<var.gmtopuk>" Olmustur kendisini Tebrik ederiz.
serv.allclients events -e_topuk

on=@click
message @0901 <serv.name>
message @0810 GM Topuk Bitirici
message @0785,1,1 Odul : <eval  <var.gmtopukodul>>
src.sysmessage @0785 Odulunuzu Almak Icin Gateden Geciniz...
return 1

on=@timer
remove


[function bankayollababa]
findlayer(1).cont=<findlayer.layer_pack.uid>
findlayer(2).cont=<findlayer.layer_pack.uid>
findlayer(3).cont=<findlayer.layer_pack.uid>
findlayer(4).cont=<findlayer.layer_pack.uid>
findlayer(5).cont=<findlayer.layer_pack.uid>
findlayer(6).cont=<findlayer.layer_pack.uid>
findlayer(7).cont=<findlayer.layer_pack.uid>
findlayer(8).cont=<findlayer.layer_pack.uid>
findlayer(10).cont=<findlayer.layer_pack.uid>
findlayer(12).cont=<findlayer.layer_pack.uid>
findlayer(13).cont=<findlayer.layer_pack.uid>
findlayer(14).cont=<findlayer.layer_pack.uid>
findlayer(17).cont=<findlayer.layer_pack.uid>
findlayer(18).cont=<findlayer.layer_pack.uid>
findlayer(19).cont=<findlayer.layer_pack.uid>
findlayer(20).cont=<findlayer.layer_pack.uid>
findlayer(22).cont=<findlayer.layer_pack.uid>
findlayer(23).cont=<findlayer.layer_pack.uid>
findlayer(24).cont=<findlayer.layer_pack.uid>
findlayer(layer_pack).attr 0
findlayer(layer_pack).cont <findlayer(layer_bankbox)>
findlayer(layer_pack).empty
findlayer(layer_pack).dclick
bank
update
return 1

Bu konu Sexy1 tarafından düzenlendi(2009-02-17 22:02, 15 yıl önce)

şuanda evde ultima online yok malesef kendi sphere'de denemem gerek şuan birşey yapamam ama araştırıyorum hala =)