datum/preferences var/real_name var/gender = MALE var/age = 30.0 var/b_type = "A+" var/be_syndicate var/be_random_name = 0 var/underwear = 1 var/occupation1 = "No Preference" var/occupation2 = "No Preference" var/occupation3 = "No Preference" var/h_style = "Short Hair" var/f_style = "Shaved" var/r_hair = 0.0 var/g_hair = 0.0 var/b_hair = 0.0 var/r_facial = 0.0 var/g_facial = 0.0 var/b_facial = 0.0 var/s_tone = 0.0 var/r_eyes = 0.0 var/g_eyes = 0.0 var/b_eyes = 0.0 var/icon/preview_icon = null New() randomize_name() ..() proc/randomize_name() if (gender == MALE) real_name = capitalize(pick(first_names_male) + " " + capitalize(pick(last_names))) else real_name = capitalize(pick(first_names_female) + " " + capitalize(pick(last_names))) proc/update_preview_icon() del(src.preview_icon) var/g = "m" if (src.gender == MALE) g = "m" else if (src.gender == FEMALE) g = "f" src.preview_icon = new /icon('human.dmi', "body_[g]_s") // Skin tone if (src.s_tone >= 0) src.preview_icon.Blend(rgb(src.s_tone, src.s_tone, src.s_tone), ICON_ADD) else src.preview_icon.Blend(rgb(-src.s_tone, -src.s_tone, -src.s_tone), ICON_SUBTRACT) if (src.underwear > 0) src.preview_icon.Blend(new /icon('human.dmi', "underwear[src.underwear]_[g]_s"), ICON_OVERLAY) var/icon/eyes_s = new/icon("icon" = 'human_face.dmi', "icon_state" = "eyes_s") eyes_s.Blend(rgb(src.r_eyes, src.g_eyes, src.b_eyes), ICON_ADD) var/h_style_r = null switch(h_style) if("Short Hair") h_style_r = "hair_a" if("Long Hair") h_style_r = "hair_b" if("Cut Hair") h_style_r = "hair_c" if("Mohawk") h_style_r = "hair_d" if("Balding") h_style_r = "hair_e" if("Fag") h_style_r = "hair_f" if("Bedhead") h_style_r = "hair_bedhead" if("Dreadlocks") h_style_r = "hair_dreads" else h_style_r = "bald" var/f_style_r = null switch(f_style) if ("Watson") f_style_r = "facial_watson" if ("Chaplin") f_style_r = "facial_chaplin" if ("Selleck") f_style_r = "facial_selleck" if ("Neckbeard") f_style_r = "facial_neckbeard" if ("Full Beard") f_style_r = "facial_fullbeard" if ("Long Beard") f_style_r = "facial_longbeard" if ("Van Dyke") f_style_r = "facial_vandyke" if ("Elvis") f_style_r = "facial_elvis" if ("Abe") f_style_r = "facial_abe" if ("Chinstrap") f_style_r = "facial_chin" if ("Hipster") f_style_r = "facial_hip" if ("Goatee") f_style_r = "facial_gt" if ("Hogan") f_style_r = "facial_hogan" else f_style_r = "bald" var/icon/hair_s = new/icon("icon" = 'human_face.dmi', "icon_state" = "[h_style_r]_s") hair_s.Blend(rgb(src.r_hair, src.g_hair, src.b_hair), ICON_ADD) var/icon/facial_s = new/icon("icon" = 'human_face.dmi', "icon_state" = "[f_style_r]_s") facial_s.Blend(rgb(src.r_facial, src.g_facial, src.b_facial), ICON_ADD) var/icon/mouth_s = new/icon("icon" = 'human_face.dmi', "icon_state" = "mouth_[g]_s") eyes_s.Blend(hair_s, ICON_OVERLAY) eyes_s.Blend(mouth_s, ICON_OVERLAY) eyes_s.Blend(facial_s, ICON_OVERLAY) src.preview_icon.Blend(eyes_s, ICON_OVERLAY) del(mouth_s) del(facial_s) del(hair_s) del(eyes_s) proc/ShowChoices(mob/user) update_preview_icon() user << browse_rsc(preview_icon, "previewicon.png") var/list/destructive = assistant_occupations.Copy() var/dat = "" dat += "Name: " dat += "[src.real_name] " dat += "(®) " dat += "(® = [src.be_random_name ? "Yes" : "No"])" dat += "
" dat += "Gender: [src.gender == MALE ? "Male" : "Female"]
" dat += "Age: [src.age]" dat += "
Occupation Choices
" if (destructive.Find(src.occupation1)) dat += "\t[occupation1]
" else if (jobban_isbanned(user, src.occupation1)) src.occupation1 = "Assistant" if (jobban_isbanned(user, src.occupation2)) src.occupation2 = "Assistant" if (jobban_isbanned(user, src.occupation3)) src.occupation3 = "Assistant" if (src.occupation1 != "No Preference") dat += "\tFirst Choice: [occupation1]
" if (destructive.Find(src.occupation2)) dat += "\tSecond Choice: [occupation2]
" else if (src.occupation2 != "No Preference") dat += "\tSecond Choice: [occupation2]
" dat += "\tLast Choice: [occupation3]
" else dat += "\tSecond Choice: No Preference
" else dat += "\tNo Preference
" dat += "
Body
" dat += "Blood Type: [src.b_type]
" dat += "Skin Tone: [-src.s_tone + 35]/220
" if (!IsGuestKey(user.key)) dat += "Underwear: [src.underwear == 1 ? "Yes" : "No"]
" dat += "		Preview
" dat += "
Hair
" dat += "Change Color
IM
" /* dat += " Red - [src.r_hair]" dat += " Green - [src.g_hair]" dat += " Blue - [src.b_hair]
" */ dat += "Style: [src.h_style]" dat += "
Facial
" dat += "Change Color
GO
" /* dat += " Red - [src.r_facial]" dat += " Green - [src.g_facial]" dat += " Blue - [src.b_facial]
" */ dat += "Style: [src.f_style]" dat += "
Eyes
" dat += "Change Color
KU
" /* dat += " Red - [src.r_eyes]" dat += " Green - [src.g_eyes]" dat += " Blue - [src.b_eyes]" */ dat += "
" if(!jobban_isbanned(user, "Syndicate")) dat += "Be syndicate?: [(src.be_syndicate ? "Yes" : "No")]
" else dat += " You are banned from being syndicate." src.be_syndicate = 0 dat += "
" if (!IsGuestKey(user.key)) dat += "Load Setup
" dat += "Save Setup
" dat += "Reset Setup
" dat += "" user << browse(dat, "window=preferences;size=300x640") proc/SetChoices(mob/user, occ=1) var/HTML = "" HTML += "
" switch(occ) if(1.0) HTML += "Which occupation would you like most?

" if(2.0) HTML += "Which occupation would you like if you couldn't have your first?

" if(3.0) HTML += "Which occupation would you like if you couldn't have the others?

" else for(var/job in uniquelist(occupations + assistant_occupations) ) if ((job!="AI" || config.allow_ai) && !jobban_isbanned(user, job)) HTML += "[job]
" if(!jobban_isbanned(user, "Captain")) HTML += "Captain
" HTML += "
" HTML += "\[No Preference\]
" HTML += "\[Cancel\]" HTML += "
" user << browse(null, "window=preferences") user << browse(HTML, "window=mob_occupation;size=320x500") return proc/SetJob(mob/user, occ=1, job="Captain") if ((!( occupations.Find(job) ) && !( assistant_occupations.Find(job) ) && job != "Captain")) return if (job=="AI" && (!config.allow_ai)) return if (jobban_isbanned(user, job)) return switch(occ) if(1.0) if (job == occupation1) user << browse(null, "window=mob_occupation") return else if (job == "No Preference") src.occupation1 = "No Preference" else if (job == src.occupation2) job = src.occupation1 src.occupation1 = src.occupation2 src.occupation2 = job else if (job == src.occupation3) job = src.occupation1 src.occupation1 = src.occupation3 src.occupation3 = job else src.occupation1 = job if(2.0) if (job == src.occupation2) user << browse(null, "window=mob_occupation") return else if (job == "No Preference") if (src.occupation3 != "No Preference") src.occupation2 = src.occupation3 src.occupation3 = "No Preference" else src.occupation2 = "No Preference" else if (job == src.occupation1) if (src.occupation2 == "No Preference") user << browse(null, "window=mob_occupation") return job = src.occupation2 src.occupation2 = src.occupation1 src.occupation1 = job else if (job == src.occupation3) job = src.occupation2 src.occupation2 = src.occupation3 src.occupation3 = job else src.occupation2 = job if(3.0) if (job == src.occupation3) user << browse(null, "window=mob_occupation") return else if (job == "No Preference") src.occupation3 = "No Preference" else if (job == src.occupation1) if (src.occupation3 == "No Preference") user << browse(null, "window=mob_occupation") return job = src.occupation3 src.occupation3 = src.occupation1 src.occupation1 = job else if (job == src.occupation2) if (src.occupation3 == "No Preference") user << browse(null, "window=mob_occupation") return job = src.occupation3 src.occupation3 = src.occupation2 src.occupation2 = job else src.occupation3 = job user << browse(null, "window=mob_occupation") ShowChoices(user) return 1 proc/process_link(mob/user, list/link_tags) if (link_tags["occ"]) if (link_tags["cancel"]) user << browse(null, "window=\ref[user]occupation") return else if(link_tags["job"]) src.SetJob(user, text2num(link_tags["occ"]), link_tags["job"]) else src.SetChoices(user, text2num(link_tags["occ"])) return 1 if (link_tags["real_name"]) var/new_name switch(link_tags["real_name"]) if("input") new_name = input(user, "Please select a name:", "Character Generation") as text var/list/bad_characters = list("_", "'", "\"", "<", ">", ";", "[", "]", "{", "}", "|", "\\") for(var/c in bad_characters) new_name = dd_replacetext(new_name, c, "") if(!new_name || (new_name == "Unknown")) alert("Don't do this") return if("random") if (src.gender == MALE) new_name = capitalize(pick(first_names_male) + " " + capitalize(pick(last_names))) else new_name = capitalize(pick(first_names_female) + " " + capitalize(pick(last_names))) if(new_name) if(length(new_name) >= 26) new_name = copytext(new_name, 1, 26) src.real_name = new_name if (link_tags["age"]) var/new_age = input(user, "Please select type in age: 20-45", "Character Generation") as num if(new_age) src.age = max(min(round(text2num(new_age)), 45), 20) if (link_tags["b_type"]) var/new_b_type = input(user, "Please select a blood type:", "Character Generation") as null|anything in list( "A+", "A-", "B+", "B-", "AB+", "AB-", "O+", "O-" ) if (new_b_type) src.b_type = new_b_type if (link_tags["hair"]) var/new_hair = input(user, "Please select hair color.", "Character Generation") as color if(new_hair) src.r_hair = hex2num(copytext(new_hair, 2, 4)) src.g_hair = hex2num(copytext(new_hair, 4, 6)) src.b_hair = hex2num(copytext(new_hair, 6, 8)) /* if (link_tags["r_hair"]) var/new_component = input(user, "Please select red hair component: 1-255", "Character Generation") as text if (new_component) src.r_hair = max(min(round(text2num(new_component)), 255), 1) if (link_tags["g_hair"]) var/new_component = input(user, "Please select green hair component: 1-255", "Character Generation") as text if (new_component) src.g_hair = max(min(round(text2num(new_component)), 255), 1) if (link_tags["b_hair"]) var/new_component = input(user, "Please select blue hair component: 1-255", "Character Generation") as text if (new_component) src.b_hair = max(min(round(text2num(new_component)), 255), 1) */ if (link_tags["facial"]) var/new_facial = input(user, "Please select facial hair color.", "Character Generation") as color if(new_facial) src.r_facial = hex2num(copytext(new_facial, 2, 4)) src.g_facial = hex2num(copytext(new_facial, 4, 6)) src.b_facial = hex2num(copytext(new_facial, 6, 8)) /* if (link_tags["r_facial"]) var/new_component = input(user, "Please select red facial component: 1-255", "Character Generation") as text if (new_component) src.r_facial = max(min(round(text2num(new_component)), 255), 1) if (link_tags["g_facial"]) var/new_component = input(user, "Please select green facial component: 1-255", "Character Generation") as text if (new_component) src.g_facial = max(min(round(text2num(new_component)), 255), 1) if (link_tags["b_facial"]) var/new_component = input(user, "Please select blue facial component: 1-255", "Character Generation") as text if (new_component) src.b_facial = max(min(round(text2num(new_component)), 255), 1) */ if (link_tags["eyes"]) var/new_eyes = input(user, "Please select eye color.", "Character Generation") as color if(new_eyes) src.r_eyes = hex2num(copytext(new_eyes, 2, 4)) src.g_eyes = hex2num(copytext(new_eyes, 4, 6)) src.b_eyes = hex2num(copytext(new_eyes, 6, 8)) /* if (link_tags["r_eyes"]) var/new_component = input(user, "Please select red eyes component: 1-255", "Character Generation") as text if (new_component) src.r_eyes = max(min(round(text2num(new_component)), 255), 1) if (link_tags["g_eyes"]) var/new_component = input(user, "Please select green eyes component: 1-255", "Character Generation") as text if (new_component) src.g_eyes = max(min(round(text2num(new_component)), 255), 1) if (link_tags["b_eyes"]) var/new_component = input(user, "Please select blue eyes component: 1-255", "Character Generation") as text if (new_component) src.b_eyes = max(min(round(text2num(new_component)), 255), 1) */ if (link_tags["s_tone"]) var/new_tone = input(user, "Please select skin tone level: 1-220 (1=albino, 35=caucasian, 150=black, 220='very' black)", "Character Generation") as text if (new_tone) src.s_tone = max(min(round(text2num(new_tone)), 220), 1) src.s_tone = -src.s_tone + 35 if (link_tags["h_style"]) var/new_style = input(user, "Please select hair style", "Character Generation") as null|anything in list( "Cut Hair", "Short Hair", "Long Hair", "Mohawk", "Balding", "Fag", "Bedhead", "Dreadlocks", "Bald" ) if (new_style) src.h_style = new_style if (link_tags["f_style"]) var/new_style = input(user, "Please select facial style", "Character Generation") as null|anything in list("Watson", "Chaplin", "Selleck", "Full Beard", "Long Beard", "Neckbeard", "Van Dyke", "Elvis", "Abe", "Chinstrap", "Hipster", "Goatee", "Hogan", "Shaved") if (new_style) src.f_style = new_style if (link_tags["gender"]) if (src.gender == MALE) src.gender = FEMALE else src.gender = MALE if (link_tags["underwear"]) if(!IsGuestKey(user.key)) if (src.underwear == 1) src.underwear = 0 else src.underwear = 1 if (link_tags["b_syndicate"]) src.be_syndicate = !( src.be_syndicate ) if (link_tags["b_random_name"]) src.be_random_name = !src.be_random_name if(!IsGuestKey(user.key)) if(link_tags["save"]) src.savefile_save(user) else if(link_tags["load"]) if (!src.savefile_load(user, 0)) alert(user, "You do not have a savefile.") if (link_tags["reset_all"]) gender = MALE randomize_name() age = 30 occupation1 = "No Preference" occupation2 = "No Preference" occupation3 = "No Preference" underwear = 1 be_syndicate = 0 be_random_name = 0 r_hair = 0.0 g_hair = 0.0 b_hair = 0.0 r_facial = 0.0 g_facial = 0.0 b_facial = 0.0 h_style = "Short Hair" f_style = "Shaved" r_eyes = 0.0 g_eyes = 0.0 b_eyes = 0.0 s_tone = 0.0 b_type = "A+" src.ShowChoices(user) proc/copy_to(mob/living/carbon/human/character) if(be_random_name) randomize_name() character.real_name = real_name character.gender = gender character.age = age character.b_type = b_type character.r_eyes = r_eyes character.g_eyes = g_eyes character.b_eyes = b_eyes character.r_hair = r_hair character.g_hair = g_hair character.b_hair = b_hair character.r_facial = r_facial character.g_facial = g_facial character.b_facial = b_facial character.s_tone = s_tone character.h_style = h_style character.f_style = f_style switch(h_style) if("Short Hair") character.hair_icon_state = "hair_a" if("Long Hair") character.hair_icon_state = "hair_b" if("Cut Hair") character.hair_icon_state = "hair_c" if("Mohawk") character.hair_icon_state = "hair_d" if("Balding") character.hair_icon_state = "hair_e" if("Fag") character.hair_icon_state = "hair_f" if("Bedhead") character.hair_icon_state = "hair_bedhead" if("Dreadlocks") character.hair_icon_state = "hair_dreads" else character.hair_icon_state = "bald" switch(f_style) if ("Watson") character.face_icon_state = "facial_watson" if ("Chaplin") character.face_icon_state = "facial_chaplin" if ("Selleck") character.face_icon_state = "facial_selleck" if ("Neckbeard") character.face_icon_state = "facial_neckbeard" if ("Full Beard") character.face_icon_state = "facial_fullbeard" if ("Long Beard") character.face_icon_state = "facial_longbeard" if ("Van Dyke") character.face_icon_state = "facial_vandyke" if ("Elvis") character.face_icon_state = "facial_elvis" if ("Abe") character.face_icon_state = "facial_abe" if ("Chinstrap") character.face_icon_state = "facial_chin" if ("Hipster") character.face_icon_state = "facial_hip" if ("Goatee") character.face_icon_state = "facial_gt" if ("Hogan") character.face_icon_state = "facial_hogan" else character.face_icon_state = "bald" if (underwear == 1) character.underwear = pick(1,2,3,4,5) else character.underwear = 0 character.update_face() character.update_body() /* if (!M.real_name || M.be_random_name) if (M.gender == "male") M.real_name = capitalize(pick(first_names_male) + " " + capitalize(pick(last_names))) else M.real_name = capitalize(pick(first_names_female) + " " + capitalize(pick(last_names))) for(var/mob/living/carbon/human/H in world) if(cmptext(H.real_name,M.real_name)) usr << "You are using a name that is very similar to a currently used name, please choose another one using Character Setup." return if(cmptext("Unknown",M.real_name)) usr << "This name is reserved for use by the game, please choose another one using Character Setup." return */