mirror of
https://github.com/goonstation/goonstation-2016.git
synced 2026-08-25 15:06:13 +01:00
Initial Commit
This commit is contained in:
Tobba
@@ -0,0 +1,628 @@
|
||||
/obj/npc/station_trader //separate obj because he has a lot of different behaviours eg. no buying, no set area, no defence systems to activate
|
||||
name="Shady Robot"
|
||||
icon = 'icons/misc/evilreaverstation.dmi' //temporary
|
||||
icon_state = "pr1_b"
|
||||
picture = "robot.png"
|
||||
var/hiketolerance = 20 //How much they will tolerate price hike
|
||||
var/list/droplist = null //What the merchant will drop upon their death
|
||||
var/list/goods_sell = new/list() //What products the trader sells
|
||||
var/list/shopping_cart = new/list() //What has been bought
|
||||
var/obj/item/sell = null //Item to sell
|
||||
var/portrait_setup = null
|
||||
var/obj/item/sellitem = null
|
||||
var/item_name = "--------"
|
||||
var/obj/item/card/id/scan = null
|
||||
//Trader dialogue
|
||||
var/buy_dialogue = null
|
||||
var/list/successful_sale_dialogue = null
|
||||
var/list/failed_sale_dialogue = null
|
||||
var/list/successful_purchase_dialogue = null
|
||||
var/list/failed_purchase_dialogue = null
|
||||
var/pickupdialogue = null
|
||||
var/pickupdialoguefailure = null
|
||||
var/list/trader_areas = list(/area/station/maintenance/aftsolar,/area/station/solar/aft,/area/station/maintenance/starboard,/area/station/maintenance/asmaint,/area/station/maintenance/starboardsolar,/area/station/solar/starboard,/area/station/maintenance/aft,/area/station/maintenance/disposal,/area/station/maintenance/apmaint,/area/station/maintenance/portsolar,/area/station/solar/port,/area/station/hallway/secondary/construction,/area/station/maintenance/fpmaint,/area/station/crew_quarters/quartersA,/area/station/crew_quarters/quartersB,/area/station/crew_quarters/observatory,/area/station/wreckage,/area/station/maintenance/fore,/area/station/maintenance/maintcentral)
|
||||
var/doing_a_thing = 0
|
||||
|
||||
// This list is in a specific order!!
|
||||
// String 1 - player is being dumb and hiked a price up when buying, trader accepted it because they're a dick
|
||||
// String 2 - same as above only the trader is being nice about it
|
||||
// String 3 - player haggled further than the trader is willing to tolerate
|
||||
// String 4 - trader has had enough of your bullshit and is leaving
|
||||
var/list/errormsgs = list("...huh. If you say so!",
|
||||
"Huh? You want to pay <i>more</i> for my wares than i'm offering?",
|
||||
"What the f... umm, no? Make me a serious offer.",
|
||||
"Sorry, you're terrible at this. I must be going.")
|
||||
// Next list - the last entry will always be used on the trader's final haggling offer
|
||||
// otherwise the trader picks randomly from the list including the "final offer" in order to bluff players
|
||||
var/list/hagglemsgs = list("Alright, how's this sound?",
|
||||
"You drive a hard bargain. How's this price?",
|
||||
"You're busting my balls here. How's this?",
|
||||
"I'm being more than generous here, I think you'll agree.",
|
||||
"This is my final offer. Can't do better than this.")
|
||||
|
||||
//CARD VARS
|
||||
var/card_registered = null //who is the card registered to?
|
||||
var/card_assignment = null //what job does it have?
|
||||
var/card_icon_state = "id" //which icon should we use?
|
||||
var/card_icon_price = 0 //how much does that icon cost (flat price)?
|
||||
var/card_duration = 60 //how long will the card's access last?
|
||||
var/list/card_access = list() //what access will it have?
|
||||
var/card_price = 0 //total card price (calculated when updatecardprice() is called)
|
||||
var/card_timer = 0 //does the card display time remaining before its access runs out (costs 1000)?
|
||||
|
||||
//ACCESS LISTS FOR PRICING & SORTING
|
||||
var/list/civilian_access_list = list(6, 12, 22, 23, 25, 26, 27, 28, 35, 36)
|
||||
var/list/engineering_access_list = list(13, 32, 40, 43, 44, 45, 46, 47, 48)
|
||||
var/list/supply_access_list = list(30, 31, 34, 47, 50, 51)
|
||||
var/list/research_access_list = list(5, 7, 8, 9, 10, 24, 29, 33)
|
||||
var/list/security_access_list = list(1, 2, 3, 4, 37, 38, 39)
|
||||
var/list/command_access_list = list(11, 14, 15, 16, 17, 18, 19, 20, 21, 49, 53)
|
||||
var/list/special_access_list = list(37)
|
||||
|
||||
//PRODUCTS
|
||||
var/list/common_products = list(/datum/commodity/bodyparts/butt,/datum/commodity/contraband/ntso_uniform,/datum/commodity/contraband/ntso_vest,/datum/commodity/contraband/ntso_beret,/datum/commodity/drugs/methamphetamine,/datum/commodity/drugs/crank,/datum/commodity/drugs/catdrugs,/datum/commodity/drugs/morphine,/datum/commodity/drugs/krokodil,/datum/commodity/drugs/lsd,/datum/commodity/drugs/shrooms,/datum/commodity/drugs/cannabis,/datum/commodity/drugs/cannabis_mega,/datum/commodity/drugs/cannabis_white,/datum/commodity/drugs/cannabis_omega,/datum/commodity/produce/special/ghostchili,/datum/commodity/contraband/secheadset,/datum/commodity/medical/strange_reagent,/datum/commodity/drugs/cyberpunk,/datum/commodity/contraband/swatmask,/datum/commodity/contraband/briefcase,/datum/commodity/bodyparts/heart,/datum/commodity/bodyparts/eye)
|
||||
var/num_common_products = 13 //how many of these to pick for sale
|
||||
|
||||
var/list/rare_products = list(/datum/commodity/contraband/radiojammer,/datum/commodity/contraband/stealthstorage,/datum/commodity/medical/injectorbelt,/datum/commodity/medical/injectormask,/datum/commodity/junk/voltron,/datum/commodity/laser_gun,/datum/commodity/relics/crown,/datum/commodity/contraband/egun,/datum/commodity/relics/armor,/datum/commodity/contraband/spareid,/datum/commodity/contraband/voicechanger,/datum/commodity/contraband/chamsuit,/datum/commodity/contraband/dnascram)
|
||||
var/num_rare_products = 2 //how many of these to pick for sale
|
||||
|
||||
New()
|
||||
..()
|
||||
teleport()
|
||||
process()
|
||||
|
||||
for(var/i = 1 to num_common_products)
|
||||
var/datum/commodity/C = pick(common_products)
|
||||
goods_sell += new C(src)
|
||||
common_products -= C //so we don't get duplicates
|
||||
|
||||
for(var/i = 1 to num_rare_products)
|
||||
var/datum/commodity/C = pick(rare_products)
|
||||
goods_sell += new C(src)
|
||||
rare_products -= C //so we don't get duplicates
|
||||
|
||||
proc/process()
|
||||
spawn(300)
|
||||
if(prob(20) && !scan)
|
||||
teleport()
|
||||
process()
|
||||
|
||||
anger()
|
||||
for(var/mob/M in AIviewers(src))
|
||||
boutput(M, "<span style=\"color:red\"><B>[src.name]</B> becomes angry!</span>")
|
||||
src.desc = "[src] looks angry."
|
||||
teleport()
|
||||
spawn(rand(1000,3000))
|
||||
src.visible_message("<b>[src.name] calms down.</b>")
|
||||
src.desc = "[src] looks a bit annoyed."
|
||||
src.temp = "[src.name] has calmed down.<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
||||
src.angry = 0
|
||||
return
|
||||
|
||||
proc/teleport()
|
||||
var/area/A = pick(trader_areas)
|
||||
var/turf/target = null
|
||||
var/list/locs = list()
|
||||
|
||||
for(var/turf/T in A)
|
||||
var/dense = 0
|
||||
if(T.density)
|
||||
dense = 1
|
||||
else
|
||||
for(var/obj/O in T)
|
||||
if(O.density)
|
||||
dense = 1
|
||||
break
|
||||
if(dense == 0) locs += T
|
||||
|
||||
if(!locs.len) return
|
||||
|
||||
target = pick(locs)
|
||||
|
||||
showswirl(src.loc)
|
||||
src.loc = target
|
||||
showswirl(target)
|
||||
|
||||
//reset stuff to default
|
||||
card_registered = null
|
||||
card_assignment = null
|
||||
card_icon_state = "id"
|
||||
card_icon_price = 0
|
||||
card_duration = 60
|
||||
card_access = list()
|
||||
card_price = 0
|
||||
card_timer = 0
|
||||
|
||||
return
|
||||
|
||||
attack_hand(var/mob/user as mob)
|
||||
if(..())
|
||||
return
|
||||
if(angry)
|
||||
boutput(user, "<span style=\"color:red\">[src] is angry and won't trade with anyone right now.</span>")
|
||||
return
|
||||
user.machine = src
|
||||
var/dat = updatemenu()
|
||||
if(!temp)
|
||||
dat += {"[src.greeting]<HR>
|
||||
<A href='?src=\ref[src];temp_card=1'>Purchase Temporary ID</A><BR>
|
||||
<A href='?src=\ref[src];purchase=1'>Purchase Items</A><BR>
|
||||
<A href='?src=\ref[src];viewcart=1'>View Cart</A><BR>
|
||||
<A href='?src=\ref[src];pickuporder=1'>I'm Ready to Pick Up My Order</A><BR>
|
||||
<A href='?action=mach_close&window=trader'>Goodbye</A>"}
|
||||
|
||||
user << browse(dat, "window=trader;size=575x530")
|
||||
onclose(user, "trader")
|
||||
return
|
||||
|
||||
disposing()
|
||||
goods_sell = null
|
||||
shopping_cart = null
|
||||
..()
|
||||
|
||||
Topic(href, href_list)
|
||||
if(..())
|
||||
return
|
||||
|
||||
if ((usr.contents.Find(src) || (in_range(src, usr) && istype(src.loc, /turf))) || (istype(usr, /mob/living/silicon)))
|
||||
usr.machine = src
|
||||
///////////////////////////////
|
||||
///////Generate Purchase List//
|
||||
///////////////////////////////
|
||||
if (href_list["temp_card"])
|
||||
src.temp = "I can hook you up with a temporary ID, just let me know what you need.<HR><BR>"
|
||||
src.temp = "<b>Price: [card_price] credits</b><BR><BR>"
|
||||
src.temp += "Registered: <a href='?src=\ref[src];registered=1'>[card_registered ? card_registered : "--------"]</a><BR>"
|
||||
src.temp += "Assignment: <a href='?src=\ref[src];assignment=1'>[card_assignment ? card_assignment : "--------"]</a><BR>"
|
||||
src.temp += "Duration: <a href='?src=\ref[src];duration=1'>[card_duration ? card_duration : "--------"] seconds</a><BR>"
|
||||
if(card_timer)
|
||||
src.temp += "Timer (1000 credits): <b>Yes</b>/<a href='?src=\ref[src];timer=0'>No</a><BR>"
|
||||
else
|
||||
src.temp += "Timer (1000 credits): <a href='?src=\ref[src];timer=1'>Yes</a>/<b>No</b><BR>"
|
||||
|
||||
//Change access to individual areas
|
||||
src.temp += "<br><br><u>Access</u>"
|
||||
src.temp += "<br>Prices are per second."
|
||||
|
||||
//Organised into sections
|
||||
var/civilian_access = "<br>Staff (1):"
|
||||
var/engineering_access = "<br>Engineering (2):"
|
||||
/* Conor12: I removed some unused accesses as the page is large enough, add these if they ever get used:
|
||||
41 (access_engineering_storage)
|
||||
42 (access_engineering_eva)*/
|
||||
var/supply_access = "<br>Supply (2):"
|
||||
var/research_access = "<br>Science and Medical (5):"
|
||||
var/security_access = "<br>Security (10):"
|
||||
var/command_access = "<br>Command (10):"
|
||||
var/special_access = "<br>Special (50):"
|
||||
|
||||
for(var/A in access_name_lookup)
|
||||
if(access_name_lookup[A] in src.card_access)
|
||||
//Click these to remove access
|
||||
if (access_name_lookup[A] in civilian_access_list)
|
||||
civilian_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=0'><font color=\"red\">[dd_replacetext(A, " ", " ")]</font></a>"
|
||||
if (access_name_lookup[A] in engineering_access_list)
|
||||
engineering_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=0'><font color=\"red\">[dd_replacetext(A, " ", " ")]</font></a>"
|
||||
if (access_name_lookup[A] in supply_access_list)
|
||||
supply_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=0'><font color=\"red\">[dd_replacetext(A, " ", " ")]</font></a>"
|
||||
if (access_name_lookup[A] in research_access_list)
|
||||
research_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=0'><font color=\"red\">[dd_replacetext(A, " ", " ")]</font></a>"
|
||||
if (access_name_lookup[A] in security_access_list)
|
||||
security_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=0'><font color=\"red\">[dd_replacetext(A, " ", " ")]</font></a>"
|
||||
if (access_name_lookup[A] in command_access_list)
|
||||
command_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=0'><font color=\"red\">[dd_replacetext(A, " ", " ")]</font></a>"
|
||||
else//Click these to add access
|
||||
if (access_name_lookup[A] in civilian_access_list)
|
||||
civilian_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=1'>[dd_replacetext(A, " ", " ")]</a>"
|
||||
if (access_name_lookup[A] in engineering_access_list)
|
||||
engineering_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=1'>[dd_replacetext(A, " ", " ")]</a>"
|
||||
if (access_name_lookup[A] in supply_access_list)
|
||||
supply_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=1'>[dd_replacetext(A, " ", " ")]</a>"
|
||||
if (access_name_lookup[A] in research_access_list)
|
||||
research_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=1'>[dd_replacetext(A, " ", " ")]</a>"
|
||||
if (access_name_lookup[A] in security_access_list)
|
||||
security_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=1'>[dd_replacetext(A, " ", " ")]</a>"
|
||||
if (access_name_lookup[A] in command_access_list)
|
||||
command_access += " <a href='?src=\ref[src];access=[access_name_lookup[A]];allowed=1'>[dd_replacetext(A, " ", " ")]</a>"
|
||||
|
||||
if(37 in src.card_access)
|
||||
special_access += " <a href='?src=\ref[src];access=37;allowed=0'><font color=\"red\">Head of Security</font></a>"
|
||||
else
|
||||
special_access += " <a href='?src=\ref[src];access=37;allowed=1'>Head of Security</a>"
|
||||
|
||||
src.temp += "[civilian_access][engineering_access][supply_access][research_access][security_access][command_access][special_access]"
|
||||
|
||||
src.temp += "<br><br><u>Customise ID</u><br>"
|
||||
src.temp += "[src.card_icon_state == "id" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=none'>Plain</a>[src.card_icon_state == "id" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "id_civ" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=blue'>Civilian</a>[src.card_icon_state == "id_civ" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "id_clown" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=clown'>Clown</a>[src.card_icon_state == "id_clown" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "id_eng" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=yellow'>Engineering</a>[src.card_icon_state == "id_eng" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "id_res" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=purple'>Research</a>[src.card_icon_state == "id_res" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "id_sec" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=red'>Security</a>[src.card_icon_state == "id_sec" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "id_com" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=green'>Command</a>[src.card_icon_state == "id_com" ? "</font> " : " "]"
|
||||
src.temp += "[src.card_icon_state == "gold" ? "<font color=\"red\">" : ""]<a href='?src=\ref[src];colour=gold'>Captain</a>[src.card_icon_state == "gold" ? "</font>" : ""]"
|
||||
|
||||
src.temp += "<BR><A href='?src=\ref[src];buycard=1'>Purchase</A>"
|
||||
src.temp += "<BR><A href='?src=\ref[src];mainmenu=1'>Back</A>"
|
||||
|
||||
if (href_list["access"] && href_list["allowed"])
|
||||
var/access_type = text2num(href_list["access"])
|
||||
var/access_allowed = text2num(href_list["allowed"])
|
||||
|
||||
if(access_type == 37)
|
||||
src.card_access -= access_type
|
||||
if(access_allowed == 1)
|
||||
src.card_access += access_type
|
||||
else if(access_type in get_all_accesses())
|
||||
src.card_access -= access_type
|
||||
if(access_allowed == 1)
|
||||
src.card_access += access_type
|
||||
|
||||
updatecardprice()
|
||||
href = "temp_card=1"
|
||||
src.Topic(href, params2list(href))
|
||||
|
||||
if(href_list["timer"])
|
||||
src.card_timer = text2num(href_list["timer"])
|
||||
|
||||
updatecardprice()
|
||||
href = "temp_card=1"
|
||||
src.Topic(href, params2list(href))
|
||||
|
||||
if (href_list["colour"])
|
||||
var/newcolour = href_list["colour"]
|
||||
switch(newcolour)
|
||||
if ("none")
|
||||
src.card_icon_state = "id"
|
||||
src.card_icon_price = 0
|
||||
if ("blue")
|
||||
src.card_icon_state = "id_civ"
|
||||
src.card_icon_price = 0
|
||||
if ("clown")
|
||||
src.card_icon_state = "id_clown"
|
||||
src.card_icon_price = 0
|
||||
if ("yellow")
|
||||
src.card_icon_state = "id_eng"
|
||||
src.card_icon_price = 500
|
||||
if ("purple")
|
||||
src.card_icon_state = "id_res"
|
||||
src.card_icon_price = 500
|
||||
if ("red")
|
||||
src.card_icon_state = "id_sec"
|
||||
src.card_icon_price = 1000
|
||||
if ("green")
|
||||
src.card_icon_state = "id_com"
|
||||
src.card_icon_price = 2000
|
||||
if ("gold")
|
||||
src.card_icon_state = "gold"
|
||||
src.card_icon_price = 5000
|
||||
|
||||
updatecardprice()
|
||||
href = "temp_card=1"
|
||||
src.Topic(href, params2list(href))
|
||||
|
||||
if (href_list["registered"])
|
||||
src.card_registered = input("Registered name?","Temporary ID")
|
||||
|
||||
href = "temp_card=1"
|
||||
src.Topic(href, params2list(href))
|
||||
|
||||
if (href_list["assignment"])
|
||||
src.card_assignment = input("Job title?","Temporary ID")
|
||||
|
||||
href = "temp_card=1"
|
||||
src.Topic(href, params2list(href))
|
||||
|
||||
if (href_list["duration"])
|
||||
var/input = input("Duration in seconds (1-600)?","Temporary ID") as num
|
||||
if(isnum(input))
|
||||
src.card_duration = min(max(input,1),600)
|
||||
|
||||
updatecardprice()
|
||||
href = "temp_card=1"
|
||||
src.Topic(href, params2list(href))
|
||||
|
||||
if (href_list["buycard"])
|
||||
if(!scan)
|
||||
src.temp = {"You have to scan a card in first.<BR>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"}
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
updatecardprice() //should be updated but just to be sure
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if(!account)
|
||||
src.temp = {"That's odd I can't seem to find your account
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
else if(account.fields["current_money"] < src.card_price)
|
||||
src.temp = {"Sorry [pick("buddy","pal","mate","friend","chief","bud","boss","champ")], you can't afford that!<BR>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"}
|
||||
else
|
||||
if(spawncard())
|
||||
account.fields["current_money"] -= src.card_price
|
||||
src.temp = {"There ya go. You've got [src.card_duration] seconds to abuse that thing before its access is revoked.<BR>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"}
|
||||
//reset to default so people can't go snooping and find out the last ordered card
|
||||
card_registered = null
|
||||
card_assignment = null
|
||||
card_icon_state = "id"
|
||||
card_icon_price = 0
|
||||
card_duration = 60
|
||||
card_access = list()
|
||||
card_price = 0
|
||||
card_timer = 0
|
||||
|
||||
if (href_list["purchase"])
|
||||
src.temp =buy_dialogue + "<HR><BR>"
|
||||
for(var/datum/commodity/N in goods_sell)
|
||||
// Have to send the type instead of a reference to the obj because it would get caught by the garbage collector. oh well.
|
||||
src.temp += {"<A href='?src=\ref[src];doorder=\ref[N]'><B><U>[N.comname]</U></B></A><BR>
|
||||
<B>Cost:</B> [N.price] Credits<BR>
|
||||
<B>Description:</B> [N.desc]<BR>
|
||||
<A href='?src=\ref[src];haggleb=\ref[N]'><B><U>Haggle</U></B></A><BR><BR>"}
|
||||
src.temp += "<BR><A href='?src=\ref[src];mainmenu=1'>Ok</A>"
|
||||
//////////////////////////////////////////////
|
||||
///////Handle the buying of a specific item //
|
||||
//////////////////////////////////////////////
|
||||
else if (href_list["doorder"])
|
||||
if(!scan)
|
||||
src.temp = {"You have to scan a card in first.<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
if (src.scan.registered in FrozenAccounts)
|
||||
boutput(usr, "<span style=\"color:red\">Your account cannot currently be liquidated due to active borrows.</span>")
|
||||
return
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if (account)
|
||||
var/quantity = 1
|
||||
quantity = input("How many units do you want to purchase? Maximum: 10", "Trader Purchase", null, null) as num
|
||||
if (quantity < 1)
|
||||
quantity = 0
|
||||
return
|
||||
else if (quantity >= 10)
|
||||
quantity = 10
|
||||
|
||||
////////////
|
||||
var/datum/commodity/P = locate(href_list["doorder"])
|
||||
|
||||
if(P)
|
||||
if(account.fields["current_money"] >= P.price * quantity)
|
||||
account.fields["current_money"] -= P.price * quantity
|
||||
while(quantity-- > 0)
|
||||
shopping_cart += new P.comtype()
|
||||
src.temp = {"[pick(successful_purchase_dialogue)]<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>What other things have you got for sale?</A>
|
||||
<BR><A href='?src=\ref[src];pickuporder=1'>I want to pick up my order.</A>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>I've got some other business.</A>"}
|
||||
else
|
||||
src.temp = {"[pick(failed_purchase_dialogue)]<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
else
|
||||
src.temp = {"[src] looks bewildered for a second. Seems like they can't find your item.<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
else
|
||||
src.temp = {"That's odd I can't seem to find your account
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
|
||||
///////////////////////////////////////////
|
||||
///Handles haggling for buying ////////////
|
||||
///////////////////////////////////////////
|
||||
else if (href_list["haggleb"])
|
||||
|
||||
var/askingprice= input(usr, "Please enter your asking price.", "Haggle", 0) as null|num
|
||||
if(askingprice)
|
||||
var/datum/commodity/N = locate(href_list["haggleb"])
|
||||
if(N)
|
||||
if(patience == N.haggleattempts)
|
||||
src.temp = "[src.name] becomes angry and won't trade anymore."
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
angry = 1
|
||||
anger()
|
||||
else
|
||||
haggle(askingprice, 1, N)
|
||||
src.temp +="<BR><A href='?src=\ref[src];purchase=1'>Ok</A>"
|
||||
|
||||
///////////////////////////////////
|
||||
////////Handle Bank account Set-Up ///////
|
||||
//////////////////////////////////
|
||||
else if (href_list["card"])
|
||||
if (src.scan) src.scan = null
|
||||
else
|
||||
var/obj/item/I = usr.equipped()
|
||||
if (istype(I, /obj/item/card/id))
|
||||
boutput(usr, "<span style=\"color:blue\">You swipe the ID card in the card reader.</span>")
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(I:registered)
|
||||
if(account)
|
||||
var/enterpin = input(usr, "Please enter your PIN number.", "Card Reader", 0) as null|num
|
||||
if (enterpin == I:pin)
|
||||
boutput(usr, "<span style=\"color:blue\">Card authorized.</span>")
|
||||
src.scan = I
|
||||
else
|
||||
boutput(usr, "<span style=\"color:red\">Pin number incorrect.</span>")
|
||||
src.scan = null
|
||||
else
|
||||
boutput(usr, "<span style=\"color:red\">No bank account associated with this ID found.</span>")
|
||||
src.scan = null
|
||||
|
||||
////////////////////////////////////////////////////
|
||||
//////View what still needs to be picked up/////////
|
||||
///////////////////////////////////////////////////
|
||||
|
||||
else if (href_list["viewcart"])
|
||||
src.temp = "<B>Current Items in Cart: </B>"
|
||||
for(var/obj/S in shopping_cart)
|
||||
temp+= "<BR>[S.name]"
|
||||
src.temp += "<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
||||
|
||||
////////////////////////////////////////////////////
|
||||
/////Pick up the goods ordered from merchant////////
|
||||
//////////////////////////////////////////////////////
|
||||
|
||||
else if (href_list["pickuporder"])
|
||||
if(shopping_cart.len)
|
||||
spawncrate()
|
||||
src.temp = pickupdialogue
|
||||
else
|
||||
src.temp = pickupdialoguefailure
|
||||
src.temp += "<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
||||
|
||||
else if (href_list["mainmenu"])
|
||||
src.temp = null
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
|
||||
/////////////////////////////////////////////
|
||||
/////Update the menu with the default items
|
||||
////////////////////////////////////////////
|
||||
|
||||
proc/updatemenu()
|
||||
|
||||
var/dat
|
||||
dat = portrait_setup
|
||||
dat +="<B>Scanned Card:</B> <A href='?src=\ref[src];card=1'>([src.scan])</A><BR>"
|
||||
if(scan)
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if (account)
|
||||
dat+="<B>Current Funds</B>: [account.fields["current_money"]] Credits<HR>"
|
||||
else
|
||||
dat+="<HR>"
|
||||
else
|
||||
dat+="<HR>"
|
||||
if(temp)
|
||||
dat+=temp
|
||||
return dat
|
||||
|
||||
/////////////////////////////////////////////
|
||||
/////Update card price
|
||||
////////////////////////////////////////////
|
||||
|
||||
proc/updatecardprice()
|
||||
var/access_price = 0
|
||||
for(var/access in card_access)
|
||||
if(access in civilian_access_list)
|
||||
access_price += 1
|
||||
else if(access in engineering_access_list)
|
||||
access_price += 2
|
||||
else if(access in supply_access_list)
|
||||
access_price += 2
|
||||
else if(access in research_access_list)
|
||||
access_price += 5
|
||||
else if(access in security_access_list)
|
||||
access_price += 10
|
||||
else if(access in command_access_list)
|
||||
access_price += 10
|
||||
else if(access in special_access_list)
|
||||
access_price += 50
|
||||
|
||||
src.card_price = src.card_icon_price + 1000*card_timer + src.card_duration*access_price
|
||||
|
||||
////////////////////////////////////////
|
||||
/////// Spawn the crate or card ////////
|
||||
////////////////////////////////////////
|
||||
|
||||
proc/spawncrate()
|
||||
var/turf/pickedloc = get_step(src.loc,src.dir)
|
||||
if(!pickedloc || pickedloc.density)
|
||||
var/list/locs = list()
|
||||
for(var/turf/T in view(1,src))
|
||||
var/dense = 0
|
||||
if(T.density)
|
||||
dense = 1
|
||||
else
|
||||
for(var/obj/O in T)
|
||||
if(O.density)
|
||||
dense = 1
|
||||
break
|
||||
if(dense == 0) locs += T
|
||||
pickedloc = pick(locs)
|
||||
|
||||
if(!pickedloc)
|
||||
src.visible_message("[src.name] glances around as if confused, then shrugs.")
|
||||
teleport()
|
||||
return
|
||||
|
||||
var/atom/A = new /obj/storage/crate(pickedloc)
|
||||
showswirl(pickedloc)
|
||||
A.name = "Goods Crate ([src.name])"
|
||||
for(var/obj/O in shopping_cart)
|
||||
O.set_loc(A)
|
||||
shopping_cart = new/list()
|
||||
|
||||
proc/spawncard()
|
||||
var/turf/pickedloc = get_step(src.loc,src.dir)
|
||||
if(!pickedloc || pickedloc.density)
|
||||
var/list/locs = list()
|
||||
for(var/turf/T in view(1,src))
|
||||
var/dense = 0
|
||||
if(T.density)
|
||||
dense = 1
|
||||
else
|
||||
for(var/obj/O in T)
|
||||
if(O.density)
|
||||
dense = 1
|
||||
break
|
||||
if(dense == 0) locs += T
|
||||
pickedloc = pick(locs)
|
||||
|
||||
if(!pickedloc)
|
||||
src.visible_message("[src.name] glances around as if confused, then shrugs.")
|
||||
teleport()
|
||||
return 0
|
||||
|
||||
var/obj/item/card/id/temporary/I = new /obj/item/card/id/temporary(pickedloc)
|
||||
showswirl(pickedloc)
|
||||
I.name = "[src.card_registered]'s ID Card ([src.card_assignment])"
|
||||
I.registered = card_registered
|
||||
I.assignment = card_assignment
|
||||
I.icon_state = card_icon_state
|
||||
I.duration = card_duration
|
||||
I.access = card_access
|
||||
I.timer = card_timer
|
||||
|
||||
return 1
|
||||
|
||||
////////////////////////////////////////////////////
|
||||
/////////Proc for haggling with dealer ////////////
|
||||
///////////////////////////////////////////////////
|
||||
proc/haggle(var/askingprice, var/buying, var/datum/commodity/H)
|
||||
// if something's gone wrong and there's no input, reject the haggle
|
||||
// also reject if there's no change in the price at all
|
||||
if (!askingprice) return
|
||||
if (askingprice == H.price) return
|
||||
// if the player is being dumb and haggling in the wrong direction, tell them (unless the trader is an asshole)
|
||||
|
||||
// we're buying, so we want to pay less per unit
|
||||
if(askingprice > H.price)
|
||||
src.temp = src.errormsgs[2]
|
||||
return
|
||||
|
||||
// check if the price increase % of the haggle is more than this trader will tolerate
|
||||
var/hikeperc = askingprice - H.price
|
||||
hikeperc = (hikeperc / H.price) * 100
|
||||
var/negatol = 0 - src.hiketolerance
|
||||
|
||||
if (hikeperc <= negatol)
|
||||
src.temp = "<B>Cost:</B> [H.price] Credits<BR>"
|
||||
src.temp += src.errormsgs[3]
|
||||
H.haggleattempts++
|
||||
return
|
||||
|
||||
// now, the actual haggling part! find the middle ground between the two prices
|
||||
var/middleground = (H.price + askingprice) / 2
|
||||
var/negotiate = abs(H.price-middleground)-1
|
||||
|
||||
H.price =round(middleground + rand(0,negotiate))
|
||||
|
||||
src.temp = "<B>New Cost:</B> [H.price] Credits<BR><HR>"
|
||||
H.haggleattempts++
|
||||
// warn the player if the trader isn't going to take any more haggling
|
||||
if (patience == H.haggleattempts)
|
||||
src.temp += src.hagglemsgs[src.hagglemsgs.len]
|
||||
else
|
||||
src.temp += pick(src.hagglemsgs)
|
||||
@@ -0,0 +1,970 @@
|
||||
/obj/npc/trader
|
||||
name="Trader"
|
||||
var/bullshit =0
|
||||
var/hiketolerance = 20 //How much they will tolerate price hike
|
||||
var/list/droplist = null //What the merchant will drop upon their death
|
||||
var/list/goods_sell = new/list() //What products the trader sells
|
||||
var/list/goods_buy = new/list() //what products the merchant buys
|
||||
var/list/shopping_cart = new/list() //What has been bought
|
||||
var/obj/item/sell = null //Item to sell
|
||||
var/portrait_setup = null
|
||||
var/obj/item/sellitem = null
|
||||
var/item_name = "--------"
|
||||
var/obj/item/card/id/scan = null
|
||||
//Trader dialogue
|
||||
var/sell_dialogue = null
|
||||
var/buy_dialogue = null
|
||||
var/list/successful_sale_dialogue = null
|
||||
var/list/failed_sale_dialogue = null
|
||||
var/list/successful_purchase_dialogue = null
|
||||
var/list/failed_purchase_dialogue = null
|
||||
var/pickupdialogue = null
|
||||
var/pickupdialoguefailure = null
|
||||
var/list/trader_area = "/area/trade_outpost/martian"
|
||||
var/doing_a_thing = 0
|
||||
|
||||
// This list is in a specific order!!
|
||||
// String 1 - player is being dumb and hiked a price up when buying, trader accepted it because they're a dick
|
||||
// String 2 - same as above only the trader is being nice about it
|
||||
// String 3 - same as string 1 except we're selling
|
||||
// String 4 - same as string 3 except with a nice trader
|
||||
// String 5 - player haggled further than the trader is willing to tolerate
|
||||
// String 6 - trader has had enough of your bullshit and is leaving
|
||||
var/list/errormsgs = list("...huh. If you say so!",
|
||||
"Huh? You want to pay <i>more</i> for my wares than i'm offering?",
|
||||
"Wha.. well, okay! I'm not gonna complain!",
|
||||
"Wait, what? You want me to pay you <i>less</i> for your wares?",
|
||||
"What the f... umm, no? Make me a serious offer.",
|
||||
"Sorry, you're terrible at this. I must be going.")
|
||||
// Next list - the last entry will always be used on the trader's final haggling offer
|
||||
// otherwise the trader picks randomly from the list including the "final offer" in order to bluff players
|
||||
var/list/hagglemsgs = list("Alright, how's this sound?",
|
||||
"You drive a hard bargain. How's this price?",
|
||||
"You're busting my balls here. How's this?",
|
||||
"I'm being more than generous here, I think you'll agree.",
|
||||
"This is my final offer. Can't do better than this.")
|
||||
|
||||
|
||||
|
||||
anger()
|
||||
for(var/mob/M in AIviewers(src))
|
||||
boutput(M, "<span style=\"color:red\"><B>[src.name]</B> becomes angry!</span>")
|
||||
src.desc = "[src] looks angry"
|
||||
spawn(rand(1000,3000))
|
||||
src.visible_message("<b>[src.name] calms down.</b>")
|
||||
src.desc = "[src] looks a bit annoyed."
|
||||
src.temp = "[src.name] has calmed down.<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
||||
src.angry = 0
|
||||
return
|
||||
|
||||
attack_hand(var/mob/user as mob)
|
||||
if(..())
|
||||
return
|
||||
if(angry)
|
||||
boutput(user, "<span style=\"color:red\">[src] is angry and won't trade with anyone right now.</span>")
|
||||
return
|
||||
user.machine = src
|
||||
var/dat = updatemenu()
|
||||
if(!temp)
|
||||
dat += {"[src.greeting]<HR>
|
||||
<A href='?src=\ref[src];purchase=1'>Purchase Items</A><BR>
|
||||
<A href='?src=\ref[src];sell=1'>Sell Items</A><BR>
|
||||
<A href='?src=\ref[src];viewcart=1'>View Cart</A><BR>
|
||||
<A href='?src=\ref[src];pickuporder=1'>I'm Ready to Pick Up My Order</A><BR>
|
||||
<A href='?action=mach_close&window=trader'>Goodbye</A>"}
|
||||
|
||||
user << browse(dat, "window=trader;size=575x530")
|
||||
onclose(user, "trader")
|
||||
return
|
||||
|
||||
disposing()
|
||||
goods_sell = null
|
||||
goods_buy = null
|
||||
shopping_cart = null
|
||||
..()
|
||||
|
||||
Topic(href, href_list)
|
||||
if(..())
|
||||
return
|
||||
|
||||
if ((usr.contents.Find(src) || (in_range(src, usr) && istype(src.loc, /turf))) || (istype(usr, /mob/living/silicon)))
|
||||
usr.machine = src
|
||||
///////////////////////////////
|
||||
///////Generate Purchase List//
|
||||
///////////////////////////////
|
||||
if (href_list["purchase"])
|
||||
src.temp =buy_dialogue + "<HR><BR>"
|
||||
for(var/datum/commodity/N in goods_sell)
|
||||
// Have to send the type instead of a reference to the obj because it would get caught by the garbage collector. oh well.
|
||||
src.temp += {"<A href='?src=\ref[src];doorder=\ref[N]'><B><U>[N.comname]</U></B></A><BR>
|
||||
<B>Cost:</B> [N.price] Credits<BR>
|
||||
<B>Description:</B> [N.desc]<BR>
|
||||
<A href='?src=\ref[src];haggleb=\ref[N]'><B><U>Haggle</U></B></A><BR><BR>"}
|
||||
src.temp += "<BR><A href='?src=\ref[src];mainmenu=1'>Ok</A>"
|
||||
//////////////////////////////////////////////
|
||||
///////Handle the buying of a specific item //
|
||||
//////////////////////////////////////////////
|
||||
else if (href_list["doorder"])
|
||||
if(!scan)
|
||||
src.temp = {"You have to scan a card in first.<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
if (src.scan.registered in FrozenAccounts)
|
||||
boutput(usr, "<span style=\"color:red\">Your account cannot currently be liquidated due to active borrows.</span>")
|
||||
return
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if (account)
|
||||
var/quantity = 1
|
||||
quantity = input("How many units do you want to purchase? Maximum: 10", "Trader Purchase", null, null) as num
|
||||
if (quantity < 1)
|
||||
quantity = 0
|
||||
return
|
||||
else if (quantity >= 10)
|
||||
quantity = 10
|
||||
|
||||
////////////
|
||||
var/datum/commodity/P = locate(href_list["doorder"])
|
||||
|
||||
if(P)
|
||||
if(account.fields["current_money"] >= P.price * quantity)
|
||||
account.fields["current_money"] -= P.price * quantity
|
||||
while(quantity-- > 0)
|
||||
shopping_cart += new P.comtype()
|
||||
src.temp = {"[pick(successful_purchase_dialogue)]<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>What other things have you got for sale?</A>
|
||||
<BR><A href='?src=\ref[src];pickuporder=1'>I want to pick up my order.</A>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>I've got some other business.</A>"}
|
||||
else
|
||||
src.temp = {"[pick(failed_purchase_dialogue)]<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
else
|
||||
src.temp = {"[src] looks bewildered for a second. Seems like they can't find your item.<BR>
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
else
|
||||
src.temp = {"That's odd I can't seem to find your account
|
||||
<BR><A href='?src=\ref[src];purchase=1'>OK</A>"}
|
||||
|
||||
///////////////////////////////////////////
|
||||
///Handles haggling for buying ////////////
|
||||
///////////////////////////////////////////
|
||||
else if (href_list["haggleb"])
|
||||
|
||||
var/askingprice= input(usr, "Please enter your asking price.", "Haggle", 0) as null|num
|
||||
if(askingprice)
|
||||
var/datum/commodity/N = locate(href_list["haggleb"])
|
||||
if(N)
|
||||
if(patience == N.haggleattempts)
|
||||
src.temp = "[src.name] becomes angry and won't trade anymore."
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
angry = 1
|
||||
anger()
|
||||
else
|
||||
haggle(askingprice, 1, N)
|
||||
src.temp +="<BR><A href='?src=\ref[src];purchase=1'>Ok</A>"
|
||||
|
||||
|
||||
/////////////////////////////////////////////
|
||||
///////Generate list of items user can sell//
|
||||
/////////////////////////////////////////////
|
||||
else if (href_list["sell"])
|
||||
src.temp = "[src.sell_dialogue]<HR><BR>"
|
||||
for(var/datum/commodity/N in goods_buy)
|
||||
if(N.hidden)
|
||||
continue
|
||||
else
|
||||
temp+={"<B>[N.comname] for [N.price] Credits:</B> [N.indemand ? N.desc_buy_demand : N.desc_buy]<BR>
|
||||
<A href='?src=\ref[src];haggles=[N]'><B><U>Haggle</U></B></A><BR><BR>"}
|
||||
if(src.sellitem)
|
||||
src.item_name = src.sellitem.name
|
||||
else
|
||||
src.item_name = "--------"
|
||||
src.temp += {"<HR>What do you wish to sell? <a href='?src=\ref[src];sellitem=1'>[src.item_name]</a><br>
|
||||
<BR><A href='?src=\ref[src];selltheitem=1'>Sell Item</A>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>Ok</A>"}
|
||||
|
||||
///////////////////////////////////////////
|
||||
///Haggle for selling /////////////////////
|
||||
///////////////////////////////////////////
|
||||
else if (href_list["haggles"])
|
||||
|
||||
var/askingprice= input(usr, "Please enter your asking price.", "Haggle", 0) as null|num
|
||||
if(askingprice)
|
||||
var/datum/commodity/N = locate(href_list["haggles"])
|
||||
if(N)
|
||||
if(patience == N.haggleattempts)
|
||||
|
||||
src.temp = "[src.name] becomes angry and won't trade anymore."
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
angry = 1
|
||||
anger()
|
||||
else
|
||||
haggle(askingprice, 0, N)
|
||||
src.temp +="<BR><A href='?src=\ref[src];sell=1'>Ok</A>"
|
||||
|
||||
////////////////////////////////////////
|
||||
////////Slot holder for the current item///
|
||||
///////////////////////////////////////
|
||||
else if (href_list["sellitem"])
|
||||
if (src.sellitem)
|
||||
src.sellitem.set_loc(src.loc)
|
||||
src.sellitem = null
|
||||
else
|
||||
var/obj/item/I = usr.equipped()
|
||||
if (!I)
|
||||
return
|
||||
usr.drop_item()
|
||||
// in case dropping the item somehow deletes it?? idk there was a runtime error still
|
||||
if (!I)
|
||||
return
|
||||
I.set_loc(src)
|
||||
src.sellitem = I
|
||||
src.item_name = I.name
|
||||
src.temp = "[src.sell_dialogue]<HR><BR>"
|
||||
for(var/datum/commodity/N in goods_buy)
|
||||
if(N.hidden)
|
||||
continue
|
||||
else
|
||||
temp+="<B>[N.comname] for [N.price] Credits:</B> [N.indemand ? N.desc_buy_demand : N.desc_buy]<BR><BR>"
|
||||
if(src.sellitem)
|
||||
src.item_name = src.sellitem.name
|
||||
else
|
||||
src.item_name = "--------"
|
||||
src.temp += {"<HR>What do you wish to sell? <a href='?src=\ref[src];sellitem=1'>[src.item_name]</a><br>
|
||||
<BR><A href='?src=\ref[src];selltheitem=1'>Sell Item</A>
|
||||
<BR><A href='?src=\ref[src];mainmenu=1'>Ok</A>
|
||||
<BR><i>To sell large quantities at once, clickdrag a crate onto [src].</i>"}
|
||||
|
||||
///////////////////////////////////////////
|
||||
/////////Actually Sell the item //////////
|
||||
//////////////////////////////////////////
|
||||
else if (href_list["selltheitem"])
|
||||
if(!src.sellitem)
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
if (doing_a_thing)
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
if(!src.scan)
|
||||
src.temp = {"You have to scan a card in first.<BR>
|
||||
<BR><A href='?src=\ref[src];sell=1'>OK</A>"}
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
if(ispath(sellitem, /obj/item/reagent_containers/food/snacks/ingredient/meat))
|
||||
sellitem = /obj/item/reagent_containers/food/snacks/ingredient/meat
|
||||
if(ispath(sellitem, /obj/item/reagent_containers/food/snacks/plant))
|
||||
sellitem = /obj/item/reagent_containers/food/snacks/plant
|
||||
if(ispath(sellitem, /obj/item/electronics))
|
||||
sellitem = /obj/item/electronics
|
||||
if(ispath(sellitem, /obj/item/parts/robot_parts))
|
||||
sellitem = /obj/item/parts/robot_parts
|
||||
for(var/datum/commodity/N in goods_buy)
|
||||
if(N.comtype == src.sellitem.type)
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if (!account)
|
||||
src.temp = {" [src] looks slightly agitated when he realizes there is no bank account associated with the ID card.<BR>
|
||||
<BR><A href='?src=\ref[src];sell=1'>OK</A>"}
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
else
|
||||
doing_a_thing = 1
|
||||
account.fields["current_money"] += N.price
|
||||
src.temp = pick(src.successful_sale_dialogue) + "<BR>"
|
||||
src.temp += "<BR><A href='?src=\ref[src];sell=1'>OK</A>"
|
||||
qdel (src.sellitem)
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
doing_a_thing = 0
|
||||
return
|
||||
src.temp = {"[pick(failed_sale_dialogue)]<BR>
|
||||
<BR><A href='?src=\ref[src];sell=1'>OK</A>"}
|
||||
|
||||
///////////////////////////////////
|
||||
////////Handle Bank account Set-Up ///////
|
||||
//////////////////////////////////
|
||||
else if (href_list["card"])
|
||||
if (src.scan) src.scan = null
|
||||
else
|
||||
var/obj/item/I = usr.equipped()
|
||||
if (istype(I, /obj/item/card/id))
|
||||
boutput(usr, "<span style=\"color:blue\">You swipe the ID card in the card reader.</span>")
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(I:registered)
|
||||
if(account)
|
||||
var/enterpin = input(usr, "Please enter your PIN number.", "Card Reader", 0) as null|num
|
||||
if (enterpin == I:pin)
|
||||
boutput(usr, "<span style=\"color:blue\">Card authorized.</span>")
|
||||
src.scan = I
|
||||
else
|
||||
boutput(usr, "<span style=\"color:red\">Pin number incorrect.</span>")
|
||||
src.scan = null
|
||||
else
|
||||
boutput(usr, "<span style=\"color:red\">No bank account associated with this ID found.</span>")
|
||||
src.scan = null
|
||||
////////////////////////////////////////////////////
|
||||
//////View what still needs to be picked up/////////
|
||||
///////////////////////////////////////////////////
|
||||
else if (href_list["viewcart"])
|
||||
src.temp = "<B>Current Items in Cart: </B>"
|
||||
for(var/obj/S in shopping_cart)
|
||||
temp+= "<BR>[S.name]"
|
||||
src.temp += "<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
||||
////////////////////////////////////////////////////
|
||||
/////Pick up the goods ordered from merchant////////
|
||||
//////////////////////////////////////////////////////
|
||||
else if (href_list["pickuporder"])
|
||||
if(shopping_cart.len)
|
||||
spawncrate()
|
||||
src.temp = pickupdialogue
|
||||
else
|
||||
src.temp = pickupdialoguefailure
|
||||
src.temp += "<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
||||
|
||||
else if (href_list["mainmenu"])
|
||||
src.temp = null
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
return
|
||||
/////////////////////////////////////////////
|
||||
/////Update the menu with the default items
|
||||
////////////////////////////////////////////
|
||||
proc/updatemenu()
|
||||
|
||||
var/dat
|
||||
dat = portrait_setup
|
||||
dat +="<B>Scanned Card:</B> <A href='?src=\ref[src];card=1'>([src.scan])</A><BR>"
|
||||
if(scan)
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if (account)
|
||||
dat+="<B>Current Funds</B>: [account.fields["current_money"]] Credits<HR>"
|
||||
else
|
||||
dat+="<HR>"
|
||||
else
|
||||
dat+="<HR>"
|
||||
if(temp)
|
||||
dat+=temp
|
||||
return dat
|
||||
///////////////////////////////////////
|
||||
///////Spawn the crates full of goods///
|
||||
////////////////////////////////////////
|
||||
proc/spawncrate()
|
||||
var/list/markers = new/list()
|
||||
var/pickedloc = 0
|
||||
var/found = 0
|
||||
|
||||
var/list/area_turfs = get_area_turfs(trader_area)
|
||||
if (!area_turfs || !area_turfs.len)
|
||||
area_turfs = get_area_turfs( get_area(src) )
|
||||
|
||||
for(var/turf/T in area_turfs)
|
||||
for(var/obj/marker/supplymarker/D in T)
|
||||
markers += D
|
||||
|
||||
for(var/C in markers)
|
||||
if (locate(/obj/storage/crate) in get_turf(C))
|
||||
continue
|
||||
found = 1
|
||||
pickedloc = get_turf(C)
|
||||
if (!found)
|
||||
if (islist(markers) && markers.len)
|
||||
pickedloc = get_turf(pick(markers))
|
||||
else
|
||||
pickedloc = get_turf(src) // put it SOMEWHERE
|
||||
|
||||
var/obj/storage/crate/A = new /obj/storage/crate(pickedloc)
|
||||
showswirl(pickedloc)
|
||||
A.name = "Goods Crate ([src.name])"
|
||||
for(var/obj/O in shopping_cart)
|
||||
O.set_loc(A)
|
||||
shopping_cart = new/list()
|
||||
|
||||
////////////////////////////////////////////////////
|
||||
/////////Proc for haggling with dealer ////////////
|
||||
///////////////////////////////////////////////////
|
||||
proc/haggle(var/askingprice, var/buying, var/datum/commodity/H)
|
||||
// if something's gone wrong and there's no input, reject the haggle
|
||||
// also reject if there's no change in the price at all
|
||||
if (!askingprice) return
|
||||
if (askingprice == H.price) return
|
||||
// if the player is being dumb and haggling in the wrong direction, tell them (unless the trader is an asshole)
|
||||
if (buying == 1)
|
||||
// we're buying, so we want to pay less per unit
|
||||
if(askingprice > H.price)
|
||||
if (src.bullshit >= 5)
|
||||
src.temp = src.errormsgs[1]
|
||||
H.price = askingprice
|
||||
return
|
||||
else
|
||||
src.temp = src.errormsgs[2]
|
||||
return
|
||||
else
|
||||
// we're selling, so we want to be paid MORE per unit
|
||||
if(askingprice < H.price)
|
||||
if (src.bullshit >= 5)
|
||||
H.price = askingprice
|
||||
src.temp = "<B>Cost:</B> [H.price] Credits<BR>"
|
||||
src.temp += src.errormsgs[3]
|
||||
return
|
||||
else
|
||||
src.temp = "<B>Cost:</B> [H.price] Credits<BR>"
|
||||
src.temp += src.errormsgs[4]
|
||||
return
|
||||
// check if the price increase % of the haggle is more than this trader will tolerate
|
||||
var/hikeperc = askingprice - H.price
|
||||
hikeperc = (hikeperc / H.price) * 100
|
||||
var/negatol = 0 - src.hiketolerance
|
||||
if (buying == 1) // we're buying, so price must be checked for negative
|
||||
if (hikeperc <= negatol)
|
||||
src.temp = "<B>Cost:</B> [H.price] Credits<BR>"
|
||||
src.temp += src.errormsgs[5]
|
||||
H.haggleattempts++
|
||||
return
|
||||
else
|
||||
if (hikeperc >= src.hiketolerance) // we're selling, so check hike for positive
|
||||
src.temp = src.errormsgs[5]
|
||||
H.haggleattempts++
|
||||
return
|
||||
// now, the actual haggling part! find the middle ground between the two prices
|
||||
var/middleground = (H.price + askingprice) / 2
|
||||
var/negotiate = abs(H.price-middleground)-1
|
||||
if (buying == 1)
|
||||
H.price =round(middleground + rand(0,negotiate))
|
||||
else
|
||||
if(middleground-H.price <= 0.5)
|
||||
H.price = round(middleground + 1)
|
||||
else
|
||||
H.price = round(middleground - rand(0,negotiate))
|
||||
|
||||
src.temp = "<B>New Cost:</B> [H.price] Credits<BR><HR>"
|
||||
H.haggleattempts++
|
||||
// warn the player if the trader isn't going to take any more haggling
|
||||
if (patience == H.haggleattempts)
|
||||
src.temp += src.hagglemsgs[src.hagglemsgs.len]
|
||||
else
|
||||
src.temp += pick(src.hagglemsgs)
|
||||
|
||||
|
||||
///////////////////////////////////
|
||||
////// batch selling - cogwerks ///
|
||||
///////////////////////////////////
|
||||
|
||||
MouseDrop_T(atom/movable/O as obj, mob/user as mob)
|
||||
if(get_dist(O,user) > 1) return
|
||||
if(!istype(user,/mob/living/)) return
|
||||
if(!src.scan)
|
||||
boutput(user, "<span style=\"color:red\">You have to scan your ID first!</span>")
|
||||
return
|
||||
if(angry)
|
||||
boutput(user, "<span style=\"color:red\">[src] is angry and won't trade with anyone right now.</span>")
|
||||
return
|
||||
if(!alive)
|
||||
boutput(user, "<span style=\"color:red\">[src] is dead!</span>")
|
||||
return
|
||||
var/datum/data/record/account = null
|
||||
account = FindBankAccountByName(src.scan.registered)
|
||||
if(!account)
|
||||
boutput(user, "<span style=\"color:red\">[src]There is no account registered with this card!</span>")
|
||||
return
|
||||
/*if (istype(O, /obj/item))
|
||||
user.visible_message("<span style=\"color:blue\">[src] rummages through [user]'s goods.</span>")
|
||||
var/staystill = user.loc
|
||||
for(var/datum/commodity/N in goods_buy)
|
||||
if (N.comtype == O.type)
|
||||
user.visible_message("<span style=\"color:blue\">[src] is willing to buy all of [O].</span>")
|
||||
for(N.comtype in view(1,user))
|
||||
account.fields["current_money"] += N.price
|
||||
qdel(N.comtype)
|
||||
sleep(2)
|
||||
if (user.loc != staystill) break*/
|
||||
if (istype(O, /obj/storage/crate/))
|
||||
if (O:locked)
|
||||
user.show_text("[src] stares at the locked [O], unamused. Maybe you should make sure the thing's open, first.", "red")
|
||||
return
|
||||
spawn(1)
|
||||
user.visible_message("<span style=\"color:blue\">[src] rummages through [user]'s [O].</span>")
|
||||
playsound(src.loc, "rustle", 60, 1)
|
||||
var/cratevalue = null
|
||||
for (var/obj/M in O.contents)
|
||||
//boutput(world, "<span style=\"color:blue\">HELLO I AM [M]</span>")
|
||||
//boutput(world, "<span style=\"color:blue\">AND MY TYPE PATH IS [M.type]</span>")
|
||||
for(var/datum/commodity/N in src.goods_buy)
|
||||
if(M) // fuck the hell off you dirty null.type errors
|
||||
if(N.comtype == M.type)
|
||||
//boutput(world, "<b>MY ASSOCIATED DATUM IS [N]</b>")
|
||||
//boutput(world, "<span style=\"color:blue\">[M] IS GOING TO SELL FOR [N.price] HOT BALLS</span>")
|
||||
//boutput(world, "<span style=\"color:blue\">UPDATING CRATE VALUE TO [cratevalue] OR FUCKING ELSE</span>")
|
||||
cratevalue += N.price
|
||||
qdel( M )
|
||||
if(cratevalue)
|
||||
boutput(user, "<span style=\"color:blue\">[src] takes what they want from [O]. [cratevalue] credits have been transferred to your account.</span>")
|
||||
account.fields["current_money"] += cratevalue
|
||||
else
|
||||
boutput(user, "<span style=\"color:blue\">[src] finds nothing of interest in [O].</span>")
|
||||
|
||||
/////////////////////////////////////////////////////
|
||||
///////////////THE TRADERS ///////////////////////////
|
||||
//////////////////////////////////////////////////////
|
||||
|
||||
//////Generic Randomized visitor
|
||||
/obj/npc/trader/random
|
||||
icon_state = "welder"
|
||||
picture = "generic.png"
|
||||
trader_area = "/area/shuttle/merchant_shuttle/left"
|
||||
|
||||
New()
|
||||
..()
|
||||
icon_state = pick("martian","martianP","martianW","martianSP","mars_bot","welder","petbee","lavacrab","boogie","walrus","owl","goose","possum","bumblespider","big_spide[pick("","-red","-blue","-green")]")
|
||||
|
||||
var/pickprename = pick("Honest","Fair","Merchant","Trader","Kosher","Real Deal","Dealer", "Old", "Ol'", "Zesty", "Sassy", "Bargain", "Discount", "Uncle", "Big", "Little")
|
||||
//var/pickfirstname = pick(first_names)
|
||||
var/picklastname = pick(last_names)
|
||||
src.name = "[pickprename] [picklastname]"
|
||||
|
||||
greeting= {"WELL HI THERE, STEP RIGHT UP AND BUY MY STUFF!"}
|
||||
|
||||
portrait_setup = "<img src='[resource("images/traders/[src.picture]")]'><HR><B>[src.name]</B><HR>"
|
||||
|
||||
sell_dialogue = "Ah, an entepreneur after my own heart! I have a few friends who are looking for things to buy!"
|
||||
|
||||
buy_dialogue = "YES, COME RIGHT UP AND BUY MY FRIEND!"
|
||||
|
||||
successful_purchase_dialogue = list("ANOTHER SATISFIED CUSTOMER!",
|
||||
"Thank you and HAVE A NICE DAY!",
|
||||
"SOLD, TO THE PERSON IN THE FUNNY JUMPSUIT!")
|
||||
|
||||
failed_sale_dialogue = list("Don't waste my time, kid, I can't buy that!",
|
||||
"I've got nobody who wants to buy that junk!",
|
||||
"What, do you think I'm stupid?!? Get out of here!",
|
||||
"Haha, nice try kid, but I've been in the business longer than that.")
|
||||
|
||||
successful_sale_dialogue = list("Thank you very much!",
|
||||
"I'll take it!",
|
||||
"Come back anytime!")
|
||||
|
||||
failed_purchase_dialogue = list("Come back when you can afford this stuff!",
|
||||
"You ain't got the cash, kid!",
|
||||
"Might want to check your account, 'cause I don't see the money in it!")
|
||||
|
||||
pickupdialogue = "THANK YOU!"
|
||||
|
||||
pickupdialoguefailure = "You need to BUY things before you pick them up!"
|
||||
|
||||
src.hiketolerance = rand(2,4)
|
||||
src.hiketolerance *= 10
|
||||
|
||||
var/items_for_sale = rand(5,8)
|
||||
var/items_wanted = rand(2,5)
|
||||
|
||||
var/list/commercetypes = list(/datum/commodity/ore,
|
||||
/datum/commodity/podparts,
|
||||
/datum/commodity/drugs,
|
||||
/datum/commodity/contraband,
|
||||
/datum/commodity/salvage,
|
||||
/datum/commodity/junk,
|
||||
/datum/commodity/diner,
|
||||
/datum/commodity/bodyparts,
|
||||
/datum/commodity/medical,
|
||||
/datum/commodity/synthmodule)
|
||||
|
||||
var/list/selltypes = typesof(pick(commercetypes))
|
||||
var/list/buytypes = typesof(pick(commercetypes))
|
||||
|
||||
while(selltypes.len > 0 && src.goods_sell.len < items_for_sale)
|
||||
var/pickedselltype = pick(selltypes)
|
||||
var/datum/commodity/sellitem = new pickedselltype(src)
|
||||
selltypes -= pickedselltype
|
||||
if(sellitem.comtype != null)
|
||||
src.goods_sell += sellitem
|
||||
|
||||
while(buytypes.len > 0 && src.goods_buy.len < items_wanted)
|
||||
var/pickedbuytype = pick(buytypes)
|
||||
var/datum/commodity/buyitem = new pickedbuytype(src)
|
||||
buytypes -= pickedbuytype
|
||||
if(buyitem.comtype != null)
|
||||
src.goods_buy += buyitem
|
||||
|
||||
activatesecurity()
|
||||
for(var/mob/M in AIviewers(src))
|
||||
boutput(M, "<B>[src.name]</B> yells, \"Get 'em boys!\"")
|
||||
for(var/turf/T in get_area_turfs( get_area(src) ))
|
||||
for(var/obj/decal/fakeobjects/teleport_pad/D in T)
|
||||
var/N = pick(1,2)
|
||||
var/obj/critter/martian/P = null
|
||||
if (N == 1)
|
||||
P = new /obj/critter/martian/soldier
|
||||
else
|
||||
P = new /obj/critter/martian/warrior
|
||||
P.set_loc(D.loc)
|
||||
showswirl(P.loc)
|
||||
|
||||
|
||||
//////Martian
|
||||
/obj/npc/trader/martian
|
||||
icon_state = "martianP"
|
||||
picture = "martian.png"
|
||||
trader_area = "/area/martian_trader"
|
||||
New()
|
||||
..()
|
||||
src.goods_sell += new /datum/commodity/ore/uqill(src) // cogwerks - changed from molitz, who the hell ever needs that
|
||||
src.goods_sell += new /datum/commodity/ore/plasmastone(src) // no guns, no, bad
|
||||
src.goods_sell += new /datum/commodity/ore/bohrum(src)
|
||||
src.goods_sell += new /datum/commodity/ore/cerenkite(src)
|
||||
src.goods_sell += new /datum/commodity/ore/telecrystal(src)
|
||||
|
||||
src.goods_buy += new /datum/commodity/laser_gun(src)
|
||||
src.goods_buy += new /datum/commodity/relics/skull(src)
|
||||
src.goods_buy += new /datum/commodity/relics/relic(src)
|
||||
src.goods_buy += new /datum/commodity/relics/gnome(src)
|
||||
src.goods_buy += new /datum/commodity/relics/crown(src)
|
||||
src.goods_buy += new /datum/commodity/relics/armor(src)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
src.name = pick( "L'zeurk Xin", "Norzamed Bno", "Kleptar Sde", "Z'orrel Ryvc")
|
||||
greeting= {"As you approach the martian, thoughts begins to enter your head.
|
||||
<I>\"Greetings Human, unlike most martians, I am quite friendly. All I desire is to sell my wares\"</I>.
|
||||
<b>[src.name]</b> gestures towards his goods and awaits for you to make your choice."}
|
||||
|
||||
portrait_setup = "<img src='[resource("images/traders/[src.picture]")]'><HR><B>[src.name]</B><HR>"
|
||||
|
||||
sell_dialogue = "You recieve visions of various indviuals who are looking to purchase something, and get the feeling that <B>[src.name]</B> will act as the middle man."
|
||||
|
||||
buy_dialogue = "You hear a voice in your head,<I>\"Please select what you would like to buy\".</I>"
|
||||
|
||||
successful_sale_dialogue = list("<i>A wave of joy washes over you upon the completion of the sale.</i>",
|
||||
"In your head you hear a voice say, <i>\"Thank you for your business. Perhaps we shouldn't wipe you all out.\"</i>",
|
||||
"[src.name] quickly begans putting his new merchandise away. Despite that, you somehow know that the martian is grateful for the sale")
|
||||
|
||||
failed_sale_dialogue = list("<i>You feel an intense feeling of irritation come over you</i>. A foreign thought enters your head, <i>\"Please don't waste my time. I have better things to do than to look at worthless junk.\"</i>",
|
||||
"[src] telepathically communicates to you, <i>\"I'm sorry I currently have no interest in that item, perhaps you should try another trader.\"",
|
||||
"You suddenly and unnaturally feel incredibly stupid and embarassed about your mistake. You hang your head in shame.",
|
||||
"The martian pats you gently on the head, and shakes it head. It seems [src] feels sorry for you")
|
||||
|
||||
successful_purchase_dialogue = list("[src.name] communicates to you, <i>\"Thank you for your business\"</i>.",
|
||||
"A thought enters your head, <i>\"An excellent choice. Tell me when you are ready to pick it up\".</i>")
|
||||
|
||||
failed_purchase_dialogue = list("[src.name] communicates to you, <i>\"I am sorry, but you currenty do not have enough funds to purchase this.\"</I>",
|
||||
"[src.name] communicates to you, <i>\"Are you trying to pull a trick on me because I am a martian? You don't have enough credits to purchase this.\"</I>")
|
||||
|
||||
pickupdialogue = "A foreign thought enters your head, <i>\"Thank you for your business. Please come again\"</i>"
|
||||
|
||||
pickupdialoguefailure = "[src.name] checks something on a strange device. <i>\"I'm sorry, but you don't have anything to pick up\"</i>."
|
||||
|
||||
activatesecurity()
|
||||
for(var/mob/M in AIviewers(src))
|
||||
boutput(M, "<B>[src.name]</B> yells, \"mortigi c^iujn!\"")
|
||||
for(var/turf/T in get_area_turfs( get_area(src) ))
|
||||
for(var/obj/decal/fakeobjects/teleport_pad/D in T)
|
||||
var/obj/critter/martian/soldier/P = new /obj/critter/martian/soldier
|
||||
P.set_loc(D.loc)
|
||||
showswirl(P.loc)
|
||||
|
||||
////////Robot
|
||||
/obj/npc/trader/robot
|
||||
icon = 'icons/misc/evilreaverstation.dmi' // changed from the ancient robot sprite to pr1
|
||||
icon_state = "pr1_b"
|
||||
picture = "robot.png"
|
||||
trader_area = "/area/turret_protected/robot_trade_outpost"
|
||||
var/productset = 0 // 0 is robots and salvage, 1 is podparts and drugs, 2 is produce. 3 is syndicate junk, 4 is medical stuff
|
||||
var/illegal = 0 // maybe trading with illegal bots could flag the user's criminal record for smuggling
|
||||
|
||||
New()
|
||||
..()
|
||||
switch(productset)
|
||||
if(1) // drugs and pod stuff
|
||||
src.goods_sell += new /datum/commodity/podparts/engine(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/laser(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/asslaser(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/blackarmor(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/skin_stripe_r(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/skin_stripe_b(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/skin_flames(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/ntso_uniform(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/ntso_beret(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/ntso_vest(src)
|
||||
src.goods_sell += new /datum/commodity/drugs/methamphetamine(src)
|
||||
src.goods_sell += new /datum/commodity/drugs/crank(src)
|
||||
//src.goods_sell += new /datum/commodity/drugs/bathsalts(src)
|
||||
src.goods_sell += new /datum/commodity/drugs/catdrugs(src)
|
||||
src.goods_sell += new /datum/commodity/drugs/morphine(src)
|
||||
src.goods_sell += new /datum/commodity/drugs/krokodil(src)
|
||||
src.goods_sell += new /datum/commodity/drugs/lsd(src)
|
||||
src.goods_sell += new /datum/commodity/pills/uranium(src)
|
||||
|
||||
src.goods_buy += new /datum/commodity/drugs/shrooms(src)
|
||||
src.goods_buy += new /datum/commodity/drugs/cannabis(src)
|
||||
src.goods_buy += new /datum/commodity/drugs/cannabis_mega(src)
|
||||
src.goods_buy += new /datum/commodity/drugs/cannabis_white(src)
|
||||
src.goods_buy += new /datum/commodity/drugs/cannabis_omega(src)
|
||||
|
||||
if(2) // diner attendant
|
||||
src.goods_sell += new /datum/commodity/diner/mysteryburger(src)
|
||||
src.goods_sell += new /datum/commodity/diner/monster(src)
|
||||
src.goods_sell += new /datum/commodity/diner/sloppyjoe(src)
|
||||
src.goods_sell += new /datum/commodity/diner/mashedpotatoes(src)
|
||||
src.goods_sell += new /datum/commodity/diner/waffles(src)
|
||||
src.goods_sell += new /datum/commodity/diner/pancake(src)
|
||||
src.goods_sell += new /datum/commodity/diner/meatloaf(src)
|
||||
src.goods_sell += new /datum/commodity/diner/slurrypie(src)
|
||||
src.goods_sell += new /datum/commodity/diner/daily_special(src)
|
||||
|
||||
src.goods_buy += new /datum/commodity/produce/special/gmelon(src)
|
||||
src.goods_buy += new /datum/commodity/produce/special/greengrape(src)
|
||||
src.goods_buy += new /datum/commodity/produce/special/ghostchili(src)
|
||||
src.goods_buy += new /datum/commodity/produce/special/chilly(src)
|
||||
src.goods_buy += new /datum/commodity/produce/special/lashberry(src)
|
||||
src.goods_buy += new /datum/commodity/produce/special/purplegoop(src)
|
||||
src.goods_buy += new /datum/commodity/produce/special/glowfruit(src)
|
||||
|
||||
if(3) // syndicate bot
|
||||
src.goods_sell += new /datum/commodity/contraband/command_suit(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/swatmask(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/radiojammer(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/stealthstorage(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/disguiser(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/birdbomb(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/flare(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/eguncell_highcap(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/cloak(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/redarmor(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/ballistic(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/artillery(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/artillery_ammo(src)
|
||||
|
||||
src.goods_buy += new /datum/commodity/contraband/egun(src)
|
||||
src.goods_buy += new /datum/commodity/contraband/secheadset(src)
|
||||
src.goods_buy += new /datum/commodity/contraband/hosberet(src)
|
||||
src.goods_buy += new /datum/commodity/contraband/spareid(src)
|
||||
src.goods_buy += new /datum/commodity/contraband/captainid(src)
|
||||
src.goods_buy += new /datum/commodity/goldbar(src)
|
||||
|
||||
if(4) // medical
|
||||
src.goods_sell += new /datum/commodity/medical/injectorbelt(src)
|
||||
src.goods_sell += new /datum/commodity/medical/strange_reagent(src)
|
||||
src.goods_sell += new /datum/commodity/medical/firstaidR(src)
|
||||
src.goods_sell += new /datum/commodity/medical/firstaidBr(src)
|
||||
src.goods_sell += new /datum/commodity/medical/firstaidB(src)
|
||||
src.goods_sell += new /datum/commodity/medical/firstaidT(src)
|
||||
src.goods_sell += new /datum/commodity/medical/firstaidO(src)
|
||||
src.goods_sell += new /datum/commodity/medical/firstaidN(src)
|
||||
src.goods_sell += new /datum/commodity/synthmodule/bacteria(src)
|
||||
src.goods_sell += new /datum/commodity/synthmodule/virii(src)
|
||||
src.goods_sell += new /datum/commodity/synthmodule/fungi(src)
|
||||
src.goods_sell += new /datum/commodity/synthmodule/parasite(src)
|
||||
src.goods_sell += new /datum/commodity/synthmodule/gmcell(src)
|
||||
src.goods_sell += new /datum/commodity/synthmodule/vaccine(src)
|
||||
src.goods_sell += new /datum/commodity/pathogensample(src)
|
||||
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cyberheart(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cyberbutt(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_sunglass(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_thermal(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_meson(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_spectro(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_prodoc(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_camera(src)
|
||||
src.goods_sell += new /datum/commodity/bodyparts/cybereye_ecto(src)
|
||||
|
||||
src.goods_buy += new /datum/commodity/bodyparts/armL(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/armR(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/legL(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/legR(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/brain(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/synthbrain(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/aibrain(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/butt(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/synthbutt(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/heart(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/synthheart(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/eye(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/syntheye(src)
|
||||
src.goods_buy += new /datum/commodity/bodyparts/lung(src)
|
||||
|
||||
else // salvage goods
|
||||
src.goods_sell += new /datum/commodity/fuel(src)
|
||||
src.goods_sell += new /datum/commodity/junk/horsemask(src)
|
||||
src.goods_sell += new /datum/commodity/junk/batmask(src)
|
||||
src.goods_sell += new /datum/commodity/junk/johnny(src)
|
||||
src.goods_sell += new /datum/commodity/junk/buddy(src)
|
||||
src.goods_sell += new /datum/commodity/junk/cowboy_boots(src)
|
||||
src.goods_sell += new /datum/commodity/junk/cowboy_hat(src)
|
||||
src.goods_sell += new /datum/commodity/medical/injectormask(src)
|
||||
src.goods_sell += new /datum/commodity/contraband/briefcase(src)
|
||||
src.goods_sell += new /datum/commodity/boogiebot(src)
|
||||
src.goods_sell += new /datum/commodity/junk/voltron(src)
|
||||
src.goods_sell += new /datum/commodity/junk/cloner_upgrade(src)
|
||||
src.goods_sell += new /datum/commodity/podparts/goldarmor(src)
|
||||
|
||||
src.goods_buy += new /datum/commodity/salvage/scrap(src)
|
||||
src.goods_buy += new /datum/commodity/salvage/machinedebris(src)
|
||||
src.goods_buy += new /datum/commodity/salvage/robotdebris(src)
|
||||
src.goods_buy += new /datum/commodity/relics/gnome(src)
|
||||
src.goods_buy += new /datum/commodity/goldbar(src)
|
||||
|
||||
//src.name = pick( "Unit DX-495E", "Unit DX-495H", "Unit DX-575E", "Unit DX-485F", "Unit DX-385D", "Sketchy D", "Skeevy D")
|
||||
|
||||
greeting= {"[src.name]'s eyes light up, and he states, \"Salutations organic, welcome to my shop. Please browse my wares.\""}
|
||||
|
||||
portrait_setup = "<img src='[resource("images/traders/[src.picture]")]'><HR><B>[src.name]</B><HR>"
|
||||
|
||||
sell_dialogue = "[src.name] states, \"There are several individuals in my database that are looking to procure goods."
|
||||
|
||||
buy_dialogue = "[src.name] states,\"Please select what you would like to buy\"."
|
||||
|
||||
successful_sale_dialogue = list("[src.name] states, \"Thank you for the business organic.\"",
|
||||
"[src.name], \"I am adding you to the Good Customer Database.\"")
|
||||
|
||||
failed_sale_dialogue = list("[src.name] states, \"<ERROR> Item not in purchase database.\"",
|
||||
"[src.name] states, \"I'm sorry I currently have no interest in that item, perhaps you should try another trader.\"",
|
||||
"[src.name] starts making a loud and irritating noise. [src.name] states, \"Fatal Exception Error: Cannot locate item\"",
|
||||
"[src.name] states, \"Invalid Input\"")
|
||||
|
||||
successful_purchase_dialogue = list("[src.name] states, \"Thank you for your business\".",
|
||||
"[src.name] states, \"My logic drives calculate that was a wise purchase\".")
|
||||
|
||||
failed_purchase_dialogue = list("[src.name] states, \"I am sorry, but you currenty do not have enough funds to purchase this.\"",
|
||||
"[src.name] states, \"Is this organic unit malfunctioning? You do not have enough funds to buy this\"")
|
||||
|
||||
pickupdialogue = "[src.name] states, \"Thank you for your business. Please come again\"."
|
||||
|
||||
pickupdialoguefailure = "[src.name] states, \"I'm sorry, but you don't have anything to pick up\"."
|
||||
|
||||
activatesecurity()
|
||||
for(var/mob/M in AIviewers(src))
|
||||
boutput(M, "<B>[src.name]</B> exclaims, \"SECURITY SYSTEM COMING ONLINE\"")
|
||||
for(var/turf/T in get_area_turfs( get_area(src) ))
|
||||
for (var/obj/machinery/bot/guardbot/G in T)
|
||||
G.turn_on()
|
||||
|
||||
|
||||
/// BZZZZZZZZZZZ
|
||||
|
||||
/obj/npc/trader/bee
|
||||
icon = 'icons/obj/trader.dmi'
|
||||
icon_state = "bee"
|
||||
picture = "bee.png"
|
||||
name = "Bombini" // like the tribe of bumblebees
|
||||
trader_area = "/area/bee_trader"
|
||||
|
||||
New()
|
||||
..()
|
||||
/////////////////////////////////////////////////////////
|
||||
//// sell list //////////////////////////////////////////
|
||||
/////////////////////////////////////////////////////////
|
||||
src.goods_sell += new /datum/commodity/guardbot_kit(src)
|
||||
src.goods_sell += new /datum/commodity/guardbot_medicator(src)
|
||||
src.goods_sell += new /datum/commodity/guardbot_flash(src)
|
||||
src.goods_sell += new /datum/commodity/guardbot_taser(src)
|
||||
src.goods_sell += new /datum/commodity/guardbot_smoker(src)
|
||||
src.goods_sell += new /datum/commodity/royaljelly(src)
|
||||
src.goods_sell += new /datum/commodity/beeegg(src)
|
||||
src.goods_sell += new /datum/commodity/b33egg(src)
|
||||
src.goods_sell += new /datum/commodity/bee_kibble(src)
|
||||
/////////////////////////////////////////////////////////
|
||||
//// buy list ///////////////////////////////////////////
|
||||
/////////////////////////////////////////////////////////
|
||||
src.goods_buy += new /datum/commodity/honey(src)
|
||||
src.goods_buy += new /datum/commodity/contraband/spareid/bee(src)
|
||||
src.goods_buy += new /datum/commodity/contraband/captainid/bee(src)
|
||||
src.goods_buy += new /datum/commodity/goldbar(src)
|
||||
/////////////////////////////////////////////////////////
|
||||
|
||||
greeting= {"[src.name] buzzes cheerfully."}
|
||||
|
||||
portrait_setup = "<img src='[resource("images/traders/[src.picture]")]'><HR><B>[src.name]</B><HR>"
|
||||
|
||||
sell_dialogue = "[src.name] bumbles a bit."
|
||||
|
||||
buy_dialogue = "[src.name] buzzes inquisitively."
|
||||
|
||||
successful_sale_dialogue = list("[src.name] does a little dance. He looks pretty pleased.")
|
||||
|
||||
failed_sale_dialogue = list("[src.name] grumbles.",
|
||||
"[src.name] buzzes grumpily.",
|
||||
"[src.name] grumpily bumbles.",
|
||||
"[src.name] looks sad. Look what you've gone and done.")
|
||||
|
||||
successful_purchase_dialogue = list("[src.name] grustles.",
|
||||
"[src.name] buzzes happily. You feel happier too.")
|
||||
|
||||
failed_purchase_dialogue = list("[src.name] gives a somber little buzz.",
|
||||
"[src.name] pouts. You feel pretty bad about yourself.")
|
||||
|
||||
pickupdialogue = "[src.name] bumbles a bunch."
|
||||
|
||||
pickupdialoguefailure = "[src.name] grumps."
|
||||
|
||||
activatesecurity()
|
||||
for(var/mob/M in AIviewers(src))
|
||||
boutput(M, "<B>[src.name]</B> exclaims, \"BZZZZZZZZZZZ!\"")
|
||||
for(var/turf/T in get_area_turfs( get_area(src) ))
|
||||
for (var/obj/critter/domestic_bee/B in T)
|
||||
B.aggressive = 1 // be, aggressive. bee be aggressive
|
||||
B.atkcarbon = 1
|
||||
|
||||
// Hon- I mean, hello sir.
|
||||
|
||||
/obj/npc/trader/exclown
|
||||
icon = 'icons/obj/trader.dmi'
|
||||
icon_state = "exclown"
|
||||
picture = "exclown.png"
|
||||
name = "Geoff Honkington"
|
||||
trader_area = "/area/hallway/secondary/entry"
|
||||
|
||||
New()
|
||||
..()
|
||||
/////////////////////////////////////////////////////////
|
||||
//// sell list //////////////////////////////////////////
|
||||
/////////////////////////////////////////////////////////
|
||||
src.goods_sell += new /datum/commodity/costume/bee(src)
|
||||
src.goods_sell += new /datum/commodity/costume/monkey(src)
|
||||
src.goods_sell += new /datum/commodity/costume/robuddy(src)
|
||||
src.goods_sell += new /datum/commodity/costume/waltwhite(src)
|
||||
src.goods_sell += new /datum/commodity/costume/spiderman(src)
|
||||
src.goods_sell += new /datum/commodity/costume/wonka(src)
|
||||
src.goods_sell += new /datum/commodity/costume/light_borg(src)
|
||||
src.goods_sell += new /datum/commodity/costume/utena(src)
|
||||
src.goods_sell += new /datum/commodity/balloons(src)
|
||||
/////////////////////////////////////////////////////////
|
||||
//// buy list ///////////////////////////////////////////
|
||||
/////////////////////////////////////////////////////////
|
||||
src.goods_buy += new /datum/commodity/goldbar(src)
|
||||
/////////////////////////////////////////////////////////
|
||||
|
||||
greeting= {"Psst, I've got what you need HON- Ahem, disregard that."}
|
||||
|
||||
portrait_setup = "<img src='[resource("images/traders/[src.picture]")]'><HR><B>[src.name]</B><HR>"
|
||||
|
||||
sell_dialogue = "Waddya have to sell?"
|
||||
|
||||
buy_dialogue = "Feel free to browse my wares, but you better hurry!"
|
||||
|
||||
successful_purchase_dialogue = list("Another satisfied customer.",
|
||||
"Thank you.",
|
||||
"It's been a pleasure doing business with you.")
|
||||
|
||||
failed_sale_dialogue = list("Don't waste my time, kid, I can't buy that!",
|
||||
"I've got nobody who wants to buy that junk!",
|
||||
"What, do you think I'm stupid?!? Get out of here!",
|
||||
"Haha, nice try kid, but I've been in the business longer than that.")
|
||||
|
||||
successful_sale_dialogue = list("Thank you very much!",
|
||||
"I'll take it!",
|
||||
"Come back anytime!")
|
||||
|
||||
failed_purchase_dialogue = list("Come back when you can afford this stuff!",
|
||||
"You ain't got the cash, kid!",
|
||||
"Might want to check your account, 'cause I don't see the money in it!")
|
||||
|
||||
pickupdialogue = "Thank you very mhHHHONK- Uh, nothing."
|
||||
|
||||
pickupdialoguefailure = "You need to BUY things before you pick them up!"
|
||||
Reference in New Issue
Block a user