Etkinlik Sistemi

Sexy1
2008-12-07 13:00
0 Yorumlar
1982 Görüntüleme
kusura bakmayın ama evimde sphere olmadığı için hiç bir deneme yapmadım herangibi bir bug veya sorun var düzeltirseniz sevinirim.



[plevel 4]

s_etkinlik



[function s_etkinlik]

dialog d_etkinlik



[dialog d_etkinlik

0,-40

page 0

nodispose

nomove

resizepic 20 60 5170 280 220



text 110 80 68 0

text 80 110 <eval 1152> 1

text 80 130 <eval 1152> 2

text 80 150 <eval 1152> 3

text 80 170 <eval 1152> 4

text 80 190 <eval 1152> 5

text 80 210 <eval 1152> 6

text 80 230 <eval 1152> 7



button 40 111 55 56 1 0 1

button 40 131 55 56 1 0 2

button 40 151 55 56 1 0 3

button 40 171 55 56 1 0 4

button 40 191 55 56 1 0 5

button 40 211 55 56 1 0 6

button 40 231 55 56 1 0 7



[dialog d_etkinlik text]

Etkinlik Menu

Pvp Turnuvasi

Gm Topuk

Box Turnuvasi

Zar

Bomberman

Engelli

Quest



[dialog d_etkinlik button]

on=0

return 1



on=1

src.serv.allclients sysmessage @077a,,1 Lootlu Pvp Turnuvasina vardir..Katilmak isteyenler safe alandan katilabilirler..

src.go 4878,1782,-5

src.newitem i_pvp

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return 1



on=2

src.serv.allclients sysmessage @077a,,1 Gm Topuk katilim baslamistir.Katilim Safedeki Gatedendir..

src.go 4974,1887,-5

src.newitem i_topuk

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return 1



on=3

src.serv.allclients sysmessage @077a,,1 Box turnuvasi katilim baslamistir.Katilim Safedeki Gatedendir..

src.go 5212,1755

src.newitem i_box

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return1



on=4

src.serv.allclients sysmessage @077a,,1 Zar turnuvasi katilim baslamistir.Katilim Safedeki Gatedendir..

src.go 5684,1194

src.newitem i_zar

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return 1



on=5

src.serv.allclients sysmessage @077a,,1 Bomberman yarisma katilimi baslamistir.Katilim Safedeki Gatedendir..

src.go 5721,785

src.newitem i_bomberman

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return 1



on=6

src.serv.allclients sysmessage @077a,,1 Engelli kosu katilim baslamistir.Katilim Safedeki Gatedendir..

src.go 5730,1084

src.newitem i_engelli

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return 1



on=7

src.serv.allclients sysmessage @077a,,1 Quest katilim baslamistir.Katilim Safedeki Gatedendir..

src.go 5249,1763

src.newitem i_quester

src.act.p 5480,1181

src.act.timer 600

src.act.morex <args>

return 1



////////////Lootlu Pvp Gate ////////////////



[itemdef i_pvp]

id=i_moongate_black

type=t_moongate

defname=i_pvp



on=@create

attr=010

color=0455



on=@click

message @0481,,1 Lootlu Pvp

message @50,,1 Sure: <timer> sn.

return 1



on=@step

if (<src.findlayer(25)>)

	src.sysmessage @38,,1 Atli olarak turnuvaya katilamazsiniz.

	return 1

endif

if (<src.findid.i_bandage>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_healgreat>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_curegreat>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_pvpbag>)

	src.sysmessage @38,,1 Yaninizda bag varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_bag>)

	src.sysmessage @38,,1 Yaninizda bag varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_basket_square>)

	src.sysmessage @38,,1 Yaninizda bag varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_poisondeadly>)

	src.sysmessage @38,,1 Yaninizda Poison Pot varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_pet_horse_brown_dk>)

	src.sysmessage @38,,1 Yaninizda Horse varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_bleed>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_poison>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_refreshtotal>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_potion_agility>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

if (<src.findid.i_tp>)

	src.sysmessage @38,,1 Yaninizda bandaj veya potion varken katilamazsiniz.

	return 1

endif

src.go 4878,1782,-5

src.events -e_safe

src.stone

src.sysmessage @077a,,1 Turnuva girisiniz tamamlanmistir..

enddo



on=@dclick

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Lootlu Pvp Katilim Bitmistir..Iyi Oyunlar..

remove 1



///////////////////////////// Gm Topuk Gate        /////////////////////////////////



[itemdef i_topuk]

id=i_moongate_black

type=t_moongate

defname=i_topuk



on=@create

attr=010

color=07a1



on=@click

message @0481,,1 Gm Topuk

message @50,,1 Sure: <timer> sn.

return 1



on=@dclick

return 1



ON=@Step

if !(<src.findlayer.25>==0)

src.sysmessage @38,,1 Yarismaya binekle katilamazsiniz..

return 1

endif

src.go 4974,1887,-5

src.events -e_safe

src.stone

src.findlayer.21.attr 00

src.findlayer.21.cont <src.findlayer.29>

for 1 24

if !(<eval <local._for>>==9) && !(<eval <local._for>>==11) && !(<eval <local._for>>==14) && !(<eval <local._for>>==16) && !(<eval <local._for>>==1) && !(<eval <local._for>>==21)

try src.findlayer.<eval <local._for>>.cont <src.findlayer.29>

endif

endfor

src.update

src.findlayer.29.open

src.sysmessage @084a,,1 Itemler bankaya yerlestirildi..

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Gm Topuk katilim bitmistir..

remove 1



////////// Box Turnuvasi ////////////



[itemdef i_box]

id=i_moongate_black

type=t_moongate

defname=i_box



on=@create

attr=010

color=080a



on=@click

message @0481,,1 Box Yarismasi

message @50,,1 Sure: <timer> sn.

return 1



on=@dclick

return 1



ON=@Step

if !(<src.findlayer.25>==0)

src.sysmessage @38,,1 Yarismaya binekle katilamazsiniz..

return 1

endif

src.go 5212,1755

src.events -e_safe

src.stone

src.findlayer.21.attr 00

src.findlayer.21.cont <src.findlayer.29>

for 1 24

if !(<eval <local._for>>==9) && !(<eval <local._for>>==11) && !(<eval <local._for>>==14) && !(<eval <local._for>>==16) && !(<eval <local._for>>==1) && !(<eval <local._for>>==21)

try src.findlayer.<eval <local._for>>.cont <src.findlayer.29>

endif

endfor

src.update

src.findlayer.29.open

src.sysmessage @084a,,1 Itemler bankaya yerlestirildi..

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Box yarismasi katilim bitmistir..

remove 1



/////   Zar turnuvası /////



[itemdef i_zar]

defname i_zar

id i_moongate_black

name Zar Turnuvasi

type t_moongate



on=@create

color 08a0



on=@click

message @0481,,1 Zar Yarismasi

message @50,,1 Sure: <timer> sn.

return 1



on=@dclick

return 1



on=@step

if !(<src.findlayer.25>==0)

src.sysmessage @38,,1 Yarismaya binekle katilamazsiniz..

return 1

endif

src.go 5682,1194

src.events -e_safe

src.stone

src.sysmessage @084a,,1 Zar turnuvasina katildiniz..

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Zar turnuvasi yarismasi katilim bitmistir..

remove 1



////// Bomberman ///// 





[itemdef i_bomberman]

id=i_moongate_black

type=t_moongate

defname=i_bomberman



on=@create

attr=010

color=080a



on=@click

message @0481,,1 Bomberman

message @50,,1 Sure: <timer> sn.

return 1



on=@dclick

return 1



ON=@Step

if !(<src.findlayer.25>==0)

src.sysmessage @38,,1 Yarismaya binekle katilamazsiniz..

return 1

endif

src.go 5721,785

src.events -e_safe

src.stone

src.findlayer.21.attr 00

src.findlayer.21.cont <src.findlayer.29>

for 1 24

if !(<eval <local._for>>==9) && !(<eval <local._for>>==11) && !(<eval <local._for>>==14) && !(<eval <local._for>>==16) && !(<eval <local._for>>==1) && !(<eval <local._for>>==21)

try src.findlayer.<eval <local._for>>.cont <src.findlayer.29>

endif

endfor

src.update

src.findlayer.29.open

src.sysmessage @084a,,1 Itemler bankaya yerlestirildi..

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Bomberman yarismasi katilim bitmistir..

remove 1



//////// Engelli Kosu ///////



[itemdef i_engelli]

defname i_engelli

id i_moongate_black

name Engelli Kosu

type t_moongate



on=@create

attr 010

color 082e



on=@click

message @0481,,1 Engelli Kosu

message @50,,1 Sure: <timer> sn.

return 1



on=@dclick

return 1



on=@step 

if !(<src.findlayer.25>==0)

src.sysmessage @38,,1 Yarismaya binekle katilamazsiniz..

return 1

endif

src.go 5730,1084

src.events -e_safe

src.stone

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Engelli kosu yarismasi katilim bitmistir..

remove 1



///// Quest /////



[itemdef i_quester]

defname i_quester

id i_moongate_black

name Quester

type t_moongate



on=@create

attr 010

color 0455



on=@click

message @0481,,1 Quest Gate

message @50,,1 Sure: <timer> sn.

return 1



on=@dclick

dialog d_giris

return 1



on=@step

dialog d_giris

return 1



on=@timer

src.serv.allclients sysmessage @077a,,1 Quest katilim bitmistir..

remove 1



//// dialogu /////



[dialog d_giris]

100,100

nomove

page 0

resizepic 0 0 3500 310 300

resizepic 10 10 3000 290 280

resizepic 10 10 3000 290 27



dhtmlgump 15 15 300 20 0 0 <def.BFONT_RED>              Quest Giris

dhtmlgump 30 60 300 20 0 0 <def.BFONT_BLACK> Katil

dhtmlgump 15 110 300 70 0 0 <def.BFONT_RED>   UYARI :<def.BFONT_BLACK> Degerli esyalarinizi ve bineginizi lutfen bankaniza koyunuz..Aksi takdirde giden ve calinan esyalardan olen bineklerden biz sorumlu deiliz..

dhtmlgump 15 200 300 20 0 0 <def.BFONT_RED>   Alanda :

dhtmlgump 30 225 300 20 0 0 <def.BFONT_BLACK> 1 Quest Canavari

dhtmlgump 30 245 300 20 0 0 <def.BFONT_BLACK> 7 Orc Bomber

dhtmlgump 30 265 300 20 0 0 <def.BFONT_BLACK> 2 Rotting Corpse <def.BFONT_RED>bulunmaktadir.



button 18 60 55 56 1 0 1



[dialog d_giris button]

on=0

src.sysmessage @38,,1 Kapatildi.

return 1



on=1

src.go 5249,1763

src.events -e_safe

src.sysmessage @68,,1 Quest Yarismasina Katildiniz..

return 1
Değerlendirmeler

Total votes: 0
Etkinlik Sistemi

Değerlendirmeler

Üye Ol veya Giriş Yap

Yorumlar (0)

MMORPG'de Devrim Yaptı: Sınıf Tanımayan Ultima Online!

Ultima Online'ın Oynanışını Tamamen Değiştiren Harita Kararı!

Yeni Başlayanlar İçin Ultima Online

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

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

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

Centred#

CentrED+ 7.9
