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 29
   Üye ol    Giriş
255
  1. UO Scriptleri
  2. Sphere Scripts
  3. Events
  4. Deniz Ticareti

Deniz Ticareti

  • 'Uur
  • 2015-01-25 18:23
  • 0 Yorumlar
  • 1171 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

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
  • Kara Ticareti

    2015-01-25 21:46



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

    Ultima Online 3 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 2 hafta önce

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

    Counter-Strike 2 hafta önce

  • Cihangir algın
    Razor Kullanımı

    RunUo Scripting 4 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.