APPEND IMOEN25J

IF WEIGHT #-6~InParty("LRIRENIC") Global("ImmyIsMad","GLOBAL",1) !AreaCheck("AR6200")~ THEN BEGIN LRIMO1
   SAY @0
   IF ~~ THEN REPLY @1 DO ~SetGlobal("ImmyIsMad","GLOBAL",2)~ GOTO LRIMO2
   IF ~~ THEN REPLY @2 DO ~SetGlobal("ImmyIsMad","GLOBAL",2)~ GOTO LRIMO2
   IF ~~ THEN REPLY @3 DO ~SetGlobal("ImmyIsMad","GLOBAL",2)~ GOTO LRIMO2
   IF ~~ THEN REPLY @4 DO ~SetGlobal("ImmyIsMad","GLOBAL",2)~ GOTO LRIMO2
   IF ~~ THEN REPLY @5 DO ~SetGlobal("ImmyIsMad","GLOBAL",2)~ GOTO LRIMO2
END

IF ~~ THEN BEGIN LRIMO2
   SAY @6
   IF ~~ THEN REPLY @7 GOTO LRIMO3
   IF ~~ THEN REPLY @8 GOTO LRIMO3
   IF ~~ THEN REPLY @9 GOTO LRIMO3
   IF ~~ THEN REPLY @10 GOTO LRIMO3
END

IF ~~ THEN BEGIN LRIMO3
   SAY @11
   IF ~~ THEN EXTERN JONEL25J JON_IMMY1
END

IF ~~ THEN BEGIN LRIMO4
   SAY @12
   IF ~~ THEN REPLY @13 GOTO LRIMO5
   IF ~~ THEN REPLY @14 GOTO LRIMO5
   IF ~~ THEN REPLY @15 GOTO LRIMO5
END

IF ~~ THEN BEGIN LRIMO5
   SAY @16
   IF ~~ THEN REPLY @17 GOTO LRIMO7
   IF ~~ THEN REPLY @18 GOTO LRIMO9
   IF ~~ THEN REPLY @19 GOTO LRIMO6
   IF ~~ THEN REPLY @20 GOTO LRIMO8
   IF ~~ THEN REPLY @21 GOTO LRIMO9
END

IF ~~ THEN BEGIN LRIMO6
   SAY @22
   IF ~~ THEN DO ~GivePartyAllEquipment() LeaveParty() EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN LRIMO7
   SAY @23
   IF ~~ THEN GOTO LRIMO10
END

IF ~~ THEN BEGIN LRIMO8
   SAY @24
   IF ~~ THEN GOTO LRIMO10
END

IF ~~ THEN BEGIN LRIMO9
   SAY @25
   IF ~~ THEN GOTO LRIMO10
END

IF ~~ THEN BEGIN LRIMO10
   SAY @26
   IF ~~ THEN EXIT
END
END


