// Sphere_Buy_Stone.scp// Fixed by Sane and Insane
// Buy Stone Version 2.0 beta
// For versions .55x
// To report bugs in my scripts
// email me here: [email protected]
// Last Updated 21 SEP 2002
////////////////////////////////////////////
[ITEMDEF i_buy_stone]
// Fixed by Sane and Insane
NAME=Buy stone
ID=i_grave_stone_4
TYPE=i_wall_stone
FLIP=0
ON=@Create
COLOR=078a
ON=@DCLICK
MENU=m_items_1
//SRC.OPEN=m_items_1
SRC.SYSMESSAGE Buy all you want
RETURN 1
ENDIF
CATEGORY=Netroof Scripts
SUBSECTION=Buy
DESCRIPTION=Buy Stone
[MENU m_items_1]
Select Item Group, Fixed by Sane and Insane
ON=0 Items #1// Menu #1 name
MENU=m_items
RETURN 0
ON=0 Items #2// Menu #2 name (example Magic armor)
MENU=m_items_2
RETURN 0
[MENU m_items]
Items #1
ON=0 (name of item) [3800 gold]
IF <SRC.RESTEST 3800 i_gold>
SRC.CONSUME=3800 i_gold
SRC.NEWITEM=i_robe // examp i_robe (put your Items for sale here)
SRC.ACT.BOUNCE
MESSAGE You have recieved your item. Thank thee!
RETURN 0
ELSE
MESSAGE You have too little Funds
RETURN 0
[MENU m_items_2]
Items #2
ON=0 (name of item) [3800 gold]
IF <SRC.RESTEST 3800 i_gold>
SRC.CONSUME=3800 i_gold
SRC.NEWITEM=i_robe // examp i_robe (put your Items for sale here)
SRC.ACT.BOUNCE
MESSAGE You have recieved your item. Thank thee!
RETURN 0
ELSE
MESSAGE You have too little Funds
RETURN 0
[EOF]
