BEGIN ~VAMPKIM~

  IF ~~ THEN BEGIN 0
    SAY @0
    = @1
    IF ~~ THEN EXTERN C6BODHI KIMBODFIGHT2 
  END


EXTEND_BOTTOM C6BODHI 23
IF ~Global("KimVampire","GLOBAL",2)~ THEN REPLY @2 GOTO KIMBODFIGHT0
IF ~Global("KimVampire","GLOBAL",2)~ THEN REPLY @3 GOTO KIMBODFIGHT0
IF ~Global("KimVampire","GLOBAL",2)~ THEN REPLY @4 GOTO KIMBODFIGHT0
IF ~Global("KimVampire","GLOBAL",2)~ THEN REPLY @5 GOTO KIMBODFIGHT1
END

EXTEND_BOTTOM C6BODHI 21
IF ~Global("KimVampire","GLOBAL",2)~ THEN GOTO 23
END

APPEND C6BODHI
  IF ~~ THEN BEGIN KIMBODFIGHT0
    SAY @6
    IF ~~ THEN EXTERN VAMPKIM 0 
  END

  IF ~~ THEN BEGIN KIMBODFIGHT1
    SAY @7
    IF ~~ THEN GOTO KIMBODFIGHT0
  END

  IF ~~ THEN BEGIN KIMBODFIGHT2
    SAY @8
    IF ~~ THEN GOTO 28
  END

END