Your powers weaken, have more contracts be signed to regain power."
+ D.oldform.loc = D.loc
+ owner.transfer_to(D.oldform)
+ give_lizard_spells()
+ qdel(D)
+ form = BLOOD_LIZARD
+
+
+/datum/devilinfo/proc/increase_blood_lizard()
+ owner.current << "You feel as though your humanoid form is about to shed. You will soon turn into a blood lizard."
+ sleep(50)
+ if(istype(owner.current, /mob/living/carbon/human))
+ var/mob/living/carbon/human/H = owner.current
+ H.set_species(/datum/species/lizard, 1)
+ H.underwear = "Nude"
+ H.undershirt = "Nude"
+ H.socks = "Nude"
+ H.dna.features["mcolor"] = "511" //A deep red
+ H.regenerate_icons()
+ else //Did the devil get hit by a staff of transmutation?
+ owner.current.color = "#501010"
+ give_lizard_spells()
+ form = BLOOD_LIZARD
+
+
+
+/datum/devilinfo/proc/increase_true_devil()
+ owner.current << "You feel as though your current form is about to shed. You will soon turn into a true devil."
+ sleep(50)
+ var/mob/living/carbon/true_devil/A = new /mob/living/carbon/true_devil(owner.current.loc)
+ A.faction |= "hell"
+ owner.current.loc = A
+ A.oldform = owner.current
+ owner.transfer_to(A)
+ A.set_name()
+ give_true_spells()
+ form = TRUE_DEVIL
+
+
+/datum/devilinfo/proc/increase_arch_devil()
+ var/mob/living/carbon/true_devil/D = owner.current
+ D << "You feel as though your form is about to ascend."
+ sleep(50)
+ if(!D)
+ return
+ D.visible_message("[D]'s skin begins to erupt with spikes.", \
+ "Your flesh begins creating a shield around yourself.")
+ sleep(100)
+ if(!D)
+ return
+ D.visible_message("The horns on [D]'s head slowly grow and elongate.", \
+ "Your body continues to mutate. Your telepathic abilities grow.")
+ sleep(90)
+ if(!D)
+ return
+ D.visible_message("[D]'s body begins to violently stretch and contort.", \
+ "You begin to rend apart the final barriers to ultimate power.")
+ sleep(40)
+ if(!D)
+ return
+ D << "Yes!"
+ sleep(10)
+ if(!D)
+ return
+ D << "YES!!"
+ sleep(10)
+ if(!D)
+ return
+ D << "YE--"
+ sleep(1)
+ if(!D)
+ return
+ world << "\"SLOTH, WRATH, GLUTTONY, ACEDIA, ENVY, GREED, PRIDE! FIRES OF HELL AWAKEN!!\""
+ world << 'sound/hallucinations/veryfar_noise.ogg'
+ give_arch_spells()
+ D.convert_to_archdevil()
+ var/area/A = get_area(owner.current)
+ if(A)
+ notify_ghosts("An arch devil has ascended in \the [A.name]. Reach out to the devil to be given a new shell for your soul.", source = owner.current, attack_not_jump = 1)
+ sleep(50)
+ if(!ticker.mode.devil_ascended)
+ SSshuttle.emergency.request(null, 0.3)
+ ticker.mode.devil_ascended++
+ form = ARCH_DEVIL
+
+/datum/devilinfo/proc/remove_spells()
+ for(var/X in owner.spell_list)
+ var/obj/effect/proc_holder/spell/S = X
+ if(!istype(S, /obj/effect/proc_holder/spell/targeted/summon_contract))
+ owner.RemoveSpell(S)
+
+/datum/devilinfo/proc/give_summon_contract()
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/summon_contract(null))
+
+
+/datum/devilinfo/proc/give_base_spells(give_summon_contract = 0)
+ remove_spells()
+ owner.AddSpell(new /obj/effect/proc_holder/spell/dumbfire/fireball/hellish(null))
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/summon_pitchfork(null))
+ if(give_summon_contract)
+ give_summon_contract()
+
+/datum/devilinfo/proc/give_lizard_spells()
+ remove_spells()
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/summon_pitchfork(null))
+ owner.AddSpell(new /obj/effect/proc_holder/spell/dumbfire/fireball/hellish(null))
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/infernal_jaunt(null))
+
+/datum/devilinfo/proc/give_true_spells()
+ remove_spells()
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/summon_pitchfork/greater(null))
+ owner.AddSpell(new /obj/effect/proc_holder/spell/dumbfire/fireball/hellish(null))
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/infernal_jaunt(null))
+ //owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/sintouch(null)) TODO LORDPIDEY add this spell
+
+/datum/devilinfo/proc/give_arch_spells()
+ remove_spells()
+ owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/summon_pitchfork/ascended(null))
+ //owner.AddSpell(new /obj/effect/proc_holder/spell/targeted/sintouch/ascended(null)) TODO LORDPIDEY
+
+/datum/devilinfo/proc/beginResurrectionCheck(mob/living/body)
+ if(SOULVALUE>0)
+ owner.current<< "Your body has been damaged to the point that you may no longer use it. At the cost of some of your power, you will return to life soon. Remain in your body."
+ sleep(DEVILRESURRECTTIME)
+ if (!body || body.stat == DEAD)
+ if(SOULVALUE>0)
+ if(check_banishment(body))
+ owner.current<< "Unfortunately, the mortals have finished a ritual that prevents your resurrection."
+ return -1
+ else
+ owner.current<< "WE LIVE AGAIN!"
+ return hellish_resurrection(body)
+ else
+ owner.current<< "Unfortunately, the power that stemmed from your contracts has been extinguished. You no longer have enough power to resurrect."
+ return -1
+ else
+ owner.current << " You seem to have resurrected without your hellish powers."
+ else
+ owner.current << "Your hellish powers are too weak to resurrect yourself."
+
+/datum/devilinfo/proc/check_banishment(mob/living/body)
+ switch(banish)
+ if(BANISH_WATER)
+ if(istype(body, /mob/living/carbon))
+ var/mob/living/carbon/H = body
+ return H.reagents.has_reagent("holy water")
+ return 0
+ if(BANISH_COFFIN)
+ return (body && istype(body.loc, /obj/structure/closet/coffin))
+ if(BANISH_FORMALDYHIDE)
+ if(istype(body, /mob/living/carbon))
+ var/mob/living/carbon/H = body
+ return H.reagents.has_reagent("formaldehyde")
+ return 0
+ if(BANISH_RUNES)
+ if(body)
+ for(var/obj/effect/decal/cleanable/crayon/R in range(0,body))
+ if (R.name == "rune")
+ return 1
+ return 0
+ if(BANISH_CANDLES)
+ if(body)
+ var/count = 0
+ for(var/obj/item/candle/C in range(1,body))
+ count += C.lit
+ if(count>=4)
+ return 1
+ return 0
+ if(BANISH_DESTRUCTION)
+ if(body)
+ return 0
+ return 1
+ if(BANISH_FUNERAL_GARB)
+ if(istype(body, /mob/living/carbon/human))
+ var/mob/living/carbon/human/H = body
+ if(H.w_uniform && istype(H.w_uniform, /obj/item/clothing/under/burial))
+ return 1
+ return 0
+
+/datum/devilinfo/proc/hellish_resurrection(mob/living/body)
+ message_admins("[owner.name] (true name is: [truename]) is resurrecting using hellish energy.")
+ if(SOULVALUE < POWERUPTHRESHOLD * 3) // once ascended, arch devils do not go down in power by any means.
+ reviveNumber++
+ if(body)
+ body.revive(1,0)
+ body.forceMove(get_turf(body))//Fixes dying while jaunted leaving you permajaunted.
+ if(istype(body, /mob/living/carbon/true_devil))
+ var/mob/living/carbon/true_devil/D = body
+ if(D.oldform)
+ D.oldform.revive(1,0) // Heal the old body too, so the devil doesn't resurrect, then immediately regress into a dead body.
+ else
+ if(blobstart.len > 0)
+ var/turf/targetturf = get_turf(pick(blobstart))
+ var/mob/currentMob = owner.current
+ if(!currentMob)
+ currentMob = owner.get_ghost()
+ if(!currentMob)
+ message_admins("[owner.name]'s devil resurrection failed due to client logoff. Aborting.")
+ return -1 //
+ if(currentMob.mind != owner)
+ message_admins("[owner.name]'s devil resurrection failed due to becoming a new mob. Aborting.")
+ return -1
+ currentMob.change_mob_type( /mob/living/carbon/human , targetturf, null, 1)
+ var/mob/living/carbon/human/H = owner.current
+ give_summon_contract()
+ if(SOULVALUE >= POWERUPTHRESHOLD)
+ H.set_species(/datum/species/lizard, 1)
+ H.underwear = "Nude"
+ H.undershirt = "Nude"
+ H.socks = "Nude"
+ H.dna.features["mcolor"] = "511"
+ H.regenerate_icons()
+ if(SOULVALUE >= POWERUPTHRESHOLD * 2) //Yes, BOTH this and the above if statement are to run if soulpower is high enough.
+ var/mob/living/carbon/true_devil/A = new /mob/living/carbon/true_devil(targetturf)
+ A.faction |= "hell"
+ H.forceMove(A)
+ A.oldform = H
+ A.set_name()
+ owner.transfer_to(A)
+ if(SOULVALUE >= POWERUPTHRESHOLD * 3)
+ A.convert_to_archdevil()
+
+ else
+ throw EXCEPTION("Unable to find a blobstart landmark for hellish resurrection")
+ check_regression()
\ No newline at end of file
diff --git a/code/game/gamemodes/demon/imp/imp.dm b/code/game/gamemodes/demon/imp/imp.dm
new file mode 100644
index 00000000000..76696ced406
--- /dev/null
+++ b/code/game/gamemodes/demon/imp/imp.dm
@@ -0,0 +1,56 @@
+//////////////////The Monster
+
+/mob/living/simple_animal/imp
+ name = "imp"
+ real_name = "imp"
+ desc = "A large, menacing creature covered in armored black scales."
+ speak_emote = list("cackles")
+ emote_hear = list("cackles","screeches")
+ response_help = "thinks better of touching"
+ response_disarm = "flails at"
+ response_harm = "punches"
+ icon = 'icons/mob/mob.dmi'
+ icon_state = "imp"
+ icon_living = "imp"
+ speed = 1
+ a_intent = "harm"
+ stop_automated_movement = 1
+ status_flags = CANPUSH
+ attack_sound = 'sound/magic/demon_attack1.ogg'
+ atmos_requirements = list("min_oxy" = 0, "max_oxy" = 0, "min_tox" = 0, "max_tox" = 0, "min_co2" = 0, "max_co2" = 0, "min_n2" = 0, "max_n2" = 0)
+ minbodytemp = 250 //Weak to cold
+ maxbodytemp = INFINITY
+ faction = list("hell")
+ attacktext = "wildly tears into"
+ maxHealth = 200
+ health = 200
+ healable = 0
+ environment_smash = 1
+ melee_damage_lower = 10
+ melee_damage_upper = 15
+ see_in_dark = 8
+ var/boost = 0
+ bloodcrawl = BLOODCRAWL_EAT
+ see_invisible = SEE_INVISIBLE_MINIMUM
+ var/list/consumed_mobs = list()
+ var/playstyle_string = "You are an imp, a mischevious creature from hell. You are the lowest rank on the hellish totem pole \
+ Though you are not obligated to help, perhaps by aiding a higher ranking devil, you might just get a promotion. However, you are incapable \
+ of intentionally harming a fellow devil."
+
+/mob/living/simple_animal/imp/New()
+ ..()
+ boost = world.time + 30
+
+/mob/living/simple_animal/imp/Life()
+ ..()
+ if(boost[src] screams in agony as it sublimates into a sulfurous smoke.")
+ ghostize()
+ qdel(src)
diff --git a/code/game/gamemodes/demon/objectives.dm b/code/game/gamemodes/demon/objectives.dm
new file mode 100644
index 00000000000..bdcac75b8e2
--- /dev/null
+++ b/code/game/gamemodes/demon/objectives.dm
@@ -0,0 +1,62 @@
+/datum/objective/devil
+ dangerrating = 5
+
+/datum/objective/devil/soulquantity
+ explanation_text = "You shouldn't see this text. Error:DEVIL1"
+ var/quantity = 4
+
+/datum/objective/devil/soulquantity/New()
+ quantity = pick(4,5)
+ explanation_text = "Purchase, and retain control over at least [quantity] souls."
+
+/datum/objective/devil/soulquantity/check_completion()
+ var/count = 0
+ for(var/S in owner.devilinfo.soulsOwned)
+ var/datum/mind/L = S
+ if(L.soulOwner != L)
+ count++
+ return count >= quantity
+
+/datum/objective/devil/soulquality
+ explanation_text = "You shouldn't see this text. Error:DEVIL2"
+ var/contractType
+ var/quantity
+
+/datum/objective/devil/soulquality/New()
+ contractType = pick(CONTRACT_POWER, CONTRACT_WEALTH, CONTRACT_PRESTIGE, CONTRACT_MAGIC, CONTRACT_REVIVE, CONTRACT_KNOWLEDGE/*, CONTRACT_UNWILLING*/)
+ var/contractName
+ quantity = pick(1,2)
+ switch(contractType)
+ if(CONTRACT_POWER)
+ contractName = "for power"
+ if(CONTRACT_WEALTH)
+ contractName = "for wealth"
+ if(CONTRACT_PRESTIGE)
+ contractName = "for prestige"
+ if(CONTRACT_MAGIC)
+ contractName = "for magic"
+ if(CONTRACT_REVIVE)
+ contractName = "of revival"
+ if(CONTRACT_KNOWLEDGE)
+ contractName = "for knowledge"
+ //if(CONTRACT_UNWILLING) //Makes round unfun.
+ // contractName = "against their will"
+ explanation_text = "Have mortals sign at least [quantity] contracts [contractName]"
+
+/datum/objective/devil/soulquality/check_completion()
+ var/count = 0
+ for(var/S in owner.devilinfo.soulsOwned)
+ var/datum/mind/L = S
+ if(L.soulOwner != L && L.damnation_type == contractType)
+ count++
+ return count>=quantity
+
+/datum/objective/devil/sintouch
+ var/quantity
+
+/datum/objective/devil/sintouch/New()
+ quantity = pick(4,5)
+ explanation_text = "Ensure at least [quantity] mortals are sintouched."
+
+/datum/objective/devil/sintouch/check_completion()
+ return quantity>=ticker.mode.sintouched.len
\ No newline at end of file
diff --git a/code/game/gamemodes/demon/true_demon/_true_demon.dm b/code/game/gamemodes/demon/true_demon/_true_demon.dm
new file mode 100644
index 00000000000..36d491df5f9
--- /dev/null
+++ b/code/game/gamemodes/demon/true_demon/_true_demon.dm
@@ -0,0 +1,195 @@
+#define DEVIL_HANDS_LAYER 1
+#define DEVIL_HEAD_LAYER 2
+#define DEVIL_TOTAL_LAYERS 2
+
+
+/mob/living/carbon/true_devil
+ name = "True Devil"
+ desc = "A pile of infernal energy, taking a vaguely humanoid form."
+ icon = 'icons/mob/32x64.dmi'
+ icon_state = "true_devil"
+ gender = NEUTER
+ health = 350
+ maxHealth = 350
+ ventcrawler = 0
+ density = 0
+ pass_flags = 0
+ var/ascended = 0
+ sight = (SEE_TURFS | SEE_OBJS)
+ status_flags = CANPUSH
+ languages = ALL //The devil speaks all languages meme
+ mob_size = MOB_SIZE_LARGE
+ var/mob/living/oldform
+ var/list/devil_overlays[DEVIL_TOTAL_LAYERS]
+
+/mob/living/carbon/true_devil/New()
+ internal_organs += new /obj/item/organ/brain/
+ internal_organs += new /obj/item/organ/tongue
+ for(var/X in internal_organs)
+ var/obj/item/organ/I = X
+ I.Insert(src)
+ ..()
+
+
+/mob/living/carbon/true_devil/proc/convert_to_archdevil()
+ maxHealth = 5000 // not an IMPOSSIBLE amount, but still near impossible.
+ ascended = 1
+ health = maxHealth
+ icon_state = "arch_devil"
+
+/mob/living/carbon/true_devil/proc/set_name()
+ name = mind.devilinfo.truename
+ real_name = name
+
+/mob/living/carbon/true_devil/Login()
+ ..()
+ mind.announceDevilLaws()
+
+
+/mob/living/carbon/true_devil/death(gibbed)
+ stat = DEAD
+ ..(gibbed)
+ drop_l_hand()
+ drop_r_hand()
+ spawn (0)
+ mind.devilinfo.beginResurrectionCheck(src)
+
+
+/mob/living/carbon/true_devil/examine(mob/user)
+ var/msg = "*---------*\nThis is \icon[src] [src]!\n"
+
+ //Left hand items
+ if(l_hand && !(l_hand.flags&ABSTRACT))
+ if(l_hand.blood_DNA)
+ msg += "It is holding \icon[l_hand] [l_hand.gender==PLURAL?"some":"a"] blood-stained [l_hand.name] in its left hand!\n"
+ else
+ msg += "It is holding \icon[l_hand] \a [l_hand] in its left hand.\n"
+
+ //Right hand items
+ if(r_hand && !(r_hand.flags&ABSTRACT))
+ if(r_hand.blood_DNA)
+ msg += "It is holding \icon[r_hand] [r_hand.gender==PLURAL?"some":"a"] blood-stained [r_hand.name] in its right hand!\n"
+ else
+ msg += "It is holding \icon[r_hand] \a [r_hand] in its right hand.\n"
+
+ //Braindead
+ if(!client && stat != DEAD)
+ msg += "The devil seems to be in deep contemplation.\n"
+
+ //Damaged
+ if(stat == DEAD)
+ msg += "The hellfire seems to have been extinguished, for now at least.\n"
+ else if(health < (maxHealth/10))
+ msg += "You can see hellfire inside of it's gaping wounds.\n"
+ else if(health < (maxHealth/2))
+ msg += "You can see hellfire inside of it's wounds.\n"
+ msg += "*---------*"
+ user << msg
+
+
+/mob/living/carbon/true_devil/IsAdvancedToolUser()
+ return 1
+
+
+/mob/living/carbon/true_devil/canUseTopic()
+ if(stat)
+ return
+ return 1
+
+
+/mob/living/carbon/true_devil/assess_threat()
+ return 666
+
+/mob/living/carbon/true_devil/flash_eyes(intensity = 1, override_blindness_check = 0, affect_silicon = 0)
+ if(mind && mind.devilinfo.bane == BANE_LIGHT)
+ if(has_bane(BANE_LIGHT))
+ mind.disrupt_spells(-500)
+ return ..() //flashes don't stop devils UNLESS it's their bane.
+
+
+/mob/living/carbon/true_devil/attacked_by(obj/item/I, mob/living/user, def_zone)
+ var/weakness = check_weakness(I, user)
+ apply_damage(I.force * weakness, I.damtype, def_zone)
+ var/message_verb = ""
+ if(I.attack_verb && I.attack_verb.len)
+ message_verb = "[pick(I.attack_verb)]"
+ else if(I.force)
+ message_verb = "attacked"
+
+ var/attack_message = "[src] has been [message_verb] with [I]."
+ if(user)
+ user.do_attack_animation(src)
+ if(user in viewers(src, null))
+ attack_message = "[user] has [message_verb] [src] with [I]!"
+ if(message_verb)
+ visible_message("[attack_message]",
+ "[attack_message]")
+
+/mob/living/carbon/true_devil/UnarmedAttack(atom/A, proximity)
+ A.attack_hand(src)
+
+/mob/living/carbon/true_devil/Process_Spacemove(movement_dir = 0)
+ return 1
+
+/mob/living/carbon/true_devil/ex_act(severity)
+ if(ascended)
+ return 0
+ return ..()
+
+/mob/living/carbon/true_devil/singularity_act()
+ if(ascended)
+ return 0
+ return ..()
+
+/mob/living/carbon/true_devil/attack_ghost(mob/dead/observer/user as mob)
+ if(ascended || user.mind.soulOwner == src.mind)
+ var/mob/living/simple_animal/imp/S = new(get_turf(loc))
+ S.key = user.key
+ S.mind.assigned_role = "Imp"
+ S.mind.special_role = "Imp"
+ var/datum/objective/newobjective = new
+ newobjective.explanation_text = "Try to get a promotion to a higher devilic rank."
+ S.mind.objectives += newobjective
+ S << S.playstyle_string
+ S << "Objective #[1]: [newobjective.explanation_text]"
+ return
+ else
+ return ..()
+
+/mob/living/carbon/true_devil/can_be_revived()
+ return 1
+
+/mob/living/carbon/true_devil/resist_fire()
+ //They're immune to fire.
+
+/mob/living/carbon/true_devil/attack_hand(mob/living/carbon/human/M)
+ if(..())
+ switch(M.a_intent)
+ if ("harm")
+ var/damage = rand(1, 5)
+ playsound(loc, "punch", 25, 1, -1)
+ visible_message("[M] has punched [src]!", \
+ "[M] has punched [src]!")
+ adjustBruteLoss(damage)
+ add_logs(M, src, "attacked")
+ updatehealth()
+ if ("disarm")
+ if (!lying && !ascended) //No stealing the arch devil's pitchfork.
+ if (prob(5))
+ Paralyse(2)
+ playsound(loc, 'sound/weapons/thudswoosh.ogg', 50, 1, -1)
+ add_logs(M, src, "pushed")
+ visible_message("[M] has pushed down [src]!", \
+ "[M] has pushed down [src]!")
+ else
+ if (prob(25))
+ drop_item()
+ playsound(loc, 'sound/weapons/thudswoosh.ogg', 50, 1, -1)
+ visible_message("[M] has disarmed [src]!", \
+ "[M] has disarmed [src]!")
+ else
+ playsound(loc, 'sound/weapons/punchmiss.ogg', 25, 1, -1)
+ visible_message("[M] has attempted to disarm [src]!")
+
+/mob/living/carbon/true_devil/handle_breathing()
+ // devils do not need to breathe
diff --git a/code/game/gamemodes/demon/true_demon/inventory.dm b/code/game/gamemodes/demon/true_demon/inventory.dm
new file mode 100644
index 00000000000..23035370135
--- /dev/null
+++ b/code/game/gamemodes/demon/true_demon/inventory.dm
@@ -0,0 +1,61 @@
+/mob/living/carbon/true_devil/unEquip(obj/item/I, force)
+ if(..(I,force))
+ update_inv_hands()
+ return 1
+ return 0
+
+/mob/living/carbon/true_devil/proc/update_inv_hands()
+ //TODO LORDPIDEY: Figure out how to make the hands line up properly. the l/r_hand_image should use the down sprite when facing down, left, or right, and the up sprite when facing up.
+ remove_overlay(DEVIL_HANDS_LAYER)
+ var/list/hands_overlays = list()
+
+ if(r_hand)
+
+ var/r_state = r_hand.item_state
+ if(!r_state)
+ r_state = r_hand.icon_state
+
+ var/image/r_hand_image = r_hand.build_worn_icon(state = r_state, default_layer = DEVIL_HANDS_LAYER, default_icon_file = r_hand.righthand_file, isinhands = TRUE)
+
+ hands_overlays += r_hand_image
+
+ if(client && hud_used && hud_used.hud_version != HUD_STYLE_NOHUD)
+ r_hand.layer = 20
+ r_hand.screen_loc = ui_rhand
+ client.screen |= r_hand
+
+ if(l_hand)
+
+ var/l_state = l_hand.item_state
+ if(!l_state)
+ l_state = l_hand.icon_state
+
+ var/image/l_hand_image = l_hand.build_worn_icon(state = l_state, default_layer = DEVIL_HANDS_LAYER, default_icon_file = l_hand.lefthand_file, isinhands = TRUE)
+
+ hands_overlays += l_hand_image
+
+ if(client && hud_used && hud_used.hud_version != HUD_STYLE_NOHUD)
+ l_hand.layer = 20
+ l_hand.screen_loc = ui_lhand
+ client.screen |= l_hand
+ if(hands_overlays.len)
+ devil_overlays[DEVIL_HANDS_LAYER] = hands_overlays
+ apply_overlay(DEVIL_HANDS_LAYER)
+
+/mob/living/carbon/true_devil/update_inv_l_hand()
+ update_inv_hands()
+
+
+/mob/living/carbon/true_devil/update_inv_r_hand()
+ update_inv_hands()
+
+/mob/living/carbon/true_devil/remove_overlay(cache_index)
+ if(devil_overlays[cache_index])
+ overlays -= devil_overlays[cache_index]
+ devil_overlays[cache_index] = null
+
+
+/mob/living/carbon/true_devil/apply_overlay(cache_index)
+ var/image/I = devil_overlays[cache_index]
+ if(I)
+ overlays += I
\ No newline at end of file
diff --git a/code/game/gamemodes/game_mode.dm b/code/game/gamemodes/game_mode.dm
index b4cd86efb66..ae28e671888 100644
--- a/code/game/gamemodes/game_mode.dm
+++ b/code/game/gamemodes/game_mode.dm
@@ -172,7 +172,8 @@
/datum/game_mode/proc/check_finished() //to be called by ticker
if(replacementmode && round_converted == 2)
return replacementmode.check_finished()
- if(SSshuttle.emergency.mode >= SHUTTLE_ENDGAME || station_was_nuked)
+ if((SSshuttle.emergency && SSshuttle.emergency.mode >= SHUTTLE_ENDGAME) \
+ || station_was_nuked)
return 1
if(!round_converted && (!config.continuous[config_tag] || (config.continuous[config_tag] && config.midround_antag[config_tag]))) //Non-continuous or continous with replacement antags
if(!continuous_sanity_checked) //make sure we have antags to be checking in the first place
diff --git a/code/game/gamemodes/malfunction/Malf_Modules.dm b/code/game/gamemodes/malfunction/Malf_Modules.dm
index 307b26857ae..2374d6382de 100644
--- a/code/game/gamemodes/malfunction/Malf_Modules.dm
+++ b/code/game/gamemodes/malfunction/Malf_Modules.dm
@@ -163,6 +163,7 @@
AL.close()
AL.bolt() //Bolt it!
AL.secondsElectrified = -1 //Shock it!
+ AL.shockedby += "\[[time_stamp()]\][src](ckey:[src.ckey])"
else if(!D.stat) //So that only powered doors are closed.
D.close() //Close ALL the doors!
diff --git a/code/game/gamemodes/miniantags/bot_swarm/swarmer.dm b/code/game/gamemodes/miniantags/bot_swarm/swarmer.dm
index 03d896d0e1d..b0509ca1b28 100644
--- a/code/game/gamemodes/miniantags/bot_swarm/swarmer.dm
+++ b/code/game/gamemodes/miniantags/bot_swarm/swarmer.dm
@@ -1,24 +1,45 @@
////Deactivated swarmer shell////
-/obj/item/unactivated_swarmer
+/obj/item/device/unactivated_swarmer
name = "unactivated swarmer"
desc = "A currently unactivated swarmer. Swarmers can self activate at any time, it would be wise to immediately dispose of this."
icon = 'icons/mob/swarmer.dmi'
icon_state = "swarmer_unactivated"
+ origin_tech = "bluespace=4;materials=4;programming=6"
+ materials = list(MAT_METAL=10000, MAT_GLASS=4000)
-/obj/item/unactivated_swarmer/New()
- notify_ghosts("An unactivated swarmer has been created in [get_area(src)]!", enter_link = "(Click to enter)", source = src, attack_not_jump = 1)
+
+/obj/item/device/unactivated_swarmer/New()
+ if(!crit_fail)
+ notify_ghosts("An unactivated swarmer has been created in [get_area(src)]!", enter_link = "(Click to enter)", source = src, attack_not_jump = 1)
..()
-/obj/item/unactivated_swarmer/Topic(href, href_list)
+/obj/item/device/unactivated_swarmer/Topic(href, href_list)
if(href_list["ghostjoin"])
var/mob/dead/observer/ghost = usr
if(istype(ghost))
attack_ghost(ghost)
-/obj/item/unactivated_swarmer/attack_ghost(mob/user)
+/obj/item/device/unactivated_swarmer/attackby(obj/item/weapon/W, mob/user, params)
+ ..()
+ if(istype(W, /obj/item/weapon/screwdriver) && !crit_fail)
+ user.visible_message("[usr.name] deactivates [src].",
+ "After some fiddling, you find a way to disable [src]'s power source.",
+ "You hear clicking.")
+ name = "deactivated swarmer"
+ desc = "A shell of swarmer that was completely powered down. It no longer can activate itself."
+ crit_fail = 1
+
+/obj/item/device/unactivated_swarmer/attack_ghost(mob/user)
+ if(crit_fail)
+ user << "This swarmer shell is completely depowered. You cannot activate it."
+ return
+
var/be_swarmer = alert("Become a swarmer? (Warning, You can no longer be cloned!)",,"Yes","No")
if(be_swarmer == "No")
return
+ if(crit_fail)
+ user << "Swarmer has been depowered."
+ return
if(qdeleted(src))
user << "Swarmer has been occupied by someone else."
return
@@ -26,6 +47,13 @@
S.key = user.key
qdel(src)
+
+/obj/item/device/unactivated_swarmer/deactivated
+ name = "deactivated swarmer"
+ desc = "A shell of swarmer that was completely powered down. It no longer can activate itself."
+ crit_fail = 1
+
+
////The Mob itself////
/mob/living/simple_animal/hostile/swarmer
@@ -494,7 +522,7 @@
src << "This is not a suitable location for replicating ourselves. We need more room."
return
if(do_mob(src, src, 100))
- if(Fabricate(/obj/item/unactivated_swarmer, 50))
+ if(Fabricate(/obj/item/device/unactivated_swarmer, 50))
playsound(loc,'sound/items/poster_being_created.ogg',50, 1, -1)
/mob/living/simple_animal/hostile/swarmer/proc/RepairSelf()
diff --git a/code/game/gamemodes/miniantags/bot_swarm/swarmer_event.dm b/code/game/gamemodes/miniantags/bot_swarm/swarmer_event.dm
index ce74d37a293..364a74aeb0c 100644
--- a/code/game/gamemodes/miniantags/bot_swarm/swarmer_event.dm
+++ b/code/game/gamemodes/miniantags/bot_swarm/swarmer_event.dm
@@ -15,7 +15,7 @@
return 0
if(!the_gateway)
return 0
- new /obj/item/unactivated_swarmer(get_turf(the_gateway))
+ new /obj/item/device/unactivated_swarmer(get_turf(the_gateway))
if(prob(25)) //25% chance to announce it to the crew
var/swarmer_report = "[command_name()] High-Priority Update"
swarmer_report += "
Our long-range sensors have detected an odd signal emanating from your station's gateway. We recommend immediate investigation of your gateway, as something may have come \
diff --git a/code/game/gamemodes/miniantags/morph/morph.dm b/code/game/gamemodes/miniantags/morph/morph.dm
index 5e3dc15f8d9..624660cdb8d 100644
--- a/code/game/gamemodes/miniantags/morph/morph.dm
+++ b/code/game/gamemodes/miniantags/morph/morph.dm
@@ -52,6 +52,20 @@
..()
return
+/mob/living/simple_animal/hostile/morph/med_hud_set_health()
+ if(morphed)
+ var/image/holder = hud_list[HEALTH_HUD]
+ holder.icon_state = null
+ return //we hide medical hud while morphed
+ ..()
+
+/mob/living/simple_animal/hostile/morph/med_hud_set_status()
+ if(morphed)
+ var/image/holder = hud_list[STATUS_HUD]
+ holder.icon_state = null
+ return //we hide medical hud while morphed
+ ..()
+
/mob/living/simple_animal/hostile/morph/proc/allowed(atom/movable/A) // make it into property/proc ? not sure if worth it
if(istype(A,/obj/screen))
return 0
@@ -96,6 +110,8 @@
speed = 0
morph_time = world.time + MORPH_COOLDOWN
+ med_hud_set_health()
+ med_hud_set_status() //we're an object honest
return
/mob/living/simple_animal/hostile/morph/proc/restore()
@@ -120,6 +136,8 @@
speed = initial(speed)
morph_time = world.time + MORPH_COOLDOWN
+ med_hud_set_health()
+ med_hud_set_status() //we are not an object
/mob/living/simple_animal/hostile/morph/death(gibbed)
if(morphed)
diff --git a/code/game/gamemodes/miniantags/revenant/revenant.dm b/code/game/gamemodes/miniantags/revenant/revenant.dm
index 5725354a7ea..7ca8a800923 100644
--- a/code/game/gamemodes/miniantags/revenant/revenant.dm
+++ b/code/game/gamemodes/miniantags/revenant/revenant.dm
@@ -43,6 +43,7 @@
pass_flags = PASSTABLE | PASSGRILLE | PASSMOB
speed = 1
unique_name = 1
+ hud_possible = list(ANTAG_HUD)
var/essence = 75 //The resource, and health, of revenants.
var/essence_regen_cap = 75 //The regeneration cap of essence (go figure); regenerates every Life() tick up to this amount.
@@ -133,6 +134,12 @@
essencecolor = "#1D2953" //oh jeez you're dying
hud_used.healths.maptext = "[essence]E
"
+/mob/living/simple_animal/revenant/med_hud_set_health()
+ return //we use no hud
+
+/mob/living/simple_animal/revenant/med_hud_set_status()
+ return //we use no hud
+
/mob/living/simple_animal/revenant/say(message)
if(!message)
return
diff --git a/code/game/gamemodes/miniantags/sintouched/objectives.dm b/code/game/gamemodes/miniantags/sintouched/objectives.dm
new file mode 100644
index 00000000000..86572782ca8
--- /dev/null
+++ b/code/game/gamemodes/miniantags/sintouched/objectives.dm
@@ -0,0 +1,35 @@
+/datum/objective/sintouched
+ dangerrating = 5
+ completed = 1
+
+/* NO ERP OBJECTIVE FOR YOU.
+/datum/objective/sintouched/lust
+ dangerrating = 3 // it's not AS dangerous.
+
+/datum/objective/sintouched/lust/New()
+ var/mob/dead/D = pick(dead_mob_list)
+ if(prob(50) && D)
+ explanation_text = "You know that [D] has perished.... and you think [D] is kinda cute. Make sure everyone knows how HOT [D]'s lifeless body is."
+ else
+ explanation_text = "Go get married, then immediately cheat on your new spouse." */
+
+/datum/objective/sintouched/gluttony
+ explanation_text = "Everything is so delicious. Go eat everything."
+
+/datum/objective/sintouched/greed
+ explanation_text = "You want MORE, more money, more wealth, more riches. Go get it, but don't hurt people for it."
+
+/datum/objective/sintouched/sloth
+ explanation_text = "You just get tired randomly. Go take a nap at a time that would inconvenience other people."
+
+/datum/objective/sintouched/wrath
+ explanation_text = "What have your coworkers ever done for you? Don't offer to help them in any matter, and refuse if asked."
+
+/datum/objective/sintouched/envy
+ explanation_text = "Why should you be stuck with your rank? Show everyone you can do other jobs too, and don't let anyone stop you, least of all because you have no training"
+
+/datum/objective/sintouched/pride
+ explanation_text = "You are the BEST thing on the station. Make sure everyone knows it."
+
+/datum/objective/sintouched/acedia
+ explanation_text = "Angels, devils, good, evil... who cares? Just ignore any hellish threats and do your job."
\ No newline at end of file
diff --git a/code/game/gamemodes/shadowling/ascendant_shadowling.dm b/code/game/gamemodes/shadowling/ascendant_shadowling.dm
index 3195368f124..4f2725dce69 100644
--- a/code/game/gamemodes/shadowling/ascendant_shadowling.dm
+++ b/code/game/gamemodes/shadowling/ascendant_shadowling.dm
@@ -14,6 +14,7 @@
speed = 0
see_in_dark = 8
see_invisible = SEE_INVISIBLE_MINIMUM
+ hud_possible = list(ANTAG_HUD)
response_help = "pokes"
response_disarm = "flails at"
@@ -31,6 +32,12 @@
faction = list("faithless")
+/mob/living/simple_animal/ascendant_shadowling/med_hud_set_health()
+ return //we're invincible!
+
+/mob/living/simple_animal/ascendant_shadowling/med_hud_set_status()
+ return //we're invincible!
+
/mob/living/simple_animal/ascendant_shadowling/Process_Spacemove(movement_dir = 0)
return 1 //copypasta from carp code
diff --git a/code/game/machinery/Sleeper.dm b/code/game/machinery/Sleeper.dm
index 68cc017cfd3..253c17eeeb0 100644
--- a/code/game/machinery/Sleeper.dm
+++ b/code/game/machinery/Sleeper.dm
@@ -25,16 +25,20 @@
/obj/machinery/sleeper/New()
..()
- component_parts = list()
- component_parts += new /obj/item/weapon/stock_parts/matter_bin(null)
- component_parts += new /obj/item/weapon/stock_parts/manipulator(null)
- component_parts += new /obj/item/weapon/stock_parts/console_screen(null)
- component_parts += new /obj/item/weapon/stock_parts/console_screen(null)
- component_parts += new /obj/item/stack/cable_coil(null, 1)
- component_parts += new /obj/item/weapon/circuitboard/sleeper(null)
- RefreshParts()
+ var/obj/item/weapon/circuitboard/machine/B = new /obj/item/weapon/circuitboard/machine/sleeper(null)
+ B.apply_default_parts(src)
update_icon()
+/obj/item/weapon/circuitboard/machine/sleeper
+ name = "circuit board (Sleeper)"
+ build_path = /obj/machinery/sleeper
+ origin_tech = "programming=3;biotech=2;engineering=3;materials=3"
+ req_components = list(
+ /obj/item/weapon/stock_parts/matter_bin = 1,
+ /obj/item/weapon/stock_parts/manipulator = 1,
+ /obj/item/stack/cable_coil = 1,
+ /obj/item/weapon/stock_parts/console_screen = 2)
+
/obj/machinery/sleeper/RefreshParts()
var/E
for(var/obj/item/weapon/stock_parts/matter_bin/B in component_parts)
@@ -186,4 +190,4 @@
/obj/machinery/sleeper/old
- icon_state = "oldpod"
+ icon_state = "oldpod"
diff --git a/code/game/machinery/airlock_control.dm b/code/game/machinery/airlock_control.dm
index 13426cbbdfe..7c5abe61c07 100644
--- a/code/game/machinery/airlock_control.dm
+++ b/code/game/machinery/airlock_control.dm
@@ -4,7 +4,6 @@
/obj/machinery/door/airlock
var/id_tag
var/frequency
- var/shockedby = list()
var/datum/radio_frequency/radio_connection
diff --git a/code/game/machinery/announcement_system.dm b/code/game/machinery/announcement_system.dm
index 393f2f4f600..529e77bf55a 100644
--- a/code/game/machinery/announcement_system.dm
+++ b/code/game/machinery/announcement_system.dm
@@ -32,14 +32,19 @@ var/list/announcement_systems = list()
announcement_systems += src
radio = new /obj/item/device/radio/headset/ai(src)
- component_parts = list()
- component_parts += new /obj/item/weapon/circuitboard/announcement_system(null)
- component_parts += new /obj/item/stack/cable_coil(null, 2)
- component_parts += new /obj/item/weapon/stock_parts/console_screen(null)
- RefreshParts()
+ var/obj/item/weapon/circuitboard/machine/B = new /obj/item/weapon/circuitboard/machine/announcement_system(null)
+ B.apply_default_parts(src)
update_icon()
+/obj/item/weapon/circuitboard/machine/announcement_system
+ name = "circuit board (Announcement System)"
+ build_path = /obj/machinery/announcement_system
+ origin_tech = "programming=3;bluespace=2"
+ req_components = list(
+ /obj/item/stack/cable_coil = 2,
+ /obj/item/weapon/stock_parts/console_screen = 1)
+
/obj/machinery/announcement_system/update_icon()
if(is_operational())
icon_state = (panel_open ? "AAS_On_Open" : "AAS_On")
@@ -178,4 +183,4 @@ var/list/announcement_systems = list()
/obj/machinery/announcement_system/emag_act()
if(!emagged)
emagged = 1
- act_up()
+ act_up()
\ No newline at end of file
diff --git a/code/game/machinery/autolathe.dm b/code/game/machinery/autolathe.dm
index 5e03d4b9dc3..4014ad407ec 100644
--- a/code/game/machinery/autolathe.dm
+++ b/code/game/machinery/autolathe.dm
@@ -47,20 +47,23 @@
/obj/machinery/autolathe/New()
..()
- component_parts = list()
- component_parts += new /obj/item/weapon/circuitboard/autolathe(null)
- component_parts += new /obj/item/weapon/stock_parts/matter_bin(null)
- component_parts += new /obj/item/weapon/stock_parts/matter_bin(null)
- component_parts += new /obj/item/weapon/stock_parts/matter_bin(null)
- component_parts += new /obj/item/weapon/stock_parts/manipulator(null)
- component_parts += new /obj/item/weapon/stock_parts/console_screen(null)
materials = new /datum/material_container(src, list(MAT_METAL=1, MAT_GLASS=1))
- RefreshParts()
+ var/obj/item/weapon/circuitboard/machine/B = new /obj/item/weapon/circuitboard/machine/autolathe(null)
+ B.apply_default_parts(src)
wires = new /datum/wires/autolathe(src)
files = new /datum/research/autolathe(src)
matching_designs = list()
+/obj/item/weapon/circuitboard/machine/autolathe
+ name = "circuit board (Autolathe)"
+ build_path = /obj/machinery/autolathe
+ origin_tech = "engineering=2;programming=2"
+ req_components = list(
+ /obj/item/weapon/stock_parts/matter_bin = 3,
+ /obj/item/weapon/stock_parts/manipulator = 1,
+ /obj/item/weapon/stock_parts/console_screen = 1)
+
/obj/machinery/autolathe/Destroy()
qdel(wires)
wires = null
diff --git a/code/game/machinery/cloning.dm b/code/game/machinery/cloning.dm
index 604fb26bed0..ddbdcfa4e09 100644
--- a/code/game/machinery/cloning.dm
+++ b/code/game/machinery/cloning.dm
@@ -25,16 +25,8 @@
/obj/machinery/clonepod/New()
..()
- component_parts = list()
- component_parts += new /obj/item/weapon/circuitboard/clonepod(null)
- component_parts += new /obj/item/weapon/stock_parts/scanning_module(null)
- component_parts += new /obj/item/weapon/stock_parts/scanning_module(null)
- component_parts += new /obj/item/weapon/stock_parts/manipulator(null)
- component_parts += new /obj/item/weapon/stock_parts/manipulator(null)
- component_parts += new /obj/item/weapon/stock_parts/console_screen(null)
- component_parts += new /obj/item/stack/cable_coil(null, 1)
- component_parts += new /obj/item/stack/cable_coil(null, 1)
- RefreshParts()
+ var/obj/item/weapon/circuitboard/machine/B = new /obj/item/weapon/circuitboard/machine/clonepod(null)
+ B.apply_default_parts(src)
/obj/machinery/clonepod/RefreshParts()
speed_coeff = 0
@@ -47,6 +39,16 @@
if(heal_level > 100)
heal_level = 100
+/obj/item/weapon/circuitboard/machine/clonepod
+ name = "circuit board (Clone Pod)"
+ build_path = /obj/machinery/clonepod
+ origin_tech = "programming=3;biotech=3"
+ req_components = list(
+ /obj/item/stack/cable_coil = 2,
+ /obj/item/weapon/stock_parts/scanning_module = 2,
+ /obj/item/weapon/stock_parts/manipulator = 2,
+ /obj/item/weapon/stock_parts/console_screen = 1)
+
//The return of data disks?? Just for transferring between genetics machine/cloning machine.
//TO-DO: Make the genetics machine accept them.
/obj/item/weapon/disk/data
@@ -201,7 +203,7 @@
return
if((src.occupant) && (src.occupant.loc == src))
- if((src.occupant.stat == DEAD) || (src.occupant.suiciding) || !occupant.key) //Autoeject corpses and suiciding dudes.
+ if((src.occupant.stat == DEAD) || (src.occupant.suiciding) || !occupant.key || src.occupant.hellbound) //Autoeject corpses and suiciding dudes.
src.locked = 0
src.go_out()
src.connected_message("Clone Rejected: Deceased.")
diff --git a/code/game/machinery/computer/Operating.dm b/code/game/machinery/computer/Operating.dm
index ea7a6a1c704..0989ee50a59 100644
--- a/code/game/machinery/computer/Operating.dm
+++ b/code/game/machinery/computer/Operating.dm
@@ -3,7 +3,7 @@
desc = "Used to monitor the vitals of a patient during surgery."
icon_screen = "crew"
icon_keyboard = "med_key"
- circuit = /obj/item/weapon/circuitboard/operating
+ circuit = /obj/item/weapon/circuitboard/computer/operating
var/mob/living/carbon/human/patient = null
var/obj/structure/table/optable/table = null
diff --git a/code/game/machinery/computer/aifixer.dm b/code/game/machinery/computer/aifixer.dm
index 69c53cf517b..962fb705408 100644
--- a/code/game/machinery/computer/aifixer.dm
+++ b/code/game/machinery/computer/aifixer.dm
@@ -4,7 +4,7 @@
req_access = list(access_captain, access_robotics, access_heads)
var/mob/living/silicon/ai/occupier = null
var/active = 0
- circuit = /obj/item/weapon/circuitboard/aifixer
+ circuit = /obj/item/weapon/circuitboard/computer/aifixer
icon_keyboard = "tech_key"
icon_screen = "ai-fixer"
diff --git a/code/game/machinery/computer/arcade.dm b/code/game/machinery/computer/arcade.dm
index d35ba8c6bb8..253a3c1c8d7 100644
--- a/code/game/machinery/computer/arcade.dm
+++ b/code/game/machinery/computer/arcade.dm
@@ -1,1111 +1,1115 @@
-/obj/machinery/computer/arcade/
- name = "random arcade"
- desc = "random arcade machine"
- icon_state = "arcade"
- icon_keyboard = null
- icon_screen = "invaders"
- var/list/prizes = list( /obj/item/weapon/storage/box/snappops = 2,
- /obj/item/toy/AI = 2,
- /obj/item/clothing/under/syndicate/tacticool = 2,
- /obj/item/toy/sword = 2,
- /obj/item/toy/gun = 2,
- /obj/item/weapon/gun/projectile/shotgun/toy/crossbow = 2,
- /obj/item/weapon/storage/box/fakesyndiesuit = 2,
- /obj/item/weapon/storage/crayons = 2,
- /obj/item/toy/spinningtoy = 2,
- /obj/item/toy/prize/ripley = 1,
- /obj/item/toy/prize/fireripley = 1,
- /obj/item/toy/prize/deathripley = 1,
- /obj/item/toy/prize/gygax = 1,
- /obj/item/toy/prize/durand = 1,
- /obj/item/toy/prize/honk = 1,
- /obj/item/toy/prize/marauder = 1,
- /obj/item/toy/prize/seraph = 1,
- /obj/item/toy/prize/mauler = 1,
- /obj/item/toy/prize/odysseus = 1,
- /obj/item/toy/prize/phazon = 1,
- /obj/item/toy/prize/reticence = 1,
- /obj/item/toy/cards/deck = 2,
- /obj/item/toy/nuke = 2,
- /obj/item/toy/minimeteor = 2,
- /obj/item/toy/carpplushie = 2,
- /obj/item/toy/foamblade = 2,
- /obj/item/toy/redbutton = 2,
- /obj/item/toy/talking/owl = 2,
- /obj/item/toy/talking/griffin = 2,
- /obj/item/weapon/coin/antagtoken = 2,
- /obj/item/stack/tile/fakespace/loaded = 2,
- /obj/item/toy/toy_xeno = 2,
- /obj/item/weapon/restraints/handcuffs/fake = 2
- )
-
-/obj/machinery/computer/arcade/New()
- ..()
- // If it's a generic arcade machine, pick a random arcade
- // circuit board for it and make the new machine
- if(!circuit)
- var/choice = pick(subtypesof(/obj/item/weapon/circuitboard/arcade))
- var/obj/item/weapon/circuitboard/CB = new choice()
- new CB.build_path(loc, CB)
- qdel(src)
-
-/obj/machinery/computer/arcade/proc/prizevend()
- if(!contents.len)
- var/prizeselect = pickweight(prizes)
- new prizeselect(src.loc)
-
- if(istype(prizeselect, /obj/item/toy/gun)) //Ammo comes with the gun
- new /obj/item/toy/ammo/gun(src.loc)
-
- else if(istype(prizeselect, /obj/item/clothing/suit/syndicatefake)) //Helmet is part of the suit
- new /obj/item/clothing/head/syndicatefake(src.loc)
-
- else
- var/atom/movable/prize = pick(contents)
- prize.loc = src.loc
-
-/obj/machinery/computer/arcade/emp_act(severity)
- ..(severity)
-
- if(stat & (NOPOWER|BROKEN))
- return
-
- var/empprize = null
- var/num_of_prizes = 0
- switch(severity)
- if(1)
- num_of_prizes = rand(1,4)
- if(2)
- num_of_prizes = rand(0,2)
- for(var/i = num_of_prizes; i > 0; i--)
- empprize = pickweight(prizes)
- new empprize(src.loc)
- explosion(src.loc, -1, 0, 1+num_of_prizes, flame_range = 1+num_of_prizes)
-
-
-// ** BATTLE ** //
-
-
-/obj/machinery/computer/arcade/battle
- name = "arcade machine"
- desc = "Does not support Pinball."
- icon_state = "arcade"
- circuit = /obj/item/weapon/circuitboard/arcade/battle
- var/enemy_name = "Space Villian"
- var/temp = "Winners don't use space drugs" //Temporary message, for attack messages, etc
- var/player_hp = 30 //Player health/attack points
- var/player_mp = 10
- var/enemy_hp = 45 //Enemy health/attack points
- var/enemy_mp = 20
- var/gameover = 0
- var/blocked = 0 //Player cannot attack/heal while set
- var/turtle = 0
-
-/obj/machinery/computer/arcade/battle/New()
- ..()
- var/name_action
- var/name_part1
- var/name_part2
-
- name_action = pick("Defeat ", "Annihilate ", "Save ", "Strike ", "Stop ", "Destroy ", "Robust ", "Romance ", "Pwn ", "Own ", "Ban ")
-
- name_part1 = pick("the Automatic ", "Farmer ", "Lord ", "Professor ", "the Cuban ", "the Evil ", "the Dread King ", "the Space ", "Lord ", "the Great ", "Duke ", "General ")
- name_part2 = pick("Melonoid", "Murdertron", "Sorcerer", "Ruin", "Jeff", "Ectoplasm", "Crushulon", "Uhangoid", "Vhakoid", "Peteoid", "slime", "Griefer", "ERPer", "Lizard Man", "Unicorn", "Bloopers")
-
- src.enemy_name = replacetext((name_part1 + name_part2), "the ", "")
- src.name = (name_action + name_part1 + name_part2)
-
-/obj/machinery/computer/arcade/battle/attack_hand(mob/user)
- if(..())
- return
- user.set_machine(src)
- var/dat = "Close"
- dat += "[src.enemy_name]
"
-
- dat += "
[src.temp]
"
- dat += "
Health: [src.player_hp] | Magic: [src.player_mp] | Enemy Health: [src.enemy_hp]"
-
- if (src.gameover)
- dat += "New Game"
- else
- dat += "Attack | "
- dat += "Heal | "
- dat += "Recharge Power"
-
- dat += ""
-
- //user << browse(dat, "window=arcade")
- //onclose(user, "arcade")
- var/datum/browser/popup = new(user, "arcade", "Space Villian 2000")
- popup.set_content(dat)
- popup.set_title_image(user.browse_rsc_icon(src.icon, src.icon_state))
- popup.open()
- return
-
-/obj/machinery/computer/arcade/battle/Topic(href, href_list)
- if(..())
- return
-
- if (!src.blocked && !src.gameover)
- if (href_list["attack"])
- src.blocked = 1
- var/attackamt = rand(2,6)
- src.temp = "You attack for [attackamt] damage!"
- playsound(src.loc, 'sound/arcade/Hit.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.updateUsrDialog()
- if(turtle > 0)
- turtle--
-
- sleep(10)
- src.enemy_hp -= attackamt
- src.arcade_action()
-
- else if (href_list["heal"])
- src.blocked = 1
- var/pointamt = rand(1,3)
- var/healamt = rand(6,8)
- src.temp = "You use [pointamt] magic to heal for [healamt] damage!"
- playsound(src.loc, 'sound/arcade/Heal.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.updateUsrDialog()
- turtle++
-
- sleep(10)
- src.player_mp -= pointamt
- src.player_hp += healamt
- src.blocked = 1
- src.updateUsrDialog()
- src.arcade_action()
-
- else if (href_list["charge"])
- src.blocked = 1
- var/chargeamt = rand(4,7)
- src.temp = "You regain [chargeamt] points"
- playsound(src.loc, 'sound/arcade/Mana.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.player_mp += chargeamt
- if(turtle > 0)
- turtle--
-
- src.updateUsrDialog()
- sleep(10)
- src.arcade_action()
-
- if (href_list["close"])
- usr.unset_machine()
- usr << browse(null, "window=arcade")
-
- else if (href_list["newgame"]) //Reset everything
- temp = "New Round"
- player_hp = 30
- player_mp = 10
- enemy_hp = 45
- enemy_mp = 20
- gameover = 0
- turtle = 0
-
- if(emagged)
- src.New()
- emagged = 0
-
- src.add_fingerprint(usr)
- src.updateUsrDialog()
- return
-
-/obj/machinery/computer/arcade/battle/proc/arcade_action()
- if ((src.enemy_mp <= 0) || (src.enemy_hp <= 0))
- if(!gameover)
- src.gameover = 1
- src.temp = "[src.enemy_name] has fallen! Rejoice!"
- playsound(src.loc, 'sound/arcade/Win.ogg', 50, 1, extrarange = -3, falloff = 10)
-
- if(emagged)
- feedback_inc("arcade_win_emagged")
- new /obj/effect/spawner/newbomb/timer/syndicate(src.loc)
- new /obj/item/clothing/head/collectable/petehat(src.loc)
- message_admins("[key_name_admin(usr)] has outbombed Cuban Pete and been awarded a bomb.")
- log_game("[key_name(usr)] has outbombed Cuban Pete and been awarded a bomb.")
- src.New()
- emagged = 0
- else
- feedback_inc("arcade_win_normal")
- prizevend()
-
- else if (emagged && (turtle >= 4))
- var/boomamt = rand(5,10)
- src.temp = "[src.enemy_name] throws a bomb, exploding you for [boomamt] damage!"
- playsound(src.loc, 'sound/arcade/Boom.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.player_hp -= boomamt
-
- else if ((src.enemy_mp <= 5) && (prob(70)))
- var/stealamt = rand(2,3)
- src.temp = "[src.enemy_name] steals [stealamt] of your power!"
- playsound(src.loc, 'sound/arcade/Steal.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.player_mp -= stealamt
- src.updateUsrDialog()
-
- if (src.player_mp <= 0)
- src.gameover = 1
- sleep(10)
- src.temp = "You have been drained! GAME OVER"
- playsound(src.loc, 'sound/arcade/Lose.ogg', 50, 1, extrarange = -3, falloff = 10)
- if(emagged)
- feedback_inc("arcade_loss_mana_emagged")
- usr.gib()
- else
- feedback_inc("arcade_loss_mana_normal")
-
- else if ((src.enemy_hp <= 10) && (src.enemy_mp > 4))
- src.temp = "[src.enemy_name] heals for 4 health!"
- playsound(src.loc, 'sound/arcade/Heal.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.enemy_hp += 4
- src.enemy_mp -= 4
-
- else
- var/attackamt = rand(3,6)
- src.temp = "[src.enemy_name] attacks for [attackamt] damage!"
- playsound(src.loc, 'sound/arcade/Hit.ogg', 50, 1, extrarange = -3, falloff = 10)
- src.player_hp -= attackamt
-
- if ((src.player_mp <= 0) || (src.player_hp <= 0))
- src.gameover = 1
- src.temp = "You have been crushed! GAME OVER"
- playsound(src.loc, 'sound/arcade/Lose.ogg', 50, 1, extrarange = -3, falloff = 10)
- if(emagged)
- feedback_inc("arcade_loss_hp_emagged")
- usr.gib()
- else
- feedback_inc("arcade_loss_hp_normal")
-
- src.blocked = 0
- return
-
-
-/obj/machinery/computer/arcade/battle/emag_act(mob/user)
- if(!emagged)
- temp = "If you die in the game, you die for real!"
- player_hp = 30
- player_mp = 10
- enemy_hp = 45
- enemy_mp = 20
- gameover = 0
- blocked = 0
-
- emagged = 1
-
- enemy_name = "Cuban Pete"
- name = "Outbomb Cuban Pete"
-
-
- src.updateUsrDialog()
-
-
-
-// *** THE ORION TRAIL ** //
-
-#define ORION_TRAIL_WINTURN 9
-
-//Orion Trail Events
-#define ORION_TRAIL_RAIDERS "Raiders"
-#define ORION_TRAIL_FLUX "Interstellar Flux"
-#define ORION_TRAIL_ILLNESS "Illness"
-#define ORION_TRAIL_BREAKDOWN "Breakdown"
-#define ORION_TRAIL_LING "Changelings?"
-#define ORION_TRAIL_LING_ATTACK "Changeling Ambush"
-#define ORION_TRAIL_MALFUNCTION "Malfunction"
-#define ORION_TRAIL_COLLISION "Collision"
-#define ORION_TRAIL_SPACEPORT "Spaceport"
-#define ORION_TRAIL_BLACKHOLE "BlackHole"
-
-#define ORION_STATUS_START 1
-#define ORION_STATUS_NORMAL 2
-#define ORION_STATUS_GAMEOVER 3
-#define ORION_STATUS_MARKET 4
-
-/obj/machinery/computer/arcade/orion_trail
- name = "The Orion Trail"
- desc = "Learn how our ancestors got to Orion, and have fun in the process!"
- icon_state = "arcade"
- circuit = /obj/item/weapon/circuitboard/arcade/orion_trail
- var/busy = 0 //prevent clickspam that allowed people to ~speedrun~ the game.
- var/engine = 0
- var/hull = 0
- var/electronics = 0
- var/food = 80
- var/fuel = 60
- var/turns = 4
- var/alive = 4
- var/eventdat = null
- var/event = null
- var/list/settlers = list("Harry","Larry","Bob")
- var/list/events = list(ORION_TRAIL_RAIDERS = 3,
- ORION_TRAIL_FLUX = 1,
- ORION_TRAIL_ILLNESS = 3,
- ORION_TRAIL_BREAKDOWN = 2,
- ORION_TRAIL_LING = 3,
- ORION_TRAIL_MALFUNCTION = 2,
- ORION_TRAIL_COLLISION = 1,
- ORION_TRAIL_SPACEPORT = 2
- )
- var/list/stops = list()
- var/list/stopblurbs = list()
- var/lings_aboard = 0
- var/spaceport_raided = 0
- var/spaceport_freebie = 0
- var/last_spaceport_action = ""
- var/gameStatus = ORION_STATUS_START
- var/canContinueEvent = 0
-
-/obj/machinery/computer/arcade/orion_trail/New()
- ..()
- // Sets up the main trail
- stops = list("Pluto","Asteroid Belt","Proxima Centauri","Dead Space","Rigel Prime","Tau Ceti Beta","Black Hole","Space Outpost Beta-9","Orion Prime")
- stopblurbs = list(
- "Pluto, long since occupied with long-range sensors and scanners, stands ready to, and indeed continues to probe the far reaches of the galaxy.",
- "At the edge of the Sol system lies a treacherous asteroid belt. Many have been crushed by stray asteroids and misguided judgement.",
- "The nearest star system to Sol, in ages past it stood as a reminder of the boundaries of sub-light travel, now a low-population sanctuary for adventurers and traders.",
- "This region of space is particularly devoid of matter. Such low-density pockets are known to exist, but the vastness of it is astounding.",
- "Rigel Prime, the center of the Rigel system, burns hot, basking its planetary bodies in warmth and radiation.",
- "Tau Ceti Beta has recently become a waypoint for colonists headed towards Orion. There are many ships and makeshift stations in the vicinity.",
- "Sensors indicate that a black hole's gravitational field is affecting the region of space we were headed through. We could stay of course, but risk of being overcome by its gravity, or we could change course to go around, which will take longer.",
- "You have come into range of the first man-made structure in this region of space. It has been constructed not by travellers from Sol, but by colonists from Orion. It stands as a monument to the colonists' success.",
- "You have made it to Orion! Congratulations! Your crew is one of the few to start a new foothold for mankind!"
- )
-
-/obj/machinery/computer/arcade/orion_trail/proc/newgame()
- // Set names of settlers in crew
- settlers = list()
- for(var/i = 1; i <= 3; i++)
- add_crewmember()
- add_crewmember("[usr]")
- // Re-set items to defaults
- engine = 1
- hull = 1
- electronics = 1
- food = 80
- fuel = 60
- alive = 4
- turns = 1
- event = null
- gameStatus = ORION_STATUS_NORMAL
- lings_aboard = 0
-
- //spaceport junk
- spaceport_raided = 0
- spaceport_freebie = 0
- last_spaceport_action = ""
-
-/obj/machinery/computer/arcade/orion_trail/attack_hand(mob/user)
- if(..())
- return
- if(fuel <= 0 || food <=0 || settlers.len == 0)
- gameStatus = ORION_STATUS_GAMEOVER
- event = null
- user.set_machine(src)
- var/dat = ""
- if(gameStatus == ORION_STATUS_GAMEOVER)
- dat = "Game Over
"
- dat += "Like many before you, your crew never made it to Orion, lost to space...
Forever."
- if(settlers.len == 0)
- dat += "
Your entire crew died, your ship joins the fleet of ghost-ships littering the galaxy."
- else
- if(food <= 0)
- dat += "
You ran out of food and starved."
- if(emagged)
- user.nutrition = 0 //yeah you pretty hongry
- user << "Your body instantly contracts to that of one who has not eaten in months. Agonizing cramps seize you as you fall to the floor."
- if(fuel <= 0)
- dat += "
You ran out of fuel, and drift, slowly, into a star."
- if(emagged)
- var/mob/living/M = user
- M.adjust_fire_stacks(5)
- M.IgniteMob() //flew into a star, so you're on fire
- user << "You feel an immense wave of heat emanate from the arcade machine. Your skin bursts into flames."
- dat += "
OK...
"
-
- if(emagged)
- user << "You're never going to make it to Orion..."
- user.death()
- emagged = 0 //removes the emagged status after you lose
- gameStatus = ORION_STATUS_START
- name = "The Orion Trail"
- desc = "Learn how our ancestors got to Orion, and have fun in the process!"
-
- else if(event)
- dat = eventdat
- else if(gameStatus == ORION_STATUS_NORMAL)
- var/title = stops[turns]
- var/subtext = stopblurbs[turns]
- dat = "[title]
"
- dat += "[subtext]"
- dat += "Crew:
"
- dat += english_list(settlers)
- dat += "
Food: [food] | Fuel: [fuel]"
- dat += "
Engine Parts: [engine] | Hull Panels: [hull] | Electronics: [electronics]"
- if(turns == 7)
- dat += "Go Around Continue
"
- else
- dat += "Continue
"
- dat += "Kill a crewmember
"
- dat += "Close
"
- else
- dat = "The Orion Trail
"
- dat += "
Experience the journey of your ancestors!
"
- dat += "New Game"
- dat += "Close
"
- var/datum/browser/popup = new(user, "arcade", "The Orion Trail",400,700)
- popup.set_content(dat)
- popup.set_title_image(user.browse_rsc_icon(src.icon, src.icon_state))
- popup.open()
- return
-
-/obj/machinery/computer/arcade/orion_trail/Topic(href, href_list)
- if(..())
- return
- if(href_list["close"])
- usr.unset_machine()
- usr << browse(null, "window=arcade")
-
- if(busy)
- return
- busy = 1
-
- if (href_list["continue"]) //Continue your travels
- if(gameStatus == ORION_STATUS_NORMAL && !event && turns != 7)
- if(turns >= ORION_TRAIL_WINTURN)
- win()
- else
- food -= (alive+lings_aboard)*2
- fuel -= 5
- if(turns == 2 && prob(30))
- event = ORION_TRAIL_COLLISION
- event()
- else if(prob(75))
- event = pickweight(events)
- if(lings_aboard)
- if(event == ORION_TRAIL_LING || prob(55))
- event = ORION_TRAIL_LING_ATTACK
- event()
- turns += 1
- if(emagged)
- var/mob/living/carbon/M = usr //for some vars
- switch(event)
- if(ORION_TRAIL_RAIDERS)
- if(prob(50))
- usr << "You hear battle shouts. The tramping of boots on cold metal. Screams of agony. The rush of venting air. Are you going insane?"
- M.hallucination += 30
- else
- usr << "Something strikes you from behind! It hurts like hell and feel like a blunt weapon, but nothing is there..."
- M.take_organ_damage(30)
- playsound(loc, 'sound/weapons/genhit2.ogg', 100, 1)
- if(ORION_TRAIL_ILLNESS)
- var/severity = rand(1,3) //pray to RNGesus. PRAY, PIGS
- if(severity == 1)
- M << "You suddenly feel slightly nauseous." //got off lucky
- if(severity == 2)
- usr << "You suddenly feel extremely nauseous and hunch over until it passes."
- M.Stun(3)
- if(severity >= 3) //you didn't pray hard enough
- M << "An overpowering wave of nausea consumes over you. You hunch over, your stomach's contents preparing for a spectacular exit."
- M.Stun(5)
- sleep(30)
- M.vomit(50)
- if(ORION_TRAIL_FLUX)
- if(prob(75))
- M.Weaken(3)
- say("A sudden gust of powerful wind slams [M] into the floor!")
- M.take_organ_damage(25)
- playsound(src.loc, 'sound/weapons/Genhit.ogg', 100, 1)
- else
- M << "A violent gale blows past you, and you barely manage to stay standing!"
- if(ORION_TRAIL_COLLISION) //by far the most damaging event
- if(prob(90))
- playsound(src.loc, 'sound/effects/bang.ogg', 100, 1)
- var/turf/open/floor/F
- for(F in orange(1, src))
- F.ChangeTurf(F.baseturf)
- say("Something slams into the floor around [src], exposing it to space!")
- if(hull)
- sleep(10)
- say("A new floor suddenly appears around [src]. What the hell?")
- playsound(src.loc, 'sound/weapons/Genhit.ogg', 100, 1)
- var/turf/open/space/T
- for(T in orange(1, src))
- T.ChangeTurf(/turf/open/floor/plating/)
- else
- say("Something slams into the floor around [src] - luckily, it didn't get through!")
- playsound(src.loc, 'sound/effects/bang.ogg', 50, 1)
- if(ORION_TRAIL_MALFUNCTION)
- playsound(src.loc, 'sound/effects/EMPulse.ogg', 50, 1)
- src.visible_message("[src] malfunctions, randomizing in-game stats!")
- var/oldfood = food
- var/oldfuel = fuel
- food = rand(10,80) / rand(1,2)
- fuel = rand(10,60) / rand(1,2)
- if(electronics)
- sleep(10)
- if(oldfuel > fuel && oldfood > food)
- src.audible_message("[src] lets out a somehow reassuring chime.")
- else if(oldfuel < fuel || oldfood < food)
- src.audible_message("[src] lets out a somehow ominous chime.")
- food = oldfood
- fuel = oldfuel
- playsound(src.loc, 'sound/machines/chime.ogg', 50, 1)
-
- else if(href_list["newgame"]) //Reset everything
- if(gameStatus == ORION_STATUS_START)
- newgame()
- else if(href_list["menu"]) //back to the main menu
- if(gameStatus == ORION_STATUS_GAMEOVER)
- gameStatus = ORION_STATUS_START
- event = null
- food = 80
- fuel = 60
- settlers = list("Harry","Larry","Bob")
- else if(href_list["slow"]) //slow down
- if(event == ORION_TRAIL_FLUX)
- food -= (alive+lings_aboard)*2
- fuel -= 5
- event = null
- else if(href_list["pastblack"]) //slow down
- if(turns == 7)
- food -= ((alive+lings_aboard)*2)*3
- fuel -= 15
- turns += 1
- event = null
- else if(href_list["useengine"]) //use parts
- if(event == ORION_TRAIL_BREAKDOWN)
- engine = max(0, --engine)
- event = null
- else if(href_list["useelec"]) //use parts
- if(event == ORION_TRAIL_MALFUNCTION)
- electronics = max(0, --electronics)
- event = null
- else if(href_list["usehull"]) //use parts
- if(event == ORION_TRAIL_COLLISION)
- hull = max(0, --hull)
- event = null
- else if(href_list["wait"]) //wait 3 days
- if(event == ORION_TRAIL_BREAKDOWN || event == ORION_TRAIL_MALFUNCTION || event == ORION_TRAIL_COLLISION)
- food -= ((alive+lings_aboard)*2)*3
- event = null
- else if(href_list["keepspeed"]) //keep speed
- if(event == ORION_TRAIL_FLUX)
- if(prob(75))
- event = "Breakdown"
- event()
- else
- event = null
- else if(href_list["blackhole"]) //keep speed past a black hole
- if(turns == 7)
- if(prob(75))
- event = ORION_TRAIL_BLACKHOLE
- event()
- if(emagged) //has to be here because otherwise it doesn't work
- playsound(src.loc, 'sound/effects/supermatter.ogg', 100, 1)
- say("A miniature black hole suddenly appears in front of [src], devouring [usr] alive!")
- usr.Stun(10) //you can't run :^)
- var/S = new /obj/singularity/academy(usr.loc)
- emagged = 0 //immediately removes emagged status so people can't kill themselves by sprinting up and interacting
- sleep(50)
- say("[S] winks out, just as suddenly as it appeared.")
- qdel(S)
- else
- event = null
- turns += 1
- else if(href_list["holedeath"])
- if(event == ORION_TRAIL_BLACKHOLE)
- gameStatus = ORION_STATUS_GAMEOVER
- event = null
- else if(href_list["eventclose"]) //end an event
- if(canContinueEvent)
- event = null
-
- else if(href_list["killcrew"]) //shoot a crewmember
- if(gameStatus == ORION_STATUS_NORMAL || event == ORION_TRAIL_LING)
- var/sheriff = remove_crewmember() //I shot the sheriff
- playsound(loc,'sound/weapons/Gunshot.ogg', 100, 1)
-
- if(settlers.len == 0 || alive == 0)
- say("The last crewmember [sheriff], shot themselves, GAME OVER!")
- if(emagged)
- usr.death(0)
- emagged = 0
- gameStatus = ORION_STATUS_GAMEOVER
- event = null
- else if(emagged)
- if(usr.name == sheriff)
- say("The crew of the ship chose to kill [usr.name]!")
- usr.death(0)
-
- if(event == ORION_TRAIL_LING) //only ends the ORION_TRAIL_LING event, since you can do this action in multiple places
- event = null
-
- //Spaceport specific interactions
- //they get a header because most of them don't reset event (because it's a shop, you leave when you want to)
- //they also call event() again, to regen the eventdata, which is kind of odd but necessary
- else if(href_list["buycrew"]) //buy a crewmember
- if(gameStatus == ORION_STATUS_MARKET)
- if(!spaceport_raided && food >= 10 && fuel >= 10)
- var/bought = add_crewmember()
- last_spaceport_action = "You hired [bought] as a new crewmember."
- fuel -= 10
- food -= 10
- event()
-
- else if(href_list["sellcrew"]) //sell a crewmember
- if(gameStatus == ORION_STATUS_MARKET)
- if(!spaceport_raided && settlers.len > 1)
- var/sold = remove_crewmember()
- last_spaceport_action = "You sold your crewmember, [sold]!"
- fuel += 7
- food += 7
- event()
-
- else if(href_list["leave_spaceport"])
- if(gameStatus == ORION_STATUS_MARKET)
- event = null
- gameStatus = ORION_STATUS_NORMAL
- spaceport_raided = 0
- spaceport_freebie = 0
- last_spaceport_action = ""
-
- else if(href_list["raid_spaceport"])
- if(gameStatus == ORION_STATUS_MARKET)
- if(!spaceport_raided)
- var/success = min(15 * alive,100) //default crew (4) have a 60% chance
- spaceport_raided = 1
-
- var/FU = 0
- var/FO = 0
- if(prob(success))
- FU = rand(5,15)
- FO = rand(5,15)
- last_spaceport_action = "You successfully raided the spaceport! you gained [FU] Fuel and [FO] Food! (+[FU]FU,+[FO]FO)"
- else
- FU = rand(-5,-15)
- FO = rand(-5,-15)
- last_spaceport_action = "You failed to raid the spaceport! you lost [FU*-1] Fuel and [FO*-1] Food in your scramble to escape! ([FU]FU,[FO]FO)"
-
- //your chance of lose a crewmember is 1/2 your chance of success
- //this makes higher % failures hurt more, don't get cocky space cowboy!
- if(prob(success*5))
- var/lost_crew = remove_crewmember()
- last_spaceport_action = "You failed to raid the spaceport! you lost [FU*-1] Fuel and [FO*-1] Food, AND [lost_crew] in your scramble to escape! ([FU]FI,[FO]FO,-Crew)"
- if(emagged)
- say("WEEWOO WEEWOO, Spaceport Security en route!")
- for(var/i, i<=3, i++)
- var/mob/living/simple_animal/hostile/syndicate/ranged/orion/O = new/mob/living/simple_animal/hostile/syndicate/ranged/orion(get_turf(src))
- O.target = usr
-
-
- fuel += FU
- food += FO
- event()
-
- else if(href_list["buyparts"])
- if(gameStatus == ORION_STATUS_MARKET)
- if(!spaceport_raided && fuel > 5)
- switch(text2num(href_list["buyparts"]))
- if(1) //Engine Parts
- engine++
- last_spaceport_action = "Bought Engine Parts"
- if(2) //Hull Plates
- hull++
- last_spaceport_action = "Bought Hull Plates"
- if(3) //Spare Electronics
- electronics++
- last_spaceport_action = "Bought Spare Electronics"
- fuel -= 5 //they all cost 5
- event()
-
- else if(href_list["trade"])
- if(gameStatus == ORION_STATUS_MARKET)
- if(!spaceport_raided)
- switch(text2num(href_list["trade"]))
- if(1) //Fuel
- if(fuel > 5)
- fuel -= 5
- food += 5
- last_spaceport_action = "Traded Fuel for Food"
- event()
- if(2) //Food
- if(food > 5)
- fuel += 5
- food -= 5
- last_spaceport_action = "Traded Food for Fuel"
- event()
-
- src.add_fingerprint(usr)
- src.updateUsrDialog()
- busy = 0
- return
-
-
-/obj/machinery/computer/arcade/orion_trail/proc/event()
- eventdat = "[event]
"
- canContinueEvent = 0
- switch(event)
- if(ORION_TRAIL_RAIDERS)
- eventdat += "Raiders have come aboard your ship!"
- if(prob(50))
- var/sfood = rand(1,10)
- var/sfuel = rand(1,10)
- food -= sfood
- fuel -= sfuel
- eventdat += "
They have stolen [sfood] Food and [sfuel] Fuel."
- else if(prob(10))
- var/deadname = remove_crewmember()
- eventdat += "
[deadname] tried to fight back but was killed."
- else
- eventdat += "
Fortunately you fended them off without any trouble."
- eventdat += "Continue
"
- eventdat += "Close
"
- canContinueEvent = 1
-
- if(ORION_TRAIL_FLUX)
- eventdat += "This region of space is highly turbulent.
If we go slowly we may avoid more damage, but if we keep our speed we won't waste supplies."
- eventdat += "
What will you do?"
- eventdat += "Slow Down Continue
"
- eventdat += "Close
"
-
- if(ORION_TRAIL_ILLNESS)
- eventdat += "A deadly illness has been contracted!"
- var/deadname = remove_crewmember()
- eventdat += "
[deadname] was killed by the disease."
- eventdat += "Continue
"
- eventdat += "Close
"
- canContinueEvent = 1
-
- if(ORION_TRAIL_BREAKDOWN)
- eventdat += "Oh no! The engine has broken down!"
- eventdat += "
You can repair it with an engine part, or you can make repairs for 3 days."
- if(engine >= 1)
- eventdat += "Use PartWait
"
- else
- eventdat += "Wait
"
- eventdat += "Close
"
-
- if(ORION_TRAIL_MALFUNCTION)
- eventdat += "The ship's systems are malfunctioning!"
- eventdat += "
You can replace the broken electronics with spares, or you can spend 3 days troubleshooting the AI."
- if(electronics >= 1)
- eventdat += "Use PartWait
"
- else
- eventdat += "Wait
"
- eventdat += "Close
"
-
- if(ORION_TRAIL_COLLISION)
- eventdat += "Something hit us! Looks like there's some hull damage."
- if(prob(25))
- var/sfood = rand(5,15)
- var/sfuel = rand(5,15)
- food -= sfood
- fuel -= sfuel
- eventdat += "
[sfood] Food and [sfuel] Fuel was vented out into space."
- if(prob(10))
- var/deadname = remove_crewmember()
- eventdat += "
[deadname] was killed by rapid depressurization."
- eventdat += "
You can repair the damage with hull plates, or you can spend the next 3 days welding scrap together."
- if(hull >= 1)
- eventdat += "Use PartWait
"
- else
- eventdat += "Wait
"
- eventdat += "Close
"
-
- if(ORION_TRAIL_BLACKHOLE)
- eventdat += "You were swept away into the black hole."
- eventdat += "Oh...
"
- eventdat += "Close
"
- settlers = list()
-
- if(ORION_TRAIL_LING)
- eventdat += "Strange reports warn of changelings infiltrating crews on trips to Orion..."
- if(settlers.len <= 2)
- eventdat += "
Your crew's chance of reaching Orion is so slim the changelings likely avoided your ship..."
- eventdat += "Continue
"
- eventdat += "Close
"
- if(prob(10)) // "likely", I didn't say it was guaranteed!
- lings_aboard = min(++lings_aboard,2)
- else
- if(lings_aboard) //less likely to stack lings
- if(prob(20))
- lings_aboard = min(++lings_aboard,2)
- else if(prob(70))
- lings_aboard = min(++lings_aboard,2)
-
- eventdat += "Kill a crewmember
"
- eventdat += "Risk it
"
- eventdat += "Close
"
- canContinueEvent = 1
-
- if(ORION_TRAIL_LING_ATTACK)
- if(lings_aboard <= 0) //shouldn't trigger, but hey.
- eventdat += "Haha, fooled you, there are no changelings on board!"
- eventdat += "
(You should report this to a coder :S)"
- else
- var/ling1 = remove_crewmember()
- var/ling2 = ""
- if(lings_aboard >= 2)
- ling2 = remove_crewmember()
-
- eventdat += "Oh no, some of your crew are Changelings!"
- if(ling2)
- eventdat += "
[ling1] and [ling2]'s arms twist and contort into grotesque blades!"
- else
- eventdat += "
[ling1]'s arm twists and contorts into a grotesque blade!"
-
- var/chance2attack = alive*20
- if(prob(chance2attack))
- var/chancetokill = 30*lings_aboard-(5*alive) //eg: 30*2-(10) = 50%, 2 lings, 2 crew is 50% chance
- if(prob(chancetokill))
- var/deadguy = remove_crewmember()
- eventdat += "
The Changeling[ling2 ? "s":""] run[ling2 ? "":"s"] up to [deadguy] and capitulates them!"
- else
- eventdat += "
You valiantly fight off the Changeling[ling2 ? "s":""]!"
- eventdat += "
You cut the Changeling[ling2 ? "s":""] up into meat... Eww"
- if(ling2)
- food += 30
- lings_aboard = max(0,lings_aboard-2)
- else
- food += 15
- lings_aboard = max(0,--lings_aboard)
- else
- eventdat += "
The Changeling[ling2 ? "s":""] run[ling2 ? "":"s"] away, What wimps!"
- if(ling2)
- lings_aboard = max(0,lings_aboard-2)
- else
- lings_aboard = max(0,--lings_aboard)
-
- eventdat += "Continue
"
- eventdat += "Close
"
- canContinueEvent = 1
-
-
- if(ORION_TRAIL_SPACEPORT)
- gameStatus = ORION_STATUS_MARKET
- if(spaceport_raided)
- eventdat += "The Spaceport is on high alert! they wont let you dock since you tried to attack them!"
- if(last_spaceport_action)
- eventdat += "
Last Spaceport Action: [last_spaceport_action]"
- eventdat += "Depart Spaceport
"
- eventdat += "Close
"
- else
- eventdat += "You pull the ship up to dock at a nearby Spaceport, lucky find!"
- eventdat += "
This Spaceport is home to travellers who failed to reach Orion, but managed to find a different home..."
- eventdat += "
Trading terms: FU = Fuel, FO = Food"
- if(last_spaceport_action)
- eventdat += "
Last Spaceport Action: [last_spaceport_action]"
- eventdat += "Crew:
"
- eventdat += english_list(settlers)
- eventdat += "
Food: [food] | Fuel: [fuel]"
- eventdat += "
Engine Parts: [engine] | Hull Panels: [hull] | Electronics: [electronics]"
-
-
- //If your crew is pathetic you can get freebies (provided you haven't already gotten one from this port)
- if(!spaceport_freebie && (fuel < 20 || food < 20))
- spaceport_freebie++
- var/FU = 10
- var/FO = 10
- var/freecrew = 0
- if(prob(30))
- FU = 25
- FO = 25
-
- if(prob(10))
- add_crewmember()
- freecrew++
-
- eventdat += "
The traders of the spaceport take pitty on you, and give you some food and fuel (+[FU]FU,+[FO]FO)"
- if(freecrew)
- eventdat += "
You also gain a new crewmember!"
-
- fuel += FU
- food += FO
-
- //CREW INTERACTIONS
- eventdat += "Crew Management:
"
-
- //Buy crew
- if(food >= 10 && fuel >= 10)
- eventdat += "Hire a new Crewmember (-10FU,-10FO)
"
- else
- eventdat += "Cant afford a new Crewmember
"
-
- //Sell crew
- if(settlers.len > 1)
- eventdat += "Sell crew for Fuel and Food (+7FU,+7FO)
"
- else
- eventdat += "Cant afford to sell a Crewmember
"
-
- //BUY/SELL STUFF
- eventdat += "Spare Parts:
"
-
- //Engine parts
- if(fuel > 5)
- eventdat += "Buy Engine Parts (-5FU)
"
- else
- eventdat += "Cant afford to buy Engine Parts"
-
- //Hull plates
- if(fuel > 5)
- eventdat += "
Buy Hull Plates (-5FU)
"
- else
- eventdat += "Cant afford to buy Hull Plates"
-
- //Electronics
- if(fuel > 5)
- eventdat += "
Buy Spare Electronics (-5FU)
"
- else
- eventdat += "Cant afford to buy Spare Electronics"
-
- //Trade
- if(fuel > 5)
- eventdat += "
Trade Fuel for Food (-5FU,+5FO)
"
- else
- eventdat += "Cant afford to Trade Fuel for Food 5)
- eventdat += "
Trade Food for Fuel (+5FU,-5FO)
"
- else
- eventdat += "Cant afford to Trade Food for FuelYou override the cheat code menu and skip to Cheat #[rand(1, 50)]: Realism Mode.
"
- name = "The Orion Trail: Realism Edition"
- desc = "Learn how our ancestors got to Orion, and try not to die in the process!"
- newgame()
- emagged = 1
-
-/mob/living/simple_animal/hostile/syndicate/ranged/orion
- name = "Spaceport Security"
- desc = "The Premier security forces for all spaceports found along the Orion Trail."
- faction = list("orion")
- loot = list(/obj/effect/mob_spawn/human/corpse/orionsecurity,
- /obj/item/weapon/gun/projectile/automatic/c20r/unrestricted,
- /obj/item/weapon/shield/energy)
-
-/obj/effect/mob_spawn/human/corpse/orionsecurity
- name = "Spaceport Security"
- uniform = /obj/item/clothing/under/syndicate
- suit = /obj/item/clothing/suit/armor/vest
- shoes = /obj/item/clothing/shoes/combat
- gloves = /obj/item/clothing/gloves/combat
- radio = /obj/item/device/radio/headset
- mask = /obj/item/clothing/mask/gas
- helmet = /obj/item/clothing/head/helmet/swat
- back = /obj/item/weapon/storage/backpack
- has_id = 1
- id_job = "Officer"
- id_access = "Syndicate"
-
-/obj/item/weapon/orion_ship
- name = "model settler ship"
- desc = "A model spaceship, it looks like those used back in the day when travelling to Orion! It even has a miniature FX-293 reactor, which was renowned for its instability and tendency to explode..."
- icon = 'icons/obj/toy.dmi'
- icon_state = "ship"
- w_class = 2
- var/active = 0 //if the ship is on
-
-/obj/item/weapon/orion_ship/examine(mob/user)
- ..()
- if(!(in_range(user, src)))
- return
- if(!active)
- user << "New Game"
+ else
+ dat += "Attack | "
+ dat += "Heal | "
+ dat += "Recharge Power"
+
+ dat += ""
+
+ //user << browse(dat, "window=arcade")
+ //onclose(user, "arcade")
+ var/datum/browser/popup = new(user, "arcade", "Space Villian 2000")
+ popup.set_content(dat)
+ popup.set_title_image(user.browse_rsc_icon(src.icon, src.icon_state))
+ popup.open()
+ return
+
+/obj/machinery/computer/arcade/battle/Topic(href, href_list)
+ if(..())
+ return
+
+ if (!src.blocked && !src.gameover)
+ if (href_list["attack"])
+ src.blocked = 1
+ var/attackamt = rand(2,6)
+ src.temp = "You attack for [attackamt] damage!"
+ playsound(src.loc, 'sound/arcade/Hit.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.updateUsrDialog()
+ if(turtle > 0)
+ turtle--
+
+ sleep(10)
+ src.enemy_hp -= attackamt
+ src.arcade_action()
+
+ else if (href_list["heal"])
+ src.blocked = 1
+ var/pointamt = rand(1,3)
+ var/healamt = rand(6,8)
+ src.temp = "You use [pointamt] magic to heal for [healamt] damage!"
+ playsound(src.loc, 'sound/arcade/Heal.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.updateUsrDialog()
+ turtle++
+
+ sleep(10)
+ src.player_mp -= pointamt
+ src.player_hp += healamt
+ src.blocked = 1
+ src.updateUsrDialog()
+ src.arcade_action()
+
+ else if (href_list["charge"])
+ src.blocked = 1
+ var/chargeamt = rand(4,7)
+ src.temp = "You regain [chargeamt] points"
+ playsound(src.loc, 'sound/arcade/Mana.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.player_mp += chargeamt
+ if(turtle > 0)
+ turtle--
+
+ src.updateUsrDialog()
+ sleep(10)
+ src.arcade_action()
+
+ if (href_list["close"])
+ usr.unset_machine()
+ usr << browse(null, "window=arcade")
+
+ else if (href_list["newgame"]) //Reset everything
+ temp = "New Round"
+ player_hp = 30
+ player_mp = 10
+ enemy_hp = 45
+ enemy_mp = 20
+ gameover = 0
+ turtle = 0
+
+ if(emagged)
+ src.New()
+ emagged = 0
+
+ src.add_fingerprint(usr)
+ src.updateUsrDialog()
+ return
+
+/obj/machinery/computer/arcade/battle/proc/arcade_action()
+ if ((src.enemy_mp <= 0) || (src.enemy_hp <= 0))
+ if(!gameover)
+ src.gameover = 1
+ src.temp = "[src.enemy_name] has fallen! Rejoice!"
+ playsound(src.loc, 'sound/arcade/Win.ogg', 50, 1, extrarange = -3, falloff = 10)
+
+ if(emagged)
+ feedback_inc("arcade_win_emagged")
+ new /obj/effect/spawner/newbomb/timer/syndicate(src.loc)
+ new /obj/item/clothing/head/collectable/petehat(src.loc)
+ message_admins("[key_name_admin(usr)] has outbombed Cuban Pete and been awarded a bomb.")
+ log_game("[key_name(usr)] has outbombed Cuban Pete and been awarded a bomb.")
+ src.New()
+ emagged = 0
+ else
+ feedback_inc("arcade_win_normal")
+ prizevend()
+
+ else if (emagged && (turtle >= 4))
+ var/boomamt = rand(5,10)
+ src.temp = "[src.enemy_name] throws a bomb, exploding you for [boomamt] damage!"
+ playsound(src.loc, 'sound/arcade/Boom.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.player_hp -= boomamt
+
+ else if ((src.enemy_mp <= 5) && (prob(70)))
+ var/stealamt = rand(2,3)
+ src.temp = "[src.enemy_name] steals [stealamt] of your power!"
+ playsound(src.loc, 'sound/arcade/Steal.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.player_mp -= stealamt
+ src.updateUsrDialog()
+
+ if (src.player_mp <= 0)
+ src.gameover = 1
+ sleep(10)
+ src.temp = "You have been drained! GAME OVER"
+ playsound(src.loc, 'sound/arcade/Lose.ogg', 50, 1, extrarange = -3, falloff = 10)
+ if(emagged)
+ feedback_inc("arcade_loss_mana_emagged")
+ usr.gib()
+ else
+ feedback_inc("arcade_loss_mana_normal")
+
+ else if ((src.enemy_hp <= 10) && (src.enemy_mp > 4))
+ src.temp = "[src.enemy_name] heals for 4 health!"
+ playsound(src.loc, 'sound/arcade/Heal.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.enemy_hp += 4
+ src.enemy_mp -= 4
+
+ else
+ var/attackamt = rand(3,6)
+ src.temp = "[src.enemy_name] attacks for [attackamt] damage!"
+ playsound(src.loc, 'sound/arcade/Hit.ogg', 50, 1, extrarange = -3, falloff = 10)
+ src.player_hp -= attackamt
+
+ if ((src.player_mp <= 0) || (src.player_hp <= 0))
+ src.gameover = 1
+ src.temp = "You have been crushed! GAME OVER"
+ playsound(src.loc, 'sound/arcade/Lose.ogg', 50, 1, extrarange = -3, falloff = 10)
+ if(emagged)
+ feedback_inc("arcade_loss_hp_emagged")
+ usr.gib()
+ else
+ feedback_inc("arcade_loss_hp_normal")
+
+ src.blocked = 0
+ return
+
+
+/obj/machinery/computer/arcade/battle/emag_act(mob/user)
+ if(!emagged)
+ temp = "If you die in the game, you die for real!"
+ player_hp = 30
+ player_mp = 10
+ enemy_hp = 45
+ enemy_mp = 20
+ gameover = 0
+ blocked = 0
+
+ emagged = 1
+
+ enemy_name = "Cuban Pete"
+ name = "Outbomb Cuban Pete"
+
+
+ src.updateUsrDialog()
+
+
+
+// *** THE ORION TRAIL ** //
+
+#define ORION_TRAIL_WINTURN 9
+
+//Orion Trail Events
+#define ORION_TRAIL_RAIDERS "Raiders"
+#define ORION_TRAIL_FLUX "Interstellar Flux"
+#define ORION_TRAIL_ILLNESS "Illness"
+#define ORION_TRAIL_BREAKDOWN "Breakdown"
+#define ORION_TRAIL_LING "Changelings?"
+#define ORION_TRAIL_LING_ATTACK "Changeling Ambush"
+#define ORION_TRAIL_MALFUNCTION "Malfunction"
+#define ORION_TRAIL_COLLISION "Collision"
+#define ORION_TRAIL_SPACEPORT "Spaceport"
+#define ORION_TRAIL_BLACKHOLE "BlackHole"
+
+#define ORION_STATUS_START 1
+#define ORION_STATUS_NORMAL 2
+#define ORION_STATUS_GAMEOVER 3
+#define ORION_STATUS_MARKET 4
+
+/obj/machinery/computer/arcade/orion_trail
+ name = "The Orion Trail"
+ desc = "Learn how our ancestors got to Orion, and have fun in the process!"
+ icon_state = "arcade"
+ circuit = /obj/item/weapon/circuitboard/computer/arcade/orion_trail
+ var/busy = 0 //prevent clickspam that allowed people to ~speedrun~ the game.
+ var/engine = 0
+ var/hull = 0
+ var/electronics = 0
+ var/food = 80
+ var/fuel = 60
+ var/turns = 4
+ var/alive = 4
+ var/eventdat = null
+ var/event = null
+ var/list/settlers = list("Harry","Larry","Bob")
+ var/list/events = list(ORION_TRAIL_RAIDERS = 3,
+ ORION_TRAIL_FLUX = 1,
+ ORION_TRAIL_ILLNESS = 3,
+ ORION_TRAIL_BREAKDOWN = 2,
+ ORION_TRAIL_LING = 3,
+ ORION_TRAIL_MALFUNCTION = 2,
+ ORION_TRAIL_COLLISION = 1,
+ ORION_TRAIL_SPACEPORT = 2
+ )
+ var/list/stops = list()
+ var/list/stopblurbs = list()
+ var/lings_aboard = 0
+ var/spaceport_raided = 0
+ var/spaceport_freebie = 0
+ var/last_spaceport_action = ""
+ var/gameStatus = ORION_STATUS_START
+ var/canContinueEvent = 0
+
+/obj/machinery/computer/arcade/orion_trail/New()
+ ..()
+ // Sets up the main trail
+ stops = list("Pluto","Asteroid Belt","Proxima Centauri","Dead Space","Rigel Prime","Tau Ceti Beta","Black Hole","Space Outpost Beta-9","Orion Prime")
+ stopblurbs = list(
+ "Pluto, long since occupied with long-range sensors and scanners, stands ready to, and indeed continues to probe the far reaches of the galaxy.",
+ "At the edge of the Sol system lies a treacherous asteroid belt. Many have been crushed by stray asteroids and misguided judgement.",
+ "The nearest star system to Sol, in ages past it stood as a reminder of the boundaries of sub-light travel, now a low-population sanctuary for adventurers and traders.",
+ "This region of space is particularly devoid of matter. Such low-density pockets are known to exist, but the vastness of it is astounding.",
+ "Rigel Prime, the center of the Rigel system, burns hot, basking its planetary bodies in warmth and radiation.",
+ "Tau Ceti Beta has recently become a waypoint for colonists headed towards Orion. There are many ships and makeshift stations in the vicinity.",
+ "Sensors indicate that a black hole's gravitational field is affecting the region of space we were headed through. We could stay of course, but risk of being overcome by its gravity, or we could change course to go around, which will take longer.",
+ "You have come into range of the first man-made structure in this region of space. It has been constructed not by travellers from Sol, but by colonists from Orion. It stands as a monument to the colonists' success.",
+ "You have made it to Orion! Congratulations! Your crew is one of the few to start a new foothold for mankind!"
+ )
+
+/obj/machinery/computer/arcade/orion_trail/proc/newgame()
+ // Set names of settlers in crew
+ settlers = list()
+ for(var/i = 1; i <= 3; i++)
+ add_crewmember()
+ add_crewmember("[usr]")
+ // Re-set items to defaults
+ engine = 1
+ hull = 1
+ electronics = 1
+ food = 80
+ fuel = 60
+ alive = 4
+ turns = 1
+ event = null
+ gameStatus = ORION_STATUS_NORMAL
+ lings_aboard = 0
+
+ //spaceport junk
+ spaceport_raided = 0
+ spaceport_freebie = 0
+ last_spaceport_action = ""
+
+/obj/machinery/computer/arcade/orion_trail/attack_hand(mob/user)
+ if(..())
+ return
+ if(fuel <= 0 || food <=0 || settlers.len == 0)
+ gameStatus = ORION_STATUS_GAMEOVER
+ event = null
+ user.set_machine(src)
+ var/dat = ""
+ if(gameStatus == ORION_STATUS_GAMEOVER)
+ dat = "Game Over
"
+ dat += "Like many before you, your crew never made it to Orion, lost to space...
Forever."
+ if(settlers.len == 0)
+ dat += "
Your entire crew died, your ship joins the fleet of ghost-ships littering the galaxy."
+ else
+ if(food <= 0)
+ dat += "
You ran out of food and starved."
+ if(emagged)
+ user.nutrition = 0 //yeah you pretty hongry
+ user << "Your body instantly contracts to that of one who has not eaten in months. Agonizing cramps seize you as you fall to the floor."
+ if(fuel <= 0)
+ dat += "
You ran out of fuel, and drift, slowly, into a star."
+ if(emagged)
+ var/mob/living/M = user
+ M.adjust_fire_stacks(5)
+ M.IgniteMob() //flew into a star, so you're on fire
+ user << "You feel an immense wave of heat emanate from the arcade machine. Your skin bursts into flames."
+ dat += "
OK...
"
+
+ if(emagged)
+ user << "You're never going to make it to Orion..."
+ user.death()
+ emagged = 0 //removes the emagged status after you lose
+ gameStatus = ORION_STATUS_START
+ name = "The Orion Trail"
+ desc = "Learn how our ancestors got to Orion, and have fun in the process!"
+
+ else if(event)
+ dat = eventdat
+ else if(gameStatus == ORION_STATUS_NORMAL)
+ var/title = stops[turns]
+ var/subtext = stopblurbs[turns]
+ dat = "[title]
"
+ dat += "[subtext]"
+ dat += "Crew:
"
+ dat += english_list(settlers)
+ dat += "
Food: [food] | Fuel: [fuel]"
+ dat += "
Engine Parts: [engine] | Hull Panels: [hull] | Electronics: [electronics]"
+ if(turns == 7)
+ dat += "Go Around Continue
"
+ else
+ dat += "Continue
"
+ dat += "Kill a crewmember
"
+ dat += "Close
"
+ else
+ dat = "The Orion Trail
"
+ dat += "
Experience the journey of your ancestors!
"
+ dat += "New Game"
+ dat += "Close
"
+ var/datum/browser/popup = new(user, "arcade", "The Orion Trail",400,700)
+ popup.set_content(dat)
+ popup.set_title_image(user.browse_rsc_icon(src.icon, src.icon_state))
+ popup.open()
+ return
+
+/obj/machinery/computer/arcade/orion_trail/Topic(href, href_list)
+ if(..())
+ return
+ if(href_list["close"])
+ usr.unset_machine()
+ usr << browse(null, "window=arcade")
+
+ if(busy)
+ return
+ busy = 1
+
+ if (href_list["continue"]) //Continue your travels
+ if(gameStatus == ORION_STATUS_NORMAL && !event && turns != 7)
+ if(turns >= ORION_TRAIL_WINTURN)
+ win()
+ else
+ food -= (alive+lings_aboard)*2
+ fuel -= 5
+ if(turns == 2 && prob(30))
+ event = ORION_TRAIL_COLLISION
+ event()
+ else if(prob(75))
+ event = pickweight(events)
+ if(lings_aboard)
+ if(event == ORION_TRAIL_LING || prob(55))
+ event = ORION_TRAIL_LING_ATTACK
+ event()
+ turns += 1
+ if(emagged)
+ var/mob/living/carbon/M = usr //for some vars
+ switch(event)
+ if(ORION_TRAIL_RAIDERS)
+ if(prob(50))
+ usr << "You hear battle shouts. The tramping of boots on cold metal. Screams of agony. The rush of venting air. Are you going insane?"
+ M.hallucination += 30
+ else
+ usr << "Something strikes you from behind! It hurts like hell and feel like a blunt weapon, but nothing is there..."
+ M.take_organ_damage(30)
+ playsound(loc, 'sound/weapons/genhit2.ogg', 100, 1)
+ if(ORION_TRAIL_ILLNESS)
+ var/severity = rand(1,3) //pray to RNGesus. PRAY, PIGS
+ if(severity == 1)
+ M << "You suddenly feel slightly nauseous." //got off lucky
+ if(severity == 2)
+ usr << "You suddenly feel extremely nauseous and hunch over until it passes."
+ M.Stun(3)
+ if(severity >= 3) //you didn't pray hard enough
+ M << "An overpowering wave of nausea consumes over you. You hunch over, your stomach's contents preparing for a spectacular exit."
+ M.Stun(5)
+ sleep(30)
+ M.vomit(50)
+ if(ORION_TRAIL_FLUX)
+ if(prob(75))
+ M.Weaken(3)
+ say("A sudden gust of powerful wind slams [M] into the floor!")
+ M.take_organ_damage(25)
+ playsound(src.loc, 'sound/weapons/Genhit.ogg', 100, 1)
+ else
+ M << "A violent gale blows past you, and you barely manage to stay standing!"
+ if(ORION_TRAIL_COLLISION) //by far the most damaging event
+ if(prob(90))
+ playsound(src.loc, 'sound/effects/bang.ogg', 100, 1)
+ var/turf/open/floor/F
+ for(F in orange(1, src))
+ F.ChangeTurf(F.baseturf)
+ say("Something slams into the floor around [src], exposing it to space!")
+ if(hull)
+ sleep(10)
+ say("A new floor suddenly appears around [src]. What the hell?")
+ playsound(src.loc, 'sound/weapons/Genhit.ogg', 100, 1)
+ var/turf/open/space/T
+ for(T in orange(1, src))
+ T.ChangeTurf(/turf/open/floor/plating/)
+ else
+ say("Something slams into the floor around [src] - luckily, it didn't get through!")
+ playsound(src.loc, 'sound/effects/bang.ogg', 50, 1)
+ if(ORION_TRAIL_MALFUNCTION)
+ playsound(src.loc, 'sound/effects/EMPulse.ogg', 50, 1)
+ src.visible_message("[src] malfunctions, randomizing in-game stats!")
+ var/oldfood = food
+ var/oldfuel = fuel
+ food = rand(10,80) / rand(1,2)
+ fuel = rand(10,60) / rand(1,2)
+ if(electronics)
+ sleep(10)
+ if(oldfuel > fuel && oldfood > food)
+ src.audible_message("[src] lets out a somehow reassuring chime.")
+ else if(oldfuel < fuel || oldfood < food)
+ src.audible_message("[src] lets out a somehow ominous chime.")
+ food = oldfood
+ fuel = oldfuel
+ playsound(src.loc, 'sound/machines/chime.ogg', 50, 1)
+
+ else if(href_list["newgame"]) //Reset everything
+ if(gameStatus == ORION_STATUS_START)
+ newgame()
+ else if(href_list["menu"]) //back to the main menu
+ if(gameStatus == ORION_STATUS_GAMEOVER)
+ gameStatus = ORION_STATUS_START
+ event = null
+ food = 80
+ fuel = 60
+ settlers = list("Harry","Larry","Bob")
+ else if(href_list["slow"]) //slow down
+ if(event == ORION_TRAIL_FLUX)
+ food -= (alive+lings_aboard)*2
+ fuel -= 5
+ event = null
+ else if(href_list["pastblack"]) //slow down
+ if(turns == 7)
+ food -= ((alive+lings_aboard)*2)*3
+ fuel -= 15
+ turns += 1
+ event = null
+ else if(href_list["useengine"]) //use parts
+ if(event == ORION_TRAIL_BREAKDOWN)
+ engine = max(0, --engine)
+ event = null
+ else if(href_list["useelec"]) //use parts
+ if(event == ORION_TRAIL_MALFUNCTION)
+ electronics = max(0, --electronics)
+ event = null
+ else if(href_list["usehull"]) //use parts
+ if(event == ORION_TRAIL_COLLISION)
+ hull = max(0, --hull)
+ event = null
+ else if(href_list["wait"]) //wait 3 days
+ if(event == ORION_TRAIL_BREAKDOWN || event == ORION_TRAIL_MALFUNCTION || event == ORION_TRAIL_COLLISION)
+ food -= ((alive+lings_aboard)*2)*3
+ event = null
+ else if(href_list["keepspeed"]) //keep speed
+ if(event == ORION_TRAIL_FLUX)
+ if(prob(75))
+ event = "Breakdown"
+ event()
+ else
+ event = null
+ else if(href_list["blackhole"]) //keep speed past a black hole
+ if(turns == 7)
+ if(prob(75))
+ event = ORION_TRAIL_BLACKHOLE
+ event()
+ if(emagged) //has to be here because otherwise it doesn't work
+ playsound(src.loc, 'sound/effects/supermatter.ogg', 100, 1)
+ say("A miniature black hole suddenly appears in front of [src], devouring [usr] alive!")
+ usr.Stun(10) //you can't run :^)
+ var/S = new /obj/singularity/academy(usr.loc)
+ emagged = 0 //immediately removes emagged status so people can't kill themselves by sprinting up and interacting
+ sleep(50)
+ say("[S] winks out, just as suddenly as it appeared.")
+ qdel(S)
+ else
+ event = null
+ turns += 1
+ else if(href_list["holedeath"])
+ if(event == ORION_TRAIL_BLACKHOLE)
+ gameStatus = ORION_STATUS_GAMEOVER
+ event = null
+ else if(href_list["eventclose"]) //end an event
+ if(canContinueEvent)
+ event = null
+
+ else if(href_list["killcrew"]) //shoot a crewmember
+ if(gameStatus == ORION_STATUS_NORMAL || event == ORION_TRAIL_LING)
+ var/sheriff = remove_crewmember() //I shot the sheriff
+ playsound(loc,'sound/weapons/Gunshot.ogg', 100, 1)
+
+ if(settlers.len == 0 || alive == 0)
+ say("The last crewmember [sheriff], shot themselves, GAME OVER!")
+ if(emagged)
+ usr.death(0)
+ emagged = 0
+ gameStatus = ORION_STATUS_GAMEOVER
+ event = null
+ else if(emagged)
+ if(usr.name == sheriff)
+ say("The crew of the ship chose to kill [usr.name]!")
+ usr.death(0)
+
+ if(event == ORION_TRAIL_LING) //only ends the ORION_TRAIL_LING event, since you can do this action in multiple places
+ event = null
+
+ //Spaceport specific interactions
+ //they get a header because most of them don't reset event (because it's a shop, you leave when you want to)
+ //they also call event() again, to regen the eventdata, which is kind of odd but necessary
+ else if(href_list["buycrew"]) //buy a crewmember
+ if(gameStatus == ORION_STATUS_MARKET)
+ if(!spaceport_raided && food >= 10 && fuel >= 10)
+ var/bought = add_crewmember()
+ last_spaceport_action = "You hired [bought] as a new crewmember."
+ fuel -= 10
+ food -= 10
+ event()
+
+ else if(href_list["sellcrew"]) //sell a crewmember
+ if(gameStatus == ORION_STATUS_MARKET)
+ if(!spaceport_raided && settlers.len > 1)
+ var/sold = remove_crewmember()
+ last_spaceport_action = "You sold your crewmember, [sold]!"
+ fuel += 7
+ food += 7
+ event()
+
+ else if(href_list["leave_spaceport"])
+ if(gameStatus == ORION_STATUS_MARKET)
+ event = null
+ gameStatus = ORION_STATUS_NORMAL
+ spaceport_raided = 0
+ spaceport_freebie = 0
+ last_spaceport_action = ""
+
+ else if(href_list["raid_spaceport"])
+ if(gameStatus == ORION_STATUS_MARKET)
+ if(!spaceport_raided)
+ var/success = min(15 * alive,100) //default crew (4) have a 60% chance
+ spaceport_raided = 1
+
+ var/FU = 0
+ var/FO = 0
+ if(prob(success))
+ FU = rand(5,15)
+ FO = rand(5,15)
+ last_spaceport_action = "You successfully raided the spaceport! you gained [FU] Fuel and [FO] Food! (+[FU]FU,+[FO]FO)"
+ else
+ FU = rand(-5,-15)
+ FO = rand(-5,-15)
+ last_spaceport_action = "You failed to raid the spaceport! you lost [FU*-1] Fuel and [FO*-1] Food in your scramble to escape! ([FU]FU,[FO]FO)"
+
+ //your chance of lose a crewmember is 1/2 your chance of success
+ //this makes higher % failures hurt more, don't get cocky space cowboy!
+ if(prob(success*5))
+ var/lost_crew = remove_crewmember()
+ last_spaceport_action = "You failed to raid the spaceport! you lost [FU*-1] Fuel and [FO*-1] Food, AND [lost_crew] in your scramble to escape! ([FU]FI,[FO]FO,-Crew)"
+ if(emagged)
+ say("WEEWOO WEEWOO, Spaceport Security en route!")
+ for(var/i, i<=3, i++)
+ var/mob/living/simple_animal/hostile/syndicate/ranged/orion/O = new/mob/living/simple_animal/hostile/syndicate/ranged/orion(get_turf(src))
+ O.target = usr
+
+
+ fuel += FU
+ food += FO
+ event()
+
+ else if(href_list["buyparts"])
+ if(gameStatus == ORION_STATUS_MARKET)
+ if(!spaceport_raided && fuel > 5)
+ switch(text2num(href_list["buyparts"]))
+ if(1) //Engine Parts
+ engine++
+ last_spaceport_action = "Bought Engine Parts"
+ if(2) //Hull Plates
+ hull++
+ last_spaceport_action = "Bought Hull Plates"
+ if(3) //Spare Electronics
+ electronics++
+ last_spaceport_action = "Bought Spare Electronics"
+ fuel -= 5 //they all cost 5
+ event()
+
+ else if(href_list["trade"])
+ if(gameStatus == ORION_STATUS_MARKET)
+ if(!spaceport_raided)
+ switch(text2num(href_list["trade"]))
+ if(1) //Fuel
+ if(fuel > 5)
+ fuel -= 5
+ food += 5
+ last_spaceport_action = "Traded Fuel for Food"
+ event()
+ if(2) //Food
+ if(food > 5)
+ fuel += 5
+ food -= 5
+ last_spaceport_action = "Traded Food for Fuel"
+ event()
+
+ src.add_fingerprint(usr)
+ src.updateUsrDialog()
+ busy = 0
+ return
+
+
+/obj/machinery/computer/arcade/orion_trail/proc/event()
+ eventdat = "[event]
"
+ canContinueEvent = 0
+ switch(event)
+ if(ORION_TRAIL_RAIDERS)
+ eventdat += "Raiders have come aboard your ship!"
+ if(prob(50))
+ var/sfood = rand(1,10)
+ var/sfuel = rand(1,10)
+ food -= sfood
+ fuel -= sfuel
+ eventdat += "
They have stolen [sfood] Food and [sfuel] Fuel."
+ else if(prob(10))
+ var/deadname = remove_crewmember()
+ eventdat += "
[deadname] tried to fight back but was killed."
+ else
+ eventdat += "
Fortunately you fended them off without any trouble."
+ eventdat += "Continue
"
+ eventdat += "Close
"
+ canContinueEvent = 1
+
+ if(ORION_TRAIL_FLUX)
+ eventdat += "This region of space is highly turbulent.
If we go slowly we may avoid more damage, but if we keep our speed we won't waste supplies."
+ eventdat += "
What will you do?"
+ eventdat += "Slow Down Continue
"
+ eventdat += "Close
"
+
+ if(ORION_TRAIL_ILLNESS)
+ eventdat += "A deadly illness has been contracted!"
+ var/deadname = remove_crewmember()
+ eventdat += "
[deadname] was killed by the disease."
+ eventdat += "Continue
"
+ eventdat += "Close
"
+ canContinueEvent = 1
+
+ if(ORION_TRAIL_BREAKDOWN)
+ eventdat += "Oh no! The engine has broken down!"
+ eventdat += "
You can repair it with an engine part, or you can make repairs for 3 days."
+ if(engine >= 1)
+ eventdat += "Use PartWait
"
+ else
+ eventdat += "Wait
"
+ eventdat += "Close
"
+
+ if(ORION_TRAIL_MALFUNCTION)
+ eventdat += "The ship's systems are malfunctioning!"
+ eventdat += "
You can replace the broken electronics with spares, or you can spend 3 days troubleshooting the AI."
+ if(electronics >= 1)
+ eventdat += "Use PartWait
"
+ else
+ eventdat += "Wait
"
+ eventdat += "Close
"
+
+ if(ORION_TRAIL_COLLISION)
+ eventdat += "Something hit us! Looks like there's some hull damage."
+ if(prob(25))
+ var/sfood = rand(5,15)
+ var/sfuel = rand(5,15)
+ food -= sfood
+ fuel -= sfuel
+ eventdat += "
[sfood] Food and [sfuel] Fuel was vented out into space."
+ if(prob(10))
+ var/deadname = remove_crewmember()
+ eventdat += "
[deadname] was killed by rapid depressurization."
+ eventdat += "
You can repair the damage with hull plates, or you can spend the next 3 days welding scrap together."
+ if(hull >= 1)
+ eventdat += "Use PartWait
"
+ else
+ eventdat += "Wait
"
+ eventdat += "Close
"
+
+ if(ORION_TRAIL_BLACKHOLE)
+ eventdat += "You were swept away into the black hole."
+ eventdat += "Oh...
"
+ eventdat += "Close
"
+ settlers = list()
+
+ if(ORION_TRAIL_LING)
+ eventdat += "Strange reports warn of changelings infiltrating crews on trips to Orion..."
+ if(settlers.len <= 2)
+ eventdat += "
Your crew's chance of reaching Orion is so slim the changelings likely avoided your ship..."
+ eventdat += "Continue
"
+ eventdat += "Close
"
+ if(prob(10)) // "likely", I didn't say it was guaranteed!
+ lings_aboard = min(++lings_aboard,2)
+ else
+ if(lings_aboard) //less likely to stack lings
+ if(prob(20))
+ lings_aboard = min(++lings_aboard,2)
+ else if(prob(70))
+ lings_aboard = min(++lings_aboard,2)
+
+ eventdat += "Kill a crewmember
"
+ eventdat += "Risk it
"
+ eventdat += "Close
"
+ canContinueEvent = 1
+
+ if(ORION_TRAIL_LING_ATTACK)
+ if(lings_aboard <= 0) //shouldn't trigger, but hey.
+ eventdat += "Haha, fooled you, there are no changelings on board!"
+ eventdat += "
(You should report this to a coder :S)"
+ else
+ var/ling1 = remove_crewmember()
+ var/ling2 = ""
+ if(lings_aboard >= 2)
+ ling2 = remove_crewmember()
+
+ eventdat += "Oh no, some of your crew are Changelings!"
+ if(ling2)
+ eventdat += "
[ling1] and [ling2]'s arms twist and contort into grotesque blades!"
+ else
+ eventdat += "
[ling1]'s arm twists and contorts into a grotesque blade!"
+
+ var/chance2attack = alive*20
+ if(prob(chance2attack))
+ var/chancetokill = 30*lings_aboard-(5*alive) //eg: 30*2-(10) = 50%, 2 lings, 2 crew is 50% chance
+ if(prob(chancetokill))
+ var/deadguy = remove_crewmember()
+ eventdat += "
The Changeling[ling2 ? "s":""] run[ling2 ? "":"s"] up to [deadguy] and capitulates them!"
+ else
+ eventdat += "
You valiantly fight off the Changeling[ling2 ? "s":""]!"
+ eventdat += "
You cut the Changeling[ling2 ? "s":""] up into meat... Eww"
+ if(ling2)
+ food += 30
+ lings_aboard = max(0,lings_aboard-2)
+ else
+ food += 15
+ lings_aboard = max(0,--lings_aboard)
+ else
+ eventdat += "
The Changeling[ling2 ? "s":""] run[ling2 ? "":"s"] away, What wimps!"
+ if(ling2)
+ lings_aboard = max(0,lings_aboard-2)
+ else
+ lings_aboard = max(0,--lings_aboard)
+
+ eventdat += "Continue
"
+ eventdat += "Close
"
+ canContinueEvent = 1
+
+
+ if(ORION_TRAIL_SPACEPORT)
+ gameStatus = ORION_STATUS_MARKET
+ if(spaceport_raided)
+ eventdat += "The Spaceport is on high alert! they wont let you dock since you tried to attack them!"
+ if(last_spaceport_action)
+ eventdat += "
Last Spaceport Action: [last_spaceport_action]"
+ eventdat += "Depart Spaceport
"
+ eventdat += "Close
"
+ else
+ eventdat += "You pull the ship up to dock at a nearby Spaceport, lucky find!"
+ eventdat += "
This Spaceport is home to travellers who failed to reach Orion, but managed to find a different home..."
+ eventdat += "
Trading terms: FU = Fuel, FO = Food"
+ if(last_spaceport_action)
+ eventdat += "
Last Spaceport Action: [last_spaceport_action]"
+ eventdat += "Crew:
"
+ eventdat += english_list(settlers)
+ eventdat += "
Food: [food] | Fuel: [fuel]"
+ eventdat += "
Engine Parts: [engine] | Hull Panels: [hull] | Electronics: [electronics]"
+
+
+ //If your crew is pathetic you can get freebies (provided you haven't already gotten one from this port)
+ if(!spaceport_freebie && (fuel < 20 || food < 20))
+ spaceport_freebie++
+ var/FU = 10
+ var/FO = 10
+ var/freecrew = 0
+ if(prob(30))
+ FU = 25
+ FO = 25
+
+ if(prob(10))
+ add_crewmember()
+ freecrew++
+
+ eventdat += "
The traders of the spaceport take pitty on you, and give you some food and fuel (+[FU]FU,+[FO]FO)"
+ if(freecrew)
+ eventdat += "
You also gain a new crewmember!"
+
+ fuel += FU
+ food += FO
+
+ //CREW INTERACTIONS
+ eventdat += "Crew Management:
"
+
+ //Buy crew
+ if(food >= 10 && fuel >= 10)
+ eventdat += "Hire a new Crewmember (-10FU,-10FO)
"
+ else
+ eventdat += "Cant afford a new Crewmember
"
+
+ //Sell crew
+ if(settlers.len > 1)
+ eventdat += "Sell crew for Fuel and Food (+7FU,+7FO)
"
+ else
+ eventdat += "Cant afford to sell a Crewmember
"
+
+ //BUY/SELL STUFF
+ eventdat += "Spare Parts:
"
+
+ //Engine parts
+ if(fuel > 5)
+ eventdat += "Buy Engine Parts (-5FU)
"
+ else
+ eventdat += "Cant afford to buy Engine Parts"
+
+ //Hull plates
+ if(fuel > 5)
+ eventdat += "
Buy Hull Plates (-5FU)
"
+ else
+ eventdat += "Cant afford to buy Hull Plates"
+
+ //Electronics
+ if(fuel > 5)
+ eventdat += "
Buy Spare Electronics (-5FU)
"
+ else
+ eventdat += "Cant afford to buy Spare Electronics"
+
+ //Trade
+ if(fuel > 5)
+ eventdat += "
Trade Fuel for Food (-5FU,+5FO)
"
+ else
+ eventdat += "Cant afford to Trade Fuel for Food 5)
+ eventdat += "
Trade Food for Fuel (+5FU,-5FO)
"
+ else
+ eventdat += "Cant afford to Trade Food for FuelYou override the cheat code menu and skip to Cheat #[rand(1, 50)]: Realism Mode.