mirror of
https://github.com/Aurorastation/Aurora.3.git
synced 2026-01-05 23:11:52 +00:00
ead72eee56
Adds additional function to the merchant software - Bulk Buy.
Activating this function prompts the user to enter a number.
If text is SOMEHOW entered, returns IC error message.
If number lesser than 1 is entered, returns IC error message.
Expects numbers equal or greater to 1.
Function then executes standard money-purchase function using a loop. This loop executes X amount of times where X is the number user entered, ensuring they purchase the amount of items they want to buy up to as much money as they actually have
This makes sure they cannot abuse this to buy more things than they can afford.
This function greatly reduces lag caused by server spawning excess amount of items and makes merchant much more pleasant to play.
Compiled without errors, tested on up-to-date private server, worked as expected.
251 lines
7.3 KiB
Plaintext
251 lines
7.3 KiB
Plaintext
/datum/computer_file/program/merchant
|
|
filename = "mlist"
|
|
filedesc = "Merchant's List"
|
|
extended_desc = "Allows communication and trade between passing vessels, even while jumping."
|
|
program_icon_state = "comm"
|
|
nanomodule_path = /datum/nano_module/program/merchant
|
|
requires_ntnet = 0
|
|
available_on_ntnet = 0
|
|
size = 12
|
|
usage_flags = PROGRAM_CONSOLE
|
|
required_access_run = access_merchant
|
|
required_access_download = access_merchant
|
|
var/obj/machinery/merchant_pad/pad = null
|
|
var/current_merchant = 0
|
|
var/show_trades = 0
|
|
var/hailed_merchant = 0
|
|
var/last_comms = null
|
|
var/temp = null
|
|
var/bank = 0 //A straight up money till
|
|
|
|
/datum/nano_module/program/merchant
|
|
name = "Merchant's List"
|
|
|
|
/datum/computer_file/program/merchant/proc/get_merchant(var/num)
|
|
if(num > SStrade.traders.len)
|
|
num = SStrade.traders.len
|
|
if(num)
|
|
return SStrade.traders[num]
|
|
|
|
/datum/nano_module/program/merchant/ui_interact(mob/user, ui_key = "main", var/datum/nanoui/ui = null, var/force_open = 1, var/datum/topic_state/state = default_state)
|
|
var/list/data = host.initial_data()
|
|
var/show_trade = 0
|
|
var/hailed = 0
|
|
var/datum/trader/T
|
|
if(program)
|
|
var/datum/computer_file/program/merchant/P = program
|
|
data["temp"] = P.temp
|
|
data["mode"] = !!P.current_merchant
|
|
data["last_comms"] = P.last_comms
|
|
data["pad"] = !!P.pad
|
|
data["bank"] = P.bank
|
|
show_trade = P.show_trades
|
|
hailed = P.hailed_merchant
|
|
T = P.get_merchant(P.current_merchant)
|
|
data["mode"] = !!T
|
|
if(T)
|
|
data["traderName"] = T.name
|
|
data["origin"] = T.origin
|
|
data["hailed"] = hailed
|
|
if(show_trade)
|
|
var/list/trades = list()
|
|
if(T.trading_items.len)
|
|
for(var/i in 1 to T.trading_items.len)
|
|
trades += T.print_trading_items(i)
|
|
data["trades"] = trades
|
|
ui = SSnanoui.try_update_ui(user, src, ui_key, ui, data, force_open)
|
|
if (!ui)
|
|
ui = new(user, src, ui_key, "merchant.tmpl", "Merchant List", 575, 700, state = state)
|
|
ui.auto_update_layout = 1
|
|
ui.set_initial_data(data)
|
|
ui.open()
|
|
|
|
/datum/computer_file/program/merchant/proc/connect_pad()
|
|
for(var/obj/machinery/merchant_pad/P in orange(1,get_turf(computer)))
|
|
pad = P
|
|
return
|
|
|
|
/datum/computer_file/program/merchant/proc/test_fire()
|
|
if(pad && pad.get_target())
|
|
return 1
|
|
return 0
|
|
|
|
/datum/computer_file/program/merchant/proc/offer_money(var/datum/trader/T, var/num)
|
|
if(pad)
|
|
var/response = T.offer_money_for_trade(num, bank)
|
|
if(istext(response))
|
|
last_comms = T.get_response(response, "No thank you.")
|
|
else
|
|
last_comms = T.get_response("trade_complete", "Thank you!")
|
|
T.trade(null,num, get_turf(pad))
|
|
bank -= response
|
|
return
|
|
last_comms = "PAD NOT CONNECTED"
|
|
|
|
/datum/computer_file/program/merchant/proc/bulk_offer(var/datum/trader/T, var/num)
|
|
var/BulkAmount = input("How many items? (Buy 1-50 items. 0 to cancel.)") as num
|
|
if(istext(BulkAmount))
|
|
last_comms = "ERROR: NUMBER EXPECTED"
|
|
return
|
|
if(BulkAmount < 0 || BulkAmount > 50)
|
|
last_comms = "ERROR: POSITIVE NUMBER UP TO 50 EXPECTED"
|
|
return
|
|
if(pad)
|
|
for(var/BulkCounter = 0, BulkCounter < BulkAmount, BulkCounter++)
|
|
var/response = T.offer_money_for_trade(num, bank)
|
|
if(istext(response))
|
|
last_comms = T.get_response(response, "No thank you.")
|
|
else
|
|
last_comms = T.get_response("trade_complete", "Thank you!")
|
|
T.trade(null,num, get_turf(pad))
|
|
bank -= response
|
|
return
|
|
last_comms = "PAD NOT CONNECTED"
|
|
|
|
/datum/computer_file/program/merchant/proc/bribe(var/datum/trader/T, var/amt)
|
|
if(bank < amt)
|
|
last_comms = "ERROR: NOT ENOUGH FUNDS."
|
|
return
|
|
|
|
bank -= amt
|
|
last_comms = T.bribe_to_stay_longer(amt)
|
|
|
|
/datum/computer_file/program/merchant/proc/offer_item(var/datum/trader/T, var/num)
|
|
if(pad)
|
|
var/list/targets = pad.get_targets()
|
|
for(var/target in targets)
|
|
if(!computer_emagged && istype(target,/mob/living/carbon/human))
|
|
last_comms = "SAFETY LOCK ENABLED: SENTIENT MATTER UNTRANSMITTABLE"
|
|
return
|
|
var/response = T.offer_items_for_trade(targets,num, get_turf(pad))
|
|
if(istext(response))
|
|
last_comms = T.get_response(response,"No, a million times no.")
|
|
else
|
|
last_comms = T.get_response("trade_complete","Thanks for your business!")
|
|
|
|
return
|
|
last_comms = "PAD NOT CONNECTED"
|
|
|
|
/datum/computer_file/program/merchant/proc/sell_items(var/datum/trader/T)
|
|
if(pad)
|
|
var/list/targets = pad.get_targets()
|
|
var/response = T.sell_items(targets)
|
|
if(istext(response))
|
|
last_comms = T.get_response(response, "Nope. Nope nope nope.")
|
|
else
|
|
last_comms = T.get_response("trade_complete", "Glad to be of service!")
|
|
bank += response
|
|
return
|
|
last_comms = "PAD NOT CONNECTED"
|
|
|
|
/datum/computer_file/program/merchant/proc/transfer_to_bank()
|
|
if(pad)
|
|
var/list/targets = pad.get_targets()
|
|
for(var/target in targets)
|
|
if(istype(target, /obj/item/spacecash))
|
|
var/obj/item/spacecash/cash = target
|
|
bank += cash.worth
|
|
qdel(target)
|
|
last_comms = "ALL MONEY DETECTED ON PAD TRANSFERED"
|
|
return
|
|
last_comms = "PAD NOT CONNECTED"
|
|
|
|
/datum/computer_file/program/merchant/proc/get_money()
|
|
if(!pad)
|
|
last_comms = "PAD NOT CONNECTED. CANNOT TRANSFER"
|
|
return
|
|
var/turf/T = get_turf(pad)
|
|
var/obj/item/spacecash/bundle/B = new(T)
|
|
B.worth = bank
|
|
bank = 0
|
|
B.update_icon()
|
|
|
|
/datum/computer_file/program/merchant/Topic(href, href_list)
|
|
if(..())
|
|
return 1
|
|
var/mob/user = usr
|
|
if(href_list["PRG_connect_pad"])
|
|
. = 1
|
|
connect_pad()
|
|
if(href_list["PRG_continue"])
|
|
. = 1
|
|
temp = null
|
|
if(href_list["PRG_transfer_to_bank"])
|
|
. = 1
|
|
transfer_to_bank()
|
|
if(href_list["PRG_get_money"])
|
|
. = 1
|
|
get_money()
|
|
if(href_list["PRG_main_menu"])
|
|
. = 1
|
|
current_merchant = 0
|
|
if(href_list["PRG_merchant_list"])
|
|
if(SStrade.traders.len == 0)
|
|
. = 0
|
|
temp = "Cannot find any traders within broadcasting range."
|
|
else
|
|
. = 1
|
|
current_merchant = 1
|
|
hailed_merchant = 0
|
|
last_comms = null
|
|
if(href_list["PRG_test_fire"])
|
|
. = 1
|
|
if(test_fire())
|
|
temp = "Test Fire Successful"
|
|
else
|
|
temp = "Test Fire Unsuccessful"
|
|
if(href_list["PRG_scroll"])
|
|
. = 1
|
|
var/scrolled = 0
|
|
switch(href_list["PRG_scroll"])
|
|
if("right")
|
|
scrolled = 1
|
|
if("left")
|
|
scrolled = -1
|
|
var/new_merchant = Clamp(current_merchant + scrolled, 1, SStrade.traders.len)
|
|
if(new_merchant != current_merchant)
|
|
hailed_merchant = 0
|
|
last_comms = null
|
|
current_merchant = new_merchant
|
|
if(current_merchant)
|
|
var/datum/trader/T = get_merchant(current_merchant)
|
|
if(!T.can_hail())
|
|
last_comms = T.get_response("hail_deny", "No, I'm not speaking with you.")
|
|
. = 1
|
|
else
|
|
if(href_list["PRG_hail"])
|
|
. = 1
|
|
last_comms = T.hail(user)
|
|
show_trades = 0
|
|
hailed_merchant = 1
|
|
if(href_list["PRG_show_trades"])
|
|
. = 1
|
|
show_trades = !show_trades
|
|
if(href_list["PRG_insult"])
|
|
. = 1
|
|
last_comms = T.insult()
|
|
if(href_list["PRG_compliment"])
|
|
. = 1
|
|
last_comms = T.compliment()
|
|
if(href_list["PRG_offer_item"])
|
|
. = 1
|
|
offer_item(T,text2num(href_list["PRG_offer_item"]) + 1)
|
|
if(href_list["PRG_how_much_do_you_want"])
|
|
. = 1
|
|
last_comms = T.how_much_do_you_want(text2num(href_list["PRG_how_much_do_you_want"]) + 1)
|
|
if(href_list["PRG_offer_money_for_item"])
|
|
. = 1
|
|
offer_money(T, text2num(href_list["PRG_offer_money_for_item"])+1)
|
|
if (href_list["PRG_bulk_money_for_item"])
|
|
. = 1
|
|
bulk_offer(T, text2num(href_list["PRG_bulk_money_for_item"])+1)
|
|
if(href_list["PRG_what_do_you_want"])
|
|
. = 1
|
|
last_comms = T.what_do_you_want()
|
|
if(href_list["PRG_sell_items"])
|
|
. = 1
|
|
sell_items(T)
|
|
if(href_list["PRG_bribe"])
|
|
. = 1
|
|
bribe(T, text2num(href_list["PRG_bribe"]))
|