- Replaced temp with local variable in Kyle script + more cleanup.

Author: Lexx2k

Fallout2/Fallout1in2/Mapper/source/scripts/07bos/KYLE.ssl

@@ -59,13 +59,11 @@ procedure gotopart;
 procedure smalltalk;
 
 #define LVAR_Herebefore       (4)
+#define LVAR_KnowsName        (5)
 
-variable known;
 variable Only_Once := 1;
 variable tmp_hostile;
-variable radx;
 variable ccount;
-variable loot;
 variable stuff;
 
 procedure start begin
@@ -120,6 +118,43 @@ procedure talk_p_proc begin
    end
 end
 
+procedure combat begin
+   tmp_hostile := 1;
+end
+
+procedure critter_p_proc begin
+   if REP_ENEMY_BOS then begin
+      tmp_hostile := 1;
+   end
+   if (tile_distance_objs(self_obj, dude_obj) > 12) then begin
+      tmp_hostile := 0;
+   end
+   if (tmp_hostile) then begin
+      set_global_var(GVAR_ENEMY_BROTHERHOOD, 1);
+      tmp_hostile := 0;
+      attack(dude_obj);
+   end
+end
+
+procedure pickup_p_proc begin
+   if source_is_dude then begin
+      tmp_hostile := 1;
+   end
+end
+
+procedure destroy_p_proc begin
+   set_global_var(GVAR_ENEMY_BROTHERHOOD, 1);
+   inc_good_critter
+end
+
+procedure look_at_p_proc begin
+   script_overrides;
+   if (local_var(LVAR_KnowsName)) then
+      display_msg(mstr(100));
+   else
+      display_msg(mstr(101));
+end
+
 procedure goto01 begin
    Reply(102);
    NLowOption(103, goto02);
@@ -201,7 +236,7 @@ procedure goto12 begin
 end
 
 procedure goto13 begin
-   known := 1;
+   set_local_var(LVAR_KnowsName, 1);
    Reply(137);
    NOption(138, goto02, 4);
    BOption(139, goto04, 4);
@@ -314,43 +349,6 @@ procedure gotopart begin
    set_global_var(GVAR_BROTHER_BUILD_POWER_ARMOR, 1);
 end
 
-procedure combat begin
-   tmp_hostile := 1;
-end
-
-procedure critter_p_proc begin
-   if REP_ENEMY_BOS then begin
-      tmp_hostile := 1;
-   end
-   if (tile_distance_objs(self_obj, dude_obj) > 12) then begin
-      tmp_hostile := 0;
-   end
-   if (tmp_hostile) then begin
-      set_global_var(GVAR_ENEMY_BROTHERHOOD, 1);
-      tmp_hostile := 0;
-      attack(dude_obj);
-   end
-end
-
-procedure pickup_p_proc begin
-   if source_is_dude then begin
-      tmp_hostile := 1;
-   end
-end
-
-procedure destroy_p_proc begin
-   set_global_var(GVAR_ENEMY_BROTHERHOOD, 1);
-   inc_good_critter
-end
-
-procedure look_at_p_proc begin
-   script_overrides;
-   if (known) then
-      display_msg(mstr(100));
-   else
-      display_msg(mstr(101));
-end
-
 procedure smalltalk begin
    ccount := ccount + 1;
    if (ccount < 6) then begin