Restarting world!"
sleep(50)
if(config.logadmin) world.log << "ADMIN: Rebooting due to [src.key]"
world.Reboot()
return
/mob/proc/monkey(mob/M as mob in world)
set category = "Admin"
set hidden = 1
for(var/obj/O in M)
//O = null
del(O)
//Foreach goto(20)
var/mob/monkey/O = new /mob/monkey( M.loc )
if (M.currentDrone!=null)
M.currentDrone:releaseControl(0)
M.client.mob = O
O.loc = M.loc
//M = null
del(M)
return
/mob/proc/toggle_alter()
set category = "Admin"
if (src.verbs.Find(/mob/proc/carboncopy))
src.verbs -= /mob/proc/carboncopy
else
src.verbs -= /mob/proc/carboncopy
src.verbs += /mob/proc/carboncopy
return
/mob/proc/carboncopy(atom/movable/O as mob|obj in world)
var/M = O
if ((istype(M, /mob) && M:key))
usr << "You can't duplicate PCs' mobs."
return
var/mob/new_O = new O.type( usr.loc )
for(var/V in O.vars)
if (issaved(O.vars[V]))
new_O.vars[V] = O.vars[V]
//Foreach goto(72)
return
/mob/proc/secrets(pass as text)
set category = "Admin"
if(config.logadmin) world.log << text("ADMIN: [] used secret []", usr.key, pass)
switch(pass)
if("sec_clothes")
for(var/obj/item/weapon/clothing/under/O in world)
//O = null
del(O)
//Foreach goto(52)
if("sec_all_clothes")
for(var/obj/item/weapon/clothing/O in world)
//O = null
del(O)
//Foreach goto(97)
if("sec_classic1")
for(var/obj/item/weapon/clothing/suit/firesuit/O in world)
//O = null
del(O)
//Foreach goto(142)
for(var/obj/grille/O in world)
//O = null
del(O)
//Foreach goto(185)
for(var/obj/machinery/pod/O in world)
//O = null
del(O)
//Foreach goto(228)
if("clear_bombs")
for(var/obj/item/weapon/assembly/r_i_ptank/O in world)
//O = null
del(O)
//Foreach goto(273)
if("dissimulate_aspect")
usr.invisibility = !( usr.invisibility )
usr.sight |= SEE_SELF
world << text("\red [] manipulates the visible plane.", usr)
if("teleport")
var/mob/M = input("Who do you wish to goto?", null, null, null) as null|mob in world
if (!( ismob(M) ))
return
else
src.loc = M.loc
world << text("\red [] teleports to []!", usr, M)
if("summon")
var/mob/M = input("Who do you wish to summon?", null, null, null) as null|mob in world
if (!( ismob(M) ))
return
else
M.loc = src.loc
world << text("\red [] summons []!", usr, M)
if("list_bombers")
usr << "\blue Don't be insane about this list Get the facts."
for(var/l in bombers)
usr << text("[] 'made' a bomb.", l)
//Foreach goto(476)
if("check_antagonist")
if (ticker)
if (ticker.killer)
if (ticker.killer.ckey)
usr << text("The traitor's key is [].", ticker.killer.ckey)
else
usr << "It seems like the traitor logged out..."
else
usr << "There is no traitor."
else
usr << "The game has not started yet."
if("power")
for(var/area/A in world)
A.requires_power = 0
A.power_light = 1
A.power_equip = 1
A.power_environ = 1
A.power_change()
if("wave")
meteor_wave()
else
return
/mob/proc/ret_grab(obj/list_container/mobl/L as obj, flag)
if ((!( istype(src.l_hand, /obj/item/weapon/grab) ) && !( istype(src.r_hand, /obj/item/weapon/grab) )))
if (!( L ))
return null
else
return L.container
else
if (!( L ))
L = new /obj/list_container/mobl( null )
L.container += src
L.master = src
if (istype(src.l_hand, /obj/item/weapon/grab))
var/obj/item/weapon/grab/G = src.l_hand
if (!( L.container.Find(G.affecting) ))
L.container += G.affecting
G.affecting.ret_grab(L, 1)
if (istype(src.r_hand, /obj/item/weapon/grab))
var/obj/item/weapon/grab/G = src.r_hand
if (!( L.container.Find(G.affecting) ))
L.container += G.affecting
G.affecting.ret_grab(L, 1)
if (!( flag ))
if (L.master == src)
var/list/temp = list( )
temp += L.container
//L = null
del(L)
return temp
else
return L.container
return
/mob/verb/mode()
set src = usr
var/obj/item/weapon/W = src.equipped()
if (W)
W.attack_self(src)
return
/*
/mob/verb/dump_source()
var/master = ""
for(var/t in typesof(/area))
master += text("[]\n", t)
//Foreach goto(26)
src << browse(master)
return
*/
/mob/verb/memory()
src << browse(text("Memory::
[]", src.memory), "window=memory")
return
/mob/verb/add_memory(msg as message)
src.memory += text("[]
", msg)
src << browse(text("Memory::
[]", src.memory), "window=memory")
return
/mob/verb/toggle_single_click()
src.disable_one_click = !disable_one_click
if (src.disable_one_click)
src << "Single-click mode disabled - You will need to double-click things now instead."
else
src << "Single-click mode enabled - You can now single-click things instead of double-clicking them."
if ((!ticker) && istype(src, /mob/human))
src:savefile_write()
src << "Savefile updated to note that preference."
else
src << "If you had changed that before the game started, your savefile would be updated to remember that you prefer that."
/mob/verb/help()
src << browse('help.htm', "window=help")
return
/mob/verb/abandon_mob()
if (!( abandon_allowed ))
return
if ((src.stat != 2 || !( ticker )))
usr << "\blue You must be dead to use this!"
return
if(config.loggame) world.log << "GAME: [usr.name]/[usr.key] used abandon mob."
usr << "\blue Please roleplay correctly!"
if(!src.client)
if(config.loggame) world.log << "GAME: [usr.key] AM failed due to disconnect."
return
for(var/obj/screen/t in usr.client.screen)
if (t.loc == null)
//t = null
del(t)
//Foreach goto(66)
if(!src.client)
if(config.loggame) world.log << "GAME: [usr.key] AM failed due to disconnect."
return
var/mob/human/M = new /mob/human( )
if(!src.client)
if(config.loggame) world.log << "GAME: [usr.key] AM failed due to disconnect."
del(M)
return
src.lastKnownIP = null
M.key = src.client.key
return
/mob/verb/changes()
src << browse(text("[]", changes), "window=changes")
return
/mob/verb/succumb()
set hidden = 1
if ((src.health < 0 && src.health > -95.0))
src.oxyloss += src.health + 99
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
usr << "\blue You have given up life and succumbed to death."
return
/mob/verb/say()
return
/mob/verb/observe()
if(src.client.holder && src.client.holder.level >= 3)
var/eye = input("Please, select a player!", "Admin Observe", null, null) as null|mob in world
if(eye)
src.reset_view(eye)
client.adminobs = 1
if(eye == src.client.mob)
client.adminobs = 0
else
src.reset_view(null)
client.adminobs = 0
return
else if (src.stat != 2)
usr << "\blue You must be dead to use this!"
return
src.client.perspective = EYE_PERSPECTIVE
var/eye = input("Please, select a player!", "Watch", null, null) as null|mob in world
if(eye)
src.client.eye = eye
else
src.client.eye = src.client.mob
return
/mob/verb/cancel_camera()
src.reset_view(null)
src.machine = null
src:cameraFollow = null
/mob/verb/listen_ooc()
if (src.client)
src.client.listen_ooc = !( src.client.listen_ooc )
if (src.client.listen_ooc)
src << "\blue You are now listening to messages on the OOC channel. Don't abuse this!"
else
src << "\blue You are no longer listening to messages on the OOC channel."
return
/mob/verb/ooc(msg as text)
msg = cleanstring(msg)
msg = html_encode(copytext(msg, 1, 128))
if (!(msg))
return
if ((ooc_allowed && !(src.muted)))
if(config.logooc) world.log << "OOC: [src.name]/[src.key] : [msg]"
for(var/mob/M in world)
if ((M.client && M.client.listen_ooc))
M << text("OOC: []: []", src.key, msg)
return
/mob/verb/switch_hud()
src.client.screen -= main_hud.contents
src.client.screen -= main_hud2.contents
if (src.hud_used == main_hud)
src.favorite_hud = 1
src.hud_used = main_hud2
src.oxygen.icon = 'screen.dmi'
src.toxin.icon = 'screen.dmi'
src.internals.icon = 'screen.dmi'
src.mach.icon = 'screen.dmi'
src.fire.icon = 'screen.dmi'
src.healths.icon = 'screen.dmi'
src.pullin.icon = 'screen.dmi'
src.blind.icon = 'screen.dmi'
src.hands.icon = 'screen.dmi'
src.flash.icon = 'screen.dmi'
src.sleep.icon = 'screen.dmi'
src.rest.icon = 'screen.dmi'
else
src.favorite_hud = 0
src.hud_used = main_hud
src.oxygen.icon = 'screen1.dmi'
src.toxin.icon = 'screen1.dmi'
src.internals.icon = 'screen1.dmi'
src.mach.icon = 'screen1.dmi'
src.fire.icon = 'screen1.dmi'
src.healths.icon = 'screen1.dmi'
src.pullin.icon = 'screen1.dmi'
src.blind.icon = 'screen1.dmi'
src.hands.icon = 'screen1.dmi'
src.flash.icon = 'screen1.dmi'
src.sleep.icon = 'screen1.dmi'
src.rest.icon = 'screen1.dmi'
if ((!ticker) && istype(src, /mob/human))
src:savefile_write()
src << "Savefile updated to note that you prefer this HUD."
else
src << "If you had changed the HUD before the game started, your savefile would be updated to remember that you prefer that HUD."
src.client.screen -= src.hud_used.adding
src.client.screen += src.hud_used.adding
return
/mob/Login()
if(ticker && master_mode == "sandbox" && src.sandbox==null)
src.CanBuild()
src.sight |= SEE_SELF
if (CanAdmin())
if (src.droneTransitioning==0)
src << text("\blue The game ip is byond://[]:[] !", world.address, world.port)
src.verbs += /mob/proc/mute
src.verbs += /mob/proc/changemessage
src.verbs += /mob/proc/boot
src.verbs += /mob/proc/changemode
src.verbs += /mob/proc/restart
src.verbs += /mob/proc/who
src.verbs += /mob/proc/change_name
src.verbs += /mob/proc/show_help
src.verbs += /mob/proc/toggle_ooc
src.verbs += /mob/proc/toggle_abandon
src.verbs += /mob/proc/toggle_enter
src.verbs += /mob/proc/toggle_ai
src.verbs += /mob/proc/toggle_shuttle
src.verbs += /mob/proc/delay_start
src.verbs += /mob/proc/start_now
src.verbs += /mob/proc/worldsize
src.verbs += /mob/proc/make_gift
src.verbs += /mob/proc/make_flag
src.verbs += /mob/proc/make_pill
src.verbs += /mob/proc/show_ctf
src.verbs += /mob/proc/ban
src.verbs += /mob/proc/unban
src.verbs += /mob/proc/secrets
src.verbs += /mob/proc/carboncopy
src.verbs += /mob/proc/toggle_alter
src.verbs += /mob/proc/list_dna
src.verbs += /proc/Vars
..()
return
/mob/CheckPass(mob/M as mob)
if (istype(M, /mob)) //BYOND calls functions even when the passed parameters are not the specified types
if (config.walkable_not_pullable_drones)
if (istype(src, /mob) && (istype(src, /mob/drone) ^ istype(M, /mob/drone)))
return 1
if ((src.other_mobs && ismob(M) && M.other_mobs))
return 1
else
return (!( M.density ) || !( src.density ) || src.lying)
else
return (!( M.density ) || !( src.density ))
/mob/burn(fi_amount)
for(var/atom/movable/A in src)
A.burn(fi_amount)
//Foreach goto(15)
return
/mob/Topic(href, href_list)
if (href_list["mach_close"])
var/t1 = text("window=[]", href_list["mach_close"])
src.machine = null
src << browse(null, t1)
if(href_list["priv_msg"])
var/mob/M = locate(href_list["priv_msg"])
if(M)
if (!( ismob(M) ))
return
var/t = input("Message:", text("Private message to []", M.key), null, null) as text
if (!( t ))
return
if (usr.client && usr.client.holder)
M << "\blue Admin PM from-[usr.key]: [t]"
usr << "\blue Admin PM to-[M.key]: [t]"
else
M << "\blue Reply PM from-[usr.key]: [t]"
usr << "\blue Reply PM to-[M.key]: [t]"
if(config.logadmin) world.log << "ADMIN: PM: [usr.key]->[M.key] : [t]"
..()
return
/mob/MouseDrop(mob/M as mob)
..()
if ((M != usr || usr == src || get_dist(usr, src) > 1))
return
src.show_inv(usr)
return
/mob/las_act(flag)
if (flag == "bullet")
if (src.stat != 2)
if (istype(src, /mob/human))
var/mob/human/H = src
var/dam_zone = pick("chest", "chest", "chest", "diaper", "head")
if (H.organs[text("[]", dam_zone)])
var/obj/item/weapon/organ/external/affecting = H.organs[text("[]", dam_zone)]
if (affecting.take_damage(51, 0))
H.UpdateDamageIcon()
else
H.UpdateDamage()
else
src.bruteloss += 51
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (prob(80))
src.weakened = 2
if (flag)
if (prob(75))
src.stunned = 10
else
src.weakened = 10
else
if (src.stat != 2)
if (istype(src, /mob/human))
var/mob/human/H = src
var/dam_zone = pick("chest", "chest", "chest", "diaper", "head")
if (H.organs[text("[]", dam_zone)])
var/obj/item/weapon/organ/external/affecting = H.organs[text("[]", dam_zone)]
if (affecting.take_damage(20, 0))
H.UpdateDamageIcon()
else
H.UpdateDamage()
else
src.bruteloss += 20
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (prob(25))
src.stunned = 2
return
/mob/ghost/proc/infest()
return
/mob/ghost/Move()
if (src.stunned)
return
. = ..()
return
/mob/ghost/show_inv()
return
return
/mob/ghost/Bump()
return
return
/mob/ghost/UpdateClothing()
for(var/i in src.overlays)
src.overlays -= i
//Foreach goto(17)
if (src.wear_mask)
if (istype(src.wear_mask, /obj/item/weapon/clothing/mask))
var/t1 = src.wear_mask.s_istate
if (!( t1 ))
t1 = src.icon_state
src.overlays += image("icon" = 'ghost.dmi', "icon_state" = text("[][]", t1, (!( src.lying ) ? null : "2")), "layer" = src.layer)
src.wear_mask.screen_loc = "2,3"
if (src.r_hand)
var/t1 = src.r_hand.s_istate
if (!( t1 ))
t1 = src.icon_state
src.overlays += image("icon" = 'r_items.dmi', "icon_state" = t1, "layer" = src.layer)
src.r_hand.screen_loc = "1,2"
if (src.l_hand)
var/t1 = src.l_hand.s_istate
if (!( t1 ))
t1 = src.icon_state
src.overlays += image("icon" = 'l_items.dmi', "icon_state" = t1, "layer" = src.layer)
src.l_hand.screen_loc = "3,2"
if (src.client)
src.client.screenOrBackupRemove(src.contents)
src.client.screenOrBackupAdd(src.contents)
return
/mob/ghost/Life()
if (src.stat == 2)
death()
return
src.canmove = 1
src.lying = 1
src.stat = 0
if (src.weakened > 0)
src.weakened--
src.icon_state = "ghost"
else
src.icon_state = "blank"
if (src.stunned > 0)
src.stunned--
src.canmove = 0
for(var/obj/item/O in src)
O.loc = src.loc
O.layer = initial(O.layer)
src.u_equip(O)
//Foreach goto(109)
if (src.health < 0)
src.stat = 2
return
return
/mob/ghost/db_click()
return
return
/mob/ghost/equipped()
return null
return
/mob/ghost/m_delay()
return -100.0
return
/mob/ghost/reset_view()
if (src.client)
src.client.eye = src
else
return ..()
return
/mob/ghost/las_act()
return
return
/mob/ghost/ex_act()
return
return
/mob/ghost/attack_hand(mob/M as mob)
src.infest(M)
return
/mob/ghost/attack_paw(mob/M as mob)
src.infest(M)
return
/mob/ghost/death()
src.stunned = 1
..()
return
/mob/ghost/meteorhit()
return
return
/mob/ghost/restrained()
return 0
return
/mob/ghost/attackby(nothing, mob/M as mob)
src.infest(M)
return 0
return
/mob/ghost/say(msg as text)
if (!( msg ))
return
msg = stutter(msg)
if (prob(25))
msg = stars(msg)
for(var/mob/M in hearers(null, null))
M.show_message(msg, 2)
//Foreach goto(58)
return
/mob/monkey/New()
spawn( 50 )
if (!( src.primary ))
var/t1 = rand(1000, 1500)
dna_ident += t1
if (dna_ident > 65536.0)
dna_ident = rand(1, 1500)
src.primary = new /obj/dna( null )
src.primary.uni_identity = text("[]", dna_ident)
while(length(src.primary.uni_identity) < 4)
src.primary.uni_identity = text("0[]", src.primary.uni_identity)
var/t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = (src.gender == "male" ? text("[]", rand(1, 124)) : text("[]", rand(127, 250)))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
src.primary.spec_identity = "2B6696D2B127E5A4"
src.primary.struc_enzyme = "CDEAF5B90AADBC6BA8033DB0A7FD613FA"
src.primary.use_enzyme = "C8FFFE7EC09D80AEDEDB9A5A0B4085B61"
src.primary.n_chromo = 16
src.name = text("monkey ([])", copytext(md5(src.primary.uni_identity), 2, 6))
return
..()
return
/mob/monkey/Bump(atom/movable/AM as mob|obj, yes)
spawn( 0 )
if ((!( yes ) || src.now_pushing))
return
..()
src.PushingBump(AM, yes)
return
/mob/monkey/Topic(href, href_list)
..()
if (href_list["mach_close"])
var/t1 = text("window=[]", href_list["mach_close"])
src.machine = null
src.client_mob() << browse(null, t1)
if ((href_list["item"] && !( usr.stat ) && !( usr.restrained() ) && get_dist(src, usr) <= 1))
var/obj/equip_e/monkey/O = new /obj/equip_e/monkey( )
O.source = usr
O.target = src
O.item = usr.equipped()
O.s_loc = usr.loc
O.t_loc = src.loc
O.place = href_list["item"]
src.requests += O
spawn( 0 )
O.process()
return
..()
return
/mob/monkey/meteorhit(obj/O as obj)
for(var/mob/M in viewers(src, null))
M.show_message(text("\red [] has been hit by []", src, O), 1)
//Foreach goto(19)
if (src.health > 0)
var/shielded = 0
for(var/obj/item/weapon/shield/S in src)
if (S.active)
shielded = 1
else
//Foreach continue //goto(79)
src.bruteloss += 30
if ((O.icon_state == "flaming" && !( shielded )))
src.fireloss += 40
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
return
/mob/monkey/las_act(flag)
if (flag == "bullet")
if (src.stat != 2)
src.bruteloss += 60
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
src.weakened = 10
if (flag)
if (prob(75))
src.stunned = 15
else
src.weakened = 15
else
if (src.stat != 2)
src.bruteloss += 20
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (prob(25))
src.stunned = 1
return
/mob/monkey/hand_p(mob/M as mob)
if ((M.a_intent == "hurt" && !( istype(src.wear_mask, /obj/item/weapon/clothing/mask/muzzle) )))
if ((prob(75) && src.health > 0))
for(var/mob/O in viewers(src, null))
O.show_message(text("\red The monkey has bit []!", src), 1)
//Foreach goto(63)
var/damage = rand(1, 5)
src.bruteloss += damage
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
for(var/mob/O in viewers(src, null))
O.show_message(text("\red The monkey has attempted to bite []!", src), 1)
//Foreach goto(144)
return
/mob/monkey/attack_paw(mob/M as mob)
if (M.a_intent == "help")
src.sleeping = 0
src.resting = 0
for(var/mob/O in viewers(src, null))
O.show_message("\blue The monkey shakes the monkey trying to wake him up!", 1)
//Foreach goto(47)
else
if ((M.a_intent == "hurt" && !( istype(src.wear_mask, /obj/item/weapon/clothing/mask/muzzle) )))
if ((prob(75) && src.health > 0))
for(var/mob/O in viewers(src, null))
O.show_message("\red The monkey has bit the monkey!", 1)
//Foreach goto(130)
var/damage = rand(1, 5)
src.bruteloss += damage
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
for(var/mob/O in viewers(src, null))
O.show_message("\red The monkey has attempted to bite the monkey!", 1)
//Foreach goto(209)
return
/mob/monkey/attack_hand(mob/M as mob)
if (!ticker)
M << "You cannot attack people before the game has started."
return
var/intentToApply = M.a_intent
var/aiControllingBonus = 0
var/corruptedIntent = 0
if (istype(M, /mob/drone))
var/mob/owner = M:controlledBy
if (owner!=null && istype(owner, /mob/ai))
aiControllingBonus = 1
else
if (M.a_intent=="help")
corruptedIntent = prob(50)
if (corruptedIntent)
if (prob(75)) //push down
intentToApply = "disarm"
else
intentToApply = "hurt"
else if (M.a_intent == "grab")
corruptedIntent = prob(50)
if (corruptedIntent)
if (prob(10)) //push down
intentToApply = "disarm"
else
intentToApply = "hurt"
else if (M.a_intent == "hurt")
corruptedIntent = prob(30)
if (corruptedIntent)
if (prob(20)) //push down
intentToApply = "disarm"
else
intentToApply = "grab"
else //disarm
corruptedIntent = prob(50)
if (corruptedIntent)
if (prob(50))
M.client_mob() << "You tried to disarm them, but managed to miss entirely."
for(var/mob/O in viewers(src, null))
O.show_message(text("\blue [] attempted to disarm [], but completely missed!", M, src), 1)
return
//otherwise we push them down
if (intentToApply == "help")
src.sleeping = 0
src.resting = 0
for(var/mob/O in viewers(src, null))
if ((O.hasClient() && !( O.blinded )))
O.show_message(text("\blue [] shakes the monkey trying to wake him up!", M), 1)
//Foreach goto(47)
else
if (intentToApply == "hurt")
if (istype(M, /mob/human))
if ((prob(75) && src.health > 0))
for(var/mob/O in viewers(src, null))
if ((O.hasClient() && !( O.blinded )))
O.show_message(text("\red [] has punched the monkey!", M), 1)
//Foreach goto(135)
var/damage = rand(5, 10)
if (prob(40))
damage = rand(10, 15)
if (src.paralysis < 5)
src.paralysis = rand(10, 15)
spawn( 0 )
for(var/mob/O in viewers(src, null))
if ((O.hasClient() && !( O.blinded )))
O.show_message(text("\red [] has knocked out the monkey!", M), 1)
//Foreach goto(248)
return
//This gives a damage bonus when the AI is controlling the drone. For now, it doesn't check their weapon or target zone.
if (aiControllingBonus && (!corruptedIntent))
damage += rand(9, 18)
src.bruteloss += damage
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
for(var/mob/O in viewers(src, null))
if ((O.hasClient() && !( O.blinded )))
O.show_message(text("\red [] has attempted to punch the monkey!", M), 1)
//Foreach goto(336)
else if (istype(M, /mob/drone))
var/damage = 0
if (corruptedIntent)
damage = rand(0, 5)
else
damage = rand(5, 14)
for(var/mob/O in viewers(src, null))
O.show_message(text("\red [] has smacked the monkey!", M), 1)
if (corruptedIntent)
M << "Oops! You've accidentally hit them."
src.bruteloss += damage
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
if (intentToApply == "grab")
if (M == src)
return
var/obj/item/weapon/grab/G = new /obj/item/weapon/grab( M )
G.assailant = M
if (M.hand)
M.l_hand = G
else
M.r_hand = G
G.layer = 20
G.affecting = src
src.grabbed_by += G
G.synch()
for(var/mob/O in viewers(src, null))
O.show_message(text("\red [] has grabbed the monkey passively!", M), 1)
//Foreach goto(502)
else
if (!( src.paralysis ))
if (prob(25) || corruptedIntent)
src.paralysis = 2
for(var/mob/O in viewers(src, null))
if ((O.hasClient() && !( O.blinded )))
O.show_message(text("\red [] has pushed down the monkey!", M), 1)
//Foreach goto(571)
else
drop_item()
for(var/mob/O in viewers(src, null))
if ((O.hasClient() && !( O.blinded )))
O.show_message(text("\red [] has disarmed the monkey!", M), 1)
//Foreach goto(638)
if (corruptedIntent)
if (M.a_intent == "help")
M.client_mob() << "You failed to help [src] due to poor control over the drone, and may have knocked \him down, but at least you have not hurt \him."
else if (M.a_intent == "grab")
M.client_mob() << "You failed to grab [src] due to poor control over the drone, and may have knocked \him down, but at least you have not hurt \him."
return
/mob/monkey/Stat()
..()
statpanel("Status")
stat(null, text("Intent: []", src.a_intent))
stat(null, text("Move Mode: []", src.m_intent))
return
/mob/monkey/UpdateClothing()
..()
for(var/i in src.overlays)
src.overlays -= i
//Foreach goto(21)
if (!( src.lying ))
src.icon_state = "monkey1"
else
src.icon_state = "monkey0"
if (src.wear_mask)
if (istype(src.wear_mask, /obj/item/weapon/clothing/mask))
var/t1 = src.wear_mask.s_istate
if (!( t1 ))
t1 = src.wear_mask.icon_state
src.overlays += image("icon" = 'monkey.dmi', "icon_state" = text("[][]", t1, (!( src.lying ) ? null : "2")), "layer" = src.layer)
src.wear_mask.screen_loc = "2,3"
if (src.r_hand)
var/t1 = src.r_hand.s_istate
if (!( t1 ))
t1 = src.r_hand.icon_state
src.overlays += image("icon" = 'r_items.dmi', "icon_state" = t1, "layer" = src.layer)
src.r_hand.screen_loc = "1,2"
if (src.l_hand)
var/t1 = src.l_hand.s_istate
if (!( t1 ))
t1 = src.l_hand.icon_state
src.overlays += image("icon" = 'l_items.dmi', "icon_state" = t1, "layer" = src.layer)
src.l_hand.screen_loc = "3,2"
if (src.back)
if (!( src.lying ))
src.overlays += image("icon" = 'monkey.dmi', "icon_state" = "back", "layer" = src.layer)
else
src.overlays += image("icon" = 'monkey.dmi', "icon_state" = "back2", "layer" = src.layer)
src.back.screen_loc = "3,3"
if (src.handcuffed)
src.pulling = null
if (!( src.lying ))
src.overlays += image("icon" = 'monkey.dmi', "icon_state" = "handcuff1", "layer" = src.layer)
else
src.overlays += image("icon" = 'monkey.dmi', "icon_state" = "handcuff2", "layer" = src.layer)
if (src.hasClient())
src.screenOrBackupRemove(src.contents)
src.screenOrBackupAdd(src.contents)
src.screenOrBackupRemove(src.hud_used.m_ints)
src.screenOrBackupRemove(src.hud_used.mov_int)
if (src.i_select)
if (src.intent)
src.screenOrBackupAdd(src.hud_used.m_ints)
src.i_select.screen_loc = src.intent
else
src.i_select.screen_loc = null
if (src.m_select)
if (src.m_int)
src.screenOrBackupAdd(src.hud_used.mov_int)
src.m_select.screen_loc = src.m_int
else
src.m_select.screen_loc = null
for(var/mob/M in viewers(1, src))
if ((M.hasClient() && M.machine == src))
spawn( 0 )
src.show_inv(M)
return
//Foreach goto(662)
return
/mob/monkey/Login()
if (src.droneTransitioning==1)
..()
return
if (banned.Find(src.ckey))
//src.client = null
del(src.client)
src.client.screenOrBackupRemove(main_hud.contents)
src.client.screenOrBackupRemove(main_hud2.contents)
if (!( src.hud_used ))
src.hud_used = main_hud
src.next_move = 1
if (!( src.rname ))
src.rname = src.key
src.oxygen = new /obj/screen( null )
src.i_select = new /obj/screen( null )
src.m_select = new /obj/screen( null )
src.toxin = new /obj/screen( null )
src.internals = new /obj/screen( null )
src.mach = new /obj/screen( null )
src.fire = new /obj/screen( null )
src.healths = new /obj/screen( null )
src.pullin = new /obj/screen( null )
src.blind = new /obj/screen( null )
src.flash = new /obj/screen( null )
src.hands = new /obj/screen( null )
src.sleep = new /obj/screen( null )
src.rest = new /obj/screen( null )
..()
UpdateClothing()
src.oxygen.icon_state = "oxy0"
src.i_select.icon_state = "selector"
src.m_select.icon_state = "selector"
src.toxin.icon_state = "toxin0"
src.internals.icon_state = "internal0"
src.mach.icon_state = null
src.fire.icon_state = "fire0"
src.healths.icon_state = "health0"
src.pullin.icon_state = "pull0"
src.blind.icon_state = "black"
src.hands.icon_state = "hand"
src.flash.icon_state = "blank"
src.sleep.icon_state = "sleep0"
src.rest.icon_state = "rest0"
src.hands.dir = NORTH
src.oxygen.name = "oxygen"
src.i_select.name = "intent"
src.m_select.name = "move"
src.toxin.name = "toxin"
src.internals.name = "internal"
src.mach.name = "Reset Machine"
src.fire.name = "fire"
src.healths.name = "health"
src.pullin.name = "pull"
src.blind.name = " "
src.hands.name = "hand"
src.flash.name = "flash"
src.sleep.name = "sleep"
src.rest.name = "rest"
src.oxygen.screen_loc = "15,12"
src.i_select.screen_loc = "14,15"
src.m_select.screen_loc = "14,14"
src.toxin.screen_loc = "15,10"
src.internals.screen_loc = "15,14"
src.mach.screen_loc = "14,1"
src.fire.screen_loc = "15,8"
src.healths.screen_loc = "15,5"
src.sleep.screen_loc = "15,3"
src.rest.screen_loc = "15,2"
src.pullin.screen_loc = "15,1"
src.hands.screen_loc = "1,3"
src.blind.screen_loc = "1,1 to 15,15"
src.flash.screen_loc = "1,1 to 15,15"
src.blind.layer = 0
src.flash.layer = 17
src.sleep.layer = 20
src.rest.layer = 20
src.client.screen.len = null
src.client.screenOrBackupRemove(list( src.oxygen, src.i_select, src.m_select, src.toxin, src.internals, src.fire, src.hands, src.healths, src.pullin, src.blind, src.flash, src.rest, src.sleep, src.mach ))
src.client.screenOrBackupAdd(list( src.oxygen, src.i_select, src.m_select, src.toxin, src.internals, src.fire, src.hands, src.healths, src.pullin, src.blind, src.flash, src.rest, src.sleep, src.mach ))
src.client.screenOrBackupRemove(src.hud_used.adding)
src.client.screenOrBackupAdd(src.hud_used.adding)
src.client.screenOrBackupRemove(src.hud_used.mon_blo)
src.client.screenOrBackupAdd(src.hud_used.mon_blo)
if (!( src.primary ))
var/t1 = rand(1000, 1500)
dna_ident += t1
if (dna_ident > 65536.0)
dna_ident = rand(1, 1500)
src.primary = new /obj/dna( null )
src.primary.uni_identity = text("[]", dna_ident)
while(length(src.primary.uni_identity) < 4)
src.primary.uni_identity = text("0[]", src.primary.uni_identity)
var/t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = text("[]", rand(1, 256))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
t2 = (src.gender == "male" ? text("[]", rand(1, 124)) : text("[]", rand(127, 250)))
if (length(t2) < 2)
src.primary.uni_identity = text("[]0[]", src.primary.uni_identity, t2)
else
src.primary.uni_identity = text("[][]", src.primary.uni_identity, t2)
src.primary.spec_identity = "2B6696D2B127E5A4"
src.primary.struc_enzyme = "CDEAF5B90AADBC6BA8033DB0A7FD613FA"
src.primary.use_enzyme = "C8FFFE7EC09D80AEDEDB9A5A0B4085B61"
src.primary.n_chromo = 16
if (!( src.start ))
if ((src.key in list( "Thief jack", "Link43130", "Hutchy2k1", "Easty", "Exadv1" )))
src.start = 1
src.loc = locate(25, 72, 7)
else
src.start = 1
var/A = locate(/area/start)
var/list/L = list( )
for(var/turf/T in A)
if(T.isempty() )
L += T
//Foreach goto(1473)
src.loc = pick(L)
//src << browse('help.htm', "window=help")
src << text("\blue []", world_message)
if (src.loc!=null && (!( isturf(src.loc) )))
src.client.eye = src.loc
src.client.perspective = EYE_PERSPECTIVE
src.name = text("monkey ([])", copytext(md5(src.primary.uni_identity), 2, 6))
return
/* This code is not identical to the code in /mob/human/Move or /mob/drone/Move, but it is similar. It lacks some things, it appears. --shadowlord13 */
/mob/monkey/Move()
if ((!( src.buckled ) || src.buckled.loc != src.loc))
src.buckled = null
if (src.buckled)
return
if (src.restrained())
src.pulling = null
var/t7 = 1
if (src.restrained())
for(var/mob/M in range(src, 1))
if ((M.pulling == src && M.stat == 0 && !( M.restrained() )))
return 0
//Foreach goto(93)
if ((t7 && src.pulling && get_dist(src, src.pulling) <= 1))
if (src.pulling.anchored)
src.pulling = null
if (istype(src.pulling, /mob/drone) && config.walkable_not_pullable_drones)
src.pulling = null
var/T = src.loc
. = ..()
if (!( isturf(src.pulling.loc) ))
src.pulling = null
return
if (!( src.restrained() ))
var/diag = get_dir(src, src.pulling)
if ((diag - 1) & diag)
else
diag = null
if ((ismob(src.pulling) && (get_dist(src, src.pulling) > 1 || diag)))
if (istype(src.pulling, src.type))
var/mob/M = src.pulling
var/mob/t = M.pulling
M.pulling = null
step(src.pulling, get_dir(src.pulling.loc, T))
M.pulling = t
else
step(src.pulling, get_dir(src.pulling.loc, T))
else
src.pulling = null
. = ..()
if ((src.s_active && !( src.contents.Find(src.s_active) )))
src.s_active.close(src)
return
/mob/monkey/death()
if (src.currentDrone!=null)
src.currentDrone:releaseControl()
var/cancel
if (src.healths)
src.healths.icon_state = "health5"
src.stat = 2
src.canmove = 0
if (src.blind)
src.blind.layer = 0
src.lying = 1
src.rname = "[src.rname] (Dead)"
//src.icon_state = "dead"
for(var/mob/M in world)
if ((M.cliented() && !( M.stat )))
cancel = 1
//Foreach goto(79)
if (!( cancel ))
world << "Everyone is dead! Resetting in 30 seconds!"
if ((ticker && ticker.timing))
ticker.check_win()
else
spawn( 300 )
if(config.loggame) world.log << "GAME: Rebooting because of no live players"
world.Reboot()
return
return ..()
return
/mob/monkey/Life()
set background = 1
var/plcheck
var/oxcheck
var/ficheck
var/turf/T = src.loc
if (!( locate(/obj/table, src.loc) ))
src.layer = MOB_LAYER
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (src.stat != 2)
src.t_sl_gas = 0
src.t_n2 = 0
if (!( src.m_flag ))
src.last_move = null
src.m_flag = null
if (src.mach)
if (src.machine)
src.mach.icon_state = "mach1"
else
src.mach.icon_state = null
if ((src.internal && !( src.contents.Find(src.internal) )))
src.internal = null
if ((!( src.wear_mask ) || !( src.wear_mask.flags | 8 )))
src.internal = null
if (istype(T, /turf))
var/t = 1.4E-4
if (src.health < 20)
t = 5.0E-5
else
if (src.health < 40)
t = 1.0E-4
if (locate(/obj/move, T))
T = locate(/obj/move, T)
var/turf_total = T.oxygen + T.poison + T.sl_gas + T.co2 + T.n2
var/obj/substance/gas/G = new /obj/substance/gas( )
G.maximum = 10000
if (src.internal)
src.internal.process(src, G)
if (src.wear_mask.flags & 4)
G.turf_add(T, G.tot_gas() * 0.5)
G.turf_take(T, t / 2 * turf_total - G.tot_gas())
else
G.turf_take(T, t * turf_total)
src.aircheck(G)
plcheck = src.t_plasma
oxcheck = src.t_oxygen
G.turf_add(T, G.tot_gas())
ficheck = src.firecheck(T)
else
if (istype(T, /obj))
var/obj/O = T
O.alter_health(src)
if ((istype(src.loc, /turf/space) && !( locate(/obj/move, src.loc) )))
var/layers = 20
// ****** Check
if ((istype(src.wear_mask, /obj/item/weapon/clothing/mask) && !( src.wear_mask.flags & 4 ) && src.wear_mask.flags & 8))
layers -= 5
if (layers > oxcheck)
oxcheck = layers
if ((plcheck && src.health >= 0))
if ((src.paralysis <= 0 || src.weakened <= 0))
src.toxloss += plcheck
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
src.toxloss += plcheck
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if ((oxcheck && src.health >= 0))
if ((src.paralysis <= 0 || src.weakened <= 0))
src.oxyloss += oxcheck
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
src.oxyloss += oxcheck
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
if (src.health >= 0)
if (src.oxyloss >= 10)
var/amount = max(0.15, 1)
src.oxyloss -= amount
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
else
src.oxyloss = 0
if (ficheck)
src.fireloss += ficheck * 10
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (src.health <= -100.0)
death()
else if (src.stat < 2)
if ((src.sleeping || src.health < 0))
if (prob(1))
if (src.health <= 20)
spawn( 0 )
emote("gasp")
return
else
spawn( 0 )
emote("snore")
return
if (src.health < 0)
if (src.rejuv <= 0)
src.oxyloss++
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
src.stat = 1
if (src.paralysis < 5)
src.paralysis = 5
else
if (src.resting)
if (src.weakened < 5)
src.weakened = 5
else
if (src.health < 20)
if (prob(5))
if (prob(1))
if (src.health <= 20)
spawn( 0 )
emote("gasp")
return
src.stat = 1
if (src.paralysis < 2)
src.paralysis = 2
if (src.rejuv > 0)
src.rejuv--
if (src.r_epil > 0)
src.r_epil--
if (src.r_ch_cou > 0)
src.r_ch_cou--
if (src.r_Tourette > 0)
src.r_Tourette--
if (src.antitoxs > 0)
src.antitoxs--
if (src.plasma > 0)
src.antitoxs -= 4
if (src.plasma > 0)
src.plasma--
src.blinded = null
if (src.drowsyness > 0)
src.drowsyness--
if (src.paralysis > 1)
src.drowsyness -= 0.5
else
if (src.weakened > 1)
src.drowsyness -= 0.25
src.eye_blurry = max(2, src.eye_blurry)
if (prob(5))
src.sleeping = 1
src.paralysis = 5
if ((src.health > -10.0 && src.drowsyness > 1200))
if (src.antitoxs < 1)
src.toxloss += plcheck
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
plcheck = 1
var/mental_danger = 0
if (((src.r_epil > 0 && !( src.disabilities & 2 )) || (src.r_Tourette > 0 && !( src.disabilities & 8 ))))
src.stuttering = max(2, src.drowsyness)
mental_danger = 1
src.drowsyness = max(2, src.drowsyness)
if (!( src.paralysis ))
if (prob(5))
src << "\red You have a seizure!"
src.paralysis = 10
else
if (prob(5))
spawn( 0 )
emote("twitch")
return
src.stunned = 10
else
if (prob(30))
spawn( 0 )
emote("drool")
return
if (src.health > -10.0)
var/threshold = 45
if (mental_danger)
threshold = 15
if (src.r_ch_cou > 2700)
if (src.antitoxs < 1)
src.toxloss += 1
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
plcheck = 1
if (prob(15))
spawn( 0 )
emote("twitch")
src.stunned = 2
return
if (src.r_epil > threshold * 60)
if (src.antitoxs < 1)
src.toxloss += 1
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
plcheck = 1
if (prob(15))
spawn( 0 )
emote("twitch")
src.stunned = 2
return
if (src.r_Tourette > threshold * 60)
if (src.antitoxs < 1)
src.toxloss += 1
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
plcheck = 1
if (prob(15))
spawn( 0 )
emote("twitch")
src.stunned = 2
return
if (src.antitoxs > 7200)
src.toxloss += 1
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
plcheck = 1
if (prob(15))
spawn( 0 )
emote("drool")
return
if (src.health > -50.0)
if (src.plasma > 0)
if (src.antitoxs < 1)
src.toxloss += 1
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
plcheck = 1
if (prob(15))
spawn( 0 )
emote("moan")
return
if (src.stat != 2)
if (src.paralysis + src.stunned + src.weakened > 0)
if (src.stunned > 0)
src.stunned--
src.stat = 0
if (src.weakened > 0)
src.weakened--
src.lying = 1
src.stat = 0
if (src.paralysis > 0)
src.paralysis--
src.blinded = 1
src.lying = 1
src.stat = 1
src.canmove = 0
var/h = src.hand
src.hand = 0
drop_item()
src.hand = 1
drop_item()
src.hand = h
else
src.canmove = 1
src.lying = 0
src.stat = 0
else
src.lying = 1
src.blinded = 1
src.stat = 2
src.canmove = 0
var/add_weight = 0
if (istype(src.l_hand, /obj/item/weapon/grab))
add_weight += 1250000.0
if (istype(src.r_hand, /obj/item/weapon/grab))
add_weight += 1250000.0
if (locate(/obj/item/weapon/grab, src.grabbed_by))
var/a_grabs = 0
for(var/obj/item/weapon/grab/G in src.grabbed_by)
G.process()
if (G)
if (G.state > 1)
a_grabs++
if ((G.state > 2 && src.loc == G.assailant.loc))
src.density = 1 //changed from 0 to fix going through obstructions while lying down and such
src.lying = 0
switch(G.assailant.dir)
if(1.0)
src.pixel_y = 8
if(2.0)
src.pixel_y = -8.0
if(4.0)
src.pixel_x = 8
if(8.0)
src.pixel_x = -8.0
//Foreach goto(2333)
src.weight = ((src.grabbed_by.len - a_grabs) / 2 + 1) * 1250000.0 + (a_grabs * 2500000.0)
else
if (src.lying)
src.weight = add_weight + 2500000.0
else
src.weight = add_weight + 1250000.0
if (src.stuttering > 0)
src.stuttering--
if (src.eye_blind > 0)
src.eye_blind--
src.blinded = 1
if (src.ear_deaf > 0)
src.ear_deaf--
else
if (src.ear_damage < 25)
src.ear_damage -= 0.05
src.ear_damage = max(src.ear_damage, 0)
if (src.buckled)
src.lying = 0
src.density = !( src.lying )
if (src.lying)
src.weight = 5000000.0
else
src.weight = 2500000.0
if (src.sdisabilities & 1)
src.blinded = 1
if (src.eye_blurry > 0)
src.eye_blurry--
src.eye_blurry = max(0, src.eye_blurry)
if (src.hasClient())
src.screenOrBackupRemove(main_hud.g_dither)
if (src.stat!=2 && istype(src.wear_mask, /obj/item/weapon/clothing/mask/gasmask))
src.screenOrBackupAdd(main_hud.g_dither)
if (src.mach)
if (src.machine)
src.mach.icon_state = "mach1"
else
src.mach.icon_state = "blank"
if (src.sleep)
src.sleep.icon_state = text("sleep[]", src.sleeping)
if (src.rest)
src.rest.icon_state = text("rest[]", src.resting)
if (src.healths)
if (src.stat < 2)
if (src.health >= 100)
src.healths.icon_state = "health0"
else
if (src.health >= 75)
src.healths.icon_state = "health1"
else
if (src.health >= 50)
src.healths.icon_state = "health2"
else
if (src.health > 20)
src.healths.icon_state = "health3"
else
src.healths.icon_state = "health4"
else
src.healths.icon_state = "health5"
if (src.pullin)
if (src.pulling)
src.pullin.icon_state = "pull1"
else
src.pullin.icon_state = "pull0"
if (src.fire)
if (ficheck)
src.fire.icon_state = "fire1"
else
src.fire.icon_state = "fire0"
if (src.toxin)
if (plcheck)
src.toxin.icon_state = "toxin1"
else
src.toxin.icon_state = "toxin0"
if (src.oxygen)
if (oxcheck)
src.oxygen.icon_state = "oxy1"
else
src.oxygen.icon_state = "oxy0"
src.screenOrBackupRemove(src.hud_used.blurry)
src.screenOrBackupRemove(src.hud_used.vimpaired)
if ((src.blind && src.stat != 2))
if (src.blinded)
src.blind.layer = 18
else
src.blind.layer = 0
if (src.eye_blurry)
src.screenOrBackupRemove(src.hud_used.blurry)
src.screenOrBackupAdd(src.hud_used.blurry)
else
src.screenOrBackupRemove(src.hud_used.blurry)
if (src.stat != 2)
if (src.machine)
if (!( src.machine.check_eye(src) ))
src.reset_view(null)
else
reset_view(null)
else if (!hasClient())
if ((src.canmove && prob(10) && isturf(src.loc)))
step(src, pick(NORTH, SOUTH, EAST, WEST))
if (prob(10))
src.emote(pick("drool", "chimper", "scratch", "tail", "sit", "jump"))
else
if (prob(10))
var/mob/human/H = locate(/mob/human, oview(1, null))
if (istype(H, /mob/human))
src.a_intent = "hurt"
spawn( 0 )
H.attack_paw(src)
return
if (src.primary)
src.primary.cleanup()
src.UpdateClothing()
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
return
/mob/monkey/verb/removeinternal()
src.internal = null
return
/mob/monkey/proc/aircheck(obj/substance/gas/G as obj)
src.t_oxygen = 0
src.t_plasma = 0
if (G)
var/a_oxygen = G.oxygen * 0.7
var/a_plasma = G.plasma
var/a_sl_gas = G.sl_gas * 0.7
G.oxygen -= a_oxygen
G.plasma -= a_plasma
G.sl_gas -= a_sl_gas
if (a_oxygen < 67.032)
src.t_oxygen = round((67.032 - a_oxygen) / 5)
if (G.co2 > 5)
var/t = round((G.co2 - 5) / 5)
if (G.co2 > 25)
src.paralysis = max(src.paralysis, 3)
if (G.co2 > 50)
t = 50
src.t_oxygen = max(src.t_oxygen, t)
if (a_plasma > 5)
src.t_plasma = round((src.t_plasma - 5) / 10) + 1
if (a_sl_gas > 10)
src.weakened = max(src.weakened, 3)
if (G.co2 > 40)
src.paralysis = max(src.paralysis, 3)
G.co2 += a_oxygen * 0.6
return
/mob/monkey/proc/firecheck(turf/T as turf)
if (T.firelevel < config.min_gas_for_fire)
return 0
var/total = 0
if (src.wear_mask)
if (T.firelevel > src.wear_mask.s_fire)
total += 0.25
else
total += 0.25
return total
return
/mob/monkey/proc/emote(act)
var/param = null
if (findtext(act, "-", 1, null))
var/t1 = findtext(act, "-", 1, null)
param = copytext(act, t1 + 1, length(act) + 1)
act = copytext(act, 1, t1)
var/muzzled = istype(src.wear_mask, /obj/item/weapon/clothing/mask/muzzle)
var/m_type = 1
var/message
switch(act)
if("sign")
if (!( src.restrained() ))
message = text("The monkey signs[].", (text2num(param) ? text(" the number []", text2num(param)) : null))
m_type = 1
if("scratch")
if (!( src.restrained() ))
message = "The monkey scratches."
m_type = 1
if("whimper")
if (!( muzzled ))
message = "The monkey whimpers."
m_type = 2
if("roar")
if (!( muzzled ))
message = "The monkey roars."
m_type = 2
if("tail")
message = "The monkey waves his tail."
m_type = 1
if("gasp")
message = "The monkey gasps."
m_type = 2
if("drool")
message = "The monkey drools."
m_type = 1
if("paw")
if (!( src.restrained() ))
message = "The monkey flails his paw."
m_type = 1
if("scretch")
if (!( muzzled ))
message = "The monkey scretches."
m_type = 2
if("choke")
message = "The monkey chokes."
m_type = 2
if("moan")
message = "The monkey moans!"
m_type = 2
if("nod")
message = "The monkey nods his head."
m_type = 1
if("sit")
message = "The monkey sits down."
m_type = 1
if("sway")
message = "The monkey sways around dizzily."
m_type = 1
if("sulk")
message = "The monkey sulks down sadly."
m_type = 1
if("twitch")
message = "The monkey twitches violently."
m_type = 1
if("dance")
if (!( src.restrained() ))
message = "The monkey dances around happily."
m_type = 1
if("roll")
if (!( src.restrained() ))
message = "The monkey rolls."
m_type = 1
if("shake")
message = "The monkey shakes his head."
m_type = 1
if("gnarl")
if (!( muzzled ))
message = "The monkey gnarls and shows his teeth.."
m_type = 2
if("jump")
message = "The monkey jumps!"
m_type = 1
if("help")
src << "choke, dance, drool, gasp, gnarl, jump, paw, moan, nod, roar, roll, scratch,\nscretch, shake, sign-#, sit, sulk, sway, tail, twitch, whimper"
else
src << text("Invalid Emote: []", act)
if ((message && src.stat == 0))
if (m_type & 1)
for(var/mob/O in viewers(src, null))
O.show_message(message, m_type)
//Foreach goto(703)
else
for(var/mob/O in hearers(src, null))
O.show_message(message, m_type)
//Foreach goto(746)
return
/mob/monkey/say(message as text)
if (src.muted)
return
message = copytext(message, 1, 128)
message = cleanstring(message)
if (src.stat == 2)
for(var/mob/M in world)
if (M.stat == 2)
M << text("[] []: []", src, (src.stat > 1 ? "\[dead \]" : ""), message)
//Foreach goto(50)
return
if (src.stat >= 1)
return
if ((copytext(message, 1, 2) == "*" && !( src.stat )))
src.emote(copytext(message, 2, length(message) + 1))
return
if ((!( message ) || istype(src.wear_mask, /obj/item/weapon/clothing/mask/muzzle)))
return
if (src.stat < 2)
var/list/L = list( )
var/pre = copytext(message, 1, 4)
var/italics = 0
var/obj_range = null
if (pre == "\[r\]")
message = copytext(message, 4, length(message) + 1)
if (src.r_hand)
src.r_hand.talk_into(usr, message)
L += hearers(1, null)
italics = 1
obj_range = 1
else
if (pre == "\[l\]")
message = copytext(message, 4, length(message) + 1)
if (src.l_hand)
src.l_hand.talk_into(usr, message)
L += hearers(1, null)
italics = 1
obj_range = 1
else
if (pre == "\[w\]")
message = copytext(message, 4, length(message) + 1)
L += hearers(1, null)
italics = 1
obj_range = 1
else
L += hearers(null, null)
pre = null
L -= src
L += src
if (italics)
message = text("[]", message)
var/mob/speakerType = src.type
if (istype(src, /mob/drone))
var/mob/drone/drone = src
var/mob/owner = drone.controlledBy
if (owner!=null)
speakerType = owner.type
for(var/mob/M in L)
var/mobType = M.type
if (istype(M, /mob/drone))
var/mob/drone/Mdrone = M
var/mob/Mowner = Mdrone.controlledBy
if (Mowner!=null)
mobType = Mowner.type
if (istype(M, speakerType) || (istype(M, /mob/drone) && mobType==speakerType))
M.show_message(text("[]: []", src, message), 2)
else if (istype(M, /mob/monkey))
if (istype(src, /mob/drone))
M.show_message(text("[] plays chimpering sounds from its speakers.", src), 2)
else
M.show_message(text("[] chimpers.", src), 2)
//Foreach goto(503)
for(var/obj/O in view(obj_range, null))
spawn( 0 )
if (O)
O.hear_talk(usr, message)
return
//Foreach goto(580)
for(var/mob/M in world)
if (M.stat > 1)
M << text("[] []: []", src, (src.stat > 1 ? "\[dead \]" : ""), message)
//Foreach goto(637)
return
/mob/monkey/examine()
set src in oview()
usr << "\blue *---------*"
usr << text("\blue This is \icon[] []!", src, src.name)
if (src.handcuffed)
usr << text("\blue \t[] is handcuffed! \icon[]", src.name, src.handcuffed)
if (src.wear_mask)
usr << text("\blue \t[] has a \icon[] [] on \his[] head!", src.name, src.wear_mask, src.wear_mask.name, src)
if (src.l_hand)
usr << text("\blue \t[] has a \icon[] [] in \his[] left hand!", src.name, src.l_hand, src.l_hand.name, src)
if (src.r_hand)
usr << text("\blue [] has a \icon[] [] in \his[] right hand!", src.name, src.r_hand, src.r_hand.name, src)
if (src.back)
usr << text("\blue [] has a \icon[] [] on \his[] back!", src.name, src.back, src.back.name, src)
if (src.bruteloss)
if (src.bruteloss < 30)
usr << text("\red [] looks slightly bruised!", src.name)
else
usr << text("\red [] looks severely bruised!", src.name)
if (src.fireloss)
if (src.fireloss < 30)
usr << text("\red [] looks slightly burnt!", src.name)
else
usr << text("\red [] looks severely burnt!", src.name)
return
/mob/monkey/ex_act(severity)
flick("flash", src.flash)
switch(severity)
if(1.0)
if (src.stat != 2)
src.bruteloss += 200
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if(2.0)
if (src.stat != 2)
src.bruteloss += 60
src.fireloss += 60
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if(3.0)
if (src.stat != 2)
src.bruteloss += 30
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (prob(50))
src.paralysis += 10
else
return
/mob/monkey/blob_act()
if (src.stat != 2)
src.bruteloss += 30
src.health = 100 - src.oxyloss - src.toxloss - src.fireloss - src.bruteloss
if (prob(50))
src.paralysis += 10
/atom/movable/Move(NewLoc, direct)
if (direct & direct - 1)
if (direct & 1)
if (direct & 4)
if (step(src, NORTH))
step(src, EAST)
else
if (step(src, EAST))
step(src, NORTH)
else
if (direct & 8)
if (step(src, NORTH))
step(src, WEST)
else
if (step(src, WEST))
step(src, NORTH)
else
if (direct & 2)
if (direct & 4)
if (step(src, SOUTH))
step(src, EAST)
else
if (step(src, EAST))
step(src, SOUTH)
else
if (direct & 8)
if (step(src, SOUTH))
step(src, WEST)
else
if (step(src, WEST))
step(src, SOUTH)
else
..()
return
/atom/movable/verb/pull()
set src in oview(1)
if (!( usr ))
return
if (!( src.anchored ))
/* If it's a drone and walkable_not_pullable_drones is set, you CAN'T pull it. --shadowlord13 */
if (!(istype(src, /mob/drone) && config.walkable_not_pullable_drones))
usr.pulling = src
return
/atom/verb/examine()
set src in oview(1)
if (!( usr ))
return
usr << src.desc
// *****RM
//usr << "[src.name]: Dn:[density] dir:[dir] cont:[contents] icon:[icon] is:[icon_state] loc:[loc]"
return
/client/Northeast()
src.mob.swap_hand()
return
/client/Southeast()
var/obj/item/weapon/W = src.mob.equipped()
if (W)
W.attack_self(src.mob)
return
/client/Northwest()
src.mob.drop_item_v()
return
/client/Southwest()
src.mob.throw_item_v()
return
/client/Center()
if (isobj(src.mob.loc))
var/obj/O = src.mob.loc
if (src.mob.canmove)
return O.relaymove(src.mob, 16)
return
/client/Move(n, direct)
if (src.moving)
return 0
if (world.time < src.move_delay)
return
if (!( src.mob ))
return
if (src.mob.stat == 2)
return
if (src.mob.monkeyizing)
return
var/mob/thisMob = src.mob
var/is_monkey = istype(thisMob, /mob/monkey)
//Change thisMob and n if they're using a drone and their current mob is not the drone (normally it would be, but in case we add future things that the user's client doesn't transfer to, this code will activate for it)
if (thisMob.currentDrone!=null)
thisMob = thisMob.currentDrone
if (istype(thisMob.loc, /turf))
n = get_step(thisMob.loc, direct)
else
n = null
if (locate(/obj/item/weapon/grab, locate(/obj/item/weapon/grab, thisMob.grabbed_by.len)))
var/list/grabbing = list( )
if (istype(thisMob.l_hand, /obj/item/weapon/grab))
var/obj/item/weapon/grab/G = thisMob.l_hand
grabbing += G.affecting
if (istype(thisMob.r_hand, /obj/item/weapon/grab))
var/obj/item/weapon/grab/G = thisMob.r_hand
grabbing += G.affecting
for(var/obj/item/weapon/grab/G in thisMob.grabbed_by)
if (G.state == 1)
if (!( grabbing.Find(G.assailant) ))
//G = null
del(G)
else
if (G.state == 2)
src.move_delay = world.time + 10
if ((prob(25) && (!( is_monkey ) || prob(25))))
for(var/mob/O in viewers(thisMob, null))
O.show_message(text("\red [] has broken free of []'s grip!", thisMob, G.assailant), 1)
//Foreach goto(309)
//G = null
del(G)
else
return
else
if (G.state == 2)
src.move_delay = world.time + 10
if ((prob(5) && !( is_monkey ) || prob(25)))
for(var/mob/O in viewers(thisMob, null))
O.show_message(text("\red [] has broken free of []'s headlock!", thisMob, G.assailant), 1)
//Foreach goto(423)
//G = null
del(G)
else
return
//Foreach goto(189)
if (thisMob.canmove)
if(thisMob.m_intent == "face")
thisMob.dir = direct
var/j_pack = 0
if ((istype(thisMob.loc, /turf/space) && !( locate(/obj/move, thisMob.loc) )))
if (!( thisMob.restrained() ))
if (!( (locate(/obj/grille, oview(1, thisMob)) || locate(/turf/station, oview(1, thisMob))) ))
if (istype(thisMob.back, /obj/item/weapon/tank/jetpack))
var/obj/item/weapon/tank/jetpack/J = thisMob.back
j_pack = J.allow_thrust(100, thisMob)
if(j_pack)
var/obj/effects/sparks/ion_trails/I = new /obj/effects/sparks/ion_trails( thisMob.loc )
flick("ion_fade", I)
I.icon_state = "blank"
spawn( 20 )
//I = null
del(I)
return
if (!( j_pack ))
return 0
else
return 0
else
return 0
if (isturf(thisMob.loc))
src.move_delay = world.time
if ((j_pack && j_pack < 1))
src.move_delay += 5
switch(thisMob.m_intent)
if("run")
if (thisMob.drowsyness > 0)
src.move_delay += 6
src.move_delay += 1
if("face")
thisMob.dir = direct
return
if("walk")
src.move_delay += 7
src.move_delay += thisMob.m_delay()
src.move_delay += round((100 - thisMob.health) / 20) //*****RM fix
if (thisMob.restrained())
for(var/mob/M in range(thisMob, 1))
if (((M.pulling == thisMob && (!( M.restrained() ) && M.stat == 0)) || locate(/obj/item/weapon/grab, thisMob.grabbed_by.len)))
src << "\blue You're restrained! You can't move!"
return 0
//Foreach goto(853)
src.moving = 1
if (locate(/obj/item/weapon/grab, thisMob))
src.move_delay = max(src.move_delay, world.time + 7)
var/list/L = thisMob.ret_grab()
if (istype(L, /list))
if (L.len == 2)
L -= thisMob
var/mob/M = L[1]
if ((get_dist(thisMob, M) <= 1 || M.loc == thisMob.loc))
var/turf/T = thisMob.loc
. = ..()
if (isturf(M.loc))
var/diag = get_dir(thisMob, M)
if ((diag - 1) & diag)
else
diag = null
if ((get_dist(thisMob, M) > 1 || diag))
step(M, get_dir(M.loc, T))
else
for(var/mob/M in L)
M.other_mobs = 1
if (thisMob != M)
M.animate_movement = 3
//Foreach goto(1163)
for(var/mob/M in L)
spawn( 0 )
step(M, direct)
return
spawn( 1 )
M.other_mobs = null
M.animate_movement = 1
return
//Foreach goto(1214)
else
//This should be equivalent to . = ..() when thisMob is src.mob, but should make moving thisMob work when thisMob is not src.mob. -shadowlord13
walk(thisMob, 0)
. = thisMob.Move(n, direct)
src.moving = null
return .
else
if (isobj(thisMob.loc))
var/obj/O = thisMob.loc
if (thisMob.canmove)
return O.relaymove(thisMob, direct)
else
return
return
/client/proc/show_panel()
set name = "Admin Panel"
if (src.holder)
src.holder.update()
return
/client/New()
if (banned.Find(src.ckey))
//SN src = null
del(src)
return
if (((world.address == src.address || !( src.address )) && !( host )))
host = src.key
world.update_stat()
..()
spawn( 50 )
if (admins.Find(src.ckey))
src.holder = new /obj/admins( src )
src.holder.rank = admins[text("[]", src.ckey)]
switch(admins[text("[]", src.ckey)])
if("Primary Administrator")
src.holder.level = 5
if("Major Administrator")
src.holder.level = 4
if("Administrator")
src.holder.level = 3
if("Supervisor")
src.holder.level = 2
if("Game Master")
src.holder.level = 1
if("Moderator")
src.holder.level = 0
if("Banned")
//SN src = null
del(src)
return
else
//src.holder = null
del(src.holder)
if (src.holder)
src.holder.owner = src
src.verbs += /client/proc/show_panel
if(src.holder.level ==5)
src.verbs += /proc/Vars
src.verbs += /mob/proc/Delete
return
return
/client/Del()
if (banned.Find(src.ckey))
..()
return
..()
//src.holder = null
del(src.holder)
return
/client/Topic(href, href_list[], hsrc)
//Checking for us using a drone without the drone being our client's mob (won't happen unless we add things which are remote-controlled without the user's client transferring), and changing usr to the drone if so
//src << "Debug message: client/Topic(href is ([href]) href_list is ([href_list]) hsrc is ([hsrc])."
if (src.mob!=null)
//src << "Debug message: src.mob is [src.mob]."
if (src.mob.currentDrone!=null)
if (!istype(src.mob.currentDrone:equipped(), /obj/item/weapon/drone/aiInterface))
//src << "Debug message: src.mob.currentDrone is [src.mob.currentDrone]. Setting usr."
usr = src.mob.currentDrone
//src << "Debug message: usr is [usr]."
..()
/* The primary purpose of client/proc/screenOrBackup, client/proc/screenOrBackupAdd, client/proc/screenOrBackupRemove, and mob/proc/client_mob (and overloaded mob/somesubclass/client_mob) is to provide a single point of change if, in the future, we need the capability to have a mob remote-controlling another mob or object without the mob's client being changed, if we want the client to have only HUD icons related to the thing they are controlling, without stopping their actual mob from having its appearance updated. An example would someone remote-controlling a torpedo.
src.screenOrBackupAdd(value) replaces src.screen += value, and src.screenOrBackupRemove(value) replaces src.screen -= value. (All instances of that which were relevant were changed. Some which only occured during login or char setup may have been ignored.)
Originally the robot drone was being implemented in this manner, but I didn't find any way to make verbs work, so I preserved this and switched over to changing the client while controlling a drone instead. It was tested while the drone was working in this fashion, and did work.
--shadowlord13 */
/client/proc/screenOrBackup()
if (src.mob!=null)
if (src.mob.currentDrone!=null)
return src.mob.currentDrone:savedDroneIcons
else if (istype(src.mob, /mob/drone))
return src.mob:savedDroneIcons
return screen
/client/proc/screenOrBackupAdd(value)
var/list/L = src.screenOrBackup()
L += value
/client/proc/screenOrBackupRemove(value)
var/list/L = src.screenOrBackup()
L -= value
/mob/proc/screenOrBackupAdd(value)
var/client/client = alwaysClient()
if (client)
client.screenOrBackupAdd(value)
/mob/proc/screenOrBackupRemove(value)
var/client/client = alwaysClient()
if (client)
client.screenOrBackupRemove(value)
/* These are perhaps a bit better than the screenOrBackupAdd and screenOrBackupRemove. If the mob has a client, it uses screen. If not, it checks currentDrone and uses current_mob. If it doesn't have either, it does nothing. This can replace several statements with one function call. */
/mob/proc/eitherScreenRemove(value)
if (src.client)
src.client.screen -= value
else
src.screenOrBackupRemove(value)
/mob/proc/eitherScreenAdd(value)
if (src.client)
src.client.screen += value
else
src.screenOrBackupAdd(value)
/* client_mob returns the mob belonging to the actual client associated with this mob. To explain that more sensibly:
A player whose key is 'foo' joins the game, and makes a character named 'bar'.
Bar takes control of a drone. This changes foo's client from bar to the drone, but sets foo.currentDrone to bar, and sets bar.controlledBy to foo.
If you call client_mob() on bar, it will return the drone. If you call it on the drone, it will still return the drone.
In the future, if we add remote-controlled objects or mobs which the controller's client doesn't transfer to, this should also handle that as well. Additionally, code is already in-place and fairly tested (there's one known bug: it can't push obstructions out of the way) in client/Move for supporting forwarding movement requests to the remote-controlled mob and such as well.
--shadowlord13
*/
/mob/proc/client_mob()
if (src.client!=null)
return src
else
var/mob/owner = src.currentDrone
if (owner!=null)
return owner
else
return src
/mob/proc/clientMob()
return src.client_mob()
/mob/proc/alwaysClient()
var/mob/mob = src.client_mob()
return mob.client
/* This is intended for use in places which loop through all the mobs in the world to find clients. It will result in those functions selecting/examining/whatever the original mobs instead of drones - if the player is controlling a drone, the player's original mob will have a non-null cliented() return value, but the drone will have null.
If called on a normal player with a client, this returns their client.
If called on a drone, this will return null whether it's controlled by a player or not.
If called on the mob which is controlling a drone, and that drone has a client, this will return that client. (If the player took control of a drone and then logged out, this will return null)
This would be used like so:
if(M.cliented())
M.client_mob() << browse(null, "window=vote")
M.cliented().showvote = 0
The old version of that was:
if(M.client)
M << browse(null, "window=vote")
M.client.showvote = 0
--shadowlord13
*/
/mob/proc/cliented()
if (src.currentDrone!=null)
return src.currentDrone:client
else if (istype(src, /mob/drone))
return null
else
return src.client
/mob/proc/hasClient()
if (src.client!=null)
return 1
else if (src.currentDrone!=null && src.currentDrone:client!=null)
return 1
else
return 0