#ALIAS victims {#pick "Show_Victims" "Add_a_Victim" "Delete_a_Victim"} #ALIAS Show_victims {#show;#show;#show Our victims are: <@gum_victims>;#show} #ALIAS Add_a_victim {gum_temp=x;#prompt gum_temp "What name do you wish to add?";#IF ((@gum_temp = x) OR (%ismember(@gum_temp,@gum_victims))) {#show @gum_temp NOT added to list. List remains <@gum_victims>} {gum_victims=%additem(%lower(<@gum_temp>),@gum_victims);#show %proper(@gum_temp) added to list. Victims are <@gum_victims>}} #ALIAS victim {#IF (%1) {#IF ((%ismember(%lower(%1),@gum_victims))) {#show %1 already on list, but will be targetted for blocking. List remains <@gum_victims>} {gum_victims=%additem(%lower(<%1>),@gum_victims);#show %proper(%1) added to list and targetted for blocking. Victims are <@gum_victims>};#IF (@autoattack_var = 1) {#SHOW Autoattack is on. Victims will be attacked on sight.} {#SHOW Autoattack is off. Blocking only.};#var target {%lower(%1)}} {#SHOW Who do you wish to victimize?}} #ALIAS Delete_a_victim {gum_temp=x;#prompt gum_temp "Who do you want to delete?";#IF (%ismember(%lower(@gum_temp),@gum_victims)) {gum_victims=%delitem(%lower(@gum_temp),@gum_victims);#show %proper(@gum_temp) deleted. Remaining list is <@gum_victims>} {#show No victim by that name. No one was deleted from the list.}} #ALIAS autoattack {#IF (@autoattack_var = 1) {#show Autoattack mode off. Type again to turn on.;#var autoattack_var {0}} {#IF (@autoattack_var = "0") {#1 {#show Autoattack mode ON. Victims will be attacked! Type again to turn off.};#var autoattack_var {1}} {#SHOW ERROR - Variable autoattack must be either on or off to toggle, defaulting to passive.;#var autoattack_var {0}}}} #ALIAS walk {#var jam 0;#show WALKING NORMAL} #ALIAS sneaking {#var jam 2;#show {SNEAKING}} #ALIAS jam {#var jam 1;#show JAMMING} #ALIAS tt {#var target %lower{%1} #ALIAS target {#var target %lower{%1} #FUNC gum_victims {wicked} #FUNC gum_direction {southeast} #FUNC gum_temp {Bubba} #FUNC autoattack_var {0} #FUNC target {""} #FUNC jam {1} #TRIGGER {(%w) arrives.} {#IF (%ismember(%lower(%1),@gum_victims)) {block %lower(%1) @gum_direction;#IF (@autoattack_var = 1) {kill %lower(%1);smash}}} {block_gum} 519 #TRIGGER {(%w) skulks in wearing Rebox Urbanites. } {#IF (%ismember(%lower(%1),@gum_victims)) {block %lower(%1) @gum_direction;#IF (@autoattack_var = 1) {kill %lower(%1);smash}}} {block_gum} 519 #TRIGGER {(%w) skulks in wearing Rebox Urbanites sneaking. } {#IF (%ismember(%lower(%1),@gum_victims)) {block %lower(%1) @gum_direction;#IF (@autoattack_var = 1) {kill %lower(%1);smash}}} {block_gum} 519 #TRIGGER {(%w) arrives, sneaking.} {#IF (%ismember(%lower(%1),@gum_victims)) {block %lower(%1) @gum_direction;#IF (@autoattack_var = 1) {kill %lower(%1);smash}}} {block_gum} 519 #KEY KEY2 {#var gum_direction {north};#if (@jam = 1) {vjam s} {#if (@jam = 2) {sneak s} {s}}} #KEY KEY3 {#var gum_direction {northwest};#if (@jam = 1) {vjam se} {#if (@jam = 2) {sneak se} {southeast}}} #KEY KEY4 {#var gum_direction {east};#if (@jam = 1) {vjam w} {#if (@jam = 2) {sneak w} {w}}} #KEY KEY6 {#var gum_direction {west};#if (@jam = 1) {vjam e} {#if (@jam = 2) {sneak e} {e}}} #KEY KEY7 {#var gum_direction {southeast};#if (@jam = 1) {vjam nw} {#if (@jam = 2) {sneak nw} {northwest}}} #KEY KEY8 {#var gum_direction {south};#if (@jam = 1) {vjam n} {#if (@jam = 2) {sneak n} {n}}} #KEY KEY9 {#var gum_direction {southwest};#if (@jam = 1) {vjam ne} {#if (@jam = 2) {sneak ne} {northeast}}} #KEY SUB {#var gum_direction {down};#if (@jam = 1) {vjam u} {#if (@jam = 2) {sneak u} {u}}} #KEY ADD {#var gum_direction {up};#if (@jam = 1) {vjam d} {#if (@jam = 2) {sneak d} {d}}} #KEY KEY1 {#var gum_direction {northeast};#if (@jam = 1) {vjam sw} {#if (@jam = 2) {sneak sw} {southwest}}} #KEY CTRL-KEY7 {block @target northwest} #KEY CTRL-KEY8 {block @target north} #KEY CTRL-KEY9 {block @target northeast} #KEY CTRL-KEY4 {block @target west} #KEY CTRL-KEY1 {block @target southwest} #KEY CTRL-KEY2 {block @target south} #KEY CTRL-KEY3 {block @target southeast} #KEY CTRL-KEY6 {block @target east} #KEY CTRL-SUB {block @target up} #KEY CTRL-ADD {block @target down} #KEY KEY0 {k %lower(@target);smash}