Üye ol    Giriş
  1. Forumlar
  2. Oyunlar
  3. Ultima Online
  4. Sphere Scripting
  5. Uçuş Bileti

Uçuş Bileti

xwerswoodx üyesi avatar
xwerswoodx
Expert
5.4
Uçuş bileti fixlenerek serverin başında küçük bir tur kağıdı olarkta kullanılabilirken 15k Ucak Coin ile alınan bu bilet bir kereye mahsus olarak
şehirlerden birine gidilebilir yani aksiyonda diyelim 15 canınız kaldı kullanırsınız ve kaçarsınız ve paralyze etmediği için adam size vurmadan gidebilirsiniz.
Veya diyelim ki internet kafedesiniz 1 dk nız kaldı stuck çekme hakkınız yok en yakın şehirde en az 10dk koşman gerek arkandada adam var kesilmek istemiyorsun veya şehirden şehire gitmek içinde kullanılabilir :D Bilet biterse hostes kadından alınabilir :D



///////////////////////////////////////////////////
///Bu Scripts xwerswoodx tarafından yazılmıştır.///
///---------------05:46 09.06.2008--------------///
///////////////////////////////////////////////////
//.add c_hostes					///
//.add c_bilet_skeleton				///
//.add i_ucak_coin				///
//.add i_ucus_bileti				///
//.add i_ucus_bileti_2				///
///////////////////////////////////////////////////

[itemdef i_ucus_bileti]
defname=i_ucus_bileti
id=i_scroll_blank
type=t_scroll_blank
Name=Ana Ucus Bileti

On=@Create
Color=020
attr=attr_newbie

On=@Click
Message @048 [<serv.name>]
Message @056 [Kaybolmaz]
Message @020 <name> (<amount>)
return 1

On=@Dclick
if (<topobj.uid> != <src.uid>)
src.sysmessage @048 Bunu kullanabilmeniz icin cantanizda olmali.
else
sDialog d_ea
return 1

//Açmaya Eminmisin?

[dialog d_ea]
0,0
move
resizepic 10 50 3500 300 135
text 25 68 105 0 0
button 30 105 2224 2117 1 0 1
text 55 102 0481 1
button 30 130 2224 2117 1 0 2
text 55 127 0481 2

text 75 153 0455 3

[dialog d_ea text]
Bileti Acmak Istiyormusun?
Evet...
Hayir...
Craffed By xwerswoodx

[dialog d_ea button]
On=0
src.dialog d_ea
src.sysmessage @048 Seceneklerden Birini Secmelisin.
return 1

On=1
src.dialog d_ucus_aciklama
return 1
SRC.FIX

On=2
return 1

//Eminmisin Acmaya 2?

[dialog d_ea_2]
0,0
move
resizepic 10 50 3500 300 135
text 25 68 105 0 0
button 30 105 2224 2117 1 0 1
text 55 102 0481 1
button 30 130 2224 2117 1 0 2
text 55 127 0481 2

text 75 153 0455 3

[dialog d_ea_2 text]
Bileti Acmak Istiyormusun?
Evet...
Hayir...
Craffed By xwerswoodx

[dialog d_ea_2 button]
On=0
src.dialog d_ea_2
src.sysmessage @048 Seceneklerden Birini Secmelisin.
return 1

On=1
src.dialog d_ucus_bileti
return 1.
SRC.FIX

On=2
return 1


/// 2. Ucus Bileti

[itemdef i_ucus_bileti_2]
defname=i_ucus_bileti_2
id=i_scroll_blank
type=t_scroll_blank
Name=Ucus Bileti

On=@Create
Color=048
attr=attr_newbie

On=@Click
Message @048 [<serv.name>]
Message @056 [Kaybolmaz]
Message @020 <name> (<amount>)
return 1

On=@Dclick
if (<topobj.uid> != <src.uid>)
src.sysmessage @048 Bunu kullanabilmeniz icin cantanizda olmali.
else
sDialog d_ea_2
return 1


///Uçuş Text Dialog

[DIALOG d_ucus_aciklama]
0,0
MOVE
resizepic 10 50 3500 440 350
text 25 68 105 0 0
text 60 100 0020 1
text 60 125 0492 2
text 60 150 0020 3
text 60 175 0492 4
text 60 200 0020 5
text 60 225 0492 6
text 60 250 0020 7
text 60 275 0492 8
text 60 300 0020 9
text 60 325 0492 10

button 360 375 2224 2117 1 0 1
text 385 371 0493 11
button 30 375 2224 2117 1 0 2
text 55 371 0493 12

text 145 371 0455 13


[DIALOG d_ucus_aciklama TEXT]
<serv.name> Ucus Bileti Kullanimi
Ucus Biletini kullanmak icin devam tusunu kullanin.
Ucus Biletini Kullandıktan Sonra Uzerinize Yesil
Bir Bilet Gelecektir.
Bu Yesil Bilete 2 Kere Tiklayinca Sehirlerin
Oldugu Bir Menu Acilacaktir.
Bu Menuden Istediginiz Yere Gidebilirsiniz.
1 Bilet Fiyati 15k Ucak Coindir.Her Bilet 1 
Kullanimliktir.2.Bir Bilet Icin Hostesimizi Bulun.
Dipnot: Iptal Ederseniz Biletiniz Yanar.
Dipnot: Bu Menuyu 1 Kere Kullanabilirsiniz.
Devam
Iptal
Craffed By xwerswoodx

[Dialog d_ucus_aciklama BUTTON]
On=0
src.dialog d_ucus_aciklama
return 1

On=1
if (<src.restest 1 i_ucus_bileti>)
SRC.NEWITEM i_ucus_bileti_2
SRC.ACT.BOUNCE
return1
src.consume 1 i_ucus_bileti
src.sysmessage @080a Ucus Bileti cantaniza konulmustur. Iyi oyunlar...
return 1
else
src.sysmessage @080a Yaninizda 1 adet Ana Ucus Bileti yok.Lutfen Hostesi Ziyaret Ediniz.
return 1
endif
SRC.FIX

On=2
src.dialog d_ey
return 1

///Dialog Eminmisin Yakmaya
[dialog d_ey]
0,0
move
resizepic 10 50 3500 300 135
text 25 68 105 0 0
button 30 105 2224 2117 1 0 1
text 55 102 0481 1
button 30 130 2224 2117 1 0 2
text 55 127 0481 2

text 75 153 0455 3

[dialog d_ey text]
Bileti Yakmak Istediginden Eminmisin?
Evet...
Hayir...
Craffed By xwerswoodx

[dialog d_ey button]
On=0
src.dialog d_ey
src.sysmessage @048 Seceneklerden Birini Secmelisin.
return 1

On=1
src.consume 1 i_ucus_bileti
src.sysmessage @080a Biletiniz Yanmistir. Iyi oyunlar...
return 1.
SRC.FIX

On=2
src.dialog d_ucus_aciklama
return 1

/// Dialog d_ey_2

[dialog d_ey_2]
0,0
move
resizepic 10 50 3500 300 135
text 25 68 105 0 0
button 30 105 2224 2117 1 0 1
text 55 102 0481 1
button 30 130 2224 2117 1 0 2
text 55 127 0481 2

text 75 153 0455 3

[dialog d_ey_2 text]
Bileti Yakmak Istediginden Eminmisin?
Evet...
Hayir...
Craffed By xwerswoodx

[dialog d_ey_2 button]
On=0
src.dialog d_ey_2
src.sysmessage @048 Seceneklerden Birini Secmelisin.
return 1

On=1
src.consume 1 i_ucus_bileti_2
src.sysmessage @080a Biletiniz Yanmistir. Iyi oyunlar...
return 1.
SRC.FIX

On=2
src.dialog d_ucus_bileti
return 1


///Uçuş Dialog

[DIALOG d_ucus_bileti]
0,0
MOVE
resizepic 10 50 3500 440 350
text 25 68 105 0 0
button 30 100 2224 2117 1 0 1
text 60 100 0492 1
button 30 125 2224 2117 1 0 2
text 60 125 0492 2
button 30 150 2224 2117 1 0 3
text 60 150 0492 3
button 30 175 2224 2117 1 0 4
text 60 175 0492 4
button 30 200 2224 2117 1 0 5
text 60 200 0492 5
button 30 225 2224 2117 1 0 6
text 60 225 0492 6
button 30 250 2224 2117 1 0 7
text 60 250 0492 7
button 30 275 2224 2117 1 0 8
text 60 275 0492 8
button 30 300 2224 2117 1 0 9
text 60 300 0492 9
button 30 375 2224 2117 1 0 10
text 55 371 0493 10

text 145 371 0455 11


[DIALOG d_ucus_bileti TEXT]
<serv.name> Ucus Bileti
Safe
Moonglow
Britain
Trinsic
Delucia
Minoc
Jhelom
Yew
Skara Brae
Iptal
Craffed By xwerswoodx

[DIALOG d_ucus_bileti BUTTON]
ONBUTTON=0
src.dialog d_ucus_bileti
RETURN 1

ONBUTTON=1
src.consume 1 i_ucus_bileti_2
src.newitem i_timer_15sn
src.act.equip 
SRC.GO safe
src.sysmessage @056 Safe Alana Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX

ONBUTTON=2
src.consume 1 i_ucus_bileti_2
SRC.GO Moonglow
src.sysmessage @056 Moonglow&&#35039;a Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX

SRC.FIX

ONBUTTON=3
src.consume 1 i_ucus_bileti_2
SRC.GO Britain
src.sysmessage @056 Britain&&#35039;e Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX


ONBUTTON=4
src.consume 1 i_ucus_bileti_2
SRC.GO Trinsic
src.sysmessage @056 Trinsic&&#35039;e Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX

ONBUTTON=5
src.consume 1 i_ucus_bileti_2
SRC.GO Delucia
src.sysmessage @056 Delucia&&#35039;ya Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX



ONBUTTON=6
src.consume 1 i_ucus_bileti_2
SRC.GO Minoc
src.sysmessage @056 Minoc&&#35039;a Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX


ONBUTTON=7
src.consume 1 i_ucus_bileti_2
SRC.GO Jhelom
src.sysmessage @056 Jhelom&&#35039;a Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX


ONBUTTON=8
src.consume 1 i_ucus_bileti_2
SRC.GO Yew
src.sysmessage @056 Yew&&#35039;e Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX


ONBUTTON=9
src.consume 1 i_ucus_bileti_2
SRC.GO Skara Brae
src.sysmessage @056 Skara Brae&&#35039;ye Hos Geldiniz...Sayin <src.name>
return 1
SRC.FIX

ONBUTTON=10
src.dialog d_ey_2
return 1

/// Hostes

[chardef c_hostes]
defname c_hostes
NAME=Hostes
ID=C_WOMAN
DESIRES=i_gold,e_notoriety
AVERSIONS=t_TRAP,t_eerie_stuff

On=@Click
Message @048 [<serv.name>]
Message @020 <Name>
return 1

ON=@Create
NPC=brain_vendor
COLOR=colors_skin
STR=&&#35123;100 100}
DEX=&&#35123;100 100}
INT=&&#35123;100 100}
title Hostes

Karma=&&#35123;100 200}
Fame=&&#35123;100 200}

ITEMNEWBIE=i_mage_robe
COLOR 033
ITEMNEWBIE=i_studded_gorget
COLOR 033
ITEMNEWBIE=i_studded_gloves
COLOR 033
ITEMNEWBIE=i_studded_leggings
COLOR 033
ITEMNEWBIE=i_studded_sleeves
COLOR 033
ITEMNEWBIE=i_studded_tunic
COLOR 033
ITEMNEWBIE=i_boots_calf
COLOR 033

ON=@GETHIT
src.hits 100
return 1

ON=@DClick
if (<src.restest 15000 i_ucak_coin>)
SRC.NEWITEM i_ucus_bileti
SRC.ACT.BOUNCE
return1
src.consume 15000 i_ucak_coin
src.sysmessage @080a <name>&&#35039;niz cantaniza konulmustur. Iyi oyunlar...
return 1
else
src.sysmessage @080a Yaninizda 15000 Ucak Coin yok.
return 1
endif
SRC.FIX

//Coin

[itemdef i_ucak_coin]
defname=i_ucak_coin
id=i_gold
name=Ucak Coin

On=@Create
Color=033
attr attr_newbie

On=@Click
Message @048 [<serv.name>]
Message @056 [Kaybolmaz]
Message @020 <amount> <Name>
src.sysmessage @098 Bu Bileti Sadece Hosteste Kullanabilirsiniz.
return 1

//Skeleton

[CHARDEF c_bilet_skeleton] 
DEFNAME=c_bilet_skeleton
NAME=Biletli Skeleton
ID=c_skeleton
SOUND=snd_ANIMALS_skeleton3
ICON=i_pet_skeleton

DAM=1.3
ARMOR=20
RESOURCES=32 i_ribs_raw,10 i_hide

//ALIGMENT=EVIL 
CAN=MT_WALK|MT_RUN 
FOODTYPE=90 t_meat_raw 
SHELTER=r_caves,r_dungeon 
DESIRES=i_gold  
AVERSIONS=r_civilization,r_water 

ON=@Create 
COLOR=033
STR=&&#35123;20 20} 
DEX=&&#35123;1 1} 
INT=&&#35123;0 0} 

TAMING=1000.0 

NPC=brain_monster a

FAME=&&#35123;55 150} 
KARMA=&&#35123;-9000 -10000} 

ON=@NPCRestock 
ITEM=i_ucak_coin,&&#35123;900 1000}

CATEGORY=xwerswoodx
SUBSECTION=Script&&#35039;s
DESCRIPTION=Biletli Skeleton

On=@Click
Message @048 [<serv.name>]
Message @020 <Name>
src.sysmessage @098 Beni Kes Icimden Ucak Coin Cikar.
return 1

Arkadaşlar bu kez beğenmeyen konuşmasın yine kavga olmasın lütfen :D

Bu konu xwerswoodx tarafından düzenlendi(2008-06-09 15:07, 15 yıl önce)
  • 2008-06-09 14:27
  • #1
Aramachus
Aramachus
Novice
6
Anlatım ?
  • 2008-06-09 15:01
  • #2
xwerswoodx üyesi avatar
xwerswoodx
Expert
5.4
sory eskisinde vardı diye tmm hemen ekliyorum :D
  • 2008-06-09 15:02
  • #3

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj 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