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 20
   Üye ol    Giriş
214
  1. UO Scriptleri
  2. Sphere Scripts
  3. Function
  4. Rare System
Efe TATAR

Rare System

  • Efe TATAR
  • 2012-01-22 20:21
  • 0 Yorumlar
  • 3584 Görüntüleme
http://a1201.hizliresim.com/t/q/20gj2.jpg

http://b1201.hizliresim.com/t/q/20gjs.jpg

http://c1201.hizliresim.com/t/q/20gk9.jpg

http://c1201.hizliresim.com/t/q/20gks.jpg


[ITEMDEF 0c85]
//orfluer flowers
DEFNAME=i_flower_orfluer
name=Rare Flowers
VALUE=1
CATEGORY=Vegetation
SUBSECTION=Plants and Flowers
DESCRIPTION=Orfluer Flowers

on=@create
morey 1
color=00
attr=attr_move_never
timerf 5.timer -1
timerf 5.attr 010

on=@click
message <def.sys> Rare Çiçeği
return 1

on=@dclick
if (<src.findlayer(25)>)
src.sysmessage @38,,1 Hata: At uzerindeyken cicegi toplayamazsiniz
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @38,,1 Hata: Gizlenmis durumdayken cicegi toplayamazsiniz
elseif <src.findid.i_raretimer>
src.sysmessage @38,,1 Zaten cicegi topluyorsunuz
elseif (<topobj.uid> == <src.uid>)
src.sys_normal Bu çiçeği rare yapımında kullanabilirsiniz..
elseif (<src.targ.distance> >2)
src.sys_error Çiceğe yetişemiyorsunuz.
else
src.tag.rareuid <src.targ.uid>
src.newitem i_raretimer
new.equip
src.events +e_rarespell
src.dialogclose d_runebook
src.dialogclose d_moongate_menu
endif
return 1


//////////////////////////////////////////////////////////////


[itemdef i_raretimer]
name raretimer
id 0186a
type t_eq_script
weight 0
layer layer_special

On=@Create
attr attr_invis|attr_newbie
more1 30

On=@Equip
timer 1


On=@Timer
if (<cont>)
if (<more2>)
remove
elseif (<more1>)
cont.sysmessage @1153 <eval <more1>>
more1 (<more1> - 1)
timer 1
cont.anim 32
else
if (<uid.<cont.tag.rareuid>>)
cont.uid.<cont.tag.rareuid>.remove
serv.newitem i_flower_orfluerr
cont.sysmessage @480,,1 Cicegi toplamayi basardiniz
new.cont <cont.findlayer(layer_pack)>
cont.events -e_rarespell
more2 1
timer 1
endif
endif
endif
return 1

//////////////////////////////////////////////////////////////

[events e_rarespell]

on=@death
if (<src.findid.i_raretimer>)
src.findid.i_raretimer.remove
src.sysmessage @38,,1 Cicegi toplayamadiniz
return 1
endif

on=@move
findid.i_raretimer.remove
events -e_rarespell
sysmessage @38,,1 Cicegi toplayamadiniz

on=@damage
findid.i_raretimer.remove
sysmessage @38,,1 Cicegi toplayamadiniz

on=@spelleffect
if (<argn> == 1)
findid.i_raretimer.remove
sysmessage @38,,1 Cicegi toplayamadiniz
endif

On=@SpellCast
if !((<argn> == 4) || (<argn> == 6) || (<argn> == 7) || (<argn> == 11) || (<argn> == 16) || (<argn> == 36))
src.sysmessage @38,,1 Cicek toplarken bu tur buyuleri atamazsiniz !!!
src.f_fizzle
return 1
endif

//////////////////////////////////////////////////////////////

[ITEMDEF i_flowers_orfluerr]
DEFNAME=i_flower_orfluerr
id=0c85
name=Rare Flowers
VALUE=1
CATEGORY=Vegetation
SUBSECTION=Plants and Flowers
DESCRIPTION=Orfluer Flowers

on=@create
morey 1
dorand 14
color=0799
color=0795
color=0455
color=01
color=0798
color=0ba4
color=0796
color=0800
color=0809
color=0812
color=08a1
color=0b80
color=0b79
color=2045
enddo

on=@click
message <name>
return 1


On=@DClick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @38,,1 Hata: Esya cantanizda olmali.
else
target
return 1
endif

On=@TargOn_Item
if !(<src.targ.topobj.uid> == <src.uid>)
src.sysmessage @38,,1 Hata: Boyayacaginiz esya cantanizda olmali.
elseif !((<src.targ.baseid> == i_dye_tub_rare))
src.sysmessage @38,,1 Hata: Sadece Dye Tub Rare boyuyabilirsiniz.
elseif ((<SRC.alchemy> < 90.0))
src.sysmessage @38,,1 Hata: Alchemy skilliniz 90'dan yuksek olmali.
else
src.targ.color <color>
src.targ.update
morey (<morey> - 1)
remove
endif
return 1

On=@TargOn_Char
src.sysmessage @38,,1 Hata: Sadece Dye Tub Rare boyuyabilirsiniz.
return 1



[ITEMDEF i_dye_tub_rare]
//Dying Tub
ID=i_dye_tub
NAME=Rare Dye
TYPE=T_DYE_VAT
WEIGHT=10
CATEGORY=Items by Professions
SUBSECTION=Tailor
DESCRIPTION=Rare Dying Tub

RESOURCES=100 i_log
SKILLMAKE=CARPENTRY 100.0 ,alchemy 80.0

ON=@Create
morey 5
color 00

ON=@Click
if (0<tag.charged>==00)
tag.charged=1
tag.charge=10
endif
message @48,,1 [<eval <tag.charge>>]
message @0800 <name>
return 1
On=@DClick
if (0<tag.charged>==00)
tag.charged=1
tag.charge=10
endif
if (0<tag.charge>==00)
src.sysmessage @38,,1 Hata: Bu boya kurumus, veya bitmis
remove
return 1
endif
target
return 1


On=@TargOn_Char
return 1

On=@TargOn_Item
if !(<src.targ.topobj.uid> == <src.uid>)
src.sysmessage @38,,1 Hata: Boyayacaginiz esya uzerinizde olmali.
elseif !((<src.targ.type> = t_clothing) || (<src.targ.baseid> == i_bag) || (<src.targ.baseid> == i_magerobe_npc) || (<src.targ.baseid> == i_robe))
src.sysmessage @38,,1 Hata: Bunu boyayamazsiniz
elseif (<src.targ.baseid> == i_tc_mr3) || (<src.targ.baseid> == i_tc_mr6) || (<src.targ.baseid> == i_tc_mr9) || (<src.targ.baseid> == i_tc_mr12) || (<src.targ.baseid> == i_tc_mr15)
src.sysmessage @38,,1 Hata: Bunu boyayamazsiniz
elseif ((<SRC.TAILORING> < 90.0))
src.sysmessage @38,,1 Hata: Tailoring skilliniz 90'dan yuksek olmali.
elseif (<src.targ.attr>&attr_newbie)
src.sysmessage @38,,1 Hata: Newbie itemleri boyayamazsiniz
else
src.targ.color <color>
src.targ.update
tag.charge=<eval <tag.charge>-1>
endif
return 1


/////////////////////////////////////////////////////////

[itemdef i_deadly_mushroom]
id=0d16
TYPE=t_spellicon
name=deadly mushroom
CATEGORY=Spell Icons
SUBSECTION=Third Circle

on=@create
attr 010

on=@click
message <name>
return 1

on=dclick
return 1

on=@step
if (<src.isplayer>)
if (<src.account.plevel> < 2)
if !(<src.flags> & statf_dead)
src.poison 999
serv.newitem i_fx_curse
src.new.color 00
src.new.p=<src.p>
src.new.timer 2
src.new.attr=attr_decay
src.sound=snd_SPELL_POISON
endif
endif
endif
return 1

[itemdef 011c7]
defname=i_rare_kazani
type t_script
name=rare kazani

on=@create
color=0482
attr=attr_move_never

on=@click
message <def.sys> Rare Üretim Kazanı
return 1

on=@dclick
if (<src.targ.distance> >2)
src.sys_error Kazan'a yetişemiyorsunuz..
return 1
elseif (<src.alchemy> < 99.9)
src.sys_error Kazanı kullanabilmeniz için 100.0 alchemy gereklidir..
return 1
endif
src.sdialog d_raremenu

[dialog d_raremenu]
50,50
resizepic 160 50 5054 420 200
resizepic 170 60 3000 400 180
resizepic 180 140 3000 100 35
resizepic 310 140 3000 100 35
resizepic 440 140 3000 100 35
resizepic 440 190 3000 110 35
tilepic 170 135 9035 0
tilepic 305 145 4011 0
tilepic 430 145 4104 0
tilepic 430 193 4011 0

dhtmlgump 265 70 200 20 0 0 <def.bfont_red>Rare Üretim Sistemi
dhtmlgump 180 100 500 20 0 0 Rare yapımı için gerekli malzemeler ; 1 rare çiçeği, 1 dye tub,
dhtmlgump 180 115 150 20 0 0 1 dolu su kovası gereklidir.
dhtmlgump 230 200 100 20 0 0 Rare Üret
//dhtmlgump 460 220 100 20 0 0 rare dye
dhtmlgump 195 170 100 20 0 0 rare çiçeği
dhtmlgump 335 170 100 20 0 0 dye tub
dhtmlgump 460 170 100 20 0 0 su kovası
dtext 220 150 <qval (<src.findid.i_flower_orfluer>)?0110:025> <qval (<src.findid.i_flower_orfluer>)?Var:Yok>
dtext 365 150 <qval (<src.findid.i_dye_tub_rare>)?0110:025> <qval (<src.findid.i_dye_tub_rare>)?Var:Yok>
dtext 480 150 <qval (<src.findid.i_dolu_su_kovasi>)?0110:025> <qval (<src.findid.i_dolu_su_kovasi>)?Var:Yok>
if (<src.findid.i_flower_orfluer>) && (<src.findid.i_dye_tub_rare>) && (<src.findid.i_dolu_su_kovasi>)
dtext 480 200 0110 : Yapılabilir
else
dtext 460 200 025 : Yapılamaz
endif

button 190 200 4006 4007 1 0 1

[dialog d_raremenu button]
on=1
if (<src.findid.i_flower_orfluer>) && (<src.findid.i_dye_tub>) && (<src.findid.i_dolu_su_kovasi>)
serv.newitem i_dye_tub_rare
new.bounce
src.sys_normal Rare dye yaptınız.
src.consume 1 i_flower_orfluer
src.consume 1 i_dye_tub
src.consume 1 i_dolu_su_kovasi
src.sound 32
else
src.sys_error Rare dye yapabilmeniz için 1 rare çiçeği, 1 dye tub, 1 dolu su kovasi, 100.0 alchemy ve 100.0 carpentry gereklidir..
src.dialog d_raremenu
return 1
endif

[itemdef i_su_kovasi]
type t_script
name=su kovasi (bos)
weight=3
id=4105

on=@create
color=0
attr=0

on=@click
message <def.sys> Su Kovası
message @025,1,1 [boş]
return 1

on=@dclick
if !(<topobj.uid> == <src.uid>)
src.sys_error Sadece çantanızda kullanabilirsiniz..
return 1
endif
if !(<src.isneartype t_water 1>)
src.sys_error Suya yakın yerlerde doldurabilirsiniz..
return 1
else
src.consume 1 i_su_kovasi
serv.newitem i_dolu_su_kovasi
src.sayua 0713,6,6,0 * Su Kovası Doldurur *
src.sound 38
src.anim 13
new.bounce
return 1
endif

[itemdef i_dolu_su_kovasi]
type t_script
name=Su Kovasi (dolu)
weight=3
id=4104

on=@create
color=0
attr=0

on=@click
message <def.sys> Su Kovası
message @0110,1,1 [dolu]
return 1

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
  • Pwp Shard için rare systemi

    2006-06-20 15:01

  • housing system

    2009-09-01 16:35

  • Msn Messanger System

    2009-08-13 14:15

  • Check system

    2009-07-19 11:03

  • Görev System

    2009-04-24 12:44



  • 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.