mirror of
https://github.com/ParadiseSS13/Paradise.git
synced 2025-12-26 10:12:17 +00:00
442 lines
17 KiB
Plaintext
442 lines
17 KiB
Plaintext
proc/sql_report_karma(var/mob/spender, var/mob/receiver)
|
|
var/sqlspendername = sanitizeSQL(spender.name)
|
|
var/sqlspenderkey = spender.key
|
|
var/sqlreceivername = sanitizeSQL(receiver.name)
|
|
var/sqlreceiverkey = receiver.key
|
|
var/sqlreceiverrole = "None"
|
|
var/sqlreceiverspecial = "None"
|
|
|
|
var/sqlspenderip = spender.client.address
|
|
|
|
if(receiver.mind)
|
|
if(receiver.mind.special_role)
|
|
sqlreceiverspecial = sanitizeSQL(receiver.mind.special_role)
|
|
if(receiver.mind.assigned_role)
|
|
sqlreceiverrole = sanitizeSQL(receiver.mind.assigned_role)
|
|
|
|
if(!dbcon.IsConnected())
|
|
log_game("SQL ERROR during karma logging. Failed to connect.")
|
|
else
|
|
var/sqltime = time2text(world.realtime, "YYYY-MM-DD hh:mm:ss")
|
|
var/DBQuery/query = dbcon.NewQuery("INSERT INTO [format_table_name("karma")] (spendername, spenderkey, receivername, receiverkey, receiverrole, receiverspecial, spenderip, time) VALUES ('[sqlspendername]', '[sqlspenderkey]', '[sqlreceivername]', '[sqlreceiverkey]', '[sqlreceiverrole]', '[sqlreceiverspecial]', '[sqlspenderip]', '[sqltime]')")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during karma logging. Error : \[[err]\]\n")
|
|
|
|
|
|
query = dbcon.NewQuery("SELECT * FROM [format_table_name("karmatotals")] WHERE byondkey='[receiver.key]'")
|
|
query.Execute()
|
|
|
|
var/karma
|
|
var/id
|
|
while(query.NextRow())
|
|
id = query.item[1]
|
|
karma = text2num(query.item[3])
|
|
if(karma == null)
|
|
karma = 1
|
|
query = dbcon.NewQuery("INSERT INTO [format_table_name("karmatotals")] (byondkey, karma) VALUES ('[receiver.key]', [karma])")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during karmatotal logging (adding new key). Error : \[[err]\]\n")
|
|
else
|
|
karma += 1
|
|
query = dbcon.NewQuery("UPDATE [format_table_name("karmatotals")] SET karma=[karma] WHERE id=[id]")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during karmatotal logging (updating existing entry). Error : \[[err]\]\n")
|
|
|
|
|
|
var/list/karma_spenders = list()
|
|
|
|
/mob/verb/spend_karma_list()
|
|
set name = "Award Karma"
|
|
set desc = "Let the gods know whether someone's been nice. Can only be used once per round."
|
|
set category = "Special Verbs"
|
|
|
|
if(!ticker || !player_list.len)
|
|
to_chat(usr, "\red You can't award karma until the game has started.")
|
|
return
|
|
|
|
if(ticker.current_state == GAME_STATE_PREGAME)
|
|
to_chat(usr, "\red You can't award karma until the game has started.")
|
|
return
|
|
|
|
var/list/karma_list = list("Cancel")
|
|
for(var/mob/M in player_list) if(M.client && M.mind)
|
|
if(isNonCrewAntag(M)) // Don't include special roles, because players use it to meta
|
|
continue
|
|
karma_list += M
|
|
|
|
if(!karma_list.len || karma_list.len == 1)
|
|
to_chat(usr, "\red There's no-one to spend your karma on.")
|
|
return
|
|
|
|
var/pickedmob = input("Who would you like to award Karma to?", "Award Karma", "Cancel") as null|mob in karma_list
|
|
|
|
if(isnull(pickedmob))
|
|
return
|
|
|
|
if(!istype(pickedmob, /mob))
|
|
to_chat(usr, "\red That's not a mob.")
|
|
return
|
|
|
|
spend_karma(pickedmob)
|
|
|
|
/mob/verb/spend_karma(var/mob/M)
|
|
set name = "Award Karma to Player"
|
|
set desc = "Let the gods know whether someone's been nice. Can only be used once per round."
|
|
set category = "Special Verbs"
|
|
|
|
if(!M)
|
|
to_chat(usr, "Please right click a mob to award karma directly, or use the 'Award Karma' verb to select a player from the player listing.")
|
|
return
|
|
if(!istype(M, /mob))
|
|
to_chat(usr, "\red That's not a mob.")
|
|
return
|
|
if(!M.client)
|
|
to_chat(usr, "\red That mob has no client connected at the moment.")
|
|
return
|
|
if(src.client.karma_spent)
|
|
to_chat(usr, "\red You've already spent your karma for the round.")
|
|
return
|
|
for(var/a in karma_spenders)
|
|
if(a == src.key)
|
|
to_chat(usr, "\red You've already spent your karma for the round.")
|
|
return
|
|
if(M.key == src.key)
|
|
to_chat(usr, "\red You can't spend karma on yourself!")
|
|
return
|
|
if(M.client.address == src.client.address)
|
|
message_admins("\red Illegal karma spending detected from [src.key] to [M.key]. Using the same IP!")
|
|
log_game("\red Illegal karma spending detected from [src.key] to [M.key]. Using the same IP!")
|
|
to_chat(usr, "\red The karma system is not available to multi-accounters.")
|
|
var/choice = input("Give [M.name] good karma?", "Karma") in list("Good", "Cancel")
|
|
if(!choice || choice == "Cancel")
|
|
return
|
|
if(choice == "Good" && !(src.client.karma_spent))
|
|
if(src.client.karma_spent)
|
|
to_chat(usr, "\red You've already spent your karma for the round.")
|
|
return
|
|
M.client.karma += 1
|
|
to_chat(usr, "[choice] karma spent on [M.name].")
|
|
src.client.karma_spent = 1
|
|
karma_spenders.Add(src.key)
|
|
if(M.client.karma <= -2 || M.client.karma >= 2)
|
|
var/special_role = "None"
|
|
var/assigned_role = "None"
|
|
var/karma_diary = file("data/logs/karma_[time2text(world.realtime, "YYYY/MM-Month/DD-Day")].log")
|
|
if(M.mind)
|
|
if(M.mind.special_role)
|
|
special_role = M.mind.special_role
|
|
if(M.mind.assigned_role)
|
|
assigned_role = M.mind.assigned_role
|
|
karma_diary << "[M.name] ([M.key]) [assigned_role]/[special_role]: [M.client.karma] - [time2text(world.timeofday, "hh:mm:ss")] given by [src.key]"
|
|
|
|
sql_report_karma(src, M)
|
|
|
|
/client/verb/check_karma()
|
|
set name = "Check Karma"
|
|
set category = "Special Verbs"
|
|
set desc = "Reports how much karma you have accrued."
|
|
|
|
var/currentkarma=verify_karma()
|
|
to_chat(usr, {"<br>You have <b>[currentkarma]</b> available."})
|
|
return
|
|
|
|
/client/proc/verify_karma()
|
|
var/currentkarma=0
|
|
if(!dbcon.IsConnected())
|
|
to_chat(usr, "\red Unable to connect to karma database. Please try again later.<br>")
|
|
return
|
|
else
|
|
var/DBQuery/query = dbcon.NewQuery("SELECT karma, karmaspent FROM [format_table_name("karmatotals")] WHERE byondkey='[src.key]'")
|
|
query.Execute()
|
|
|
|
var/totalkarma
|
|
var/karmaspent
|
|
while(query.NextRow())
|
|
totalkarma = query.item[1]
|
|
karmaspent = query.item[2]
|
|
currentkarma = (text2num(totalkarma) - text2num(karmaspent))
|
|
/* if(totalkarma)
|
|
to_chat(usr, {"<br>You have <b>[currentkarma]</b> available.<br>)
|
|
You've gained <b>[totalkarma]</b> total karma in your time here.<br>"}
|
|
else
|
|
to_chat(usr, "<b>Your total karma is:</b> 0<br>")*/
|
|
return currentkarma
|
|
|
|
/client/verb/karmashop()
|
|
set name = "karmashop"
|
|
set desc = "Spend your hard-earned karma here"
|
|
set hidden = 1
|
|
|
|
karmashopmenu()
|
|
return
|
|
|
|
/client/proc/karmashopmenu()
|
|
var/dat = "<html><body><center>"
|
|
dat += "<a href='?src=\ref[src];karmashop=tab;tab=0' [karma_tab == 0 ? "class='linkOn'" : ""]>Job Unlocks</a>"
|
|
dat += "<a href='?src=\ref[src];karmashop=tab;tab=1' [karma_tab == 1 ? "class='linkOn'" : ""]>Species Unlocks</a>"
|
|
dat += "<a href='?src=\ref[src];karmashop=tab;tab=2' [karma_tab == 2 ? "class='linkOn'" : ""]>Karma Refunds</a>"
|
|
dat += "</center>"
|
|
dat += "<HR>"
|
|
|
|
switch(karma_tab)
|
|
if (0) // Job Unlocks
|
|
dat += {"
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=1'>Unlock Barber -- 5KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=2'>Unlock Brig Physician -- 5KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=3'>Unlock Nanotrasen Representative -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=5'>Unlock Blueshield -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=9'>Unlock Security Pod Pilot -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=6'>Unlock Mechanic -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy=7'>Unlock Magistrate -- 45KP</a><br>
|
|
"}
|
|
|
|
if (1) // Species Unlocks
|
|
dat += {"
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=1'>Unlock Machine People -- 15KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=2'>Unlock Kidan -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=3'>Unlock Grey -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=7'>Unlock Drask -- 30KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=4'>Unlock Vox -- 45KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=5'>Unlock Slime People -- 45KP</a><br>
|
|
<a href='?src=\ref[src];karmashop=shop;KarmaBuy2=6'>Unlock Plasmaman -- 100KP</a><br>
|
|
"}
|
|
|
|
if (2) // Karma Refunds
|
|
var/list/refundable = list()
|
|
var/list/purchased = checkpurchased()
|
|
if("Tajaran Ambassador" in purchased)
|
|
refundable += "Tajaran Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Tajaran Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Tajaran Ambassador -- 30KP</a><br>"
|
|
if("Unathi Ambassador" in purchased)
|
|
refundable += "Unathi Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Unathi Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Unathi Ambassador -- 30KP</a><br>"
|
|
if("Skrell Ambassador" in purchased)
|
|
refundable += "Skrell Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Skrell Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Skrell Ambassador -- 30KP</a><br>"
|
|
if("Diona Ambassador" in purchased)
|
|
refundable += "Diona Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Diona Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Diona Ambassador -- 30KP</a><br>"
|
|
if("Kidan Ambassador" in purchased)
|
|
refundable += "Kidan Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Kidan Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Kidan Ambassador -- 30KP</a><br>"
|
|
if("Slime People Ambassador" in purchased)
|
|
refundable += "Slime People Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Slime People Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Slime People Ambassador -- 30KP</a><br>"
|
|
if("Grey Ambassador" in purchased)
|
|
refundable += "Grey Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Grey Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Grey Ambassador -- 30KP</a><br>"
|
|
if("Vox Ambassador" in purchased)
|
|
refundable += "Vox Ambassador"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Vox Ambassador;KarmaRefundType=job;KarmaRefundCost=30'>Refund Vox Ambassador -- 30KP</a><br>"
|
|
if("Customs Officer" in purchased)
|
|
refundable += "Customs Officer"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Customs Officer;KarmaRefundType=job;KarmaRefundCost=30'>Refund Customs Officer -- 30KP</a><br>"
|
|
if("Nanotrasen Recruiter" in purchased)
|
|
refundable += "Nanotrasen Recruiter"
|
|
dat += "<a href='?src=\ref[src];karmashop=shop;KarmaRefund=Nanotrasen Recruiter;KarmaRefundType=job;KarmaRefundCost=10'>Refund Nanotrasen Recruiter -- 10KP</a><br>"
|
|
|
|
if(!refundable.len)
|
|
dat += "You do not have any refundable karma purchases.<br>"
|
|
|
|
dat += "<br><B>PLEASE NOTE THAT PEOPLE WHO TRY TO GAME THE KARMA SYSTEM WILL END UP ON THE WALL OF SHAME. THIS INCLUDES BUT IS NOT LIMITED TO TRADES, OOC KARMA BEGGING, CODE EXPLOITS, ETC.</B>"
|
|
dat += "</center></body></html>"
|
|
|
|
var/datum/browser/popup = new(usr, "karmashop", "<div align='center'>Karma Shop</div>", 400, 400)
|
|
popup.set_content(dat)
|
|
popup.open(0)
|
|
return
|
|
|
|
/client/proc/DB_job_unlock(var/job,var/cost)
|
|
var/DBQuery/query = dbcon.NewQuery("SELECT * FROM [format_table_name("whitelist")] WHERE ckey='[usr.key]'")
|
|
query.Execute()
|
|
|
|
var/dbjob
|
|
var/dbckey
|
|
while(query.NextRow())
|
|
dbckey = query.item[2]
|
|
dbjob = query.item[3]
|
|
if(!dbckey)
|
|
query = dbcon.NewQuery("INSERT INTO [format_table_name("whitelist")] (ckey, job) VALUES ('[usr.key]','[job]')")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during whitelist logging (adding new key). Error: \[[err]\]\n")
|
|
message_admins("SQL ERROR during whitelist logging (adding new key). Error: \[[err]\]\n")
|
|
return
|
|
else
|
|
to_chat(usr, "You have unlocked [job].")
|
|
message_admins("[key_name(usr)] has unlocked [job].")
|
|
karmacharge(cost)
|
|
|
|
if(dbckey)
|
|
var/list/joblist = splittext(dbjob,",")
|
|
if(!(job in joblist))
|
|
joblist += job
|
|
var/newjoblist = jointext(joblist,",")
|
|
query = dbcon.NewQuery("UPDATE [format_table_name("whitelist")] SET job='[newjoblist]' WHERE ckey='[dbckey]'")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during whitelist logging (updating existing entry). Error : \[[err]\]\n")
|
|
message_admins("SQL ERROR during whitelist logging (updating existing entry). Error : \[[err]\]\n")
|
|
return
|
|
else
|
|
to_chat(usr, "You have unlocked [job].")
|
|
message_admins("[key_name(usr)] has unlocked [job].")
|
|
karmacharge(cost)
|
|
else
|
|
to_chat(usr, "You already have this job unlocked!")
|
|
return
|
|
|
|
/client/proc/DB_species_unlock(var/species,var/cost)
|
|
var/DBQuery/query = dbcon.NewQuery("SELECT * FROM [format_table_name("whitelist")] WHERE ckey='[usr.key]'")
|
|
query.Execute()
|
|
|
|
var/dbspecies
|
|
var/dbckey
|
|
while(query.NextRow())
|
|
dbckey = query.item[2]
|
|
dbspecies = query.item[4]
|
|
if(!dbckey)
|
|
query = dbcon.NewQuery("INSERT INTO [format_table_name("whitelist")] (ckey, species) VALUES ('[usr.key]','[species]')")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during whitelist logging (adding new key). Error : \[[err]\]\n")
|
|
message_admins("SQL ERROR during whitelist logging (adding new key). Error : \[[err]\]\n")
|
|
return
|
|
else
|
|
to_chat(usr, "You have unlocked [species].")
|
|
message_admins("[key_name(usr)] has unlocked [species].")
|
|
karmacharge(cost)
|
|
|
|
if(dbckey)
|
|
var/list/specieslist = splittext(dbspecies,",")
|
|
if(!(species in specieslist))
|
|
specieslist += species
|
|
var/newspecieslist = jointext(specieslist,",")
|
|
query = dbcon.NewQuery("UPDATE [format_table_name("whitelist")] SET species='[newspecieslist]' WHERE ckey='[dbckey]'")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during whitelist logging (updating existing entry). Error: \[[err]\]\n")
|
|
message_admins("SQL ERROR during whitelist logging (updating existing entry). Error: \[[err]\]\n")
|
|
return
|
|
else
|
|
to_chat(usr, "You have unlocked [species].")
|
|
message_admins("[key_name(usr)] has unlocked [species].")
|
|
karmacharge(cost)
|
|
else
|
|
to_chat(usr, "You already have this species unlocked!")
|
|
return
|
|
|
|
/client/proc/karmacharge(var/cost,var/refund = 0)
|
|
var/DBQuery/query = dbcon.NewQuery("SELECT * FROM [format_table_name("karmatotals")] WHERE byondkey='[usr.key]'")
|
|
query.Execute()
|
|
|
|
while(query.NextRow())
|
|
var/spent = text2num(query.item[4])
|
|
if(refund)
|
|
spent -= cost
|
|
else
|
|
spent += cost
|
|
query = dbcon.NewQuery("UPDATE [format_table_name("karmatotals")] SET karmaspent=[spent] WHERE byondkey='[usr.key]'")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during karmaspent updating (updating existing entry). Error: \[[err]\]\n")
|
|
message_admins("SQL ERROR during karmaspent updating (updating existing entry). Error: \[[err]\]\n")
|
|
return
|
|
else
|
|
to_chat(usr, "You have been [refund ? "refunded" : "charged"] [cost] karma.")
|
|
message_admins("[key_name(usr)] has been [refund ? "refunded" : "charged"] [cost] karma.")
|
|
return
|
|
|
|
/client/proc/karmarefund(var/type,var/name,var/cost)
|
|
if(name == "Tajaran Ambassador")
|
|
cost = 30
|
|
else if(name == "Unathi Ambassador")
|
|
cost = 30
|
|
else if(name == "Skrell Ambassador")
|
|
cost = 30
|
|
else if(name == "Diona Ambassador")
|
|
cost = 30
|
|
else if(name == "Kidan Ambassador")
|
|
cost = 30
|
|
else if(name == "Slime People Ambassador")
|
|
cost = 30
|
|
else if(name == "Grey Ambassador")
|
|
cost = 30
|
|
else if(name == "Vox Ambassador")
|
|
cost = 30
|
|
else if(name == "Customs Officer")
|
|
cost = 30
|
|
else if(name == "Nanotrasen Recruiter")
|
|
cost = 10
|
|
else
|
|
to_chat(usr, "\red That job is not refundable.")
|
|
return
|
|
|
|
var/DBQuery/query = dbcon.NewQuery("SELECT * FROM [format_table_name("whitelist")] WHERE ckey='[usr.key]'")
|
|
query.Execute()
|
|
|
|
var/dbjob
|
|
var/dbspecies
|
|
var/dbckey
|
|
while(query.NextRow())
|
|
dbckey = query.item[2]
|
|
dbjob = query.item[3]
|
|
dbspecies = query.item[4]
|
|
|
|
if(dbckey)
|
|
var/list/typelist = list()
|
|
if(type == "job")
|
|
typelist = splittext(dbjob,",")
|
|
else if(type == "species")
|
|
typelist = splittext(dbspecies,",")
|
|
else
|
|
to_chat(usr, "\red Type [type] is not a valid column.")
|
|
|
|
if(name in typelist)
|
|
typelist -= name
|
|
var/newtypelist = jointext(typelist,",")
|
|
query = dbcon.NewQuery("UPDATE [format_table_name("whitelist")] SET [type]='[newtypelist]' WHERE ckey='[dbckey]'")
|
|
if(!query.Execute())
|
|
var/err = query.ErrorMsg()
|
|
log_game("SQL ERROR during whitelist logging (updating existing entry). Error: \[[err]\]\n")
|
|
message_admins("SQL ERROR during whitelist logging (updating existing entry). Error: \[[err]\]\n")
|
|
return
|
|
else
|
|
to_chat(usr, "You have been refunded [cost] karma for [type] [name].")
|
|
message_admins("[key_name(usr)] has been refunded [cost] karma for [type] [name].")
|
|
karmacharge(text2num(cost),1)
|
|
else
|
|
to_chat(usr, "\red You have not bought [name].")
|
|
|
|
else
|
|
to_chat(usr, "\red Your ckey ([dbckey]) was not found.")
|
|
|
|
/client/proc/checkpurchased(var/name = null) // If the first parameter is null, return a full list of purchases
|
|
var/DBQuery/query = dbcon.NewQuery("SELECT * FROM [format_table_name("whitelist")] WHERE ckey='[usr.key]'")
|
|
query.Execute()
|
|
|
|
var/dbjob
|
|
var/dbspecies
|
|
var/dbckey
|
|
while(query.NextRow())
|
|
dbckey = query.item[2]
|
|
dbjob = query.item[3]
|
|
dbspecies = query.item[4]
|
|
|
|
if(dbckey)
|
|
var/list/joblist = splittext(dbjob,",")
|
|
var/list/specieslist = splittext(dbspecies,",")
|
|
var/list/combinedlist = joblist + specieslist
|
|
if(name)
|
|
if(name in combinedlist)
|
|
return 1
|
|
else
|
|
return 0
|
|
else
|
|
return combinedlist
|
|
else
|
|
return 0
|