Edit for themselves. This is Lua.
function get_module_name()
return "Supermarket"
end
function StarsOnlineShop_contact()
dlg_title( "Supermarket" )
dlg_text( "Welcome to the All in One Shop. Please select a category" )
dlg_menu( "Bear Shop", "hop_bear()" )
dlg_menu( "Shop Pet Items", "all_card()" )
dlg_menu( "Weapon Armor", "weap_Armo()" )
dlg_menu( "Random ", "random_all()" )
dlg_menu( "Decor", "all_decor()" )
dlg_menu( "Kypec1", "open_market( 'secroute_etc' )" )
dlg_menu( "Kypec2", "open_market( 'sec_sever_secmerchant_etc' )" )
dlg_menu( "Kraft shop", "open_market( 'crushop_etc' )" )
dlg_menu( "Buff", "buff_select_player()" )
dlg_menu( "Pet Buff", "buff_select_creature()" )
dlg_menu("Goodbye", '@90010002' )
dlg_show()
end
function weap_Armo()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 7 ", "rank_7()" )
dlg_menu( "Rank 6 ", "rank_6()" )
dlg_menu( "Rank 5 ", "rank_5()" )
dlg_menu( "Rank 4 ", "rank_4()" )
dlg_menu( "Rank 3 ", "rank_3()" )
dlg_menu( "Rank 2 ", "rank_2()" )
dlg_menu( "Secroute equip", "open_market( 'secroute_equip' )" )
dlg_menu( "Bear Cevent", "open_market( 'bearload_eventshop' )" )
dlg_menu( "All shop quet", "open_market( 'other_ads' )" )
dlg_menu( "KikAss set", "open_market( 'KickAss7.4set' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function rank_7()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 7 weapon", "open_market( 'rental_shop_weapon_rank7' )" )
dlg_menu( "Rank 7 armor", "open_market( 'rental_shop_armor_rank7' )" )
dlg_menu( "Rank 7 helm", "open_market( 'crushop_Newequip_helm_7rank' )" )
dlg_menu( "New Rank 7 weapon", "open_market( 'Newequip_mantle_helm_rank_7' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function rank_6()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 6 weapon", "open_market( 'rental_shop_weapon_rank6' )" )
dlg_menu( "Rank 6 armor", "open_market( 'rental_shop_armor_rank6' )" )
dlg_menu( "Rank 6 helm", "open_market( 'crushop_Newequip_helm_6rank' )" )
dlg_menu( "New rank 6 helm", "open_market( 'Newequip_mantle_helm_rank_6' )" )
dlg_menu( "Newbi Rank 6 weapon", "open_market( 'newbie_6rank_weapon' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function rank_5()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 5 weapon", "open_market( 'rental_shop_weapon_rank5' )" )
dlg_menu( "Rank 5 armor", "open_market( 'rental_shop_armor_rank5' )" )
dlg_menu( "Rank 5 helm", "open_market( 'crushop_Newequip_helm_5rank' )" )
dlg_menu( "New Rank 5 helm", "open_market( 'Newequip_mantle_helm_rank_5' )" )
dlg_menu( "Newbi Rank 5 weapon", "open_market( 'newbie_5rank_weapon' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function rank_4()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 4 weapon", "open_market( 'rental_shop_weapon_rank4' )" )
dlg_menu( "Rank 4 armor", "open_market( 'rental_shop_armor_rank4' )" )
dlg_menu( "New Rank 4 helm", "open_market( 'Newequip_mantle_helm_rank_4' )" )
dlg_menu( "Rank 4 helm", "open_market( 'crushop_Newequip_helm_4rank' )" )
dlg_menu( "Newbi Rank 4 weapon", "open_market( 'newbie_4rank_weapon' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function rank_3()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 3 weapon", "open_market( 'rental_shop_weapon_rank3' )" )
dlg_menu( "Rank 3 armor", "open_market( 'rental_shop_armor_rank3' )" )
dlg_menu( "Rank 3 helm", "open_market( 'crushop_Newequip_helm_3rank' )" )
dlg_menu( "New Rank 3 helm", "open_market( 'Newequip_mantle_helm_rank_3' )" )
dlg_menu( "Newbi Rank 3 weapon", "open_market( 'newbie_3rank_weapon' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function rank_2()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Rank 2 weapon", "open_market( 'rental_shop_weapon_rank2' )" )
dlg_menu( "Rank 2 armor", "open_market( 'rental_shop_armor_rank2' )" )
dlg_menu( "Rank 2 helm", "open_market( 'crushop_Newequip_helm_2rank' )" )
dlg_menu( "New Rank 2 helm", "open_market( 'Newequip_mantle_helm_rank_2' )" )
dlg_menu( "Newbi Rank 2 weapon", "open_market( 'newbie_2rank_weapon' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function hop_bear()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Bear card", "open_market( 'bearload_shop_creturecard' )" )
dlg_menu( "Bear eqip", "open_market( 'bearload_shop_equipment' )" )
dlg_menu( "Bear skill card", "open_market( 'bearload_shop_skillcard' )" )
dlg_menu( "Bear soulstone", "open_market( 'bearload_shop_soulstone' )" )
dlg_menu( "Bear shop", "open_market( 'bearload_shop' )" )
dlg_menu( "Bear only", "open_market( 'bearload_shop_onlybear' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function all_card()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Pets", "open_market( 'Creature_card' )" )
dlg_menu( "Broken Taming card", "open_market( 'Broken_Taming_Card' )" )
dlg_menu( "Secroite food", "open_market( 'secroute_foodshop_etc' )" )
dlg_menu( "Svitki prizivov pet", "open_market( 'crushop_summon' )" )
dlg_menu( "Shop skill all", "open_market( 'shop_skill_all' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function all_decor()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Odejda 7 days", "open_market( 'secroute_deco' )" )
dlg_menu( "Hair volosi", "open_market( 'crushop_hair' )" )
dlg_menu( "Bilet farm", "open_market( 'creature_farm' )" )
dlg_menu( "Deco effect kamni", "open_market( 'deco_effect' )" )
dlg_menu( "Odejda 7days", "open_market( 'secroute_deco_me' )" )
dlg_menu( "Costume", "open_market( 'crushop_costume' )" )
dlg_menu( "Kupalnik", "open_market( 'NPC_Event_Japan_summer' )" )
dlg_menu( "Decor", "open_market( 'shop_zeena' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function random_all()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Random event", "event_1()" )
dlg_menu( "Battle arena", "event_2()" )
dlg_menu( "pluto shops", "event_3()" )
dlg_menu( "ItemUP", "event_4()" )
dlg_menu( "All hren", "event_5()" )
dlg_menu( "Stars stoune", "open_market( 'StarsSoulstone' )" )
dlg_menu( "Shop m3dat", "open_market( 'shop_mo3dat' )" )
dlg_menu( "Stars Daily", "open_market( 'Stars_Daily' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function event_1()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Ezdov old", "open_market( 'normal_riding' )" )
dlg_menu( "Ezdov new", "open_market( 'official_riding' )" )
dlg_menu( "Bags Sumki", "open_market( 'expansion_acc_bag' )" )
dlg_menu( "dead kamni", "open_market( 'deathmatch_only' )" )
dlg_menu( "Laki sd", "open_market( 'secroute_boost_chip' )" )
dlg_menu( "Box atak defend", "open_market( 'inhance_helper_randombox' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function event_2()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Battle area indian", "open_market( 'Rondoh_Battlearena_roma_Lv1' )" )
dlg_menu( "battle area kex", "open_market( 'Rondoh_Battlearena_darkmage_Lv1' )" )
dlg_menu( "Rank 2 weapon", "open_market( 'Rondoh_Battlearena_indian_Lv1' )" )
dlg_menu( "Rank 2 weapon", "open_market( 'Rondoh_Battlearena_Etc' )" )
dlg_menu( "Rank 5 weapon", "open_market( 'Rondoh_Battlearena_consumables' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function event_3()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "kamen streng Vetality", "open_market( 'event_pluto_shop_rondo' )" )
dlg_menu( "Rank 3 weapon", "open_market( 'event_pluto_shop_asura' )" )
dlg_menu( "kamen int wisdom", "open_market( 'event_pluto_shop_deva' )" )
dlg_menu( "Rank 3 weapon", "open_market( 'event_pluto_shop_gaia' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function event_4()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "deva item", "open_market( 'deva_itemUP_suppert' )" )
dlg_menu( "asura item", "open_market( 'Asura_itemUP_suppert' )" )
dlg_menu( "Beginer item", "open_market( 'Beginner_itemUP_suppert' )" )
dlg_menu( "Gai item", "open_market( 'Gaia_itemUP_suppert' )" )
dlg_menu( "Rondo itemn", "open_market( 'Rondoh_itemUP_suppert' )" )
dlg_menu("Goodbye", '' )
dlg_show()
end
function event_5()
dlg_title("Supermarket")
dlg_text("What type of equipment are you looking for")
dlg_menu( "Duh leona", "open_market( 'sec_sever_bulcajoin_sec' )" )
dlg_menu( "Mech dl Tochki", "open_market( 'tp_quest' )" )
dlg_menu( "Kristal", "open_market( 'event_ramadan1_shop' )" )
dlg_menu( "Paralelnii MIR Bilet", "open_market( 'parallelworld_merchant_etc' )" )
dlg_menu("Goodbye", '' )
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("Благословение жизни - 20,000R", "buff_player(163404)")
dlg_menu("Благословение разума - 20,000R", "buff_player(163405)")
dlg_menu("Благословение мудрости - 20,000R", "buff_player(163406)")
dlg_menu("Благословение Силы - 20,000R", "buff_player(163407)")
dlg_menu("Скорость ветра - 20,000R", "buff_player(13423)")
dlg_menu("Дух камня - 20,000R", "buff_player(13424)")
dlg_menu("Сила священного пламени - 20,000R", "buff_player(13425)")
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("Благословение жизни - 20,000R", "buff_creature(163404)")
dlg_menu("Благословение разума - 20,000R", "buff_creature(163405)")
dlg_menu("Благословение мудрости - 20,000R", "buff_creature(163406)")
dlg_menu("Благословение Силы - 20,000R", "buff_creature(163407)")
dlg_menu("Скорость ветра - 20,000R", "buff_creature(13423)")
dlg_menu("Дух камня - 20,000R", "buff_creature(13424)")
dlg_menu("Сила священного пламени - 20,000R", "buff_creature(13425)")
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)
add_state(163404, 18, 900000)
add_state(163405, 18, 900000)
add_state(163406, 18, 900000)
add_state(163407, 18, 900000)
add_state(13423, 18, 900000)
add_state(13424, 18, 900000)
add_state(13425, 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)
add_state(163404, 18, 900000)
add_state(163405, 18, 900000)
add_state(163406, 18, 900000)
add_state(163407, 18, 900000)
add_state(13423, 18, 900000)
add_state(13424, 18, 900000)
add_state(13425, 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
thx ..