code/modules/Economy/EFTPOS.dm - Bleeding-Edge - githubmirror/vgstation13

code/modules/Economy/EFTPOS.dm
194 строки8 KB
ShiftyRail
516 compatibility for simple HTML (#37508)
05 май 2025, 23:51
05 май 2025, 23:51cdb769a
/obj/item/device/eftpos
	name = "EFTPOS scanner"
	desc = "Swipe your ID card to make purchases electronically."
	icon = 'icons/obj/device.dmi'
	icon_state = "eftpos"
	var/machine_id = ""
	var/eftpos_name = "Default EFTPOS scanner"
	var/transaction_locked = 0
	var/transaction_paid = 0
	var/transaction_amount = 0
	var/transaction_purpose = "Default charge"
	var/access_code = 0
	var/obj/machinery/account_database/linked_db
	var/datum/money_account/linked_account

/obj/item/device/eftpos/New()
	..()
	machine_id = "[station_name()] EFTPOS #[num_financial_terminals++]"
	access_code = rand(1111,111111)
	reconnect_database()
	spawn(0)
		print_reference()

	//by default, connect to the station account
	//the user of the EFTPOS device can change the target account though, and no-one will be the wiser (except whoever's being charged)
	linked_account = station_account

/obj/item/device/eftpos/proc/print_reference()
	var/obj/item/weapon/paper/R = new(src.loc)
	R.name = "Reference: [eftpos_name]"

	R.info = {"<b>[eftpos_name] reference</b><br><br>
		Access code: [access_code]<br><br>
		<b>Do not lose or misplace this code.</b><br>"}
	//stamp the paper
	var/image/stampoverlay = image('icons/obj/bureaucracy.dmi')
	stampoverlay.icon_state = "paper_stamp-cent"
	if(!R.stamped)
		R.stamped = new
	R.stamped += /obj/item/weapon/stamp
	R.overlays += stampoverlay
	R.stamps += "<HR><i>This paper has been stamped by the EFTPOS device.</i>"
	var/obj/item/delivery/D = new(R.loc)
	R.forceMove(D)
	D.name = "small parcel - 'EFTPOS access code'"

/obj/item/device/eftpos/proc/reconnect_database()
	var/turf/location = get_turf(src)
	if(!location)
		return

	for(var/obj/machinery/account_database/DB in account_DBs)
		//Checks for a database on its Z-level, else it checks for a database at the main Station.
		if((DB.z == src.z) || (DB.z == map.zMainStation))
			if(!(DB.stat & (NOPOWER|FORCEDISABLE)) && DB.activated )//If the database if damaged or not powered, people won't be able to use the EFTPOS anymore
				linked_db = DB
				break

/obj/item/device/eftpos/attack_self(mob/user as mob)
	if(get_dist(src,user) <= 1)
		var/dat = {"<b>[eftpos_name]</b><br>
<i>This terminal is</i> [machine_id]. <i>Report this code when contacting Nanotrasen IT Support</i><br>"}
		var/temp_transaction_purpose = transaction_purpose == "" ? "<i>Not Defined</i>" : "\"[transaction_purpose]\""
		if(transaction_locked)
			dat += {"<a href='?src=\ref[src];choice=toggle_lock'>Reset[transaction_paid ? "" : " (authentication required)"]</a><br><br>
				Transaction purpose: <b>[temp_transaction_purpose]</b><br>
				Value: <b>$[transaction_amount]</b><br>
				Linked account: <b>[linked_account ? linked_account.owner_name : "None"]</b><hr>"}
			if(transaction_paid)
				dat += "<i>This transaction has been processed successfully.</i><hr>"
			else

				dat += {"<i>Swipe your card below the line or enter account information to finish this transaction.</i><hr>
					<a href='?src=\ref[src];choice=scan_card'>\[------\]<br/>
					<pre>1 2 3<br/>4 5 6<br/>7 8 9<br/>C 0 E</pre>
					</a>"}
		else
			dat += {"<a href='?src=\ref[src];choice=toggle_lock'>Lock in new transaction</a><br/><br/>
				Transaction purpose: <a href='?src=\ref[src];choice=trans_purpose'>[temp_transaction_purpose]</a><br/>
				Value: <a href='?src=\ref[src];choice=trans_value'>$[transaction_amount]</a><br/>
				Linked account: <a href='?src=\ref[src];choice=link_account'>[linked_account ? linked_account.owner_name : "None"]</a><hr>
				<a href='?src=\ref[src];choice=change_code'>Change access code</a><br/>
				<a href='?src=\ref[src];choice=change_id'>Change EFTPOS ID</a><br/>
				Scan card to reset access code <a href='?src=\ref[src];choice=reset'>\[------\]</a>"}
		user << browse(HTML_SKELETON(dat),"window=eftpos")
	else
		user << browse(null,"window=eftpos")

/obj/item/device/eftpos/attackby(O as obj, user as mob)
	if(istype(O, /obj/item/weapon/card))
		//attempt to connect to a new db, and if that doesn't work then fail
		if(!linked_db)
			reconnect_database()
		if(linked_db)
			if(linked_account)
				var/obj/item/weapon/card/I = O
				scan_card(I)
			else
				to_chat(usr, "[bicon(src)] <span class='warning'>Unable to connect to linked account.</span>")
		else
			to_chat(usr, "[bicon(src)] <span class='warning'>Unable to connect to accounts database.</span>")
	else
		..()

/obj/item/device/eftpos/Topic(var/href, var/href_list)
	if(href_list["choice"])
		switch(href_list["choice"])
			if("change_code")
				var/attempt_code = input("Re-enter the current EFTPOS access code", "Confirm old EFTPOS code") as num
				if(attempt_code == access_code)
					var/trycode = input("Enter a new access code for this device (4-6 digits, numbers only)", "Enter new EFTPOS code") as num
					if(trycode >= 1000 && trycode <= 999999)
						access_code = trycode
					else
						alert("That is not a valid code!")
					print_reference()
				else
					to_chat(usr, "[bicon(src)] <span class='warning'>Incorrect code entered.</span>")
			if("change_id")
				var/attempt_code = text2num(input("Re-enter the current EFTPOS access code", "Confirm EFTPOS code"))
				if(attempt_code == access_code)
					eftpos_name = input("Enter a new terminal ID for this device", "Enter new EFTPOS ID") + " EFTPOS scanner"
					print_reference()
				else
					to_chat(usr, "[bicon(src)] <span class='warning'>Incorrect code entered.</span>")
			if("link_account")
				if(!linked_db)
					reconnect_database()
				if(linked_db)
					var/attempt_account_num = input("Enter account number to pay EFTPOS charges into", "New account number") as num
					var/attempt_pin = input("Enter pin code", "Account pin") as num
					linked_account = linked_db.attempt_account_access(attempt_account_num, attempt_pin, 1)
				else
					to_chat(usr, "[bicon(src)] <span class='warning'>Unable to connect to accounts database.</span>")
			if("trans_purpose")
				transaction_purpose = input("Enter reason for EFTPOS transaction", "Transaction purpose")
			if("trans_value")
				var/try_num = input("Enter amount for EFTPOS transaction", "Transaction amount") as num
				if(try_num < 0)
					alert("That is not a valid amount!")
				else
					transaction_amount = try_num
			if("toggle_lock")
				if(transaction_locked)
					var/attempt_code = input("Enter EFTPOS access code", "Reset Transaction") as num
					if(attempt_code == access_code)
						transaction_locked = 0
						transaction_paid = 0
				else if(linked_account)
					transaction_locked = 1
				else
					to_chat(usr, "[bicon(src)] <span class='warning'>No account connected to send transactions to.</span>")
			if("scan_card")
				//attempt to connect to a new db, and if that doesn't work then fail
				if(!linked_db)
					reconnect_database()
				if(linked_db && linked_account)
					var/obj/item/I = usr.get_active_hand()
					charge_card(I)
				else
					to_chat(usr, "[bicon(src)] <span class='warning'>Unable to link accounts.</span>")
			if("reset")
				//reset the access code - requires HoP/captain access
				var/obj/item/I = usr.get_active_hand()
				if (emag_check(I,usr))
					return
				else if (istype(I, /obj/item/weapon/card))
					var/obj/item/weapon/card/id/C = I
					if((access_cent_captain in C.access) || (access_hop in C.access) || (access_captain in C.access))
						access_code = 0
						to_chat(usr, "[bicon(src)] <span class='info'>Access code reset to 0.</span>")

	src.attack_self(usr)

/obj/item/device/eftpos/proc/charge_card(var/obj/item/weapon/card/I)
	if(transaction_locked && !transaction_paid)
		var/charge_response = charge_flow(linked_db, I, usr, transaction_amount, linked_account, transaction_purpose, eftpos_name, machine_id)
		if(charge_response == CARD_CAPTURE_SUCCESS)
			playsound(src, 'sound/machines/chime.ogg', 50, 1)
			visible_message("[bicon(src)] \The [src] chimes.")
			transaction_paid = 1
		else
			playsound(src, 'sound/machines/alert.ogg', 50, 1)
			visible_message("[bicon(src)] \The [src] buzzes.")

/obj/item/device/eftpos/proc/scan_card(var/obj/item/weapon/card/I)
	if (istype(I, /obj/item/weapon/card))
		charge_card(I)
	//emag?

//emag
/obj/item/device/eftpos/emag_act(mob/user)
	access_code = 0
	to_chat(user, "[bicon(src)] <span class='info'>Access code reset to 0.</span>")