#define VOTE_COOLDOWN 10 SUBSYSTEM_DEF(vote) name = "Vote" wait = 10 flags = SS_KEEP_TIMING|SS_NO_INIT runlevels = RUNLEVEL_LOBBY | RUNLEVELS_DEFAULT var/initiator = null var/started_time = null var/end_time = 0 var/mode = null var/vote_system = PLURALITY_VOTING var/question = null var/list/choices = list() var/list/scores = list() var/list/choice_descs = list() // optional descriptions var/list/voted = list() var/list/voting = list() var/list/saved = list() var/list/generated_actions = list() var/next_pop = 0 var/obfuscated = FALSE//CIT CHANGE - adds obfuscated/admin-only votes var/list/stored_gamemode_votes = list() //Basically the last voted gamemode is stored here for end-of-round use. var/list/stored_modetier_results = list() // The aggregated tier list of the modes available in secret. /datum/controller/subsystem/vote/fire() //called by master_controller if(mode) if(end_time < world.time) result() SSpersistence.SaveSavedVotes() for(var/client/C in voting) C << browse(null, "window=vote;can_close=0") if(end_time < world.time) // result() can change this reset() else if(next_pop < world.time) var/datum/browser/client_popup for(var/client/C in voting) client_popup = new(C, "vote", "Voting Panel", nwidth=600,nheight=700) client_popup.set_window_options("can_close=0") client_popup.set_content(interface(C)) client_popup.open(0) next_pop = world.time+VOTE_COOLDOWN /datum/controller/subsystem/vote/proc/reset() initiator = null end_time = 0 mode = null question = null choices.Cut() choice_descs.Cut() voted.Cut() voting.Cut() scores.Cut() obfuscated = FALSE //CIT CHANGE - obfuscated votes remove_action_buttons() /datum/controller/subsystem/vote/proc/get_result() //get the highest number of votes var/greatest_votes = 0 var/total_votes = 0 for(var/option in choices) var/votes = choices[option] total_votes += votes if(votes > greatest_votes) greatest_votes = votes //default-vote for everyone who didn't vote if(!CONFIG_GET(flag/default_no_vote) && choices.len) var/list/non_voters = GLOB.directory.Copy() non_voters -= voted for (var/non_voter_ckey in non_voters) var/client/C = non_voters[non_voter_ckey] if (!C || C.is_afk()) non_voters -= non_voter_ckey if(non_voters.len > 0) if(mode == "restart") choices["Continue Playing"] += non_voters.len if(choices["Continue Playing"] >= greatest_votes) greatest_votes = choices["Continue Playing"] else if(mode == "gamemode") if(GLOB.master_mode in choices) choices[GLOB.master_mode] += non_voters.len if(choices[GLOB.master_mode] >= greatest_votes) greatest_votes = choices[GLOB.master_mode] //get all options with that many votes and return them in a list . = list() if(greatest_votes) for(var/option in choices) if(choices[option] == greatest_votes) . += option return . /datum/controller/subsystem/vote/proc/calculate_condorcet_votes(var/blackbox_text) // https://en.wikipedia.org/wiki/Schulze_method#Implementation var/list/d[][] = new/list(choices.len,choices.len) // the basic vote matrix, how many times a beats b for(var/ckey in voted) var/list/this_vote = voted[ckey] if(islist(this_vote)) for(var/a in 1 to choices.len) for(var/b in a+1 to choices.len) var/a_rank = this_vote.Find(a) var/b_rank = this_vote.Find(b) a_rank = a_rank ? a_rank : choices.len+1 b_rank = b_rank ? b_rank : choices.len+1 if(a_rankopposite_pref) p[i][j] = d[i][j] else p[i][j] = 0 for(var/i in 1 to choices.len) for(var/j in 1 to choices.len) if(i != j) for(var/k in 1 to choices.len) // YEAH O(n^3) !! if(i != k && j != k) p[j][k] = max(p[j][k],min(p[j][i], p[i][k])) //one last pass, now that we've done the math for(var/i in 1 to choices.len) for(var/j in 1 to choices.len) if(i != j) SSblackbox.record_feedback("nested tally","voting",p[i][j],list(blackbox_text,"Shortest Paths",choices[i],choices[j])) if(p[i][j] >= p[j][i]) choices[choices[i]]++ // higher shortest path = better candidate, so we add to choices here // choices[choices[i]] is the schulze ranking, here, rather than raw vote numbers /datum/controller/subsystem/vote/proc/calculate_majority_judgement_vote(var/blackbox_text) // https://en.wikipedia.org/wiki/Majority_judgment var/list/scores_by_choice = list() for(var/choice in choices) scores_by_choice[choice] = list() for(var/ckey in voted) var/list/this_vote = voted[ckey] var/list/pretty_vote = list() for(var/choice in this_vote) sorted_insert(scores_by_choice[choice],this_vote[choice],/proc/cmp_numeric_asc) // START BALLOT GATHERING pretty_vote += choice pretty_vote[choice] = GLOB.vote_score_options[this_vote[choice]] SSblackbox.record_feedback("associative","voting_ballots",1,pretty_vote) // END BALLOT GATHERING for(var/score_name in scores_by_choice) var/list/score = scores_by_choice[score_name] for(var/indiv_score in score) SSblackbox.record_feedback("nested tally","voting",1,list(blackbox_text,"Scores",score_name,GLOB.vote_score_options[indiv_score])) if(score.len == 0) scores_by_choice -= score_name while(scores_by_choice.len > 1) var/highest_median = 0 for(var/score_name in scores_by_choice) // first get highest median var/list/score = scores_by_choice[score_name] if(!score.len) scores_by_choice -= score_name continue var/median = score[max(1,round(score.len/2))] if(median >= highest_median) highest_median = median for(var/score_name in scores_by_choice) // then, remove var/list/score = scores_by_choice[score_name] var/median = score[max(1,round(score.len/2))] if(median < highest_median) scores_by_choice -= score_name for(var/score_name in scores_by_choice) // after removals var/list/score = scores_by_choice[score_name] if(score.len == 0) choices[score_name] += 100 // we're in a tie situation--just go with the first one return var/median_pos = max(1,round(score.len/2)) score.Cut(median_pos,median_pos+1) choices[score_name]++ /datum/controller/subsystem/vote/proc/calculate_scores(var/blackbox_text) var/list/scores_by_choice = list() for(var/choice in choices) scores_by_choice[choice] = list() for(var/ckey in voted) var/list/this_vote = voted[ckey] for(var/choice in this_vote) sorted_insert(scores_by_choice[choice],this_vote[choice],/proc/cmp_numeric_asc) var/middle_score = round(GLOB.vote_score_options.len/2,1) for(var/score_name in scores_by_choice) var/list/score = scores_by_choice[score_name] for(var/S in score) scores[score_name] += S-middle_score SSblackbox.record_feedback("nested tally","voting",scores[score_name],list(blackbox_text,"Total scores",score_name)) /datum/controller/subsystem/vote/proc/announce_result() var/vote_title_text var/text if(question) text += "[question]" vote_title_text = "[question]" else text += "[capitalize(mode)] Vote" vote_title_text = "[capitalize(mode)] Vote" if(vote_system == RANKED_CHOICE_VOTING) calculate_condorcet_votes(vote_title_text) if(vote_system == SCORE_VOTING) calculate_majority_judgement_vote(vote_title_text) calculate_scores(vote_title_text) var/list/winners = get_result() var/was_roundtype_vote = mode == "roundtype" || mode == "dynamic" if(winners.len > 0) if(was_roundtype_vote) stored_gamemode_votes = list() if(!obfuscated && vote_system == RANKED_CHOICE_VOTING) text += "\nIt should be noted that this is not a raw tally of votes (impossible in ranked choice) but the score determined by the schulze method of voting, so the numbers will look weird!" if(mode == "mode tiers") for(var/score_name in scores) var/score = scores[score_name] if(!score) score = 0 text = "\n[score_name]: [obfuscated ? "???" : score]" else for(var/i=1,i<=choices.len,i++) var/votes = choices[choices[i]] if(!votes) votes = 0 if(was_roundtype_vote) stored_gamemode_votes[choices[i]] = votes text += "\n[choices[i]]: [obfuscated ? "???" : votes]" //CIT CHANGE - adds obfuscated votes if(mode != "custom") if(winners.len > 1 && !obfuscated) //CIT CHANGE - adds obfuscated votes text = "\nVote Tied Between:" for(var/option in winners) text += "\n\t[option]" . = pick(winners) text += "\nVote Result: [obfuscated ? "???" : .]" //CIT CHANGE - adds obfuscated votes else text += "\nDid not vote: [GLOB.clients.len-voted.len]" else text += "Vote Result: Inconclusive - No Votes!" log_vote(text) remove_action_buttons() to_chat(world, "\n[text]") switch(vote_system) if(APPROVAL_VOTING,PLURALITY_VOTING) for(var/i=1,i<=choices.len,i++) SSblackbox.record_feedback("nested tally","voting",choices[choices[i]],list(vote_title_text,choices[i])) if(RANKED_CHOICE_VOTING) for(var/i=1,i<=voted.len,i++) var/list/myvote = voted[voted[i]] if(islist(myvote)) for(var/j=1,j<=myvote.len,j++) SSblackbox.record_feedback("nested tally","voting",1,list(vote_title_text,"[j]\th",choices[myvote[j]])) if(obfuscated) //CIT CHANGE - adds obfuscated votes. this messages admins with the vote's true results var/admintext = "Obfuscated results" if(vote_system == RANKED_CHOICE_VOTING) admintext += "\nIt should be noted that this is not a raw tally of votes (impossible in ranked choice) but the score determined by the schulze method of voting, so the numbers will look weird!" else if(vote_system == SCORE_VOTING) admintext += "\nIt should be noted that this is not a raw tally of votes but the number of runoffs done by majority judgement!" for(var/i=1,i<=choices.len,i++) var/votes = choices[choices[i]] admintext += "\n[choices[i]]: [votes]" message_admins(admintext) return . /datum/controller/subsystem/vote/proc/result() . = announce_result() var/restart = 0 if(.) switch(mode) if("roundtype") //CIT CHANGE - adds the roundstart extended/secret vote if(SSticker.current_state > GAME_STATE_PREGAME)//Don't change the mode if the round already started. return message_admins("A vote has tried to change the gamemode, but the game has already started. Aborting.") GLOB.master_mode = . SSticker.save_mode(.) message_admins("The gamemode has been voted for, and has been changed to: [GLOB.master_mode]") log_admin("Gamemode has been voted for and switched to: [GLOB.master_mode].") if(CONFIG_GET(flag/modetier_voting)) reset() started_time = 0 initiate_vote("mode tiers","server",hideresults=FALSE,votesystem=SCORE_VOTING,forced=TRUE, vote_time = 30 MINUTES) to_chat(world,"The vote will end right as the round starts.") return . if("restart") if(. == "Restart Round") restart = 1 if("gamemode") if(GLOB.master_mode != .) SSticker.save_mode(.) if(SSticker.HasRoundStarted()) restart = 1 else GLOB.master_mode = . if("mode tiers") var/list/raw_score_numbers = list() for(var/score_name in scores) sorted_insert(raw_score_numbers,scores[score_name],/proc/cmp_numeric_asc) stored_modetier_results = scores.Copy() for(var/score_name in stored_modetier_results) if(stored_modetier_results[score_name] <= raw_score_numbers[CONFIG_GET(number/dropped_modes)]) stored_modetier_results -= score_name if("dynamic") if(SSticker.current_state > GAME_STATE_PREGAME)//Don't change the mode if the round already started. return message_admins("A vote has tried to change the gamemode, but the game has already started. Aborting.") if(. == "Secret") GLOB.master_mode = "secret" SSticker.save_mode(.) message_admins("The gamemode has been voted for, and has been changed to: [GLOB.master_mode]") log_admin("Gamemode has been voted for and switched to: [GLOB.master_mode].") else GLOB.master_mode = "dynamic" var/datum/dynamic_storyteller/S = config.pick_storyteller(.) GLOB.dynamic_storyteller_type = S if("map") var/datum/map_config/VM = config.maplist[.] message_admins("The map has been voted for and will change to: [VM.map_name]") log_admin("The map has been voted for and will change to: [VM.map_name]") if(SSmapping.changemap(config.maplist[.])) to_chat(world, "The map vote has chosen [VM.map_name] for next round!") if(restart) var/active_admins = 0 for(var/client/C in GLOB.admins) if(!C.is_afk() && check_rights_for(C, R_SERVER)) active_admins = 1 break if(!active_admins) SSticker.Reboot("Restart vote successful.", "restart vote") else to_chat(world, "Notice:Restart vote will not restart the server automatically because there are active admins on.") message_admins("A restart vote has passed, but there are active admins on with +server, so it has been canceled. If you wish, you may restart the server.") return . /datum/controller/subsystem/vote/proc/submit_vote(vote, score = 0) if(mode) if(CONFIG_GET(flag/no_dead_vote) && usr.stat == DEAD && !usr.client.holder) return 0 if(vote && ISINRANGE(vote, 1, choices.len)) switch(vote_system) if(PLURALITY_VOTING) if(usr.ckey in voted) choices[choices[voted[usr.ckey]]]-- voted[usr.ckey] = vote choices[choices[vote]]++ return vote else voted += usr.ckey voted[usr.ckey] = vote choices[choices[vote]]++ //check this return vote if(APPROVAL_VOTING) if(usr.ckey in voted) if(vote in voted[usr.ckey]) voted[usr.ckey] -= vote choices[choices[vote]]-- else voted[usr.ckey] += vote choices[choices[vote]]++ else voted += usr.ckey voted[usr.ckey] = list(vote) choices[choices[vote]]++ return vote if(RANKED_CHOICE_VOTING) if(usr.ckey in voted) if(vote in voted[usr.ckey]) voted[usr.ckey] -= vote else voted += usr.ckey voted[usr.ckey] = list() voted[usr.ckey] += vote saved -= usr.ckey if(SCORE_VOTING) if(!(usr.ckey in voted)) voted += usr.ckey voted[usr.ckey] = list() voted[usr.ckey][choices[vote]] = score saved -= usr.ckey return 0 /datum/controller/subsystem/vote/proc/initiate_vote(vote_type, initiator_key, hideresults, votesystem = PLURALITY_VOTING, forced = FALSE,vote_time = -1)//CIT CHANGE - adds hideresults argument to votes to allow for obfuscated votes vote_system = votesystem if(!mode) if(started_time) var/next_allowed_time = (started_time + CONFIG_GET(number/vote_delay)) if(mode) to_chat(usr, "There is already a vote in progress! please wait for it to finish.") return 0 var/admin = FALSE var/ckey = ckey(initiator_key) if(GLOB.admin_datums[ckey]) admin = TRUE if(next_allowed_time > world.time && !admin) to_chat(usr, "A vote was initiated recently, you must wait [DisplayTimeText(next_allowed_time-world.time)] before a new vote can be started!") return 0 reset() obfuscated = hideresults //CIT CHANGE - adds obfuscated votes switch(vote_type) if("restart") choices.Add("Restart Round","Continue Playing") if("gamemode") choices.Add(config.votable_modes) if("map") var/players = GLOB.clients.len var/list/lastmaps = SSpersistence.saved_maps?.len ? list("[SSmapping.config.map_name]") | SSpersistence.saved_maps : list("[SSmapping.config.map_name]") for(var/M in config.maplist) //This is a typeless loop due to the finnicky nature of keyed lists in this kind of context var/datum/map_config/targetmap = config.maplist[M] if(!istype(targetmap)) continue if(!targetmap.voteweight) continue if((targetmap.config_min_users && players < targetmap.config_min_users) || (targetmap.config_max_users && players > targetmap.config_max_users)) continue if(targetmap.max_round_search_span && count_occurences_of_value(lastmaps, M, targetmap.max_round_search_span) >= targetmap.max_rounds_played) continue choices |= M if("roundtype") //CIT CHANGE - adds the roundstart secret/extended vote choices.Add("secret", "extended") if("mode tiers") var/list/modes_to_add = config.votable_modes var/list/probabilities = CONFIG_GET(keyed_list/probability) for(var/tag in modes_to_add) if(probabilities[tag] <= 0) modes_to_add -= tag modes_to_add -= "traitor" // makes it so that traitor is always available choices.Add(modes_to_add) if("dynamic") for(var/T in config.storyteller_cache) var/datum/dynamic_storyteller/S = T var/recent_rounds = 0 for(var/i in 1 to SSpersistence.saved_storytellers.len) if(SSpersistence.saved_storytellers[i] == initial(S.name)) recent_rounds++ if(recent_rounds < initial(S.weight)) choices.Add(initial(S.name)) choice_descs.Add(initial(S.desc)) choices.Add("Secret") choice_descs.Add("Standard secret. Switches mode if it wins.") if("custom") question = stripped_input(usr,"What is the vote for?") if(!question) return 0 for(var/i=1,i<=10,i++) var/option = capitalize(stripped_input(usr,"Please enter an option or hit cancel to finish")) if(!option || mode || !usr.client) break choices.Add(option) else return 0 mode = vote_type initiator = initiator_key started_time = world.time var/text = "[capitalize(mode)] vote started by [initiator]." if(mode == "custom") text += "\n[question]" log_vote(text) var/vp = vote_time if(vp == -1) vp = CONFIG_GET(number/vote_period) to_chat(world, "\n[text]\nType vote or click here to place your votes.\nYou have [DisplayTimeText(vp)] to vote.") end_time = started_time+vp for(var/c in GLOB.clients) SEND_SOUND(c, sound('sound/misc/server-ready.ogg')) var/client/C = c var/datum/action/vote/V = new if(question) V.name = "Vote: [question]" C.player_details.player_actions += V V.Grant(C.mob) generated_actions += V if(forced) var/datum/browser/popup = new(C, "vote", "Voting Panel",nwidth=600,nheight=700) popup.set_window_options("can_close=0") popup.set_content(SSvote.interface(C)) popup.open(0) return 1 return 0 /datum/controller/subsystem/vote/proc/interface(client/C) if(!C) return var/admin = 0 var/trialmin = 0 if(C.holder) admin = 1 if(check_rights_for(C, R_ADMIN)) trialmin = 1 voting |= C if(mode) if(question) . += "

Vote: '[question]'

" else . += "

Vote: [capitalize(mode)]

" switch(vote_system) if(PLURALITY_VOTING) . += "

Vote one.

" if(APPROVAL_VOTING) . += "

Vote any number of choices.

" if(RANKED_CHOICE_VOTING) . += "

Vote by order of preference. Revoting will demote to the bottom. 1 is your favorite, and higher numbers are worse.

" if(SCORE_VOTING) . += "

Grade the candidates by how much you like them.

" . += "

No-votes have no power--your opinion is only heard if you vote!

" . += "Time Left: [DisplayTimeText(end_time-world.time)]
" if(RANKED_CHOICE_VOTING) var/list/myvote = voted[C.ckey] for(var/i=1,i<=choices.len,i++) var/vote = (islist(myvote) ? (myvote.Find(i)) : 0) if(vote) . += "
  • [choices[i]] ([vote])
    • " else . += "
  • [choices[i]]
    • " if(choice_descs.len >= i) . += "
  • [choice_descs[i]]
    • " . += "
    " if(!(C.ckey in saved)) . += "(Save vote)" else . += "(Saved!)" . += "(Load vote from save)" . += "(Reset votes)" if(SCORE_VOTING) var/list/myvote = voted[C.ckey] for(var/i=1,i<=choices.len,i++) . += "
  • [choices[i]]" for(var/r in 1 to GLOB.vote_score_options.len) . += " " if((choices[i] in myvote) && myvote[choices[i]] == r) . +="([GLOB.vote_score_options[r]])" else . +="[GLOB.vote_score_options[r]]" . += "" . += "
    • " if(choice_descs.len >= i) . += "
  • [choice_descs[i]]
    • " . += "
    " if(!(C.ckey in saved)) . += "(Save vote)" else . += "(Saved!)" . += "(Load vote from save)" . += "(Reset votes)" if(admin) . += "(Cancel Vote) " else . += "

    Start a vote:

    " . += "Close" return . /datum/controller/subsystem/vote/Topic(href,href_list[],hsrc) if(!usr || !usr.client) return //not necessary but meh...just in-case somebody does something stupid switch(href_list["vote"]) if("close") voting -= usr.client usr << browse(null, "window=vote") return if("cancel") if(usr.client.holder) reset() if("toggle_restart") if(usr.client.holder) CONFIG_SET(flag/allow_vote_restart, !CONFIG_GET(flag/allow_vote_restart)) if("toggle_gamemode") if(usr.client.holder) CONFIG_SET(flag/allow_vote_mode, !CONFIG_GET(flag/allow_vote_mode)) if("restart") if(CONFIG_GET(flag/allow_vote_restart) || usr.client.holder) initiate_vote("restart",usr.key) if("gamemode") if(CONFIG_GET(flag/allow_vote_mode) || usr.client.holder) initiate_vote("gamemode",usr.key) if("custom") if(usr.client.holder) initiate_vote("custom",usr.key) if("reset") if(usr.ckey in voted) voted -= usr.ckey if("save") if(usr.ckey in voted) if(!(usr.ckey in SSpersistence.saved_votes)) SSpersistence.saved_votes[usr.ckey] = list() if(islist(voted[usr.ckey])) SSpersistence.saved_votes[usr.ckey][mode] = voted[usr.ckey] saved += usr.ckey else voted[usr.ckey] = list() to_chat(usr,"Your vote was malformed! Start over!") if("load") if(!(usr.ckey in SSpersistence.saved_votes)) SSpersistence.LoadSavedVote(usr.ckey) if(!(usr.ckey in SSpersistence.saved_votes)) SSpersistence.saved_votes[usr.ckey] = list() if(usr.ckey in voted) SSpersistence.saved_votes[usr.ckey][mode] = voted[usr.ckey] else SSpersistence.saved_votes[usr.ckey][mode] = list() voted[usr.ckey] = SSpersistence.saved_votes[usr.ckey][mode] if(islist(voted[usr.ckey])) saved += usr.ckey else to_chat(usr,"Your saved vote was malformed! Start over!") else if(vote_system == SCORE_VOTING) submit_vote(round(text2num(href_list["vote"])),round(text2num(href_list["score"]))) else submit_vote(round(text2num(href_list["vote"]))) usr.vote() /datum/controller/subsystem/vote/proc/remove_action_buttons() for(var/v in generated_actions) var/datum/action/vote/V = v if(!QDELETED(V)) V.remove_from_client() V.Remove(V.owner) generated_actions = list() /mob/verb/vote() set category = "OOC" set name = "Vote" var/datum/browser/popup = new(src, "vote", "Voting Panel",nwidth=600,nheight=700) popup.set_window_options("can_close=0") popup.set_content(SSvote.interface(client)) popup.open(0) /datum/action/vote name = "Vote!" button_icon_state = "vote" /datum/action/vote/Trigger() if(owner) owner.vote() remove_from_client() Remove(owner) /datum/action/vote/IsAvailable() return 1 /datum/action/vote/proc/remove_from_client() if(!owner) return if(owner.client) owner.client.player_details.player_actions -= src else if(owner.ckey) var/datum/player_details/P = GLOB.player_details[owner.ckey] if(P) P.player_actions -= src