function NPC_aio_shop_init()
cprint( "AiO Shop" )
set_npc_name( "All in One Shop" )
end
function NPC_aio_shop_contact()
dlg_title( "Supermarket" )
dlg_text( "Welcome to the All in One Shop. Please select a category" )
dlg_menu( "Usables", "open_market( 'cs_usable' )" )
dlg_menu( "Cash Shop Decoration", "open_market( 'cs_deco' )" )
dlg_menu( "Cash Shop Equipment", "open_market( 'cs_equip' )" )
dlg_menu( "Cash Shop Pet Items", "open_market( 'cs_pet' )" )
dlg_menu( "Cash Shop Random Boxes", "open_market( 'cs_random' )" )
dlg_menu( "Stone Shop", "open_market( 'cs_stones' )" )
dlg_menu( "Crafting Shop", "open_market( 'cs_crafting' )" )
dlg_menu( "Rank 5 Equipment", "open_market( 'cs_rank5' )" )
dlg_menu( "Rank 6 Equipment", "open_market( 'cs_rank6' )" )
dlg_menu( "Rank 7 Equipment", "open_market( 'cs_rank7' )" )
dlg_menu( "Buff", "buff_select_player()" )
dlg_menu( "Pet Buff", "buff_select_creature()" )
dlg_menu( "@90010002", '' )
dlg_show()
end
function buff_select_player()
dlg_text("Посмотрим, что у нас есть ")
dlg_menu("Physical Attack - 20,000R", "buff_player(1007)")
dlg_menu("Magical Attack - 20,000R", "buff_player(1008)")
dlg_menu("Physical Defense - 20,000R", "buff_player(1009)")
dlg_menu("Magical Defense - 20,000R", "buff_player(1010)")
dlg_menu("Attack Speed - 20,000R", "buff_player(1011)")
dlg_menu("Cast Speed - 20,000R", "buff_player(1012)")
dlg_menu("Movement Speed - 20,000R", "buff_player(1013)")
dlg_menu("Get All Buffs - 140,000R", "buff_player(0)")
dlg_menu( "Goodbuy", '' )
dlg_show()
end
function buff_select_creature()
dlg_text("1")
dlg_menu("Physical Attack - 20,000R", "buff_creature(1007)")
dlg_menu("Magical Attack - 20,000R", "buff_creature(1008)")
dlg_menu("Physical Defense- 20,000R", "buff_creature(1009)")
dlg_menu("Magical Defense- 20,000R", "buff_creature(1010)")
dlg_menu("Attack Speed - 20,000R", "buff_creature(1011)")
dlg_menu("Cast Speed - 20,000R", "buff_creature(1012)")
dlg_menu("Movement Speed - 20,000R", "buff_creature(1013)")
dlg_menu("Get All Buffs - 140,000R", "buff_creature(0)")
dlg_menu( "Goodbuy", '' )
dlg_show()
end
function buff_player(buffcode)
local gold = get_value("gold")
gold = tonumber(gold)
if buffcode == 0 then
if gold >= 140000 then
sv("gold", gold-140000)
update_gold_chaos()
add_state(1007, 18, 900000)
add_state(1008, 18, 900000)
add_state(1009, 18, 900000)
add_state(1010, 18, 900000)
add_state(1011, 18, 900000)
add_state(1012, 18, 900000)
add_state(1013, 18, 900000)
buff_select_player()
else
dlg_text("Sorry, you do not have enough money.")
dlg_menu("Goodbye!", "")
dlg_show()
end
else
if gold >= 20000 then
sv("gold", gold-20000)
update_gold_chaos()
add_state("" .. buffcode .. "", 18, 900000)
buff_select_player()
else
dlg_text("Sorry, you do not have enough money.")
dlg_menu("Goodbye!", "")
dlg_show()
end
end
end
function buff_creature(buffcode)
local gold = get_value("gold")
gold = tonumber(gold)
if buffcode == 0 then
if gold >= 140000 then
sv("gold", gold-140000)
update_gold_chaos()
add_cstate(1007, 18, 900000)
add_cstate(1008, 18, 900000)
add_cstate(1009, 18, 900000)
add_cstate(1010, 18, 900000)
add_cstate(1011, 18, 900000)
add_cstate(1012, 18, 900000)
add_cstate(1013, 18, 900000)
buff_select_creature()
else
dlg_text("Sorry, you do not have enough money.")
dlg_menu("Goodbye!", "")
dlg_show()
end
else
if gold >= 20000 then
sv("gold", gold-20000)
update_gold_chaos()
add_cstate("" .. buffcode .. "", 18, 900000)
buff_select_creature()
else
dlg_text("Sorry, you do not have enough money.")
dlg_menu("Goodbye!", "")
dlg_show()
end
end
end