UO-Dev Arama

Görev sisteminin champion cinsidir

Yazar: cele35
Tarih: 15-05-2010 04:16


Paylaş : Paylaş
Kod:
//////////////////////////GOREV////////////////////////////

[ITEMDEF i_champion_idol]
ID=01f18
TYPE=T_NORMAL
DEFNAME=i_champion_idol
NAME=Champion Idol

ON=@Create
ATTR=ATTR_MOVE_NEVER
color 0bae
tag soulstone1 0

ON=@Dclick
if (<tag0.soulstone> = 0)
src.sysmessage @080a [4] Soul Stone Ihtiyaciniz Var.
return 1
endif
if (<tag0.soulstone> = 1)
src.sysmessage @080a [3] Soul Stone Ihtiyaciniz Var.
return 1
endif
if (<tag0.soulstone> = 2)
src.sysmessage @080a [2] Soul Stone Ihtiyaciniz Var.
return 1
endif
if (<tag0.soulstone> = 3)
src.sysmessage @080a [1] Soul Stone Ihtiyaciniz Var.
return 1
endif
if (<tag0.soulstone> = 4)
src.sysmessage @080a Aktif !
src.newitem i_azmoal_gate
src.act.color 080a
src.act.name [ Azmoal ]
src.act.p 5731,1255,-23
src.act.timer 60
src.newnpc c_azmoal
src.act.p 4588,2397,10
tag.soulstone 0
src.events +e_azmoal
return 1
endif


ON=@click
if (<tag0.soulstone> = 0)
message @077a [ Deactive 4/0]
endif
if (<tag0.soulstone>  = 1)
message @077a [ Deactive 4/1]
endif
if (<tag0.soulstone> = 2)
message @077a [ Deactive 4/2]
endif
if (<tag0.soulstone> = 3)
message @077a [ Deactive 4/3]
endif
if (<tag0.soulstone> = 4)
message @077a [ Aktif 4/4]
endif



[ITEMDEF i_azmoal_gate]
ID=i_moongate_red
NAME=Azmoal

ON=@Create
COLOR=080a
timer 60

ON=@timer
remove

ON=@Step
if (<src.isevent.e_azmoal>)
SRC.GO 4567,2395,10
return 1
else
src.sysmessage @077a Gate Sadece Soul Stone Yerlestiren Kisi Girebilir.
endif

ON=@click
message @1152 [<timer>]

[ITEMDEF i_azmoal_gates]
ID=i_moongate_red
NAME=Azmoal

ON=@Create
COLOR=080a
timer 60

ON=@timer
remove

ON=@Step
SRC.GO <morep>
src.events -e_azmoal

ON=@click
message @1152 [<timer>]


[EVENTS e_azmoal]
ON=@spellcast
IF ((<ARGN>==45))
src.sysmessage @077a [ Burda Bu Spell Kullanamazsiniz ]
SRC.ACTION -1
RETURN 1
ENDIF


IF ((<FINDLAYER.layer_special.BASEID>==i_x_RBDELAY) || (<FINDLAYER.55.BASEID>==i_gate_timer))
RunebookFizzle
src.sysmessage @077a [ Burda Bu Spell Kullanamazsiniz ]
return 1
ENDIF

[ITEMDEF i_soul_stone]
ID 7955
TYPE t_normal
name Soul Stone
ON=@create
color 080a

on=@Dclick
IF !(<src.RESTEST i_soul_stone>)
src.sysmessage @38,,1 Hata: Soul Stone'un Cantanizda Olmasi Gerekiyor.
return 1
else
If (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Bu eşyayı sadece cantanizdayken kullanabilirsiniz.
return 1
endif
target Champion Skull Seciniz ?
return 1
endif

ON=@TARGON_CHAR
RETURN 1
ON=@TARGON_GROUND
RETURN 1

ON=@TARGON_ITEM
if ((<src.targ.baseid>=i_champion_idol) && (<src.targ.tag0.soulstone> = 0)
SRC.targ.tag.soulstone 1
SRC.SYSMESSAGE @1153 Complete.
src.consume 1 i_soul_stone
src.update
RETURN 1
endif

if ((<src.targ.baseid>=i_champion_idol) && (<src.targ.tag0.soulstone> = 1)
SRC.targ.tag.soulstone 2
SRC.SYSMESSAGE @1153 Complete.
src.consume 1 i_soul_stone
src.update
RETURN 1
endif

if ((<src.targ.baseid>=i_champion_idol) && (<src.targ.tag0.soulstone> = 2)
SRC.targ.tag.soulstone 3
SRC.SYSMESSAGE @1153 Complete.
src.consume 1 i_soul_stone
src.update
RETURN 1
endif

if ((<src.targ.baseid>=i_champion_idol) && (<src.targ.tag0.soulstone> = 3)
SRC.targ.tag.soulstone 4
SRC.SYSMESSAGE @1153 Complete.
src.consume 1 i_soul_stone
src.update
RETURN 1
endif

[CHARDEF c_azmoal]
id 064
NAME=Azmoal
ICON=i_pet_dragon
ARMOR=20
DAM=5
CAN=MT_WALK|MT_RUN

CATEGORY=BEEPK NPCS
DESCRIPTION=azmoal

ON=@CREATE
Tag.name.hue 096
Events=+e_npc
STR=2500
DEX=200
INT=1
FAME=2500
KARMA=-10000
EVENTS=+e_poison_immune
SWORDSMANSHIP 1
TACTICS 1
MAGERY 0
HIDING 0
STEALTH 0

ON=@click
message @1153,,1 [Str = <str> Dex = <dex>]

ON=@npcrestock
ITEM=azmoal_loot

ON=@deathcorpse
act.go themis town
ref1=<attacker.max>
ref2=<argo>
for <eval <ref2.rescount>-1> 0
ref3=<ref2.findcont.<dlocal._for>>
ref3.cont <ref1.findlayer.21>
endfor




[TEMPLATE azmoal_loot]
container=i_bag
color=07a1
item= { i_bleeding_upgrade 1 i_stunblow_upgrade 1 i_moveback_upgrade 1},R2
item=i_gold,50000

//////////////////////////UPGRADE SILAH////////////////////////////

[ITEMDEF i_bleeding_upgrade]
Id 2074
name Bleeding Upgrade
type t_script
value 20000

on=@Create
attr 00

on=@Click
message @60 [<name>]
return 1

on=@Dclick
IF !(<src.RESTEST i_bleeding_upgrade>)
src.sysmessage @38,,1 Hata: Upgrade Cantanizda Olmasi Gerekiyor.
return 1
else
If (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Bu eşyayı sadece cantanizdayken kullanabilirsiniz.
return 1
endif
target Silahi Seciniz ?
return 1
endif

ON=@TARGON_CHAR
RETURN 1
ON=@TARGON_GROUND
RETURN 1

ON=@TARGON_ITEM
if ((<src.targ.isweapon>) && (<src.targ.tag0.bleedingvar>=0) && (<src.targ.tag0.stunblowvar>=0) && (<src.targ.tag0.movebackvar>=0)
SRC.targ.tag.bleedingvar 1
SRC.SYSMESSAGE @1153 Complete.
REMOVE
RETURN 1
ELSE
SRC.SYSMESSAGE @1153 Hata !!
RETURN 1
ENDIF
ELSE
SRC.SYSMESSAGE @1153 Kullanim Hatasi
RETURN 1
ENDIF


///////////////BLEEDİNG///////////

[events e_gorev_bleed]
On=@Hit
if !(RAND(15)) && !(<src.findid.i_gorev_bleed1>) && !(<src.findid.i_gorev_bleed2>)
src.HITS= (<src.HITS>+(-50))
src.skill fail
var.act <src.act.uid>
src.newitem i_gorev_bleed1
src.act.equip
src.newitem i_gorev_bleed2
src.act.equip
src.act <var.act>
src.yara_message
return 1
endif

[function yara_message]
dorand 4
src.sayua 145,6,6,0 * Kolunuz Kesilir *
src.sayua 145,6,6,0 * Bacağınız Kesilir *
src.sayua 145,6,6,0 * Eliniz Kesilir *
src.sayua 145,6,6,0 * Vicudunuzda Yara Açar *
enddo


[events e_bleed]
On=@Death
findid.i_gorev_bleed1.remove
findid.i_gorev_bleed2.remove

[itemdef i_gorev_bleed1]
name=yaralanir
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.events +e_bleed
timer 5

on=@death
src.events e_bleed

On=@UnEquip
cont.events -e_bleed
if !(<cont.flags>&statf_dead)
endif

On=@Timer
if (<cont>)
IF (<cont.NPC>==0)
timer 7
cont.sayua 60,6,6,0 * Kan Kaybeder *
cont.skill fail
cont.anim 20
cont.HITS= (<cont.HITS>+(-50))
cont.skill fail
else
timer 5
cont.sayua 60,6,6,0 * [NPC] Kan Kaybeder *
cont.skill fail
cont.anim 20
cont.HITS= (<cont.HITS>+(-125))
cont.skill fail
endif
return 1

[itemdef i_gorev_bleed2]
name=yaraniz kapanir
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.events +e_bleed
timer 42

On=@UnEquip
cont.events -e_bleed
if !(<cont.flags>&statf_dead)
endif

On=@Timer
if (<cont>)
cont.sayua 075f,6,6,0 * Yarasi Kapanir *
cont.findid.i_gorev_bleed1.remove
attr attr_decay
remove
return 1
endif

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

[ITEMDEF i_stunblow_upgrade]
Id 2075
name Stunblow Upgrade
type t_script
value 20000

on=@Create
attr 00

on=@Click
message @60 [<name>]
return 1

on=@Dclick
IF !(<src.RESTEST i_stunblow_upgrade>)
src.sysmessage @38,,1 Hata: Upgrade Cantanizda Olmasi Gerekiyor.
return 1
else
If (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Bu eşyayı sadece cantanizdayken kullanabilirsiniz.
return 1
endif
target Silahi Seciniz ?
return 1
endif

ON=@TARGON_CHAR
RETURN 1
ON=@TARGON_GROUND
RETURN 1

ON=@TARGON_ITEM
if ((<src.targ.isweapon>) && (<src.targ.tag0.stunblowvar>=0) && (<src.targ.tag0.bleedingvar>=0) && (<src.targ.tag0.movebackvar>=0)
SRC.targ.tag.stunblowvar 1
SRC.SYSMESSAGE @1153 Complete.
REMOVE
RETURN 1
ELSE
SRC.SYSMESSAGE @1153 Hata !!
RETURN 1
ENDIF
ELSE
SRC.SYSMESSAGE @1153 Kullanim Hatasi
RETURN 1
ENDIF


/////////////////////stunblow//////////////////////////


[events e_sersemletme]
ON=@Hittry
if !(RAND(18)) && !(<src.findid.i_sersemledin>) 
src.damage {20 30}
src.skill fail
var.act <src.act.uid>
src.newitem i_sersemledin
src.act.equip
src.act <var.act>
src.act.timer 1
src.sayua 0800,0,0,0 * Bayılır *
src.anim 24
return 1
endif

[itemdef i_sersemledin]
name=sersem itemi
id=i_memory
type=t_eq_script
layer=layer_special

on=@create
attr=attr_decay | attr_newbie

on=@equip
timer 2
SRC.FLAGS=<SRC.FLAGS>|04

on=@timer
cont.flags=<cont.FLAGS>&~04
cont.sayua 145,6,6,0 * Kendine Gelir *
remove
return 1




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

[ITEMDEF i_moveback_upgrade]
Id 2076
name Moveback Upgrade
type t_script
value 20000

on=@Create
attr 00

on=@Click
message @60 [<name>]
return 1

on=@Dclick
IF !(<src.RESTEST i_moveback_upgrade>)
src.sysmessage @38,,1 Hata: Upgrade Cantanizda Olmasi Gerekiyor.
return 1
else
If (<topobj.uid> != <src.uid>)
src.sysmessage @38,,1 Bu eşyayı sadece cantanizdayken kullanabilirsiniz.
return 1
endif
target Silahi Seciniz ?
return 1
endif

ON=@TARGON_CHAR
RETURN 1
ON=@TARGON_GROUND
RETURN 1

ON=@TARGON_ITEM
if ((<src.targ.isweapon>) && (<src.targ.tag0.movebackvar>=0) && (<src.targ.tag0.bleedingvar>=0) && (<src.targ.tag0.stunblowvar>=0)
SRC.targ.tag.movebackvar 1
SRC.SYSMESSAGE @1153 Complete.
REMOVE
RETURN 1
ELSE
SRC.SYSMESSAGE @1153 Hata !!
RETURN 1
ENDIF
ELSE
SRC.SYSMESSAGE @1153 Kullanim Hatasi
RETURN 1
ENDIF


////////////////////MoveBack


[function moveback]
doswitch <src.dir>
begin
if (<src.canmove s>)
src.move s
endif
end

begin
if (<src.canmove sw>)
src.move sw
endif
end

begin
if (<src.canmove w>)
src.move w
endif
end

begin
if (<src.canmove nw>)
src.move nw
endif
end

begin
if (<src.canmove n>)
src.move n
endif
end

begin
if (<src.canmove ne>)
src.move ne
endif
end

begin
if (<src.canmove e>)
src.move e
endif
end

begin
if (<src.canmove se>)
src.move se
endif
end

begin
if (<src.canmove s>)
src.move s
endif
end
enddo


////////////////////Silah Örnek//////////////////////////

[ITEMDEF I_Acid_Kryss]
ID=I_Kryss
NAME=Acid Kryss
DAM=39,49
weight=1
speed 68
REQSTR=350

ON=@Click
src.sysmessage @1153,,1 [Acid Kryss: Gereken Str:350 Damage:39-49]
if (<tag0.bleedingvar>=1)
message @60 [Bleeding Upgrade]
endif
if (<tag0.stunblowvar>=1)
message @60 [Stunblow Upgrade]
endif
if (<tag0.movebackvar>=1)
message @60 [Moveback Upgrade]
endif

ON=@Create

HITPOINTS=50000
COLOR=0806

ON=@DAMAGE
if (<tag0.movebackvar>=1)
src.moveback
endif

ON=@EQUIP
if (<tag0.bleedingvar>=1)
src.events +e_bleeding
return 1
endif
if (<tag0.stunblowvar>=1)
src.events +e_stunblow
return 1
endif
return 1


ON=@UNEQUIP
if (<tag0.bleedingvar>=1)
src.events -e_bleeding
return 1
endif
if (<tag0.stunblowvar>=1)
src.events -e_stunblow
return 1
endif

[EOF]


Yorumlar

Henüz yorum yapılmamıştır.

Oylamalar

Oylama :
Üyelerin oylama ortalaması (10 dışında) : Henüz Oylanmamış   
Oylar: 0

Benzer Sayfalar

SayfalarYorumlarGönderenTarih
Guild sistemi0Mrs.xariyla04-03-2012
House sistemi0Mrs.xariyla04-03-2012
Maaş Sistemi0Kraagnar17-11-2011
Flash üyelik sistemi0Culum25-09-2011
Sorter Account Sistemi0Sorter23-07-2011

Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,

Forumlar - Dosyalar - Dökümanlar - Scriptler - Grafikler - Oyuncu Rehberi - Sunucu/Host - Reklam Ver - Dev Map - İletişim
Copyright © 2009 - 2012 | Tüm Hakları Saklıdır. Sistem Yapısı Seditio - Bu site en iyi internet explorer 8 ile görüntülenir.
UO-Developer.com | Bir diğer raskolserna.com projesidir.