;/alias y scan corpse%;/send y /alias boot home%;bootprecious%;tofring%;tobox%;2s%;suitup 2%;nw%;buy 2%;light flashlight%;frominf%;tomorgue%;acquire%;frommorgue%;toprecious /alias aheal /eval pheal $[hpmax-185] surge ; for partying with a bard/bandage loop: /alias bheal /eval pheal $[trunc(hpmax*.75)-20] surge ; the insurance system: for using heal scrolls/autoguild surge /alias iheal pheal 1 heal ford%; /alias sener switch sonicator /alias sfire switch laser /alias sradi switch gamma-ray /alias selec switch shocker ; /alias goslide w2s2dw%;slide %* /alias gto genter%;e2u2ne%;/checkadmit /alias genter activate pillar /alias tosurface goslide surface /alias tores tosurface%;/nw%;s%; /alias restog n%;/se%;gto /alias corpsehome get corpse from box%;drop corpse%;wrap%;get corpse%;put corpse in box /alias corpseup home%;n%;/irepeat 10 corpsehome%;s /alias htog science%;sci%;stog /alias cottog s2e3s%;/se%;gto /alias ctog home%;guild%;gto /alias ftog home%;guild%;gto /alias stog home%;guild%;gto /alias ntog 2n2e%;/se%;gto /alias tonewbie gton /alias fromnewbie ntog /alias gtoh w2s2dw%;home /alias gtocot goslide science%;2ws2wn /alias gtoc goslide chaos /alias gtof goslide fantasy /alias gton goslide surface%;/nw%;2ws /alias gtos goslide science /alias tobox guild%;euw%;deposit 50000%;deposit 25000%;w%;buy 20 9%;buy 10 9%;buy 5 9%;en%; /alias frombox sedw%;home /alias toinf guild%;slide infirmary%;/checkadmit /alias toeng guild%;slide engineering /alias frominf slide entrance%;home /alias fromeng slide entrance%;home /alias transferall /eval transfer all%;recharge%;cy%;hp /alias _draincpc borrow grenade%;donate grenade%;hp%; /alias draincpc /irepeat 60 _draincpc /alias bullcpc tobox%;dbags%;tbags%;draincpc%;/repeat -1 1 bullcpc2 /alias bullcpc2 sede%;/irepeat 9 transferall ;/alias unboxme ssneunne%;/checkadmit ;/alias boxme wssdw%;deposit 10000%;n%; /alias unboxme frombox /alias boxme tobox /alias boon repair %1%;tactical %1%;stabilize %1 /alias gg stabilize %1%;/if (atace) tactical %1%;/endif%; ;gg neanderthll%;gg p /def -ag -t"^You may not activate Tactical Enhancement while in combat\.$" gagcombattace /def -ag -t"^There is no [a-z]+ to Tactically Enhance here\.$" gagtace2 /def -ag -t"^You may not activate repairs while in combat\." gagcombatrepairs /def -ag -t"^You may not activate stabilization while in combat\." gagcombatstab /def -t"^\[\[ Efficiency Levels not Optimal for Stabilization \]\]$" autorepair = repair%;stabilize /alias hpbar_config /send genset hpbar H:$hp$ S:$sp$ P:$pu$($cpc-now$) G:$g2n$/$rc$ $ename$:$enemy$ $ksename$:$ksenemy$$nl$ $bias$|h$hypergen$($hypergent$)|g$gen-eff$|t$tech-eff$|$e-tslide$ :: e$efield$|r$rush$|e$edna$|s$synthorg$ /def -F -PBCred -t":Death" hilite_mob_neardeath /def -F -PBCred -t":[0-9]\%" hilite_mob_neardeath_eval_3 /def -F -PBCred -t"^H:[12][0-9]{2}\/\d+ " hilite_neardeath /def -F -PBCred -t"^H:[0-9]{2}\/\d+ " hilite_nearerdeath /def -F -PBCred -t"P:\d{,3}\/" hilite_low_power /set pokehp 0 ; use your heal item (usually heal scroll, per the alias "hs") in bad situations /onoffvar apanic 0 /def -F -aBCrgb550 -t"^H:(\d+)\/(\d+) S:(\d+)\/(\d+) P:(\d+)\/(\d+)\((\d+)\)\(\d+\) G:(-?\d+\/\d+) (.+)$" hpbar_gentech = /set lasth %{hp}%; /set lasts %{sp}%; /set lastp %{power}%; /set lastg2 %{g2}%; /set lastrgxp %{rgxp}%; /set hp %{P1}%; /if (hp < pokehp) poke priest%;/endif%; /set hpmax %{P2}%; /set sp %{P3}%; /set spmax %{P4}%; /set powerlive %{P5}%; /set powermax %{P6}%; /set powerstore %{P7}%; /eval /set power $[powerlive+powerstore]%; /set combat_status %{P9}%; /set gxpraw %{P8}%; /if ( regmatch( "(\d+)\/(\d+)", gxpraw ) ) /eval /set g2 %{P1}%; /eval /set rgxp %{P2}%; /eval /set gxp $[(rgxp-lastrgxp)+abs((lastg2-g2))]%; /endif%; /set diffh $[-1*(lasth-hp)]%; /set diffs $[-1*(lasts-sp)]%; /set diffp $[-1*(lastp-power)]%; /set totaldmg $[totaldmg+dealdmg]%; /set rounds $[rounds+1]%; /if (combat_status =~ ':none :none') /set combat 0%;/else /set combat 1%;/endif%; /eval /echo -p @{Ccyan}dh:%{diffh} ds:%{diffs} dp:%{diffp} dg:%{gxp} Last:%{lastRounds}(%{lastTotalDmg}) Curr:%{rounds}(%{totaldmg}) Dealt:%{dealdmg}%; /set dealdmg=0%; /set hptyped 0 %; /if (powerlive < 1501 & combat & acorpse) ystock%;/endif%; /if (hp < 300 & apanic & combat) hs%;/endif%; /alias ystock cy%;dy%;sy /alias getcorpses get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%;get preservation%; /alias restock wrap all%;getcorpses%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;smuggle preservation%;getcorpses%;kq /alias hpbar_config /send genset hpbar H:$hp$ S:$sp$ P:$pu$($cpc-now$) G:$g2n$/$rc$ $ename$:$enemy$ $ksename$:$ksenemy$$nl$ $bias$|h$hypergen$($hypergent$)|g$gen-eff$|t$tech-eff$|$e-tslide$ :: r$rush$|s$synthorg$|f$efield$|d$edna$ /def guild_corpse = y /def -t"^(?:Her|His|Its) melee attacks do (?:mostly )?([a-z]+) damage\." which_shield = /set dt %{P1}%; /if (dt =~ 'slashing') switchshield bladed%; /elseif (dt =~ 'crushing') switchshield disruptive%; /elseif (dt =~ '') switchshield toxin%; /elseif (dt =~ '') switchshield oxidation%; /elseif (dt =~ '') switchshield thermal%; /elseif (dt =~ '') switchshield subkelvin%; /elseif (dt =~ '') switchshield psionic%; /elseif (dt =~ '') switchshield sonic%; /elseif (dt =~ '') switchshield valence%; /elseif (dt =~ '') switchshield voltage%; /endif%; ; $bias$|h$hypergen$($hypergent$)|g$gen-eff$|t$tech-eff$ :: r$rush|s$synthorg$|f$efield$|d$edna$ ; ( 104% | 0% )|h0(0 sec)|g99|t92 :: e0|rOFF|e0 sec|sSH ; [ 58% | 50% ]|h5(134 min)|g99|t99 :: e0|rOFF|e0 sec|sSOq /def -aBCrgb550 -t"^ [\(\[] (\d+)% \| (\d+)% [\)\]]\|h\d+\(\d+ [a-z]+\)\|g(\d+)\|t(\d+)\|\d :: r(ON|OFF)\|s(\w+)\|f(\d+)\|d(\d+) ([secmin]+)$" hpstatus = ; /eval /greenecho %{P0} 1 %{P1} 2 %{P2} 3 %{P3} 4 %{P4} 5 %{P5} 6 %{P6} 7 %{P7}%; /set abias %{P1}%; /set dbias %{P2}%; /set gen %{P3}%; /set tech %{P4}%; /set rush %{P5}%; /set synth %{P6}%; /set efield %{P7}%; /eval /set efieldsecs $[efield*60]%; /set edna1 %{P8}%; /set edna2 %{P9}%; /if (edna2 =~ 'min') /set edna $[edna1*60]%; /else /set edna %{edna1}%; /endif%; /if (combat & gxp == 0 & rounds > 5) /echo -aBCred [[[ GXP CAPS INSTANTIATED - PLEASE REROUTE SYNAPSE DRIVERS ]]]%;/beep%; /endif%; /def -aBCyellow -t"^\[\> Reclamation Complete\. \<\]$" reclamation_corpse = /gotcorpse /def -aBCrgb015 -t"^\[\> Attacks \<\] (\[([^\]]+)\]) (\[([^\]]+)\]) (\[([^\]]+)\]) (\[([^\]]+)\])$" attack_status /def -PBCgreen -t"Genomic DNA Crystal" hilite_artifact /alias tentrance bags%;activate pillar%;euwn%;tbags%;sedw%;slide surface /alias dentrance bags%;activate pillar%;euwn%;dbags%;tbags%;sedw%;slide surface ; efficiences/stabilize /def -t"^\[\[ Efficiencies at 100\% \]\]$" eff100 = /set tech 100%;/set gen 100%; /def -t"^\[\[ Genetic and Technological Efficiencies must be at 100% \]\]$" need_repairs = !repair ; Gentech damage calculator?: ; for kwon /onoffvar atace 1 /onoffvar alookmob 0 /onoffvar amed 0 /onoffvar arepair 1 /def guild_kwon = /if (amed & sp < spmax & !combat) meditate%;/endif%; /if ( powerstore > 0 ) /if ( powerlive < powermax*.4 ) rc%;/endif%; /if ( pcorpse ) /if ( powerlive < powermax*.9 ) rc%;/endif%; /endif%; /endif%; /if (!combat & arepair & gen < 100 ) /qrepeat _repair -1 1 gg%;/endif%; /onoffvar afield 1 /def -t"^\[\[ Raising Perimeter Energy Field\. \]\]" fieldsup = /set efield 40 /def guild_pre_kill_hook = /if (efield < 5 & afield & efield > 0) efield%;efield%;/set efield 40%;/endif%;stabilize%;/if (atace) tace%;hp%;/endif%; /def guild_post_kill_hook = surge /def guild_defense_check = /guild_kwon%; /def guild_input_hook = /guild_kwon /def checkadmit = /if (powerlive < powermax*.1 | hp < hpmax*.1 | sp < spmax*0) admit myself%; /else /repeat -2 1 /blueecho You look healthy enough buddy.%; /endif /def -ag -t"\|\| Improbable" expgag1 /def -ag -t"\|\| Remote" expgag2 /def -ag -t"\|\| Doubtful" expgag3 /def -ag -t"\|\| Ambiguous" expgag4 /def ungagrp = /undef expgag1%;/undef expgag2%;/undef expgag3%;/undef expgag4%; /def ungagpowa = /set p 1%; /while (p < 11) /eval /undef gagpowa%{p}%; /eval /set p $[p+1]%; /done%; /alias powers /if ({1} > 0) /set p 1%; /while (p < 11) /if ({1} != p) /eval /def -ag -t"Phase %{p}" gagpowa%{p} %; /endif%; /eval /set p $[p+1]%; /done%; /qrepeat _ungagpowa -2 1 /ungagpowa%; /endif%; /send ratepowers complete /def -t"^\[\[ Maximum Power Units Already Achieved\. Aborting Recharge\. \]\]" max_power = /set powerlive %{powermax}%; /alias gentimer /set genalarm 0%;/eval /send gentimer %* /def -aBCyellow -t"^Alarm! Alarm! Alarm! Alarm! Alarm! Alarm! Alarm! Alarm! Alarm!$" gentimer = /set genalarm 1%; synthorg activate%; /def -aBCyellow -t"^\[---- Enhanced DNA has reverted to substandard levels. ----\]" hilite_edna_down= /set edna 0%; /def -aBCyellow -t"^You feel your cellular DNA structures modify to absorb damage\.$" hilite_edna_up = /set edna 1%; /def -aBCyellow -t"^\[\> Power Unit Recharge Complete\. \<\]$" hilite_recharge /def -aBCred -t"^ \[\[ Aborting Timeslide\. \]\]$" failed_timeslide ;/def -aBCyellow -t"^An adrenaline surge flows through you\.$" hilite_surge ;/def -aBCyellow -t"^\[\> Meditation Field Activated\. \<\]$" hilite_meditate /def -ag -t"^\[\[\[ \*\*WARNING\*\* PANIC HEAL ACTIVATED \*\*WARNING\*\* \]\]\]$" gag_panic /alias cy /if (powerstore > powermax*.35) rc%;/endif%;unwrap%;/send y%;recharge /alias sy /if (powerstore > powermax*.35) rc%;/endif%;smuggle remove corpse%;drop corpse%;deslab%;/send y%;/send y%;recharge /alias cstore unwrap%;/send y /alias timeslide iheal%;/send timeslide %*%;meditate%;surge%;/set apanic 0%;wimpy 0%;/repeat -1 1 lifespring%;/qrepeat _timeslide1 -30 1 aheal%;/qrepeat _timeslide2 -30 1 wimpy 25%; /def -t"^Per Minute(\s+)(\d+)(\s+)(\d+)(\s+)(\d+)" per_hour = /eval /set gx $[{P4}*60]%;/eval /set rx $[{P6}*60]%;/eval /set tx $[rx+gx]%;/eval /echo Per Hour: $[{P2}*60] %{gx} %{rx} (%{tx})%; /def -aBCred -t"^\[\[ Initiating Power Unit Transfer into the Central Power Core\. \]\]$" hilite_transfer /def -t"^\[\[ You Must Unlock Gentech Bias\' Before Continuing\. \]\]$" unlockbias = biaslock%;%conform ;/def -t"^ BIAS CONFORMATION HAS REACHED SPECIFIED DIFFERENTIAL" relockbias = biaslock ; ************************** STATUS BAR ************************************************ ; fiddle with the padding on @world to the length of yer char name, if you care, and so forth for the digits of yer various attributes /status_defaults /set status_height 2 /set status_attr BCrgb010 ;/status_add -c -r0 ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" /status_add -c -r0 "[>-------------------- " roomlong:47 " --------------------<]" /status_add -c -r1 @world:4 "@" @clock:5 "/" roomshort:16 "$> [" hp:4 "/" hpmax:4 "] [" sp:3 "/" spmax:3 "] [" powerlive:4 "+" powerstore:4 "/" powermax:4 "] [" efield:2 ":" edna1:2 "] [" abias:3 "|" dbias:3 "]% [" gxp:3 "] " @more:8:Br ;/status_add -c -r2 "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" /status_add insert2:5 ; ************************************* COMPILE STATS FROM GENHIST ********************** /alias genhist /set slots_f 0%;/set slots_s 0%;/set phase_f 0%;/set phase_s 0%;/send genhist %*%;/repeat -4 1 genhiststat /alias genhiststat /blueecho %{slots_f} experiment failures.%;/blueecho %{slots_s} experiment successes.%;/blueecho %{phase_f} phase failures.%;/blueecho %{phase_s} phase successes.%; /def -PBCred -t"Slots adjusted -1 by Exp Room\.$" hilite_hist_slot_failure = /eval /set slots_f $[slots_f+1] /def -PCyellow -t"Slot filled: .+ Exp Room\.$" hilite_exp_success = /eval /set slots_s $[slots_s+1] /def -PCgreen -t"Slot \[[^]]+\] phased up \[1\] by Exp Room\.$" hilite_hist_phase_success = /eval /set phase_s $[phase_s+1] /def -PBCgreen -t"Slot \[[^]]+\] phased up \[([2-9]+)\] by Exp Room\.$" hilite_hist_phase_super_success = /eval /set phase_s $[phase_s+{P1}] /def -PCred -t"Slot \[[^]]+\] proficiency set to \[(\d+)\] by Exp Room\.$" hilite_hist_phase_failure = /eval /set phase_f $[phase_f+1] /def -t"^\[\> Reclamation Complete\. \<\]$" gentech_got_corpse = /gotcorpse /alias quit unwrap all%;/send quit /set mcclure Hello! I'm Ford McClure. You may remember me from such films as Gentech: Beyond the Beyond, Gentech: The First Prime, and Gentech: Last of the Remnants. People ask me all the time how it is that I keep my power units up so long and my lower arm casing looking so lustrous and vibrant! Well, I'll tell you! By recycling the molding corpses of the young through my own metabolic pathways via this hose in my power glove. If I keep the ratio between newbie and less nutritious remains high I can go all night long. And now you can too! Enrich your diet today by becoming an officer in the Gentech Battleforce!