Код
*********************
*Created by GM Steel*
*********************
// The Consolation: ultima.q1.ru
// Hues.mul и verdata.mul шарда - The Consolation
[ITEMDEF i_item_stone]
ID=i_gravestone_17
NAME=Item Stone
WEIGHT=20
TYPE=0
ON=@CREATE
COLOR=0480
ATTR=08010
ON=@DCLICK
if <src.flags>&statf_war
src.sysmessage At first leave from war a mode!
return 1
else
DIALOG d_item
return 1
[DIALOG d_item]
0, 0
resizepic 150 150 3600 400 340
gumppic 210 170 1141
gumppic 100 100 3905
text 260 173 82 0
text 210 210 62 1
text 210 230 192 2
text 210 250 62 3
text 210 270 192 4
text 210 290 62 5
text 210 310 192 6
text 210 330 62 7
text 210 350 192 8
text 210 370 62 9
text 210 390 192 10
text 345 455 195 11
text 190 425 254 12
tilepic 450 340 3905
tilepic 450 220 3817
tilepic 450 295 3854
tilepic 450 255 3985
tilepic 450 390 3631
button 180 213 1209 1210 1 0 1
button 180 253 1209 1210 1 0 2
button 180 293 1209 1210 1 0 3
button 180 333 1209 1210 1 0 4
button 180 373 1209 1210 1 0 5
[DIALOG d_item TEXT]
<serv.name> Item Stone
Bandage
( 100 Bandage = 1000 gr )
Reagents
( 100 Reagents = 5000 gr )
Empty Bottle
( 50 Empty Bottle = 800 gr )
Arrows
( 200 Arrows = 10000 gr )
Fame / Karma
( Fame / Karma = 100 gr )
Made in <serv.name>
Jou have : <src.bankbalance> gold
[DIALOG d_item BUTTON]
ON=1
IF <SRC.ISGM>
src.newitem i_bandage
src.act.amount = 100
src.act.bounce
RETURN 1
ELSE
IF <SRC.RESTEST 1000 i_gold>
SRC.CONSUME=1000 i_gold
src.newitem i_bandage
src.act.amount = 100
src.act.bounce
src.sysmessage <name> thank for purchase on shard <serv.name>
RETURN 1
ELSE
SRC.SAY You don't have 1000 gold.
ENDIF
ENDIF
RETURN 1
ON=2
IF <SRC.ISGM>
src.newitem i_reag_blood_moss
src.act.amount = 100
src.act.bounce
src.newitem i_reag_garlic
src.act.amount = 100
src.act.bounce
src.newitem i_reag_black_pearl
src.act.amount = 100
src.act.bounce
src.newitem i_reag_spider_silk
src.act.amount = 100
src.act.bounce
src.newitem i_reag_sulfur_ash
src.act.amount = 100
src.act.bounce
src.newitem i_reag_ginseng
src.act.amount = 100
src.act.bounce
src.newitem i_reag_mandrake_root
src.act.amount = 100
src.act.bounce
src.newitem i_reag_nightshade
src.act.amount = 100
src.act.bounce
RETURN 1
ELSE
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME=5000 i_gold
src.newitem i_reag_blood_moss
src.act.amount = 100
src.act.bounce
src.newitem i_reag_garlic
src.act.amount = 100
src.act.bounce
src.newitem i_reag_black_pearl
src.act.amount = 100
src.act.bounce
src.newitem i_reag_spider_silk
src.act.amount = 100
src.act.bounce
src.newitem i_reag_sulfur_ash
src.act.amount = 100
src.act.bounce
src.newitem i_reag_ginseng
src.act.amount = 100
src.act.bounce
src.newitem i_reag_mandrake_root
src.act.amount = 100
src.act.bounce
src.newitem i_reag_nightshade
src.act.amount = 100
src.act.bounce
src.sysmessage <name> thank for purchase on shard <serv.name>
RETURN 1
ELSE
SRC.SAY You don't have 5000 gold.
ENDIF
ENDIF
RETURN 1
ON=3
IF <SRC.ISGM>
src.newitem i_bottle_empty
src.act.amount = 50
src.act.bounce
RETURN 1
ELSE
IF <SRC.RESTEST 800 i_gold>
SRC.CONSUME=800 i_gold
src.newitem i_bottle_empty
src.act.amount = 50
src.act.bounce
src.sysmessage <name> thank for purchase on shard <serv.name>
RETURN 1
ELSE
SRC.SAY You don't have 800 gold.
ENDIF
ENDIF
RETURN 1
ON=4
IF <SRC.ISGM>
src.newitem i_arrow
src.act.amount = 200
src.act.bounce
RETURN 1
ELSE
IF <SRC.RESTEST 10000 i_gold>
SRC.CONSUME=10000 i_gold
src.newitem i_arrow
src.act.amount = 200
src.act.bounce
src.sysmessage <name> thank for purchase on shard <serv.name>
RETURN 1
ELSE
SRC.SAY You don't have 10000 gold.
ENDIF
ENDIF
RETURN 1
ON=5
IF <SRC.ISGM>
src.effect 3,i_fx_heal_effect,6,15,1
src.sfx snd_SPELL_LIGHTNING
src.Message You Karma <SRC.NAME> Is : <SRC.KARMA>
src.Message You Fame <SRC.NAME> Is : <SRC.FAME>
src.Message You Kills <SRC.NAME> Is : <SRC.KILLS>
RETURN 1
ELSE
IF <SRC.RESTEST 100 i_gold>
SRC.CONSUME=100 i_gold
src.effect 3,i_fx_heal_effect,6,15,1
src.sfx snd_SPELL_LIGHTNING
src.Message You Karma <SRC.NAME> Is : <SRC.KARMA>
src.Message You Fame <SRC.NAME> Is : <SRC.FAME>
src.Message You Kills <SRC.NAME> Is : <SRC.KILLS>
src.sysmessage <name> thank for purchase on shard <serv.name>
RETURN 1
ELSE
SRC.SAY You don't have 100 gold.
ENDIF
ENDIF
RETURN 1
[EoF]