Ну вот кароче скритек на пвп-арену какуйнить... я сам еще толком неразабрался ну думаю вы разберетесь...
Цитата
[ITEMDEF I_HUMAN_START]
NAME=Human Start Stone
ID=0ed6
TYPE=t_normal
ON=@Create
COLOR=0445
ATTR=00010
ON=@Dclick
IF <SRC.TARG.DISTANCE><3
SRC.DIALOGCLOSE d_start
SRC.DIALOG d_start
RETURN 1
ELSE
SRC.SYSMESSAGE @50 You are too far away.
RETURN 1
ENDIF
[DIALOG d_start]
320,400
nomove
noclose
resizepic 0 0 3500 340 130
text 100 10 50 0
text 45 35 1968 1
text 45 60 1968 2
radio 20 38 2117 2118 0 1
radio 20 63 2117 2118 0 2
button 70 90 242 241 1 0 0
button 210 90 247 248 1 0 1
[DIALOG d_start TEXT]
Choose your Destiny!
The Supporter of the Order
The Supporter of the Chaos
[DIALOG d_start BUTTON]
ONBUTTON=1
IF (<argchk[1]> == 1)
SRC.allskills 1000
src.str 150
src.dex 100
src.int 100
src.hits 150
src.stam 100
src.mana 100
src.tag.destiny = 1
src.tag.points = 9000000000000000
src.tag.credits = 1
src.color= 083ea
src.oskin=083ea
SERV.NEWITEM=i_full_spellbook
NEW.BOUNCE
SERV.NEWITEM=i_gold 50000
NEW.BOUNCE
src.go base
SRC.SYSMESSAGE @64 Your Destiny The Part of Order
ELSE
IF (<argchk[2]> == 1)
SRC.allskills 1000
src.str 150
src.dex 100
src.int 100
src.hits 150
src.stam 100
src.mana 100
src.tag.points = 900000
src.tag.credits = 90000
src.tag.destiny = 90000
src.color= 083ea
src.oskin=083ea
SERV.NEWITEM=i_full_spellbook
NEW.BOUNCE
src.go base
SRC.SYSMESSAGE @50 Your Destiny The Part of Chaos
ENDIF
ENDIF
--------------------------------------------------------------------------------
Рассы и Рассовые Вещи:
PHP:--------------------------------------------------------------------------------
[ITEMDEF i_race_stone1]
ID=0ed4
NAME=Race Stone
TYPE=t_script
ON=@DCLICK
SRC.DIALOGCLOSE d_racestone1
SRc.DIALOG d_racestone1
RETURN 1
[DIALOG d_racestone1]
20,20
page 0
resizepic 0 0 2600 200 440
button 25 50 208 209 0 1 1
button 25 70 208 209 0 2 2
button 25 90 208 209 0 3 3
text 55 17 45 0
text 19 37 0 1
text 19 386 0 1
text 50 50 0 2
text 50 70 0 3
text 50 90 0 4
text 19 123 0 5
button 70 400 249 249 1 0 10000
page 1
text 70 140 45 6
text 19 153 0 7
text 50 170 0 8
text 50 190 0 9
text 50 210 0 10
text 50 230 0 11
radio 25 170 210 211 0 1
radio 25 190 210 211 0 2
radio 25 210 210 211 0 3
radio 25 230 210 211 0 4
button 25 50 209 209 0 1 0
page 2
text 55 140 45 12
text 19 153 0 13
text 50 170 0 14
text 50 190 0 15
text 50 210 0 16
text 50 230 0 17
button 25 170 210 211 0 4 4
button 25 190 210 211 0 5 5
button 25 210 210 211 0 6 6
button 25 230 210 211 0 7 7
button 25 70 209 209 0 2 0
page 3
text 60 140 45 18
text 19 153 0 19
text 50 170 0 20
text 50 190 0 21
text 19 203 0 22
text 60 220 45 23
text 19 233 0 24
text 50 250 0 25
text 50 270 0 26
radio 25 170 210 211 0 5
radio 25 190 210 211 0 6
radio 25 250 210 211 0 7
radio 25 270 210 211 0 8
button 25 90 209 209 0 4 0
page 4
text 45 140 45 27
text 19 153 0 28
text 50 170 0 29
text 50 190 0 30
text 50 210 0 31
text 50 230 0 32
text 50 250 0 33
text 50 270 0 34
radio 25 170 210 211 0 9
radio 25 190 210 211 0 10
radio 25 210 210 211 0 11
radio 25 230 210 211 0 12
radio 25 250 210 211 0 13
radio 25 270 210 211 0 14
button 25 70 209 209 0 2 0
page 5
text 50 140 45 35
text 19 153 0 36
text 50 170 0 37
text 50 190 0 38
text 50 210 0 39
text 50 230 0 40
text 50 250 0 41
text 50 270 0 42
radio 25 170 210 211 0 15
radio 25 190 210 211 0 16
radio 25 210 210 211 0 17
radio 25 230 210 211 0 18
radio 25 250 210 211 0 19
radio 25 270 210 211 0 20
button 25 70 209 209 0 2 0
page 6
text 50 140 45 43
text 19 153 0 44
text 50 170 0 45
text 50 190 0 46
text 50 210 0 47
text 50 230 0 48
text 50 250 0 49
text 50 270 0 50
radio 25 170 210 211 0 21
radio 25 190 210 211 0 22
radio 25 210 210 211 0 23
radio 25 230 210 211 0 24
radio 25 250 210 211 0 25
radio 25 270 210 211 0 26
button 25 70 209 209 0 2 0
page 7
text 50 140 45 51
text 19 153 0 52
text 50 170 0 53
text 50 190 0 54
text 50 210 0 55
text 50 230 0 56
text 50 250 0 57
text 50 270 0 58
radio 25 170 210 211 0 27
radio 25 190 210 211 0 28
radio 25 210 210 211 0 29
radio 25 230 210 211 0 30
radio 25 250 210 211 0 31
radio 25 270 210 211 0 32
button 25 70 209 209 0 2 0
[DIALOG d_racestone1 TEXT]
Race Stone
--------------------
Races
Race items
Guilds
--------------------
Races
--------------------
Archimage
Elfien
Orcish
Druid
Race Items
--------------------
Archimage
Elfien
Orcish
Druid
Guild Stones
--------------------
Chaos Guild
Order Guild
--------------------
Guild Shields
--------------------
Chaos Shield
Order Shield
Archimage Items
--------------------
Armor 4000 cred
Cloak 2000 cred
Sash 2000 cred
Hat 2000 cred
Sandals 2000 cred
Staff 2000 cred
Elfien Items
--------------------
Armor 4000 cred
Bow 2000 cred
Sandals 2000 cred
Braclet 2000 cred
Spear 2000 cred
Cloak 2000 cred
Orcish Items
--------------------
Armor 4000 cred
Cloak 2000 cred
Shield 2000 cred
Helm 2000 cred
Mace 2000 cred
Boots 2000 cred
Druid Items
--------------------
Armor 4000 cred
Hat 2000 cred
Robe 2000 cred
Boots 2000 cred
Cape 2000 cred
Staff 2000 cred
[DIALOG d_racestone1 BUTTON]
ONBUTTON=10000
IF <ARGCHK[1]>
IF <SRC.OSKIN>=0601
SRC.SYSMESSAGE @75,1 You are already Arhimage.
RETURN 1
ELIF <SRC.OSKIN>!=083ea
SRC.SYSMESSAGE @75,1 Only human can choose this race.
RETURN 1
ELIF <SRC.TAG0.CREDITS><
SRC.SYSMESSAGE @75,1 You must have credits to select arhimage class
RETURN 1
ELIF <SRC.RESTEST i_kamen_Gold, i_kamen_Ice, i_kamen_order, i_kamen_dread, i_kamen_millenium>
SRC.TAG.RACE=Archimage
SRC.TITLE=First Level Mage
SERV.NEWITEM=TM_MAGESUX
NEW.BOUNCE
SRC.TAG.RACENUMBER=4
SRC.TAG.CREDITS -=
SRC.TAG.HUMAN=0
src.consume 1 i_kamen_Gold
src.consume 1 i_kamen_ice
src.consume 1 i_kamen_order
src.consume 1 i_kamen_dread
src.consume 1 i_kamen_millenium
SRC.EVENTS +e_arhimage
SRC.OSKIN=0601
SRC.COLOR=0601
SRC.UPDATE
ELSE
SRC.SYSMESSAGE @75,1 You must have Gold, Ice, Order, Dread and Millenium Amethyst to select arhimage class
RETURN 1
ENDIF
ELSEIF <ARGCHK[2]>
IF <SRC.OSKIN>=537
SRC.SYSMESSAGE @75,1 You are already Elfian.
RETURN 1
ELIF <SRC.OSKIN>!=083ea
SRC.SYSMESSAGE @75,1 Only human can choose this race.
RETURN 1
ELIF <SRC.TAG0.CREDITS><
SRC.SYSMESSAGE @75,1 You must have credits to select Elfian race
RETURN 1
ELIF <SRC.RESTEST i_kamen_Gold, i_kamen_Ice, i_kamen_chaos, i_kamen_dread, i_kamen_millenium>
SRC.TAG.RACE=Elfian
SRC.TITLE=First Level Elfian
SERV.NEWITEM=TM_ELFSUX
NEW.BOUNCE
SRC.TAG.HUMAN=0
SRC.TAG.RACENUMBER=7
SRC.TAG.CREDITS -=
src.consume 1 i_kamen_Gold
src.consume 1 i_kamen_ice
src.consume 1 i_kamen_chaos
src.consume 1 i_kamen_dread
src.consume 1 i_kamen_millenium
SRC.EVENTS +e_elf
SRC.OSKIN=537
SRC.COLOR=537
SRC.UPDATE
ELSE
SRC.SYSMESSAGE @75,1 You must have Gold, Ice, Chaos, Dread and Millenium Amethyst to select arhimage class
RETURN 1
ENDIF
ELSEIF <ARGCHK[3]>
IF <SRC.OSKIN>=0488
SRC.SYSMESSAGE @75,1 You are already Orc.
RETURN 1
ELIF <SRC.OSKIN>!=083ea
SRC.SYSMESSAGE @75,1 Only human can choose this race.
RETURN 1
ELIF <SRC.TAG0.CREDITS><
SRC.SYSMESSAGE @75,1 You must have 3000 credits to select Orc race
RETURN 1
ELIF <SRC.RESTEST i_kamen_Gold, i_kamen_Ice, i_kamen_chaos, i_kamen_dread, i_kamen_millenium>
SRC.TAG.RACE=Orc
SRC.TITLE=First Level Orcish
SERV.NEWITEM=TM_ORCSUX
NEW.BOUNCE
SRC.TAG.RACENUMBER=1
SRC.TAG.HUMAN=0
SRC.TAG.CREDITS -=
src.consume 1 i_kamen_Gold
src.consume 1 i_kamen_ice
src.consume 1 i_kamen_chaos
src.consume 1 i_kamen_dread
src.consume 1 i_kamen_millenium
SRC.EVENTS +e_orc
SRC.OSKIN=0488
SRC.COLOR=0488
SRC.UPDATE
ELSE
SRC.SYSMESSAGE @75,1 You must have Gold, Ice, Chaos, Dread and Millenium Amethyst to select arhimage class
RETURN 1
ENDIF
ELSEIF <ARGCHK[4]>
IF <SRC.OSKIN>=07c6
SRC.SYSMESSAGE @75,1 You are already Druid.
RETURN 1
ELIF <SRC.OSKIN>!=083ea
SRC.SYSMESSAGE @75,1 Only human can choose this race.
RETURN 1
ELIF <SRC.TAG0.CREDITS><
SRC.SYSMESSAGE @75,1 You must have credits to select Druid race
RETURN 1
ELIF <SRC.RESTEST i_kamen_Gold, i_kamen_Ice, i_kamen_order, i_kamen_dread, i_kamen_millenium>
SRC.TAG.RACE=Druid
SRC.TITLE=First Level Druid
SERV.NEWITEM=TM_DRUIDSUX
NEW.BOUNCE
SRC.TAG.RACENUMBER=8
SRC.TAG.LEVELDRUID=1
SRC.TAG.HUMAN=0
SRC.TAG.CREDITS -=
src.consume 1 i_kamen_Gold
src.consume 1 i_kamen_ice
src.consume 1 i_kamen_order
src.consume 1 i_kamen_dread
src.consume 1 i_kamen_millenium
SRC.EVENTS +e_druid
SRC.OSKIN=07c6
SRC.COLOR=07c6
SRC.UPDATE
ELSE
SRC.SYSMESSAGE @75,1 You must have Gold, Ice, Order, Dread and Millenium Amethyst to select arhimage class
RETURN 1
ENDIF
ELSEIF <ARGCHK[5]>
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_deed_guildstone
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @75,1 You must have credits
ENDIF
ELSEIF <ARGCHK[6]>
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_deed_guildstone
NEW.BOUNCE
SRC.TAG.CREDITS -=4000
ELSE
SRC.SYSMESSAGE @75,1 You must have credits
ENDIF
ELSEIF <ARGCHK[7]>
//Chaos Shield
ELSEIF <ARGCHK[8]>
//Order Shield
ELSEIF <ARGCHK[9]>
//Archimage Item N1
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_Mage_tunic
NEW.BOUNCE
SERV.NEWITEM=i_Mage_leggings
NEW.BOUNCE
SERV.NEWITEM=i_Mage_gloves
NEW.BOUNCE
SERV.NEWITEM=i_Mage_sleeves
NEW.BOUNCE
SERV.NEWITEM=i_Mage_gorget
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[10]>
//Archimage Item N2
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_mage_cloak
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[11]>
//Archimage Item N3
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_mage_sash
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[12]>
//Archimage Item N4
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_mage_hat
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[13]>
//Archimage Item N5
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_mage_sandals
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[14]>
//Archimage Item N5
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_mage_staff
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[15]>
//Elfian Item N1
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_Elf_Armor_tunic
NEW.BOUNCE
SERV.NEWITEM=i_Elf_Armor_leggings
NEW.BOUNCE
SERV.NEWITEM=i_Elf_armor_cap
NEW.BOUNCE
SERV.NEWITEM=i_Elf_armor_gloves
NEW.BOUNCE
SRC.TAG.CREDITS -=4000
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[16]>
//Elfien Item N2
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_elf_bow
NEW.BOUNCE
SRC.TAG.CREDITS -=2000
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[17]>
//Elfien Item N3
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_elf_sandals
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[18]>
//Elfien Item N4
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_elf_bracelet
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[19]>
//Elfien Item N5
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_elf_spear
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[20]>
//Elfien Item N6
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_elf_cloak
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[21]>
//Orc Item N1
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_ORC_tunic
NEW.BOUNCE
SERV.NEWITEM=i_ORC_leggins
NEW.BOUNCE
SERV.NEWITEM=i_ORC_helm
NEW.BOUNCE
SERV.NEWITEM=i_ORC_gloves
NEW.BOUNCE
SERV.NEWITEM=i_ORC_sleeves
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[22]>
//Orc Item N2
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_orc_cloak
NEW.BOUNCE
SRC.TAG.CREDITS -=2000
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[23]>
//Orcish Item N3
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_orc_shield
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[24]>
//Orcish Item N4
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_orc_magic_helm
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[25]>
//Orcish Item N5
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_orc_hammer
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[26]>
//Orcish Item N6
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_orc_sandals
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[27]>
//Druid Item N1
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_Druid_tunic
NEW.BOUNCE
SERV.NEWITEM=i_Druid_leggings
NEW.BOUNCE
SERV.NEWITEM=i_Druid_GORGET
NEW.BOUNCE
SERV.NEWITEM=i_Druid_gloves
NEW.BOUNCE
SERV.NEWITEM=i_Druid_sleeves
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[28]>
//Druid Item N2
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_druid_hat
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[29]>
//Druid Item N3
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_druid_robe
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[30]>
//Druid Item N4
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_druid_boots
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[31]>
//Druid Item N5
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_druid_cape
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
ELSEIF <ARGCHK[32]>
//Druid Item N6
IF <SRC.TAG0.CREDITS>>=
SERV.NEWITEM=i_druid_staff
NEW.BOUNCE
SRC.TAG.CREDITS -=
ELSE
SRC.SYSMESSAGE @1,1 You need more Credits!
ENDIF
--------------------------------------------------------------------------------
ПвП Телепортер:
PHP:--------------------------------------------------------------------------------
[ITEMDEF i_return_base]
ID=0116b
NAME=Return to Tatalia
TYPE=t_sign_gump
ON=@CREATE
ATTR=08010
COLOR=0481
ON=@DCLICK
IF <SRC.TARG.DISTANCE><3
SRC.DIALOGCLOSE d_return_to_base
SRC.DIALOG d_return_to_base
RETURN 1
ELSE
SRC.SYSMESSAGE @050 You are too far away.
RETURN 1
ENDIF
[DIALOG d_return_to_base]
320,400
nomove
noclose
resizepic 0 0 3500 340 130
text 80 10 50 0
text 45 35 1968 1
text 45 60 1968 2
radio 20 38 2117 2118 0 1
radio 20 63 2117 2118 0 2
button 70 90 242 241 1 0 0
button 210 90 247 248 1 0 1
[DIALOG d_return_to_base TEXT]
Return to Base?
I will return to Tatalia
I'm Ghost and i need return to Tatalia
[DIALOG d_return_to_base BUTTON]
ONBUTTON=1
IF (<argchk[1]> == 1)
IF (<SRC.BODY>==c_man) || (<SRC.BODY>==c_woman)
SRC.TAG.RETURNTOBASE=5
SRC.NEWITEM=i_see_return_to_base_alive
SRC.ACT.EQUIP
SRC.NEWITEM=i_return_to_base_alive
SRC.ACT.EQUIP
SRC.TAG.X=<SRC.P.X>
SRC.TAG.Y=<SRC.P.Y>
SRC.TAG.Z=<SRC.P.Z>
SRC.SYSMESSAGE @050 Please wait <EVAL <SRC.TAG.RETURNTOBASE>> seconds
ELSE
SRC.SYSMESSAGE @050 You are not a alive <SRC.SEX>.
ENDIF
ELIF (<argchk[2]> == 1)
IF (<SRC.BODY>==c_ghost_man) || (<SRC.BODY>==c_ghost_woman)
SRC.NEWITEM=i_see_return_to_base_ghost
SRC.ACT.EQUIP
SRC.NEWITEM=i_return_to_base_ghost
SRC.ACT.EQUIP
SRC.TAG.RETURNTOBASE=5
SRC.SYSMESSAGE @050 Please wait <EVAL <SRC.TAG.RETURNTOBASE>> seconds.
RETURN 1
ELSE
SRC.SYSMESSAGE @050 You are not dead yet.
ENDIF
ENDIF
[ITEMDEF i_return_to_base_alive]
ID=i_worldgem_bit
NAME=Return to Base
TYPE=t_eq_script
ON=@CREATE
ATTR=04094
ON=@EQUIP
LINK=<SRC.UID>
TIMER=5
ON=@TIMER
IF ((<link.tag.x>!=<link.p.x> )||(<link.tag.y>!=<link.p.y> )||(<link.tag.z>!=<link.p.z> ))||(<link.flags>&020)||(<link.flags>&000000080)||(<link.flags>&000000004)
LINK.SYSMESSAGE @050 Teleportation Failed.
RETURN 0
ELIF (<LINK.RESTEST i_see_return_to_base_alive>
LINK.GO 3766,1295
REMOVE
LINK.FIX
LINK.UPDATE
LINK.ACT.REMOVE
RETURN 0
ELSE
RETURN 0
ENDIF
[ITEMDEF i_see_return_to_base_alive]
ID=i_worldgem_bit
NAME=Return to Base (See)
TYPE=t_eq_script
ON=@CREATE
ATTR=04094
ON=@EQUIP
LINK=<SRC.UID>
TIMER=1
ON=@TIMER
IF <LINK.RESTEST i_return_to_base_alive>
IF ((<link.tag.x>!=<link.p.x> )||(<link.tag.y>!=<link.p.y> )||(<link.tag.z>!=<link.p.z> ))||(<link.flags>&020)||(<link.flags>&000000080)||(<link.flags>&000000004)
LINK.FINDID.i_return_to_base_alive.timer=1
RETURN 0
ELSE
TIMER=1
IF <LINK.TAG.RETURNTOBASE>>0
LINK.TAG.RETURNTOBASE=<LINK.TAG.RETURNTOBASE>-1
LINK.SYSMESSAGE @050 Please wait <EVAL <LINK.TAG.RETURNTOBASE>> seconds.
LINK.FIX
LINK.UPDATE
RETURN 1
ELSE
REMOVE
RETURN 0
ENDIF
RETURN 1
ENDIF
ELSE
RETURN 0
ENDIF
[ITEMDEF i_return_to_base_ghost]
ID=i_worldgem_bit
NAME=Return To Base (Ghost)
TYPE=t_eq_script
ON=@CREATE
ATTR=04094
ON=@EQUIP
LINK=<SRC.UID>
TIMER=5
ON=@TIMER
LINK.GO 3764,1258,21
LINK.RESURRECT
LINK.UPDATE
LINK.FIX
REMOVE
RETURN 0
[ITEMDEF i_see_return_to_base_ghost]
ID=i_worldgem_bit
NAME=Return To Base (Ghost)(See)
TYPE=t_eq_script
ON=@CREATE
ATTR=04094
ON=@EQUIP
LINK=<SRC.UID>
TIMER=1
ON=@TIMER
TIMER=1
IF <LINK.TAG.RETURNTOBASE>>0
LINK.TAG.RETURNTOBASE=<LINK.TAG.RETURNTOBASE>-1
LINK.SYSMESSAGE @050 Please wait <EVAL <LINK.TAG.RETURNTOBASE>> seconds.
RETURN 1
ELSE
RETURN 0
ENDIF
[FUNCTION second_remaining]
ELSEIF <TAG.RETURNTOBASE>>0
TAG.RETURNTOBASE=<TAG.RETURNTOBASE>-1
DIALOGCLOSE d_return_to_base_alive
DIALOG d_return_to_base_alive
ELSE
DIALOGCLOSE d_return_to_base_alive
DIALOG d_return_to_base_alive
RETURN 1
ENDIF
[DIALOG d_return_to_base_alive]
320,400
nomove
resizepic 0 0 3500 340 130
text 30 50 50 0
[DIALOG d_return_to_base_alive TEXT]
You must wait <eval <SRC.TAG.RETURNTOBASE>> seconds .
[DIALOG d_return_to_base_ghost]
320,400
nomove
resizepic 0 0 3500 340 130
text 30 50 50 0
[DIALOG d_return_to_base_ghost TEXT]
You must wait <eval <SRC.TAG.RETURNTOBASE>> seconds .