Deniz Ticareti

'Uur
2015-01-25 18:23
0 Yorumlar
1224 Görüntüleme
[chardef c_denizticaret]

ID=c_man

NAME=Angora

CAN=MT_USEHANDS|MT_EQUIP

CATEGORY=Civilized

SUBSECTION=Questers

DESCRIPTION=Human Male



ON=@Create

FLAGS=statf_invul

NPC=BRAIN_HUMAN

DEX=10

INT=10

STR=10

item i_robe

color colors_all



on=@Dclick

if !(<dtag0.dgorev_1>)

src.ctag0.dvendor <uid>

src.denizticaret

src.dialogclose d_deniz_ticaret

src.dialog d_deniz_ticaret

else

src.dialog d_deniz_ticaret

retunr 1

endif



on=@Click

message @,,1 [Deniz Ticareti]



[chardef c_denizvendor]

ID=c_man

CAN=MT_USEHANDS|MT_EQUIP

DESCRIPTION=Human Male



ON=@Create

dorand 5

name=Spinds

name=Brngi

name=Nmiyi

name=Vimsi

name=Prandi

enddo

FLAGS=statf_invul

NPC=BRAIN_HUMAN

DEX=10

INT=10

STR=10

item i_robe

color colors_all



[plevel 01]

dticaret



[function dticaret]

if (<tag0.dgorev_1>)

	sdialog d_deniz_ticaret

else

src.sysmessage @,,1 Şuan ticaret göreviniz bulunmuyor.

return 1

endif



[dialog d_deniz_ticaret]

50,50



bozobag 10,10,300,300

alphablack 20 20 280 280



dtext 30 50 0481 Gidilecek şehir: <basharfbuyuk <f_moonsep 1,<tag0.dgorev>>>

dtext 30 70 0481 Gidilecek görevli: <uid.<tag0.dgorevvendor>.name> Tüccar

dtext 30 90 0481 İstenilen eşya: <basharfbuyuk <serv.itemdef.<f_moonsep 2,<tag0.dgorev>>.name>>

dtext 30 110 0481 İstenilen miktar: <f_moonsep 3,<tag0.dgorev>>

dtext 30 130 0481 Kazanılacak miktar: <f_bolukayir <dtag.dgorevgold>>

tilepic 190 90 <serv.itemdef.<f_moonsep 2,<tag0.dgorev>>.id>>



dhtmlgump 23 170 275 105 1 1 <f_moonsep 5,<tag0.dgorev>>

dtext 180 280 0481 Ticaret Puanı: <dtag.tpuan>



if !(<tag0.dgorev_1>)

dtext 50 280 0481 Görevi kabul et

button 30 280 2117 2118 1 0 1

else

dtext 50 280 0481 Görevi iptal et

button 30 280 2117 2118 1 0 2

endif



[dialog d_deniz_ticaret button]

on 1

ref1=<src.ctag0.dvendor>

if (<ref1.distance <src.uid>> < 3)

src.gemibul

else

src.sysmessage @,,1 <ref1.name> vendorundan çok uzaksınız.

return 1

endif



on 2

if (<src.findid.i_dgorevtimer>)

src.findid.i_dgorevtimer.remove

src.sysmessage @,,1 Görevi iptal ettiniz.

return 1

endif



[function denizticaretbaslat]

src.findid.i_dgorevtimer.remove

SRC.NEWITEM I_dgorevtimer

SRC.EQUIP <NEW>



[function gemibul]

IF (<SRC.ACTION>==SKILL_MAGERY)

src.sysmessage @,,1 Şuan kullanamazsınız.

return 1

elif (<src.findid.i_stuck_ice>)

src.sysmessage @,,1 Şuan kullanamazsınız.

return 1

endif

foritems 16

ref1=<uid>

if (<ref1.type> == t_ship)

	if (<ref1.more1> == <src.uid>)

		if (<ref1.distance <src.uid>> < 15)

		src.events e_dticaret

		src.findid.i_dgorevtimer.remove

		src.newitem i_dgorevtimer

		ref2=<new>

		ref2.more1 <ref1>

		src.equip <ref2>

		src.tag0.dgorev_1 1

		return 1

		else

		src.sysmessage @,,1 Geminiz yakınlarda değil.

		return 1

		endif

	else

	src.sysmessage @,,1 Yakınlarda size ait gemi yok.

	return 1

	endif

endif

endfor





[itemdef i_dgorevtimer]

name Deniz Ticaret Timer

ID=I_MEMORY

TYPE=T_EQ_SCRIPT

WEIGHT=0

LAYER=LAYER_SPECIAL



on=@Equip

src.sysmessage @,,1 Eşyaları alıp hemen gemiye binmelisin! <uid.<more1>.name> hemen binmelisiniz.

timer 1

foritems 20

ref1=<more1>

ref2=<uid>

if (<ref2.type> == t_ship_hold) || (<ref2.type> == t_ship_hold_lock)

if (<ref2.link> == <ref1>)

ref1.tag0.hold <ref2>

endif

endif

endfor

ref1=<more1>

tag0.hold <ref1.tag0.hold>



on=@Timer

if (<more2> >= 20)

cont.message @,,1 Görev iptal oldu!! 

remove

return 1

endif

if (<dtag.omore> >= 20)

more2 0

tag0.omore 0

timer 1

return 1

endif

if (<cont.region.uid> == <more1>)

	if <more2> > 0)

	if (<more2> < 20)

	tag0.omore ++

	endif

	endif

else

cont.sysmessage @,,1 Hemen gemiye binmelisin yoksa görev iptal olacak. <eval 20-<more2>>

cont.message @,,1 İstenilen eşyaları geminin kasasına yerleştir.

more2 ++

endif

timer 1

return 1



on=@DESTROY

cont.tag0.dgorev_1

cont.tag0.dgorevvendor

cont.tag0.dgorevgold

cont.tag0.dgorev



[function denizticaret]

dorand 4

	begin

	tag0.dgorev Cove Orc Fort,i_fish_cut_cooked,<r600,750>,75,Cove haklı çok aç Orc kampı yüzünden cove haklı balıkçılık yapamıyor ve günden güne çok daha kötüye gidiyor durumları. Seni cove Orc limanın da bekleyen bir  görevli var senden istenilenleri onlara yetiştir. Emeğinin karşılığını fazlasıyla alacaksın.

	local.tpuan <eval <tag0.tpuan>*1000>

	local.para <f_moonsep 3,<tag0.dgorev>>

	local.esya <f_moonsep 4,<tag0.dgorev>>

	local.total <eval <dlocal.esya>*<dlocal.para>>

	tag0.dgorevgold <eval <dlocal.total>+<dlocal.tpuan>>

	end

	begin

	tag0.dgorev Skara brae,i_fish_cut_cooked,<r600,750>,125,Skara brae herkesin bol tükettiği balık olunca halkın isteğini karşılayamıyor balıkçılar bu senin için büyük bir fırsat hadi hadi seni beklerler çabuk ol.

	local.tpuan <eval <tag0.tpuan>*1000>

	local.para <f_moonsep 3,<tag0.dgorev>>

	local.esya <f_moonsep 4,<tag0.dgorev>>

	local.total <eval <dlocal.esya>*<dlocal.para>>

	tag0.dgorevgold <eval <dlocal.total>+<dlocal.tpuan>>

	end

	begin

	tag0.dgorev Trinsic,i_fish_cut_cooked,<r600,750>,100,Trinsic de işler değişti balıklar azaldı oltalar azaldı bu büyük bi fırsat bence iyi paralar kazanabilirsin. Hadi hiç durma bu işi başarabilirsin.

	local.tpuan <eval <tag0.tpuan>*1000>

	local.para <f_moonsep 3,<tag0.dgorev>>

	local.esya <f_moonsep 4,<tag0.dgorev>>

	local.total <eval <dlocal.esya>*<dlocal.para>>

	tag0.dgorevgold <eval <dlocal.total>+<dlocal.tpuan>>

	end

	begin

	tag0.dgorev Britain,i_fish_cut_cooked,<r600,750>,60,Britain de işler değişti balıklar azaldı oltalar azaldı bu büyük bi fırsat bence iyi paralar kazanabilirsin. Hadi hiç durma bu işi başarabilirsin.

	local.tpuan <eval <tag0.tpuan>*1000>

	local.para <f_moonsep 3,<tag0.dgorev>>

	local.esya <f_moonsep 4,<tag0.dgorev>>

	local.total <eval <dlocal.esya>*<dlocal.para>>

	tag0.dgorevgold <eval <dlocal.total>+<dlocal.tpuan>>

	end

enddo

//if (<src.isgm>)

if (<f_strm <src.region.name>,<f_moonsep 1,<tag0.dgorev>>>)

denizticaret

endif

//endif

src.dialogclose d_deniz_ticaret

src.dialogclose d_deniz_ticaret

src.dialog d_deniz_ticaret

src.dvendorbul



[function dvendorbul]

forchars 61444

ref2=<src.uid>

ref1=<uid>

if <f_strm <ref1.id>,c_denizvendor>

if <f_strm <ref1.region.name>,<f_moonsep 1,<ref2.tag0.dgorev>>>

ref2.tag0.dgorevvendor <ref1>

return 1

endif

endif

endfor



[dialog d_dticaret_finished]

50,50



bozobag 10,10,300,120

alphablack 20 20 280 100



dtext 30 30 0481 Görev bitiş şehri: <basharfbuyuk <f_moonsep 1,<src.tag0.dgorev>>> <name>

if (<uid> == <src.tag0.dgorevvendor>)

dtext 30 50 0850 Görev bitiş vendor: <uid.<src.tag0.dgorevvendor>.name> doğru!

else

dtext 30 50 0845 Görev bitiş vendor: <uid.<src.tag0.dgorevvendor>.name> yalnış

endif



dtext 50 90 0481 Görevi tamamla

button 30 93 2117 2118 1 0 1



[dialog d_dticaret_finished button]

on 1

if !(<src.findid.i_dgorevtimer>)

src.sysmessage @,,1 Görevin başarısızlıkla sonuçlanmış.

return 1

endif

src.targetf f_dfinished





[function f_dfinished]

ref1=<argo>

if !(<ref1.link.more1> == <src.uid>)

src.sysmessage @,,1 Bu gemi size ait değil.

return 1

endif

for 0 <eval <ref1.rescount>-1>

ref2=<uid.<ref1.findcont.<dlocal._for>>>

	if (<ref2.baseid> == <f_moonsep 2,<src.tag0.dgorev>>)

		if (<ref2.amount> > 1)

		local.ff <ref2.amount>

		endif

	local.ff ++

	else

	src.sysmessage @,,1 İçinde görev dışında eşyalar var!

	return 1

	endif

endfor

src.dfinished <argo>,<dlocal.ff>



[function dfinished]

ref1=<argv0>

local.esya <argv1>

if (<dlocal.esya> >= <f_moonsep 3,<src.tag0.dgorev>>)

forcont <ref1> 

	if (<baseid> == <f_moonsep 2,<src.tag0.dgorev>>)

	remove

	local.pp ++

	endif

endfor



forchars 10

ref3=<uid>

if (<ref3.baseid> == c_denizvendor)

ref3.newnpc c_cirak

ref2=<new>

ref2.tag0.hold <argv0>

ref2.tag0.sahip <ref3>

ref2.tag0.sahip_2 <src>

serv.newitem i_cirak_timer

ref2.equip <new>

endif

endfor

src.timerf 3,src.newgold <src.dtag.dgorevgold>

src.tag0.tpuan ++

local.komis <eval <eval <src.dtag.dgorevgold>*5>/100>

src.timerf 4,src.consume <dlocal.komis> i_gold

src.sysmessage @,,1 Görev başarıyla tamamlandı!

src.timerf 5,src.sysmessage @,,1 Komisyoncunun ücreti kesilmiştir. Miktar <dlocal.komis> altındır.

src.events -e_dticaret

src.tag0.dgorevgold

src.tag0.dgorev

src.tag0.dgorevnpc

src.tag0.dgorevvendor

src.tag0.dgorev_1

src.ctag0.basarili

src.findid.i_dgorevtimer.remove

else

src.sysmessage @,,1 Yeterli miktarda eşya bulunmuyor. İçindeki miktar: <argv1>

return 1

endif



[function icindeki]

targetf f_icindeki



[function f_icindeki]

src.sysmessage @,,1 <argo.rescount>



[itemdef i_cirak_timer]

name Asdd

ID=I_MEMORY

TYPE=T_EQ_SCRIPT

WEIGHT=0

LAYER=LAYER_SPECIAL



on=@create

timer 1



on=@Timer

if (<cont.tag0.aldim> == 1)

cont.remove

remove

return 1

endif

if !(<cont.tag0.hold_1> == 1)

cont.go <uid.<cont.tag0.hold>.p>

cont.tag0.hold_1 1

timer 2

return 1

else

ref1=<cont.tag0.sahip_2>

dorand 4

cont.timerf 1,say @,,1 Ammada ağırmış usta!

cont.timerf 1,say @,,1 Usta bu mallar çok iyi !

cont.timerf 1,say @,,1 <ref1.sex Ağabey/Abla> helal sana bu mallar mükemmel!

cont.timerf 1,say @,,1 <ref1.sex Bey ağabey/Hanım Abla> bunları satarız ohh !! 

enddo

cont.go <uid.<cont.tag0.sahip>.p>

cont.tag0.aldim 1

cont.timerf 6,say @,,1 Hadi ben kaçayım bunları dükkana götüreyim!

timer 9

return 1

endif



[chardef c_cirak]

ID=c_man

CAN=MT_USEHANDS|MT_EQUIP



ON=@Create

dorand 5

name=Talor

name=Nmne

name=Ounde

name=Yimri

name=Ahne

enddo

FLAGS=statf_invul

NPC=BRAIN_HUMAN

DEX=10

INT=10

STR=10

item i_robe

color colors_all



[events e_dticaret]

on=@CharDclick

ref1=<tag0.dgorevvendor>

if (<ref1> ==<act.uid>)

// if (<ref1>==<act>)

try uid.<act>.dialog d_dticaret_finished

endif





[plevel 01]

tpuan

ticaret



[function tpuan]

src.sysmessage @,,1 <dtag.tpuan> kadar ticaret puanınız var.



[function ticaret]

if (<tag0.gorev_1>)

	sdialog d_ticaret

elif (<tag0.dgorev_1>)

	sdialog d_deniz_ticaret

else

src.sysmessage @,,1 Şuan ticaret göreviniz bulunmuyor.

return 1

endif



Yapmanız gereken

britain skara brae trinsic ve cove orc kamp limanına c_denizticaret ve c_denizvendor koymanız gereklidir.



sadece ticaret gemileri için ayarlanmış ve savaş gemilerinde deniz ticareti eklenmemiştir.
Değerlendirmeler

Total votes: 0
Deniz Ticareti

Değerlendirmeler

Üye Ol veya Giriş Yap

Yorumlar (0)

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

Distance(uzaklık) Sorgusu Hakkında

UoFiddler
