BEGIN ~KIMJ~

// VAMPIRE

IF ~Global("KimVampire","GLOBAL",5)~ THEN BEGIN vamp0
  SAY @0
  IF ~~ THEN GOTO vamp1
END

IF ~~ THEN BEGIN vamp1
  SAY @1
  IF ~~ THEN REPLY @2 DO ~SetGlobal("KimVampire","GLOBAL",6)~ GOTO vamp2
  IF ~~ THEN REPLY @3 DO ~SetGlobal("KimVampire","GLOBAL",6)~ GOTO vamp3
  IF ~~ THEN REPLY @4 DO ~SetGlobal("KimVampire","GLOBAL",6)~ GOTO vamp4
END


IF ~~ THEN BEGIN vamp2
  SAY @5
  IF ~~ THEN GOTO vamp5
END

IF ~~ THEN BEGIN vamp3
  SAY @6
  IF ~~ THEN REPLY @7 GOTO vamp10
  IF ~~ THEN REPLY @8  GOTO vamp4
END

IF ~~ THEN BEGIN vamp4
  SAY @9
  IF ~~ THEN GOTO vamp5
END

IF ~~ THEN BEGIN vamp5
  SAY @10
  IF ~~ THEN GOTO vamp6
END

IF ~~ THEN BEGIN vamp6
  SAY @11
  IF ~~ THEN GOTO vamp7
END

IF ~~ THEN BEGIN vamp7
  SAY @12
  IF ~~ THEN GOTO vamp8
END

IF ~~ THEN BEGIN vamp8
  SAY @13
  IF ~~ THEN GOTO vamp9
END

IF ~~ THEN BEGIN vamp9
  SAY @14
  IF ~~ THEN DO ~JoinParty()~ EXIT
END

IF ~~ THEN BEGIN vamp10
  SAY @15
  IF ~~ THEN GOTO vamp11
END

IF ~~ THEN BEGIN vamp11
  SAY @16
  IF ~~ THEN GOTO vamp12
END

IF ~~ THEN BEGIN vamp12
  SAY @17
  IF ~~ THEN GOTO vamp13
END

IF ~~ THEN BEGIN vamp13
  SAY @18
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

// PHAEDRE

IF ~Global("Phaerecomment","LOCALS",1) AreaCheck("AR2204")~ THEN BEGIN phae1
SAY @19 
IF ~Global("KimRomanceActive","GLOBAL",2)~ THEN REPLY @20 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae5
IF ~Global("KimRomanceActive","GLOBAL",1)~ THEN REPLY @20 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae4
IF ~~ THEN REPLY @21 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae3
IF ~~ THEN REPLY @22 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae2
END

IF ~~ THEN BEGIN phae2
SAY @23
IF ~~ THEN DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN phae3
SAY @24 
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN phae4
SAY @25
= @26
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN phae5
SAY @27 
IF ~~ THEN EXIT
END

IF ~Global("Phaerecomment","LOCALS",2)~ THEN BEGIN phae6
SAY @28 
IF ~~ THEN REPLY @29 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae9
IF ~~ THEN REPLY @30 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae8
IF ~~ THEN REPLY @31 DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ GOTO phae7
END

IF ~~ THEN BEGIN phae7
SAY @32 
IF ~~ THEN DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN phae8
SAY @33 
IF ~~ THEN DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN phae9
SAY @34 
IF ~~ THEN DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~Global("Phaerecomment","LOCALS",3)~ THEN BEGIN phae10
SAY @35 
IF ~~ THEN DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ EXIT
END

IF ~Global("Phaerecomment","LOCALS",4)~ THEN BEGIN phae11
SAY @36 
IF ~~ THEN DO ~ SetGlobal("Phaerecomment","LOCALS",5)~ EXIT
END


// GTKU #1 (1 – 23)

IF ~Global("GTKUKIM","LOCALS",2)~ THEN BEGIN 1
SAY @37 
IF ~~ THEN REPLY @38 GOTO 5
IF ~~ THEN REPLY @39 GOTO 4
IF ~~ THEN REPLY @40 GOTO 3
IF ~~ THEN REPLY @41 GOTO 2
END

IF ~~ THEN BEGIN 2
SAY @42 
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 3
SAY @43 
IF ~~ THEN GOTO 5
END

IF ~~  THEN BEGIN 4
SAY @44
IF ~~ THEN REPLY @45 GOTO 5
IF ~~ THEN REPLY @46 GOTO 5
IF ~~ THEN REPLY @47 GOTO 2
END

IF ~~  THEN BEGIN 5
SAY @48
IF ~~ THEN REPLY @49 GOTO 9
IF ~~ THEN REPLY @50 GOTO 8
IF ~~ THEN REPLY @51 GOTO 7
IF ~~ THEN REPLY @52 GOTO 6
IF ~~ THEN REPLY @53 GOTO 2
END

IF ~~  THEN BEGIN 6
SAY @54
IF ~~ THEN REPLY @55 GOTO 12
IF ~~ THEN REPLY @56 GOTO 7
IF ~~ THEN REPLY @57 GOTO 11
IF ~~ THEN REPLY @58 GOTO 10
IF ~~ THEN REPLY @59 GOTO 2
END

IF ~~  THEN BEGIN 7
SAY @60
IF ~~ THEN REPLY @61 GOTO 14
IF ~~ THEN REPLY @62 GOTO 17
IF ~~ THEN REPLY @63 GOTO 16
IF ~~ THEN REPLY @64 GOTO 15
IF ~~ THEN REPLY @65 GOTO 14
IF ~GENDER (Player1,"MALE")~ THEN REPLY @66 GOTO 13
IF ~~ THEN REPLY @67 GOTO 2
END

IF ~~ THEN BEGIN 8
SAY @68
IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 9
SAY @69
IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 10
SAY @70
IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 11
SAY @71
IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 12
SAY @72
IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 13
SAY @73
IF ~~ THEN GOTO 14
END

IF ~~  THEN BEGIN 14
SAY @74
IF ~~ THEN REPLY @75 GOTO 18
IF ~~ THEN REPLY @76 GOTO 20
IF ~~ THEN REPLY @77 GOTO 19
IF ~~ THEN REPLY @78 GOTO 21
IF ~~ THEN REPLY @79 GOTO 22
END

IF ~~ THEN BEGIN 15 // 100
SAY @80
IF ~~ THEN GOTO 14
END

IF ~~ THEN BEGIN 16
SAY @81
IF ~~ THEN GOTO 14
END

IF ~~ THEN BEGIN 17
SAY @82
IF ~ IsValidForPartyDialog("Keldorn")~ THEN DO ~IncrementGlobal("Kimjustice","LOCALS",1)~ GOTO 18
IF ~!IsValidForPartyDialog("Keldorn")~ THEN DO ~IncrementGlobal("Kimjustice","LOCALS",1)~ GOTO 18
END

IF ~~ THEN BEGIN 18
SAY @83
IF ~~ THEN GOTO 14
END

IF ~~ THEN BEGIN 19
SAY @84
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 20
SAY @85
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 21
SAY @86
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 22
SAY @87
IF ~~ THEN GOTO 23
END

IF ~~ THEN BEGIN 23
SAY @88
IF ~~ THEN EXIT
END




// GTKU #2 (24 – 40) // 150

IF ~Global("GTKUKIM","LOCALS",4)~ THEN BEGIN 24
SAY @89 
IF ~~ THEN REPLY @90 GOTO 31
IF ~~ THEN REPLY @91 GOTO 30
IF ~~ THEN REPLY @92 GOTO 29
IF ~~ THEN REPLY @93 GOTO 28
IF ~~ THEN REPLY @94 GOTO 27
IF ~~ THEN REPLY @95 GOTO 26
IF ~~ THEN REPLY @96 GOTO 25
END

IF ~~ THEN BEGIN 25
SAY @97 
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~  THEN BEGIN 26
SAY @98
IF ~~ THEN REPLY @90 GOTO 31
IF ~~ THEN REPLY @91 GOTO 30
IF ~~ THEN REPLY @92 GOTO 29
IF ~~ THEN REPLY @93 GOTO 28
IF ~~ THEN REPLY @94 GOTO 27
IF ~~ THEN REPLY @96 GOTO 25
END

IF ~~ THEN BEGIN 27
SAY @99 
IF ~~ THEN GOTO 32
END

IF ~~ THEN BEGIN 28
SAY @100
IF ~~ THEN REPLY @101 GOTO 31
IF ~~ THEN REPLY @102 GOTO 30
IF ~~ THEN REPLY @103 GOTO 29
IF ~~ THEN REPLY @104 GOTO 25
IF ~~ THEN REPLY @105 GOTO 32
END

IF ~~ THEN BEGIN 29
SAY @106 
IF ~~ THEN GOTO 38
END

IF ~~ THEN BEGIN 30
SAY @107 
IF ~~ THEN GOTO 32 // 200
END

IF ~~ THEN BEGIN 31
SAY @108
IF ~~ THEN REPLY @109 GOTO 29
IF ~~ THEN REPLY @110 GOTO 40
IF ~~ THEN REPLY @111 GOTO 40
IF ~~ THEN REPLY @112 GOTO 25
END

IF ~~ THEN BEGIN 32
SAY @113
IF ~~ THEN REPLY @114 GOTO 38
IF ~~ THEN REPLY @115 GOTO 34
IF ~~ THEN REPLY @116 GOTO 33
IF ~~ THEN REPLY @112 GOTO 25
END

IF ~~ THEN BEGIN 33
SAY @117
IF ~~ THEN REPLY @118 GOTO 29
IF ~~ THEN REPLY @119 GOTO 39
IF ~~ THEN REPLY @120 GOTO 35
IF ~~ THEN REPLY @121 GOTO 36
IF ~~ THEN REPLY @122 GOTO 37
END

IF ~~ THEN BEGIN 34
SAY @123 
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 35
SAY @124 
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 36
SAY @125 
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 37
SAY @126 
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 38
SAY @127  
IF ~~ THEN EXIT // 250
END

IF ~~ THEN BEGIN 39
SAY @128 
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 40
SAY @129
IF ~~ THEN REPLY @130 GOTO 34
IF ~~ THEN REPLY @131 GOTO 33
IF ~~ THEN REPLY @132 GOTO 25
END




/// GTKU#3 (41 – 63)

IF ~Global("GTKUKIM","LOCALS",6)~ THEN BEGIN 41
SAY @133 
IF ~~ THEN REPLY @134 GOTO 45
IF ~~ THEN REPLY @135 GOTO 44
IF ~Gender(Player1,"MALE")~ THEN REPLY @136 GOTO 43
IF ~~ THEN REPLY @137 GOTO 42
END

IF ~~ THEN BEGIN 42
SAY @138
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 43
SAY @139
=@140
IF ~~ THEN GOTO 45
END

IF ~~ THEN BEGIN 44
SAY @141
IF ~~ THEN GOTO 45
END

IF ~~ THEN BEGIN 45
SAY @142
IF ~~ THEN GOTO 46
END

IF ~~ THEN BEGIN 46 // 299
SAY @143
IF ~~ THEN REPLY @144 GOTO 47
IF ~~ THEN REPLY @145 GOTO 51
IF ~~ THEN REPLY @146 GOTO 48
IF ~~ THEN REPLY @147 GOTO 42
END

IF ~~ THEN BEGIN 47
SAY @148
IF ~~ THEN REPLY @149 GOTO 49
IF ~~ THEN REPLY @150 GOTO 50
IF ~~ THEN REPLY @151 GOTO 51
IF ~~ THEN REPLY @152 GOTO 42
END

IF ~~ THEN BEGIN 48
SAY @153
IF ~~ THEN REPLY @154 GOTO 51
IF ~~ THEN REPLY @155 GOTO 42
END

IF ~~ THEN BEGIN 49
SAY @156
IF ~~ THEN REPLY @157 GOTO 51
IF ~~ THEN REPLY @158 GOTO 48
IF ~~ THEN REPLY @159 GOTO 42
END

IF ~~ THEN BEGIN 50
SAY @160
IF ~~ THEN GOTO 51
END

IF ~~ THEN BEGIN 51
SAY @161
IF ~~ THEN GOTO 52
END

IF ~~ THEN BEGIN 52
SAY @162
IF ~~ THEN REPLY @163 GOTO 53
IF ~~ THEN REPLY @164 GOTO 56
IF ~~ THEN REPLY @165 GOTO 54
IF ~~ THEN REPLY @166 GOTO 55
IF ~~ THEN REPLY @167 GOTO 42
END

IF ~~ THEN BEGIN 53 //349
SAY @168
IF ~~ THEN GOTO 56
END

IF ~~ THEN BEGIN 54
SAY @169
IF ~~ THEN GOTO 56
END

IF ~~ THEN BEGIN 55
SAY @170
IF ~~ THEN GOTO 54
END

IF ~~ THEN BEGIN 56
SAY @171
IF ~~ THEN REPLY @172 GOTO 59
IF ~~ THEN REPLY @173 GOTO 58
IF ~~ THEN REPLY @174 GOTO 57
IF ~~ THEN REPLY @175 GOTO 42
END

IF ~~ THEN BEGIN 57
SAY @176
IF ~~ THEN GOTO 59
END

IF ~~ THEN BEGIN 58
SAY @177
IF ~~ THEN GOTO 59
END

IF ~~ THEN BEGIN 59
SAY @178
IF ~~ THEN REPLY @179 GOTO 62
IF ~~ THEN REPLY @180 GOTO 61
IF ~~ THEN REPLY @181 GOTO 60
IF ~~ THEN REPLY @182 GOTO 42
END

IF ~~ THEN BEGIN 60
SAY @183
IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 61
SAY @184
IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 62 // 399
SAY @185
IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 63
SAY@186
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ EXIT
END


/// GTKU #4

IF ~Global("GTKUKIM","LOCALS",8)~ THEN BEGIN 64
SAY @187 
IF ~~ THEN GOTO 65
END

IF ~~ THEN BEGIN 65
SAY @188
IF ~~ THEN REPLY @189 GOTO 70
IF ~~ THEN REPLY @190 GOTO 69
IF ~~ THEN REPLY @191 GOTO 68
IF ~~ THEN REPLY @192 GOTO 67
IF ~~ THEN REPLY @193 GOTO 66
END

IF ~~ THEN BEGIN 66
SAY @194
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 67
SAY @195
IF ~~ THEN GOTO 71
END

IF ~~ THEN BEGIN 68
SAY @196
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~  GOTO 71
END

IF ~~ THEN BEGIN 69
SAY @197
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 71
END

IF ~~ THEN BEGIN 70
SAY @198
IF ~~ THEN GOTO 71
END

IF ~~ THEN BEGIN 71 // 450
SAY @199
IF ~~ THEN REPLY @200 GOTO 72
IF ~~ THEN REPLY @201 GOTO 73
IF ~~ THEN REPLY @202 GOTO 74
IF ~~ THEN REPLY @203 GOTO 75
IF ~~ THEN REPLY @204 GOTO 76
IF ~~ THEN REPLY @205 GOTO 66
END

IF ~~ THEN BEGIN 72
SAY @206
IF ~~ THEN GOTO 77
END

IF ~~ THEN BEGIN 73
SAY @207
IF ~~ THEN GOTO 77
END

IF ~~ THEN BEGIN 74
SAY @208
IF ~~ THEN GOTO 77
END

IF ~~ THEN BEGIN 75
SAY @209
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~  GOTO 77
END

IF ~~ THEN BEGIN 76
SAY @210
IF ~~ THEN GOTO 77
END

IF ~~ THEN BEGIN 77
SAY @211
IF ~~ THEN GOTO 78
END

IF ~~ THEN BEGIN 78
SAY @212
IF ~~ THEN GOTO 79
END

IF ~~ THEN BEGIN 79
SAY @213
IF ~~ THEN EXIT
END



/// GTKU #5

IF ~Global("GTKUKIM","LOCALS",10)~ THEN BEGIN 80
SAY @214 
IF ~~ THEN REPLY @215 GOTO 84
IF ~~ THEN REPLY @216 GOTO 83
IF ~~ THEN REPLY @217 GOTO 82
IF ~~ THEN REPLY @218 GOTO 81
END

IF ~~ THEN BEGIN 81
SAY @219
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 82
SAY @220
IF ~~ THEN GOTO 85
END

IF ~~ THEN BEGIN 83
SAY @221
IF ~~ THEN GOTO 85
END

IF ~~ THEN BEGIN 84
SAY @222
IF ~~ THEN GOTO 85
END

IF ~~ THEN BEGIN 85
SAY @223
IF ~~ THEN GOTO 86
END

IF ~~ THEN BEGIN 86
SAY @224
IF ~~ THEN REPLY @225 GOTO 87
IF ~~ THEN REPLY @226 GOTO 88
IF ~~ THEN REPLY @227 GOTO 89
IF ~~ THEN REPLY @228 GOTO 81
END

IF ~~ THEN BEGIN 87
SAY @229
IF ~~ THEN GOTO 90
END

IF ~~ THEN BEGIN 88
SAY @230
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 87
END

IF ~~ THEN BEGIN 89
SAY @231
IF ~~ THEN GOTO 87
END

IF ~~ THEN BEGIN 90
SAY @232
IF ~~ THEN REPLY @233 GOTO 91
IF ~Gender (Player1, "MALE")~ THEN REPLY @234 GOTO 92
IF ~~ THEN REPLY @235 GOTO 93
IF ~~ THEN REPLY @228 GOTO 81
END

IF ~~ THEN BEGIN 91
SAY @236
IF ~~ THEN GOTO 94
END

IF ~~ THEN BEGIN 92
SAY @237
IF ~~ THEN GOTO 94
END

IF ~~ THEN BEGIN 93
SAY @238
IF ~~ THEN GOTO 94
END

IF ~~ THEN BEGIN 94
SAY @239
IF ~~ THEN GOTO 95
END

IF ~~ THEN BEGIN 95
SAY @240
IF ~~ THEN GOTO 96
END

IF ~~ THEN BEGIN 96
SAY @241
IF ~~ THEN REPLY @242 GOTO 97
IF ~~ THEN REPLY @243 GOTO 98
IF ~~ THEN REPLY @244 GOTO 99
IF ~~ THEN REPLY @245 GOTO 101
END

IF ~~ THEN BEGIN 97
SAY @246
IF ~~ THEN GOTO 102
END

IF ~~ THEN BEGIN 98
SAY @247
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 99
SAY @248
IF ~~ THEN GOTO 100
END

IF ~~ THEN BEGIN 100
SAY @249
IF ~~ THEN GOTO 102
END

IF ~~ THEN BEGIN 101
SAY @250
IF ~~ THEN GOTO 102
END

IF ~~ THEN BEGIN 102
SAY @251
IF ~~ THEN GOTO 103
END

IF ~~ THEN BEGIN 103
SAY @252
IF ~~ THEN GOTO 104
END

IF ~~ THEN BEGIN 104
SAY @253
IF ~~ THEN REPLY @254 GOTO 105
IF ~~ THEN REPLY @255 GOTO 98
IF ~~ THEN REPLY @256 GOTO 106
IF ~~ THEN REPLY @257 GOTO 107
END

IF ~~ THEN BEGIN 105
SAY @258
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",3)~ GOTO 108 
END

IF ~~ THEN BEGIN 106
SAY @259
IF ~~ THEN GOTO 104 
END

IF ~~ THEN BEGIN 107
SAY @260
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ GOTO 108
END

IF ~~ THEN BEGIN 108
SAY @261
IF ~~ THEN EXIT
END




///// GTKU #6 : class specific (109 – 162)



// GUERRIER

IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,FIGHTER)~
THEN BEGIN 109
SAY @262 
IF ~~ THEN REPLY @263 GOTO 115
IF ~~ THEN REPLY @264 GOTO 114
IF ~~ THEN REPLY @265 GOTO 113
IF ~~ THEN REPLY @266 GOTO 112
IF ~~ THEN REPLY @267 GOTO 111
IF ~~ THEN REPLY @268 GOTO 110
END

IF ~~ THEN BEGIN 110
SAY @269
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 111
SAY @270
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 112
SAY @271
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 113
SAY @272
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1) ~ GOTO 116
END

IF ~~ THEN BEGIN 114
SAY @273
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 115
SAY @274
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 116
SAY @275
IF ~~ THEN REPLY @276 GOTO 117
IF ~~ THEN REPLY @277 GOTO 118
IF ~ !Class(Player1,FIGHTER) ~ THEN REPLY @278 GOTO 119
IF ~ !Class(Player1,RANGER) ~ THEN REPLY @279 GOTO 120
IF ~ !Class(Player1,PALADIN)
ReputationGT(Player1,12) ~ THEN REPLY @280 GOTO 121
IF ~ !Class(Player1,PALADIN)
!ReputationGT(Player1,12)
ReputationGT(Player1,8)  ~ THEN REPLY @281 GOTO 122
IF ~ !Class(Player1,PALADIN)
ReputationLT(Player1,9)  ~ THEN REPLY @281 GOTO 123
IF ~ !Class(Player1,CLERIC) ~ THEN REPLY @282 GOTO 124
IF ~ !Class(Player1,DRUID) ~ THEN REPLY @283 GOTO 125
IF ~ !Class(Player1,THIEF) ~ THEN REPLY @284 GOTO 126
IF ~ !Class(Player1,BARD) ~ THEN REPLY @285 GOTO 127
IF ~ OR(2)
!Class(Player1,SORCERER)
!Class(Player1,MAGE) ~ THEN REPLY @286 GOTO 127a
END

IF ~~ THEN BEGIN 117
SAY @287
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 118
SAY @288
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 119
SAY @289
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 120
SAY @290
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 121
SAY @291
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 122
SAY @292
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 123
SAY @293
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 124
SAY @294
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 125
SAY @295
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 126
SAY @296
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 127
SAY @297
IF ~~ THEN GOTO 128
END

IF ~~ THEN BEGIN 127a
SAY @298
IF ~~ THEN GOTO 128
END


IF ~~ THEN BEGIN 128
SAY @299
IF ~~ THEN EXIT
END


///  RANGER


IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,RANGER)~
THEN BEGIN 129
SAY @300 
IF ~~ THEN REPLY @301 GOTO 130
IF ~~ THEN REPLY @302 GOTO 131
IF ~~ THEN REPLY @303 GOTO 132
IF ~~ THEN REPLY @304 GOTO 133
IF ~~ THEN REPLY @305 GOTO 134
IF ~~ THEN REPLY @306 GOTO 110
END

IF ~~ THEN BEGIN 130
SAY @307
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 131
SAY @308
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 132
SAY @309
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 133
SAY @310
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 134
SAY @311
IF ~~ THEN GOTO 116
END


// PALADIN

IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,PALADIN)~
THEN BEGIN 135
SAY @312 
IF ~~ THEN REPLY @313 GOTO 136
IF ~~ THEN REPLY @314 GOTO 137
IF ~~ THEN REPLY @315 GOTO 138
IF ~~ THEN REPLY @316 GOTO 139
IF ~~ THEN REPLY @317 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END

IF ~~ THEN BEGIN 136
SAY @319
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 137
SAY @320
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 138
SAY @321
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 139
SAY @322
IF ~~ THEN GOTO 116
END


//  CLERC


IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,CLERIC)~
THEN BEGIN 140
SAY @323 
IF ~~ THEN REPLY @324 GOTO 141
IF ~~ THEN REPLY @325 GOTO 142
IF ~~ THEN REPLY @326 GOTO 138
IF ~~ THEN REPLY @327 GOTO 143
IF ~~ THEN REPLY @328 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END

IF ~~ THEN BEGIN 141
SAY @329
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 142
SAY @330
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 143
SAY @331
IF ~~ THEN GOTO 116
END


// DRUIDE


IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,DRUID)~
THEN BEGIN 144
SAY @332 
IF ~~ THEN REPLY @333 GOTO 145
IF ~~ THEN REPLY @334 GOTO 146
IF ~~ THEN REPLY @335 GOTO 138
IF ~~ THEN REPLY @336 GOTO 147
IF ~~ THEN REPLY @337 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END

IF ~~ THEN BEGIN 145
SAY @338
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 146
SAY @339
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 147
SAY @340
IF ~~ THEN GOTO 116
END


// VOLEUR

IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,THIEF)~
THEN BEGIN 148
SAY @341 
IF ~~ THEN REPLY @342 GOTO 149
IF ~~ THEN REPLY @343 GOTO 150
IF ~~ THEN REPLY @344 GOTO 138
IF ~~ THEN REPLY @345 GOTO 151
IF ~~ THEN REPLY @346 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END

IF ~~ THEN BEGIN 149
SAY @347
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 150
SAY @348
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 151
SAY @349
IF ~~ THEN GOTO 116
END


// BARDE

IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,BARD)~
THEN BEGIN 152
SAY @350 
IF ~~ THEN REPLY @351 GOTO 153
IF ~~ THEN REPLY @352 GOTO 154
IF ~~ THEN REPLY @353 GOTO 155
IF ~~ THEN REPLY @354 GOTO 156
IF ~~ THEN REPLY @355 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END

IF ~~ THEN BEGIN 153
SAY @356
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 154
SAY @357
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 155
SAY @358
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 156
SAY @359
IF ~~ THEN GOTO 116
END


// MAGE

IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,MAGE) ~
THEN BEGIN 157
SAY @360 
IF ~~ THEN REPLY @361 GOTO 158
IF ~~ THEN REPLY @362 GOTO 159
IF ~~ THEN REPLY @363 GOTO 160
IF ~~ THEN REPLY @364 GOTO 161
IF ~~ THEN REPLY @365 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END

IF ~~ THEN BEGIN 158
SAY @366
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 159
SAY @367
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 160
SAY @368
IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 161
SAY @369
IF ~~ THEN GOTO 116
END

// SORCIER

IF ~Global("GTKUKIM","LOCALS",12)
Class(Player1,SORCERER) ~
THEN BEGIN 162
SAY @360 
IF ~~ THEN REPLY @370 GOTO 158
IF ~~ THEN REPLY @371 GOTO 159
IF ~~ THEN REPLY @372 GOTO 160
IF ~~ THEN REPLY @364 GOTO 161
IF ~~ THEN REPLY @373 GOTO 134
IF ~~ THEN REPLY @318 GOTO 110
END



//// GTKU #7 (163 – 175)


IF ~Global("GTKUKIM","LOCALS",14)~
THEN BEGIN 163
SAY @374 
IF ~~ THEN GOTO 164
END

IF ~~ THEN BEGIN 164
SAY @375
IF ~~ THEN GOTO 165
END

IF ~~ THEN BEGIN 165
SAY @376
IF ~~ THEN GOTO 166
END

IF ~~ THEN BEGIN 166
SAY @377
IF ~~ THEN REPLY @378 GOTO 169
IF ~~ THEN REPLY @379 GOTO 169
IF ~~ THEN REPLY @380 GOTO 172
IF ~~ THEN REPLY @381 GOTO 169
IF ~~ THEN REPLY @382 GOTO 169
IF ~~ THEN REPLY @383 GOTO 169
IF ~~ THEN REPLY @384 GOTO 169
IF ~~ THEN REPLY @385 GOTO 168
IF ~~ THEN REPLY @386 GOTO 176
IF ~~ THEN REPLY @387 GOTO 167
END

IF ~~ THEN BEGIN 167
SAY @388
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 168
SAY @389
IF ~~ THEN GOTO 166
END

IF ~~ THEN BEGIN 169
SAY @390
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 170
END

IF ~~ THEN BEGIN 170
SAY @391
IF ~~ THEN REPLY @392 GOTO 168
IF ~~ THEN REPLY @393 GOTO 171
IF ~~ THEN REPLY @394 GOTO 166
END

IF ~~ THEN BEGIN 171
SAY @395
IF ~~ THEN GOTO 173
END

IF ~~ THEN BEGIN 172
SAY @396
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",2) ~GOTO 173
END

IF ~~ THEN BEGIN 173
SAY @397
IF ~~ THEN GOTO 174
END

IF ~~ THEN BEGIN 174
SAY @398
IF ~~ THEN GOTO 175
END

IF ~~ THEN BEGIN 175
SAY @399
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 176
SAY @400
IF ~~ THEN GOTO 170
END




/// GTKU #8 (177 – 208)

IF ~Global("GTKUKIM","LOCALS",16)~ THEN BEGIN 177
SAY @401 
IF ~~ THEN REPLY @402 GOTO 181
IF ~~ THEN REPLY @403 GOTO 178
IF ~~ THEN REPLY @404 GOTO 180
END


IF ~~ THEN BEGIN 178
SAY @405
IF ~~ THEN REPLY @402 GOTO 181
IF ~~ THEN REPLY @406 GOTO 179
IF ~~ THEN REPLY @407 GOTO 180
END

IF ~~ THEN BEGIN 179
SAY @408
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 180
SAY @409
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 181
SAY @410
IF ~~ THEN GOTO 182
END

IF ~~ THEN BEGIN 182
SAY @411
IF ~~ THEN REPLY @412 GOTO 183
IF ~~ THEN REPLY @413 GOTO 183
IF ~~ THEN REPLY @414 GOTO 185
IF ~~ THEN REPLY @415 GOTO 184
IF ~~ THEN REPLY @416 GOTO 180
END

IF ~~ THEN BEGIN 183
SAY @417
IF ~~ THEN GOTO 185
END

IF ~~ THEN BEGIN 184
SAY @418
IF ~~ THEN GOTO 183
END

IF ~~ THEN BEGIN 185
SAY @419
IF ~~ THEN GOTO 186
END

IF ~~ THEN BEGIN 186
SAY @420
IF ~~ THEN REPLY @421 GOTO 187
IF ~~ THEN REPLY @422 GOTO 188
IF ~~ THEN REPLY @423 GOTO 189
IF ~~ THEN REPLY @424 GOTO 190
IF ~~ THEN REPLY @425 GOTO 191
IF ~~ THEN REPLY @426 GOTO 180
END

IF ~~ THEN BEGIN 187
SAY @427
IF ~~ THEN GOTO 192
END

IF ~~ THEN BEGIN 188
SAY @428
IF ~~ THEN GOTO 192
END

IF ~~ THEN BEGIN 189
SAY @429
IF ~~ THEN REPLY @430 GOTO 192
IF ~~ THEN REPLY @431 GOTO 196
END

IF ~~ THEN BEGIN 190
SAY @432
IF ~~ THEN GOTO 192
END

IF ~~ THEN BEGIN 191
SAY @433
IF ~~ THEN GOTO 192
END

IF ~~ THEN BEGIN 192
SAY @434
IF ~~ THEN GOTO 194
END

IF ~~ THEN BEGIN 194
SAY @435
IF ~~ THEN GOTO 195
END

IF ~~ THEN BEGIN 195
SAY @436
IF ~ Gender(Player1,"MALE")~ THEN REPLY @437 GOTO 199
IF ~ Gender(Player1,"FEMALE")~ THEN REPLY @437 GOTO 200
IF ~~ THEN REPLY @438 GOTO 198
IF ~~ THEN REPLY @439 GOTO 197
IF ~~ THEN REPLY @164 GOTO 201
IF ~~ THEN REPLY @440 GOTO 180
IF ~~ THEN REPLY @441 GOTO 196
END

IF ~~ THEN BEGIN 196
SAY @442
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 197
SAY @443
IF ~~ THEN GOTO 201
END

IF ~~ THEN BEGIN 198
SAY @444
IF ~~ THEN GOTO 201
END

IF ~~ THEN BEGIN 199
SAY @445
IF ~~ THEN GOTO 201
END

IF ~~ THEN BEGIN 200
SAY @446
IF ~~ THEN GOTO 201
END

IF ~~ THEN BEGIN 201
SAY @447
IF ~~ THEN GOTO 202
END

IF ~~ THEN BEGIN 202
SAY @448
IF ~~ THEN REPLY @449 GOTO 203
IF ~~ THEN REPLY @450 GOTO 204
IF ~~ THEN REPLY @451 GOTO 205
IF ~~ THEN REPLY @452 GOTO 206
IF ~~ THEN REPLY @453 GOTO 207
IF ~~ THEN REPLY @454 GOTO 180
END

IF ~~ THEN BEGIN 203
SAY @455
IF ~~ THEN GOTO 208
END

IF ~~ THEN BEGIN 204
SAY @456
IF ~~ THEN GOTO 208
END

IF ~~ THEN BEGIN 205
SAY @457
IF ~~ THEN GOTO 208
END

IF ~~ THEN BEGIN 206
SAY @458
IF ~~ THEN GOTO 208
END

IF ~~ THEN BEGIN 207
SAY @459
IF ~~ THEN GOTO 208
END

IF ~~ THEN BEGIN 208
SAY @460
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ EXIT
END



/// GTKU #9 (209 – 230)

IF ~Global("GTKUKIM","LOCALS",18)~ THEN BEGIN 209
SAY @461 
IF ~~ THEN REPLY @462 GOTO 220
IF ~~ THEN REPLY @463 GOTO 219
IF ~~ THEN REPLY @464 GOTO 218
IF ~~ THEN REPLY @465 GOTO 217
IF ~Gender(Player1,"FEMALE")~ THEN REPLY @466 GOTO 216
IF ~Gender(Player1,"MALE")~ THEN REPLY @466 GOTO 215
IF ~Gender(Player1,"FEMALE")~ THEN REPLY @467 GOTO 214
IF ~Gender(Player1,"MALE")~ THEN REPLY @467 GOTO 213
IF ~~ THEN REPLY @468 GOTO 212
IF ~~ THEN REPLY @469 GOTO 211
IF ~~ THEN REPLY @470 GOTO 210
END

IF ~~ THEN BEGIN 210
SAY @471
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 211
SAY @472
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 212
SAY @473
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 213
SAY @474
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 214
SAY @475
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 215
SAY @476
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 216
SAY @477
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 217
SAY @478
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 218
SAY @479
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 219
SAY @480
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 220
SAY @481
IF ~~ THEN GOTO 221
END

IF ~~ THEN BEGIN 221
SAY @482
IF ~~ THEN GOTO 222
END

IF ~~ THEN BEGIN 222
SAY @483
IF ~~ THEN REPLY @484 GOTO 227
IF ~~ THEN REPLY @485 GOTO 226
IF ~~ THEN REPLY @486 GOTO 225
IF ~~ THEN REPLY @487 GOTO 224
IF ~~ THEN REPLY @488 GOTO 223
IF ~~ THEN REPLY @489 GOTO 210
END

IF ~~ THEN BEGIN 223
SAY @490
IF ~~ THEN GOTO 228
END

IF ~~ THEN BEGIN 224
SAY @491
IF ~~ THEN GOTO 228
END

IF ~~ THEN BEGIN 225
SAY @492
IF ~~ THEN GOTO 228
END

IF ~~ THEN BEGIN 226
SAY @493
IF ~~ THEN GOTO 228
END

IF ~~ THEN BEGIN 227
SAY @494
IF ~~ THEN GOTO 228
END


IF ~~ THEN BEGIN 228
SAY @495
IF ~~ THEN GOTO 229
END

IF ~~ THEN BEGIN 229
SAY @496
IF ~~ THEN EXIT
END

///// GTKU #10

IF ~Global("GTKUKIM","LOCALS",20)~ THEN BEGIN 230
SAY @497 
IF ~~ THEN REPLY @498 GOTO 233
IF ~~ THEN REPLY @499 GOTO 231
IF ~~ THEN REPLY @500 GOTO 232
END

IF ~~ THEN BEGIN 231
SAY @501
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 232
SAY @502
IF ~~ THEN GOTO 233
END

IF ~~ THEN BEGIN 233
SAY @503
IF ~~ THEN GOTO 235
END

IF ~~ THEN BEGIN 235
SAY @504
IF ~~ THEN REPLY @505 GOTO 236
IF ~~ THEN REPLY @506 GOTO 237
IF ~~ THEN REPLY @507 GOTO 238
IF ~~ THEN REPLY @508 GOTO 239
IF ~~ THEN REPLY @509 GOTO 240
IF ~~ THEN REPLY @510 GOTO 241
IF ~~ THEN REPLY @511 GOTO 242
END

IF ~~ THEN BEGIN 236
SAY @512
IF ~~ THEN GOTO 243
END

IF ~~ THEN BEGIN 237
SAY @513
IF ~~ THEN GOTO 243
END

IF ~~ THEN BEGIN 238
SAY @514
IF ~~ THEN GOTO 243
END

IF ~~ THEN BEGIN 239
SAY @515
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 243
END

IF ~~ THEN BEGIN 240
SAY @516
IF ~~ THEN GOTO 243
END

IF ~~ THEN BEGIN 241
SAY @517
IF ~~ THEN GOTO 243
END

IF ~~ THEN BEGIN 242
SAY @518
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 243
END

IF ~~ THEN BEGIN 243
SAY @519
IF ~~ THEN GOTO 244
END

IF ~~ THEN BEGIN 244
SAY @520
IF ~~ THEN GOTO 245
END

IF ~~ THEN BEGIN 245
SAY @521
IF ~~ THEN REPLY @522 GOTO 252
IF ~~ THEN REPLY @523 GOTO 251
IF ~Gender(player1,"MALE")~ THEN REPLY @524 GOTO 250
IF ~~ THEN REPLY @525 GOTO 249
IF ~GlobalLT("Kimfriend","LOCALS",1) ~ THEN REPLY @526 GOTO 248
IF ~GlobalGT("Kimfriend","LOCALS",0) ~ THEN REPLY @526 GOTO 247
IF ~~ THEN REPLY @527 GOTO 246
END

IF ~~ THEN BEGIN 246
SAY @528
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 247
SAY @529
IF ~~ THEN GOTO 253
END

IF ~~ THEN BEGIN 248
SAY @530
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 249
SAY @531
IF ~~ THEN GOTO 253
END

IF ~~ THEN BEGIN 250
SAY @532
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ GOTO 253
END

IF ~~ THEN BEGIN 251
SAY @533
IF ~~ THEN GOTO 253
END

IF ~~ THEN BEGIN 252
SAY @534
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ GOTO 253
END

IF ~~ THEN BEGIN 253
SAY @535
IF ~~ THEN GOTO 254
END

IF ~~ THEN BEGIN 254
SAY @536
IF ~~ THEN GOTO 255
END

IF ~~ THEN BEGIN 255
SAY @537
IF ~~ THEN GOTO 256
END

IF ~~ THEN BEGIN 256
SAY @538
IF ~~ THEN REPLY @539 GOTO 259
IF ~~ THEN REPLY @540 GOTO 258
IF ~~ THEN REPLY @541 GOTO 257
END

IF ~~ THEN BEGIN 257
SAY @542
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 258
SAY @543
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 259
SAY @544
IF ~~ THEN EXIT
END


///// GTKU #11



IF ~Global("GTKUKIM","LOCALS",22)~
THEN BEGIN 260
SAY @545 
IF ~~ THEN GOTO 261
END

IF ~~ THEN BEGIN 261
SAY @546
IF ~~ THEN GOTO 262
END

IF ~~ THEN BEGIN 262
SAY @547
IF ~~ THEN REPLY @548 GOTO 268
IF ~GlobalLT("Chapter","GLOBAL",%bg2_chapter_4%)~ THEN REPLY @549 GOTO 267
IF ~~ THEN REPLY @550 GOTO 265
IF ~~ THEN REPLY @551 GOTO 266
IF ~~ THEN REPLY @552 GOTO 265
IF ~~ THEN REPLY @553 GOTO 264
IF ~~ THEN REPLY @554 GOTO 263
END

IF ~~ THEN BEGIN 263
SAY @555
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 264
SAY @556
IF ~~ THEN GOTO 269
END

IF ~~ THEN BEGIN 265
SAY @557
IF ~~ THEN GOTO 269
END

IF ~~ THEN BEGIN 266
SAY @558
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 270
END

IF ~~ THEN BEGIN 267
SAY @559
IF ~~ THEN GOTO 269
END

IF ~~ THEN BEGIN 268
SAY @560
IF ~~ THEN GOTO 269
END

IF ~~ THEN BEGIN 269
SAY @561
IF ~~ THEN REPLY @562 GOTO 275
IF ~~ THEN REPLY @563 GOTO 274
IF ~~ THEN REPLY @564 GOTO 273
IF ~~ THEN REPLY @565 GOTO 272
IF ~~ THEN REPLY @566 GOTO 271
IF ~~ THEN REPLY @567 GOTO 270
IF ~~ THEN REPLY @568 GOTO 263
END

IF ~~ THEN BEGIN 270
SAY @569
IF ~~ THEN GOTO 276
END

IF ~~ THEN BEGIN 271
SAY @570
IF ~~ THEN GOTO 276
END

IF ~~ THEN BEGIN 272
SAY @571
IF ~~ THEN GOTO 276
END

IF ~~ THEN BEGIN 273
SAY @572
IF ~~ THEN GOTO 276
END

IF ~~ THEN BEGIN 274
SAY @573
IF ~~ THEN GOTO 276
END

IF ~~ THEN BEGIN 275
SAY @574
IF ~~ THEN GOTO 276
END

IF ~~ THEN BEGIN 276
SAY @575
IF ~~ THEN EXIT
END


///// GTKU #12



IF ~Global("GTKUKIM","LOCALS",24)~
THEN BEGIN 277
SAY @576 
IF ~~ THEN GOTO 278
END

IF ~~ THEN BEGIN 278
SAY @577
IF ~~ THEN REPLY @578 GOTO 282
IF ~~ THEN REPLY @579 GOTO 281
IF ~~ THEN REPLY @580 GOTO 280
IF ~~ THEN REPLY @581 GOTO 279
END

IF ~~ THEN BEGIN 279
SAY @582
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 280
SAY @583
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 281
SAY @584
IF ~~ THEN GOTO 282
END

IF ~~ THEN BEGIN 282
SAY @585
IF ~Global("Kimanneau","LOCALS",0)~ THEN REPLY @586 DO ~SetGlobal("Kimanneau","LOCALS",1)~ GOTO 290
IF ~Global("Kimkatana","LOCALS",0)~ THEN REPLY @587 DO ~SetGlobal("Kimkatana","LOCALS",1)~ GOTO 289
IF ~Global("Kimepee","LOCALS",0)~ THEN REPLY @588 DO ~SetGlobal("Kimepee","LOCALS",1)~ GOTO 288
IF ~Global("Kimmasse","LOCALS",0)~ THEN REPLY @589 DO ~SetGlobal("Kimmasse","LOCALS",1)~ GOTO 287
IF ~Global("Kimbaton","LOCALS",0)~ THEN REPLY @590 DO ~SetGlobal("Kimbaton","LOCALS",1)~ GOTO 286
IF ~Global("Kimrobe","LOCALS",0)~ THEN REPLY @591 DO ~SetGlobal("Kimrobe","LOCALS",1)~ GOTO 285
IF ~Global("Kimamulette","LOCALS",0)~ THEN REPLY @592 DO ~SetGlobal("Kimamulette","LOCALS",1)~ GOTO 284
IF ~Global("Kimcape","LOCALS",0)~ THEN REPLY @593 DO ~SetGlobal("Kimcape","LOCALS",1)~ GOTO 283
IF ~
OR(8)
Global("Kimcape","LOCALS",1)
Global("Kimanneau","LOCALS",1)
Global("Kimkatana","LOCALS",1)
Global("Kimepee","LOCALS",1)
Global("Kimmasse","LOCALS",1)
Global("Kimbaton","LOCALS",1)
Global("Kimrobe","LOCALS",1)
Global("Kimamulette","LOCALS",1) ~ THEN REPLY @594 GOTO 291
END

IF ~~ THEN BEGIN 283
SAY @595
IF ~~ THEN DO ~SetGlobal("Kimcape","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 284
SAY @596
IF ~~ THEN DO ~SetGlobal("Kimamulette","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 285
SAY @597
IF ~~ THEN DO ~SetGlobal("Kimrobe","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 286
SAY @598
IF ~~ THEN DO ~SetGlobal("Kimbaton","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 287
SAY @599
IF ~~ THEN DO ~SetGlobal("Kimmasse","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 288
SAY @600
IF ~~ THEN DO ~SetGlobal("Kimepee","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 289
SAY @601
IF ~~ THEN DO ~SetGlobal("Kimkatana","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 290
SAY @602
IF ~~ THEN DO ~SetGlobal("Kimanneau","LOCALS",1) ~  GOTO 282
END

IF ~~ THEN BEGIN 291
SAY @603
IF ~~ THEN EXIT
END


// GTKU #13


IF ~Global("GTKUKIM","LOCALS",26)~
THEN BEGIN 292
SAY @604 
IF ~~ THEN GOTO 294
END

IF ~~ THEN BEGIN 294
SAY @605
IF ~~ THEN REPLY @606 GOTO 302
IF ~~ THEN REPLY @607 GOTO 301
IF ~~ THEN REPLY @608 GOTO 300
IF ~~ THEN REPLY @609 GOTO 299
IF ~~ THEN REPLY @610 GOTO 298
 
IF ~~ THEN REPLY @611 GOTO 297
IF ~~ THEN REPLY @612 GOTO 296
IF ~~ THEN REPLY @613 GOTO 295
END

IF ~~ THEN BEGIN 295
SAY @614
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 296
SAY @615
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 297
SAY @616
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 298
SAY @617
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 299
SAY @618
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 300
SAY @619
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 301
SAY @620
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 302
SAY @621
IF ~~ THEN GOTO 303
END

IF ~~ THEN BEGIN 303
SAY @622
IF ~~ THEN GOTO 304
END

IF ~~ THEN BEGIN 304
SAY @623
IF ~~ THEN REPLY @624 GOTO 310
IF ~~ THEN REPLY @625 GOTO 309
IF ~~ THEN REPLY @626 GOTO 308
IF ~~ THEN REPLY @627 GOTO 307
IF ~~ THEN REPLY @628 GOTO 306
IF ~~ THEN REPLY @629 GOTO 305
END

IF ~~ THEN BEGIN 305
SAY @630
IF ~~ THEN GOTO 311
END

IF ~~ THEN BEGIN 306
SAY @631
IF ~~ THEN GOTO 311
END

IF ~~ THEN BEGIN 307
SAY @632
IF ~~ THEN GOTO 311
END

IF ~~ THEN BEGIN 308
SAY @633 

IF ~~ THEN GOTO 311
END

IF ~~ THEN BEGIN 309
SAY @634
IF ~~ THEN GOTO 311
END

IF ~~ THEN BEGIN 310
SAY @635
IF ~~ THEN GOTO 311
END

IF ~~ THEN BEGIN 311
SAY @636
IF ~ GlobalLT("Kimfriend","LOCALS",1)~ THEN  GOTO 312
IF ~ GlobalGT("Kimfriend","LOCALS",0)~ THEN GOTO 313
END

IF ~~ THEN BEGIN 312
SAY @637
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 313
SAY @638
IF ~~ THEN EXIT
END


/// GTKU #14

IF ~Global("GTKUKIM","LOCALS",28)~
THEN BEGIN 314
SAY @639 
IF ~~ THEN REPLY @640 GOTO 316
IF ~~ THEN REPLY @641 GOTO 317
IF ~~ THEN REPLY @642 GOTO 317
IF ~~ THEN REPLY @643 GOTO 315
END

IF ~~ THEN BEGIN 315
SAY @644
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-2)~ EXIT
END


IF ~~ THEN BEGIN 316
SAY @645
IF ~~ THEN GOTO 317
END

IF ~~ THEN BEGIN 317
SAY @646
IF  ~~ THEN REPLY @647 GOTO 322
IF ~~ THEN REPLY @648 GOTO 321
IF ~~ THEN REPLY @649 GOTO 320
IF ~~ THEN REPLY @650 GOTO 319
IF ~~ THEN REPLY @651 GOTO 318
IF ~~ THEN REPLY @652 GOTO 318
IF ~~ THEN REPLY @653 GOTO 315
END

IF ~~ THEN BEGIN 318
SAY @654
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ GOTO 323
END

IF ~~ THEN BEGIN 319
SAY @655
IF ~~ THEN GOTO 323
END

IF ~~ THEN BEGIN 320
SAY @656
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-2)~ GOTO 323
END

IF ~~ THEN BEGIN 321
SAY @657
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 323
END

IF ~~ THEN BEGIN 322
SAY @658
IF ~~ THEN REPLY @648 GOTO 321
IF ~~ THEN REPLY @649 GOTO 320
IF ~~ THEN REPLY @650 GOTO 319
IF ~~ THEN REPLY @651 GOTO 318
IF ~~ THEN REPLY @652 GOTO 318
IF ~~ THEN REPLY @653 GOTO 315
END

IF ~~ THEN BEGIN 323
SAY @659
IF ~OR(2)
CheckStatGT(Player1,12,WIS)
CheckStatGT(Player1,12,INT)  ~ THEN REPLY @660 GOTO 327
IF ~~ THEN REPLY @661 GOTO 326
IF ~~ THEN REPLY @662 GOTO 325
IF ~OR(2)
CheckStatGT(Player1,12,WIS)
CheckStatGT(Player1,12,INT)  ~ THEN REPLY @663 GOTO 324
IF ~~ THEN REPLY @664 GOTO 315
END

IF ~~ THEN BEGIN 324
SAY @665
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ GOTO 328
END

IF ~~ THEN BEGIN 325
SAY @666
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",-1)~ GOTO 328
END

IF ~~ THEN BEGIN 326
SAY @667
IF ~~ THEN GOTO 328
END

IF ~~ THEN BEGIN 327
SAY @668
IF ~~ THEN DO ~IncrementGlobal("Kimfriend","LOCALS",1)~ GOTO 328
END

IF ~~ THEN BEGIN 328
SAY @669
IF ~GlobalGT("Kimfriend","LOCALS",1)~ THEN GOTO 331
IF ~GlobalLT("Kimfriend","LOCALS",2)~ THEN GOTO 329
END

IF ~~ THEN BEGIN 329
SAY @670
IF ~~ THEN GOTO 330
END

IF ~~ THEN BEGIN 330
SAY @671
IF ~~ THEN DO ~LeaveParty()
GivePartyAllEquipment()
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 331
SAY @672
IF ~~ THEN GOTO 332
END

IF ~~ THEN BEGIN 332
SAY @673
IF ~~ THEN GOTO 333
END

IF ~~ THEN BEGIN 333
SAY @674
IF ~~ THEN EXIT
END


/////  ROMANCE


// ROMANCE #1

IF ~!Global("KIMRomanceActive","GLOBAL",3)
    Global("KIMLOVETLK","LOCALS",2)~
THEN BEGIN 334
SAY @675 
IF ~~ THEN GOTO 335
END


IF ~~ THEN BEGIN 335
SAY @676
IF ~~ THEN REPLY @677 GOTO 338
IF ~~ THEN REPLY @678 GOTO 336
IF ~~ THEN REPLY @679 GOTO 337
IF ~~ THEN REPLY @680 GOTO 336
END

IF ~~ THEN BEGIN 336
SAY @681
IF ~~ THEN GOTO 339
END

IF ~~ THEN BEGIN 337
SAY @682
IF ~~ THEN GOTO 339
END

IF ~~ THEN BEGIN 338
SAY @683
IF ~~ THEN GOTO 339
END

IF ~~ THEN BEGIN 339
SAY @684
IF ~~ THEN REPLY @685 GOTO 344
IF ~~ THEN REPLY @686 GOTO 343
IF ~~ THEN REPLY @687 GOTO 342
IF ~~ THEN REPLY @688 GOTO 341
IF ~~ THEN REPLY @689 GOTO 340
END

IF ~~ THEN BEGIN 340
SAY @690
IF ~~ THEN DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 341
SAY @691
IF ~~ THEN GOTO 345
END

IF ~~ THEN BEGIN 342
SAY @692
IF ~~ THEN REPLY @685 GOTO 344
IF ~~ THEN REPLY @686 GOTO 343
IF ~~ THEN REPLY @688 GOTO 341
IF ~~ THEN REPLY @689 GOTO 340
END

IF ~~ THEN BEGIN 343
SAY @693
IF ~~ THEN REPLY @694 GOTO 344
IF ~~ THEN REPLY @695 GOTO 346
IF ~~ THEN REPLY @696 GOTO 346
IF ~~ THEN REPLY @697 GOTO 345
IF ~~ THEN REPLY @698 GOTO 340
END

IF ~~ THEN BEGIN 344
SAY @699
IF ~~ THEN REPLY @700 GOTO 350
IF ~~ THEN REPLY @701 GOTO 349
IF ~~ THEN REPLY @702 GOTO 348
IF ~~ THEN REPLY @703 GOTO 347
END

IF ~~ THEN BEGIN 345
SAY @704
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 346
SAY @705
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 347
SAY @706
IF ~~ THEN GOTO 340
END

IF ~~ THEN BEGIN 348
SAY @707
IF ~~ THEN GOTO 351
END

IF ~~ THEN BEGIN 349
SAY @708
IF ~~ THEN REPLY @709 GOTO 354
IF ~~ THEN REPLY @710 GOTO 353
IF ~~ THEN REPLY @711 GOTO 352
IF ~~ THEN REPLY @712 DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 350
SAY @713
IF ~~ THEN REPLY @709 GOTO 354
IF ~~ THEN REPLY @710 GOTO 353
IF ~~ THEN REPLY @711 GOTO 352
IF ~~ THEN REPLY @712 DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END


IF ~~ THEN BEGIN 351
SAY @714
IF ~~ THEN DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 352
SAY @715
= @716
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 353
SAY @717
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 354
SAY @718
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",2)~ EXIT
END



IF ~!Global("KIMRomanceActive","GLOBAL",3)
    Global("KIMLOVETLK","LOCALS",4)~
THEN BEGIN 355
SAY @719 
IF ~~ THEN GOTO 356
END


IF ~~ THEN BEGIN 356
SAY @720
IF ~~ THEN REPLY @721 GOTO 363
IF ~~ THEN REPLY @722 GOTO 362
IF ~~ THEN REPLY @723 GOTO 361
IF ~~ THEN REPLY @724 GOTO 360
IF ~~ THEN REPLY @725 GOTO 359
IF ~~ THEN REPLY @726 GOTO 358
IF ~~ THEN REPLY @727 GOTO 357
END

IF ~~ THEN BEGIN 357
SAY @728
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 358
SAY @729
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 365
END

IF ~~ THEN BEGIN 359
SAY @730
IF ~~ THEN GOTO 365
END

IF ~~ THEN BEGIN 360
SAY @731
IF ~~ THEN GOTO 365
END

IF ~~ THEN BEGIN 361
SAY @732
IF ~~ THEN REPLY @733 GOTO 364
IF ~~ THEN REPLY @734 GOTO 359
END

IF ~~ THEN BEGIN 362
SAY @735
IF ~~ THEN GOTO 365
END

IF ~~ THEN BEGIN 363
SAY @736
IF ~~ THEN GOTO 365
END

IF ~~ THEN BEGIN 364
SAY @737
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 365
END

IF ~~ THEN BEGIN 365
SAY @738
IF ~~ THEN REPLY @739 GOTO 368
IF ~~ THEN REPLY @740 GOTO 368
IF ~~ THEN REPLY @741 GOTO 367
IF ~~ THEN REPLY @742 GOTO 366
IF ~~ THEN REPLY @743 GOTO 357
END

IF ~~ THEN BEGIN 366
SAY @744
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 369
END

IF ~~ THEN BEGIN 367
SAY @745
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 369
END

IF ~~ THEN BEGIN 368
SAY @746
IF ~~ THEN GOTO 369
END

IF ~~ THEN BEGIN 369
SAY @747
IF ~~ THEN REPLY @748 GOTO 370
END

IF ~~ THEN BEGIN 370
SAY @749
IF ~~ THEN REPLY @750 GOTO 378
IF ~~ THEN REPLY @751 GOTO 377
IF ~~ THEN REPLY @752 GOTO 376
IF ~~ THEN REPLY @753 GOTO 375
IF ~~ THEN REPLY @754 GOTO 374
IF ~~ THEN REPLY @755 GOTO 373
IF ~~ THEN REPLY @756 GOTO 372
IF ~~ THEN REPLY @757 GOTO 371
IF ~~ THEN REPLY @758 GOTO 357
END

IF ~~ THEN BEGIN 371
SAY @759
IF ~~ THEN GOTO 379
END

IF ~~ THEN BEGIN 372
SAY @760
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 373
SAY @761
= @762
= @763
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",2)~ GOTO 379
END

IF ~~ THEN BEGIN 374
SAY @764
IF ~~ THEN REPLY @765 GOTO 378
IF ~~ THEN REPLY @766 GOTO 381
IF ~~ THEN REPLY @767 GOTO 381
IF ~~ THEN REPLY @768 GOTO 380
END

IF ~~ THEN BEGIN 375
SAY @769
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 379
END

IF ~~ THEN BEGIN 376
SAY @770
IF ~~ THEN  GOTO 379
END

IF ~~ THEN BEGIN 377
SAY @771
IF ~~ THEN  GOTO 379
END

IF ~~ THEN BEGIN 378
SAY @772
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 379
END

IF ~~ THEN BEGIN 379
SAY @773
= @774
IF ~~ THEN  EXIT
END

IF ~~ THEN BEGIN 380
SAY @775
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 379
END

IF ~~ THEN BEGIN 381
SAY @776
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 379
END


IF ~Global("KIMLOVETLK","LOCALS",6)
    !Global("KIMRomanceActive","GLOBAL",3)~
THEN BEGIN 382
SAY @777 
IF ~~ THEN REPLY @778 GOTO 384
IF ~~ THEN REPLY @779 GOTO 384
IF ~~ THEN REPLY @780 GOTO 383
END

IF ~~ THEN BEGIN 383
SAY @781
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 384
SAY @782
IF ~~ THEN GOTO 385	
END

IF ~~ THEN BEGIN 385
SAY @783
IF ~~ THEN REPLY @784 GOTO 389
IF ~~ THEN REPLY @785 GOTO 390
IF ~~ THEN REPLY @786 GOTO 388
IF ~~ THEN REPLY @787 GOTO 387
IF ~~ THEN REPLY @788 GOTO 386
IF ~~ THEN REPLY @789 GOTO 383
END

IF ~~ THEN BEGIN 386
SAY @790
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 388
END

IF ~~ THEN BEGIN 387
SAY @791
IF ~~ THEN  GOTO 389
END

IF ~~ THEN BEGIN 388
SAY @792
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 391
END

IF ~~ THEN BEGIN 389
SAY @793
IF ~~ THEN  GOTO 391
END

IF ~~ THEN BEGIN 390
SAY @794
IF ~~ THEN  GOTO 391
END

IF ~~ THEN BEGIN 391
SAY @795
IF ~~ THEN REPLY @796 GOTO 395
IF ~~ THEN REPLY @797 GOTO 394
IF ~~ THEN REPLY @798 GOTO 393
IF ~~ THEN REPLY @799 GOTO 392
IF ~~ THEN REPLY @800 GOTO 383
END

IF ~~ THEN BEGIN 392
SAY @801
IF ~~ THEN  GOTO 396
END

IF ~~ THEN BEGIN 393
SAY @802
IF ~~ THEN  GOTO 396
END

IF ~~ THEN BEGIN 394
SAY @803
IF ~~ THEN  GOTO 396
END

IF ~~ THEN BEGIN 395
SAY @804
IF ~~ THEN  GOTO 396
END

IF ~~ THEN BEGIN 396
SAY @805
IF ~~ THEN  GOTO 397
END

IF ~~ THEN BEGIN 397
SAY @806
IF ~~ THEN REPLY @807 GOTO 402
IF ~~ THEN REPLY @808 GOTO 401
IF ~~ THEN REPLY @809 GOTO 400
IF ~~ THEN REPLY @810 GOTO 399
IF ~~ THEN REPLY @811 GOTO 398
IF ~~ THEN REPLY @812 GOTO 383
END

IF ~~ THEN BEGIN 398
SAY @813
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 399
SAY @814
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-2)~ EXIT
END

IF ~~ THEN BEGIN 400
SAY @815
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 401
SAY @816
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 402
SAY @817
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 403
END

IF ~~ THEN BEGIN 403
SAY @818
IF ~~ THEN EXIT
END




//// LOVETALK #4 – trois options


// Si Imoen n'a pas encore été secourue

IF ~Global("KIMLOVETLK","LOCALS",8)
    Global("KimSeeImoen","LOCALS",0)
    !Global("KIMRomanceActive","GLOBAL",3)~
THEN BEGIN 404
SAY @819 
IF ~~ THEN REPLY @820 GOTO 407
IF ~~ THEN REPLY @821 GOTO 406
IF ~~ THEN REPLY @822 GOTO 405
END

IF ~~ THEN BEGIN 405
SAY @823
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END


IF ~~ THEN BEGIN 406
SAY @824
IF ~~ THEN  GOTO 407
END

IF ~~ THEN BEGIN 407
SAY @825
IF ~~ THEN  GOTO 408
END

IF ~~ THEN BEGIN 408
SAY @826
IF ~~ THEN REPLY @827 GOTO 414
IF ~~ THEN REPLY @828 GOTO 413
IF ~~ THEN REPLY @829 GOTO 412
IF ~~ THEN REPLY @830 GOTO 411
IF ~~ THEN REPLY @831 GOTO 410
IF ~~ THEN REPLY @832 GOTO 409
IF ~~ THEN REPLY @833 GOTO 405
END

IF ~~ THEN BEGIN 409
SAY @834
= @835
= @836
= @837
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 410
SAY @838
IF ~~ THEN  GOTO 415
END

IF ~~ THEN BEGIN 411
SAY @839
IF ~~ THEN  GOTO 415
END

IF ~~ THEN BEGIN 412
SAY @840
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 413
SAY @841
IF ~~ THEN  GOTO 415
END

IF ~~ THEN BEGIN 414
SAY @842
IF ~~ THEN  GOTO 415
END

IF ~~ THEN BEGIN 415
SAY @843
IF ~~ THEN REPLY @844 GOTO 420
IF ~~ THEN REPLY @845 GOTO 419
IF ~~ THEN REPLY @846 GOTO 418
IF ~~ THEN REPLY @847 GOTO 417
IF ~~ THEN REPLY @848 GOTO 416
IF ~~ THEN REPLY @849 GOTO 405
IF ~~ THEN REPLY @850 GOTO 405
END

IF ~~ THEN BEGIN 416
SAY @851
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 421
END

IF ~~ THEN BEGIN 417
SAY @852
IF ~~ THEN  GOTO 421
END

IF ~~ THEN BEGIN 418
SAY @853
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 421
END

IF ~~ THEN BEGIN 419
SAY @854
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-2)~ GOTO 421
END

IF ~~ THEN BEGIN 420
SAY @855
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 421
END

IF ~~ THEN BEGIN 421
SAY @856
IF ~~ THEN REPLY @857 GOTO 426
IF ~~ THEN REPLY @858 GOTO 425
IF ~~ THEN REPLY @859 GOTO 424
IF ~~ THEN REPLY @860 GOTO 423
IF ~~ THEN REPLY @861 GOTO 422
IF ~~ THEN REPLY @862 GOTO 405
END

IF ~~ THEN BEGIN 422
SAY @863
IF ~~ THEN REPLY @857 GOTO 426
IF ~~ THEN REPLY @858 GOTO 425
IF ~~ THEN REPLY @859 GOTO 424
IF ~~ THEN REPLY @860 GOTO 423
IF ~~ THEN REPLY @862 GOTO 405
END

IF ~~ THEN BEGIN 423
SAY @864
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 424
SAY @865
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-3)~ EXIT
END

IF ~~ THEN BEGIN 425
SAY @866
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 426
SAY @867
IF ~~ THEN  EXIT
END



// SI IMOEN A ETE SECOURUE MAIS NE FAIT PAS PARTIE DU GROUPE

IF ~Global("KIMLOVETLK","LOCALS",8)
    Global("KimSeeImoen","LOCALS",1)
    !InParty("Imoen2")
    !Global("KIMRomanceActive","GLOBAL",3)~ 
THEN BEGIN 427
SAY @819 
IF ~~ THEN REPLY @820 GOTO 429
IF ~~ THEN REPLY @821 GOTO 428
IF ~~ THEN REPLY @822 GOTO 405
END

IF ~~ THEN BEGIN 428
SAY @824
IF ~~ THEN  GOTO 429
END

IF ~~ THEN BEGIN 429
SAY @868
IF ~~ THEN  GOTO 408
END

// IMOEN SAUVEE ET DANS LE GROUPE

IF ~Global("KIMLOVETLK","LOCALS",8)
    Global("KimSeeImoen","LOCALS",1)
    InParty("Imoen2")
    !Global("KIMRomanceActive","GLOBAL",3)~
THEN BEGIN 430
SAY @819
IF ~~ THEN REPLY @820 GOTO 432
IF ~~ THEN REPLY @821 GOTO 431
IF ~~ THEN REPLY @822 GOTO 405
END

IF ~~ THEN BEGIN 431
SAY @824
IF ~~ THEN  GOTO 432
END

IF ~~ THEN BEGIN 432
SAY @869
IF ~~ THEN  REPLY @870 GOTO 429
END


///    ROMANCE #5

IF ~Global("KIMLOVETLK","LOCALS",10)
    !Global("KIMRomanceActive","GLOBAL",3)~ 
THEN BEGIN 433
SAY @871 
IF ~~ THEN REPLY @872 GOTO 436
IF ~~ THEN REPLY @873 GOTO 435
IF ~~ THEN REPLY @874 GOTO 434
END

IF ~~ THEN BEGIN 434
SAY @875
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-2)~ EXIT
END

IF ~~ THEN BEGIN 435
SAY @876
IF ~~ THEN  GOTO 436
END

IF ~~ THEN BEGIN 436
SAY @877
IF ~~ THEN  REPLY @878 GOTO 437
END

IF ~~ THEN BEGIN 437
SAY @879
IF ~~ THEN  REPLY @880 DO ~ SetGlobal("couleurcheveux","LOCALS",1) ~ GOTO 444
IF ~~ THEN  REPLY @881 DO ~ SetGlobal("couleurcheveux","LOCALS",2) ~ GOTO 443
IF ~~ THEN  REPLY @882 DO ~ SetGlobal("couleurcheveux","LOCALS",3) ~ GOTO 442
IF ~~ THEN  REPLY @883 GOTO 441
IF ~~ THEN  REPLY @884 DO ~ SetGlobal("couleurcheveux","LOCALS",4) ~ GOTO 440
IF ~~ THEN  REPLY @885 DO ~ SetGlobal("jokerkim","LOCALS",1) ~ GOTO 439
IF ~~ THEN  REPLY @886 GOTO 438
END

IF ~~ THEN BEGIN 438
SAY @887
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 439
SAY @888
IF ~~ THEN  GOTO 445
END

IF ~~ THEN BEGIN 440
SAY @889
IF ~~ THEN  GOTO 445
END

IF ~~ THEN BEGIN 441
SAY @890
IF ~~ THEN  DO ~IncrementGlobal("Kimparfait","LOCALS",1)~ GOTO 445
END

IF ~~ THEN BEGIN 442
SAY @891
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 445
END

IF ~~ THEN BEGIN 443
SAY @892
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 445
END

IF ~~ THEN BEGIN 444
SAY @893
IF ~~ THEN  DO ~IncrementGlobal("Kimparfait","LOCALS",1)~ GOTO 445
END
IF ~~ THEN BEGIN 445
SAY @894
IF ~ !Global("couleurcheveux","LOCALS",4)~ THEN  REPLY @895 DO ~ SetGlobal("taillecheveux","LOCALS",1) ~ GOTO 450
IF ~ !Global("couleurcheveux","LOCALS",4)~ THEN  REPLY @896 DO ~ SetGlobal("taillecheveux","LOCALS",2) ~ GOTO 449
IF ~ !Global("couleurcheveux","LOCALS",4)~ THEN  REPLY @897 DO ~ SetGlobal("taillecheveux","LOCALS",3) ~ GOTO 448
IF ~ !Global("couleurcheveux","LOCALS",4)~ THEN  REPLY @898 DO ~ SetGlobal("taillecheveux","LOCALS",0) ~ GOTO 451

IF ~ Global("couleurcheveux","LOCALS",4)~ THEN  REPLY @899 GOTO 447
IF ~ Global("jokerkim","LOCALS",0)
!Global("couleurcheveux","LOCALS",4) ~ THEN  REPLY @885 DO ~ SetGlobal("jokerkim","LOCALS",1) ~ GOTO 446
IF ~ !Global("couleurcheveux","LOCALS",4)~ THEN  REPLY @900 GOTO 438
END

IF ~~ THEN BEGIN 446
SAY @888
IF ~~ THEN  GOTO 452
END

IF ~~ THEN BEGIN 447
SAY @901
IF ~~ THEN  GOTO 452
END

IF ~~ THEN BEGIN 448
SAY @902
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 452
END

IF ~~ THEN BEGIN 449
SAY @903
IF ~~ THEN  GOTO 452
END

IF ~~ THEN BEGIN 450
SAY @904
IF ~~ THEN  DO ~IncrementGlobal("Kimparfait","LOCALS",1)~ GOTO 452
END

IF ~~ THEN BEGIN 451
SAY @905
IF ~~ THEN  GOTO 452
END

IF ~~ THEN BEGIN 452
SAY @906
IF ~~ THEN  GOTO 453
END

IF ~~ THEN BEGIN 453
SAY @907
IF ~~ THEN  REPLY @908 DO ~ SetGlobal("couleuryeux","LOCALS",1) ~ GOTO 458
IF ~~ THEN  REPLY @909 DO ~ SetGlobal("couleuryeux","LOCALS",2) ~ GOTO 457
IF ~~ THEN  REPLY @910 DO ~ SetGlobal("couleuryeux","LOCALS",3) ~ GOTO 456
IF ~~ THEN  REPLY @898  GOTO 455
IF ~ Global("jokerkim","LOCALS",0)~ THEN  REPLY @885 DO ~ SetGlobal("jokerkim","LOCALS",1) ~ GOTO 454
IF ~~ THEN  REPLY @886 GOTO 438
END

IF ~~ THEN BEGIN 454
SAY @888
IF ~~ THEN  GOTO 459
END

IF ~~ THEN BEGIN 455
SAY @911
IF ~~ THEN  GOTO 459
END

IF ~~ THEN BEGIN 456
SAY @912
IF ~~ THEN  DO ~IncrementGlobal("Kimparfait","LOCALS",1)~ GOTO 459
END

IF ~~ THEN BEGIN 457
SAY @913   
IF ~~ THEN  GOTO 459
END

IF ~~ THEN BEGIN 458
SAY @914
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 459
END

IF ~~ THEN BEGIN 459
SAY @915
IF ~~ THEN  REPLY @916 DO ~ SetGlobal("personna","LOCALS",1) ~ GOTO 466
IF ~~ THEN  REPLY @917 DO ~ SetGlobal("personna","LOCALS",2) ~ GOTO 465
IF ~~ THEN  REPLY @918 DO ~ SetGlobal("personna","LOCALS",3) ~ GOTO 464
IF ~~ THEN  REPLY @919  GOTO 463
IF ~ Global("couleuryeux","LOCALS",0)
Global("couleurcheveux","LOCALS",0)
Global("taillecheveux","LOCALS",0)
 ~ THEN  REPLY @920  GOTO 462
IF ~ OR(3)
!Global("couleuryeux","LOCALS",0)
!Global("couleurcheveux","LOCALS",0)
!Global("taillecheveux","LOCALS",0)
 ~ THEN  REPLY @920  GOTO 461
IF ~ Global("jokerkim","LOCALS",0)~ THEN  REPLY @885 DO ~ SetGlobal("jokerkim","LOCALS",1) ~ GOTO 460
IF ~~ THEN  REPLY @921 GOTO 438
END

IF ~~ THEN BEGIN 460
SAY @888
IF ~~ THEN  GOTO 467
END

IF ~~ THEN BEGIN 461
SAY @922
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-2)~ EXIT
END

IF ~~ THEN BEGIN 462
SAY @923
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 463
SAY @924
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 464
SAY @925
IF ~~ THEN GOTO 467
END

IF ~~ THEN BEGIN 465
SAY @926
IF ~~ THEN GOTO 467
END

IF ~~ THEN BEGIN 466
SAY @927
IF ~~ THEN  DO ~IncrementGlobal("Kimparfait","LOCALS",1)~ GOTO 467
END

IF ~~ THEN BEGIN 467
SAY @928
IF ~ Global("couleurcheveux","LOCALS",0)~ THEN GOTO 472
IF ~ Global("couleurcheveux","LOCALS",1)~ THEN GOTO 471
IF ~ Global("couleurcheveux","LOCALS",2)~ THEN GOTO 470
IF ~ Global("couleurcheveux","LOCALS",3)~ THEN GOTO 469
IF ~ Global("couleurcheveux","LOCALS",4)~ THEN GOTO 468
END

IF ~~ THEN BEGIN 468
SAY @929
IF ~ Global("couleuryeux","LOCALS",0)~ THEN GOTO 480
IF ~ Global("couleuryeux","LOCALS",1)~ THEN GOTO 479
IF ~ Global("couleuryeux","LOCALS",2)~ THEN GOTO 478
IF ~ Global("couleuryeux","LOCALS",3)~ THEN GOTO 477
END

IF ~~ THEN BEGIN 469
SAY @930
IF ~ Global("taillecheveux","LOCALS",0)~ THEN GOTO 476
IF ~ Global("taillecheveux","LOCALS",1)~ THEN GOTO 475
IF ~ Global("taillecheveux","LOCALS",2)~ THEN GOTO 474
IF ~ Global("taillecheveux","LOCALS",3)~ THEN GOTO 473
END

IF ~~ THEN BEGIN 470
SAY @931
IF ~ Global("taillecheveux","LOCALS",0)~ THEN GOTO 476
IF ~ Global("taillecheveux","LOCALS",1)~ THEN GOTO 475
IF ~ Global("taillecheveux","LOCALS",2)~ THEN GOTO 474
IF ~ Global("taillecheveux","LOCALS",3)~ THEN GOTO 473
END

IF ~~ THEN BEGIN 471
SAY @932
IF ~ Global("taillecheveux","LOCALS",0)~ THEN GOTO 476
IF ~ Global("taillecheveux","LOCALS",1)~ THEN GOTO 475
IF ~ Global("taillecheveux","LOCALS",2)~ THEN GOTO 474
IF ~ Global("taillecheveux","LOCALS",3)~ THEN GOTO 473
END

IF ~~ THEN BEGIN 472
SAY @933
IF ~ Global("taillecheveux","LOCALS",0)~ THEN GOTO 476
IF ~ Global("taillecheveux","LOCALS",1)~ THEN GOTO 475
IF ~ Global("taillecheveux","LOCALS",2)~ THEN GOTO 474
IF ~ Global("taillecheveux","LOCALS",3)~ THEN GOTO 473
END

IF ~~ THEN BEGIN 473
SAY @934
IF ~ Global("couleuryeux","LOCALS",0)~ THEN GOTO 480
IF ~ Global("couleuryeux","LOCALS",1)~ THEN GOTO 479
IF ~ Global("couleuryeux","LOCALS",2)~ THEN GOTO 478
IF ~ Global("couleuryeux","LOCALS",3)~ THEN GOTO 477
END

IF ~~ THEN BEGIN 474
SAY @935
IF ~ Global("couleuryeux","LOCALS",0)~ THEN GOTO 480
IF ~ Global("couleuryeux","LOCALS",1)~ THEN GOTO 479
IF ~ Global("couleuryeux","LOCALS",2)~ THEN GOTO 478
IF ~ Global("couleuryeux","LOCALS",3)~ THEN GOTO 477
END

IF ~~ THEN BEGIN 475
SAY @936
IF ~ Global("couleuryeux","LOCALS",0)~ THEN GOTO 480
IF ~ Global("couleuryeux","LOCALS",1)~ THEN GOTO 479
IF ~ Global("couleuryeux","LOCALS",2)~ THEN GOTO 478
IF ~ Global("couleuryeux","LOCALS",3)~ THEN GOTO 477
END

IF ~~ THEN BEGIN 476
SAY @937
IF ~ Global("couleuryeux","LOCALS",0)~ THEN GOTO 480
IF ~ Global("couleuryeux","LOCALS",1)~ THEN GOTO 479
IF ~ Global("couleuryeux","LOCALS",2)~ THEN GOTO 478
IF ~ Global("couleuryeux","LOCALS",3)~ THEN GOTO 477
END

IF ~~ THEN BEGIN 477
SAY @938
IF ~ Global("personna","LOCALS",3)~ THEN GOTO 483
IF ~ Global("personna","LOCALS",2)~ THEN GOTO 482
IF ~ Global("personna","LOCALS",1)~ THEN GOTO 481
IF ~ Global("personna","LOCALS",0)~ THEN GOTO PersonnaJoker
END

IF ~~ THEN BEGIN 478
SAY @939
IF ~ Global("personna","LOCALS",3)~ THEN GOTO 483
IF ~ Global("personna","LOCALS",2)~ THEN GOTO 482
IF ~ Global("personna","LOCALS",1)~ THEN GOTO 481
IF ~ Global("personna","LOCALS",0)~ THEN GOTO PersonnaJoker
END

IF ~~ THEN BEGIN 479
SAY @940
IF ~ Global("personna","LOCALS",3)~ THEN GOTO 483
IF ~ Global("personna","LOCALS",2)~ THEN GOTO 482
IF ~ Global("personna","LOCALS",1)~ THEN GOTO 481
IF ~ Global("personna","LOCALS",0)~ THEN GOTO PersonnaJoker
END

IF ~~ THEN BEGIN 480
SAY @941
IF ~ Global("personna","LOCALS",3)~ THEN GOTO 483
IF ~ Global("personna","LOCALS",2)~ THEN GOTO 482
IF ~ Global("personna","LOCALS",1)~ THEN GOTO 481
IF ~ Global("personna","LOCALS",0)~ THEN GOTO PersonnaJoker
END

IF ~~ THEN BEGIN 481
SAY @942
IF ~ GlobalGT("kimparfait","LOCALS",2)~ THEN GOTO 486
IF ~ GlobalLT("kimparfait","LOCALS",3)
!Global("kimparfait","LOCALS",0)~ THEN GOTO 485
IF ~ Global ("kimparfait","LOCALS",0) ~THEN GOTO 484
END

IF ~~ THEN BEGIN 482
SAY @943
IF ~ GlobalGT("kimparfait","LOCALS",2)~ THEN GOTO 486
IF ~ GlobalLT("kimparfait","LOCALS",3)
!Global("kimparfait","LOCALS",0)~ THEN GOTO 485
IF ~ Global ("kimparfait","LOCALS",0) ~THEN GOTO 484
END

IF ~~ THEN BEGIN 483
SAY @944
IF ~ GlobalGT("kimparfait","LOCALS",2)~ THEN GOTO 486
IF ~ GlobalLT("kimparfait","LOCALS",3)
!Global("kimparfait","LOCALS",0)~ THEN GOTO 485
IF ~ Global ("kimparfait","LOCALS",0) ~THEN GOTO 484
END

IF ~~ THEN BEGIN PersonnaJoker
SAY @9445
IF ~ GlobalGT("kimparfait","LOCALS",2)~ THEN GOTO 486
IF ~ GlobalLT("kimparfait","LOCALS",3)
!Global("kimparfait","LOCALS",0)~ THEN GOTO 485
IF ~ Global ("kimparfait","LOCALS",0) ~THEN GOTO 484
END


IF ~~ THEN BEGIN 484
SAY @945
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 485
SAY @946
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 486
SAY @947
= @762
= @948
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",2)~ EXIT
END


IF ~Global("KIMLOVETLK","LOCALS",12)
    !Global("KIMRomanceActive","GLOBAL",3)~ 
THEN BEGIN 487
SAY @949 
IF ~~ THEN REPLY @950 GOTO 490
IF ~~ THEN REPLY @951 GOTO 490
IF ~~ THEN REPLY @952 GOTO 491
IF ~~ THEN REPLY @953 GOTO 489
IF ~~ THEN REPLY @954 GOTO 488
END

IF ~~ THEN BEGIN 488
SAY @955
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 489
SAY @956
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ GOTO 492
END

IF ~~ THEN BEGIN 490
SAY @957
IF ~~ THEN  GOTO 489
END

IF ~~ THEN BEGIN 491
SAY @958
IF ~~ THEN GOTO 492	
END

IF ~~ THEN BEGIN 492
SAY @959
IF ~~ THEN GOTO 493	
END

IF ~~ THEN BEGIN 493
SAY @960
IF ~Global("indiscrkim","LOCALS",0)~ THEN REPLY @961 GOTO 498
IF ~~ THEN REPLY @962 GOTO 497
IF ~~ THEN REPLY @963 GOTO 496
IF ~~ THEN REPLY @964 GOTO 495
IF ~~ THEN REPLY @965 GOTO 494
IF ~~ THEN REPLY @966 GOTO 488
END

IF ~~ THEN BEGIN 494
SAY @967
= @968
= @969
= @970
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 495
SAY @971
IF ~~ THEN GOTO 502
END

IF ~~ THEN BEGIN 496
SAY @972
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ GOTO 499
END

IF ~~ THEN BEGIN 497
SAY @973
IF ~InParty("Aerie")
Global("Aerieromanceactive","GLOBAL",1)~ THEN REPLY @974 GOTO 501
IF ~InParty("Jaheira")
Global("Jaheiraromanceactive","GLOBAL",1)~ THEN REPLY @975 GOTO 501
IF ~InParty("Viconia")
Global("Viconiaromanceactive","GLOBAL",1)~ THEN REPLY @976 GOTO 501
IF ~InParty("Tashia")
Global("Tashiaromanceactive","GLOBAL",1)~ THEN REPLY @977 GOTO 501
IF ~~ THEN REPLY @874 GOTO 500
END

IF ~~ THEN BEGIN 498
SAY @978
IF ~~ THEN DO ~ SetGlobal("indiscrkim","LOCALS",1) ~GOTO 493
END

IF ~~ THEN BEGIN 499
SAY @979
IF ~~ THEN REPLY @980 GOTO 503
IF ~~ THEN REPLY @981 GOTO 504
IF ~~ THEN REPLY @982 GOTO 505
IF ~~ THEN REPLY @983 GOTO 506
END


IF ~~ THEN BEGIN 500
SAY @984
IF ~~ THEN REPLY @980 GOTO 503
IF ~~ THEN REPLY @981 GOTO 504
IF ~~ THEN REPLY @982 GOTO 505
IF ~~ THEN REPLY @983 GOTO 506
END

IF ~~ THEN BEGIN 501
SAY @985
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 502
SAY @986
IF ~~ THEN GOTO 507
END

IF ~~ THEN BEGIN 503
SAY @987
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 504
SAY @988
IF ~~ THEN GOTO 507
END

IF ~~ THEN BEGIN 505
SAY @989
IF ~~ THEN GOTO 507
END

IF ~~ THEN BEGIN 506
SAY @990
IF ~~ THEN GOTO 502
END

IF ~~ THEN BEGIN 507
SAY @991
IF ~~ THEN REPLY @992 GOTO 510
IF ~~ THEN REPLY @993 GOTO 509
IF ~~ THEN REPLY @994 GOTO 508
IF ~~ THEN REPLY @995 GOTO 488
END

IF ~~ THEN BEGIN 508
SAY @996
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-1)~ EXIT
END

IF ~~ THEN BEGIN 509
SAY @997
IF ~~ THEN REPLY @998 GOTO 512
IF ~~ THEN REPLY @999 GOTO 511
IF ~~ THEN REPLY @1000 GOTO 508
END

IF ~~ THEN BEGIN 510
SAY @1001
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 511
SAY @1002
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 512
SAY @1003
= @1004
IF ~~ THEN EXIT
END


// LOVETALK #7


IF ~Global("KIMLOVETLK","LOCALS",14)
    !Global("KIMRomanceActive","GLOBAL",3)~ THEN BEGIN 513
SAY @1005
IF ~~ THEN REPLY @1006 GOTO 516
IF ~~ THEN REPLY @1007 GOTO 515
IF ~~ THEN REPLY @1008 GOTO 514
END

IF ~~ THEN BEGIN 514
SAY @1009
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-2)~ EXIT
END

IF ~~ THEN BEGIN 515
SAY @1010
IF ~~ THEN GOTO 516
END

IF ~~ THEN BEGIN 516
SAY @1011
IF ~~ THEN GOTO 517
END

IF ~~ THEN BEGIN 517
SAY @1012
IF ~~ THEN GOTO 518
END

IF ~~ THEN BEGIN 518
SAY @1013
IF ~~ THEN GOTO 519
END

IF ~~ THEN BEGIN 519
SAY @1014
IF ~~ THEN GOTO 520
END

IF ~~ THEN BEGIN 520
SAY @1015
IF ~~ THEN GOTO 521
END

IF ~~ THEN BEGIN 521
SAY @1016
IF ~~ THEN REPLY @1017 GOTO 524
IF ~~ THEN REPLY @1018 GOTO 523
IF ~~ THEN REPLY @1019 GOTO 522
IF ~~ THEN REPLY @1020 GOTO 514
END

IF ~~ THEN BEGIN 522
SAY @1021
IF ~~ THEN GOTO 525
END

IF ~~ THEN BEGIN 523
SAY @1022
IF ~~ THEN GOTO 525
END

IF ~~ THEN BEGIN 524
SAY @1023
IF ~~ THEN GOTO 525
END

IF ~~ THEN BEGIN 525
SAY @1024
IF ~~ THEN REPLY @1025 GOTO 526
END

IF ~~ THEN BEGIN 526
SAY @1026
IF ~~ THEN REPLY @1027 GOTO 529
IF ~~ THEN REPLY @1028 GOTO 528
IF ~~ THEN REPLY @1029 GOTO 527
END

IF ~~ THEN BEGIN 527
SAY @1030
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",-2)~ EXIT
END

IF ~~ THEN BEGIN 528
SAY @1031
IF ~~ THEN GOTO 529
END

IF ~~ THEN BEGIN 529
SAY @1032
IF ~~ THEN REPLY @1033 GOTO 531
IF ~~ THEN REPLY @1034 GOTO 532
IF ~~ THEN REPLY @1035 GOTO 531
IF ~~ THEN REPLY @1036 GOTO 530
END

IF ~~ THEN BEGIN 530
SAY @1037
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 531
SAY @1038
= @1039
= @1040
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 532
SAY @1041
IF ~~ THEN GOTO 533
END

IF ~~ THEN BEGIN 533
SAY @1042
IF ~~ THEN  DO ~IncrementGlobal("Kimlove","LOCALS",1)~ EXIT
END

// Sollicitation pour sortir de la ville (de nuit )et aller admirer les étoiles à la campagne
IF ~Global("KIMETOILES","GLOBAL",1)~ THEN BEGIN VouteCeleste
   SAY @10425
   IF ~~ THEN DO ~SetGlobal("KIMETOILES","GLOBAL",2)~ EXIT
END

/// ROMANCE #8 - déclaration

IF ~Global("KIMLOVETLK","LOCALS",16)
    !Global("KIMRomanceActive","GLOBAL",3)~ THEN BEGIN 534
SAY @1043
IF ~~ THEN GOTO 535
END

IF ~~ THEN BEGIN 535
SAY @1044
IF ~~ THEN REPLY @1045 GOTO 536
IF ~~ THEN REPLY @1046 GOTO 537
IF ~~ THEN REPLY @1047 GOTO 538
END

IF ~~ THEN BEGIN 536
SAY @1048
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 537
SAY @1049
IF ~~ THEN GOTO 538
END

IF ~~ THEN BEGIN 538
SAY @1050
IF ~~ THEN GOTO 539
END

IF ~~ THEN BEGIN 539
SAY @1051
IF ~~ THEN REPLY @1052 GOTO 543
IF ~~ THEN REPLY @1053 GOTO 542
IF ~~ THEN REPLY @1054 GOTO 541
IF ~~ THEN REPLY @1055 GOTO 540
IF ~~ THEN REPLY @1056 GOTO 536
END

IF ~~ THEN BEGIN 540
SAY @1057
IF ~~ THEN GOTO 544
END

IF ~~ THEN BEGIN 541
SAY @1058
IF ~~ THEN GOTO 544
END


IF ~~ THEN BEGIN 542
SAY @1059
IF ~~ THEN GOTO 544
END

IF ~~ THEN BEGIN 543
SAY @1060
IF ~~ THEN GOTO 544
END

IF ~~ THEN BEGIN 544
SAY @1061
IF ~~ THEN GOTO 545
END

IF ~~ THEN BEGIN 545
SAY @1062
IF ~~ THEN REPLY @1063 GOTO 552
IF ~~ THEN REPLY @1064 GOTO 551
IF ~~ THEN REPLY @788 GOTO 550
IF ~~ THEN REPLY @1065 GOTO 549
IF ~~ THEN REPLY @1066 GOTO 548
IF ~~ THEN REPLY @1067 GOTO 547
IF ~~ THEN REPLY @1068 GOTO 546
IF ~~ THEN REPLY @1069 GOTO 536
END

IF ~~ THEN BEGIN 546
SAY @1070
IF ~GlobalLT("Kimlove","LOCALS",6)~ THEN GOTO 553
IF ~ GlobalGT("Kimlove","LOCALS",5)~ THEN GOTO 554
END

IF ~~ THEN BEGIN 547
SAY @1071
IF ~GlobalLT("Kimlove","LOCALS",10)~ THEN GOTO 553
IF ~GlobalGT("Kimlove","LOCALS",9)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 548
SAY @1072
IF ~~ THEN REPLY @1063 GOTO 552
IF ~~ THEN REPLY @1064 GOTO 551
IF ~~ THEN REPLY @788 GOTO 550
IF ~~ THEN REPLY @1065 GOTO 549
IF ~~ THEN REPLY @1073 GOTO 556
IF ~~ THEN REPLY @1067 GOTO 547
IF ~~ THEN REPLY @1068 GOTO 546
IF ~~ THEN REPLY @1069 GOTO 536
END

IF ~~ THEN BEGIN 549
SAY @1074
IF ~~ THEN GOTO 553
END

IF ~~ THEN BEGIN 550
SAY @1075
IF ~GlobalLT("Kimlove","LOCALS",2)~ THEN GOTO 553
IF ~ GlobalGT("Kimlove","LOCALS",1)~ THEN GOTO 554
END

IF ~~ THEN BEGIN 551
SAY @1076
IF ~GlobalLT("Kimlove","LOCALS",10)~ THEN GOTO 553
IF ~ GlobalGT("Kimlove","LOCALS",9)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 552
SAY @1077
IF ~GlobalLT("Kimlove","LOCALS",4)~ THEN GOTO 553
IF ~ GlobalGT("Kimlove","LOCALS",3)~ THEN GOTO 554
END

IF ~~ THEN BEGIN 553
SAY @1078
= @1079
= @1080
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT 
END

IF ~~ THEN BEGIN 554
SAY @1081
IF ~~ THEN REPLY @1064 GOTO 559
IF ~~ THEN REPLY @1065 GOTO 549
IF ~~ THEN REPLY @1082 GOTO 556
IF ~~ THEN REPLY @1067 GOTO 558
IF ~~ THEN REPLY @788 GOTO 564
IF ~~ THEN REPLY @1083 GOTO 564
IF ~~ THEN REPLY @1068 GOTO 557
IF ~~ THEN REPLY @1069 GOTO 536
END

IF ~~ THEN BEGIN 555
SAY @1084
IF ~~ THEN REPLY  @1085 GOTO 562
IF ~~ THEN REPLY  @1086 GOTO 562
IF ~~ THEN REPLY  @1087 GOTO 562
IF ~~ THEN REPLY  @1088 GOTO 563
END

IF ~~ THEN BEGIN 556
SAY @1089
IF ~GlobalLT("Kimlove","LOCALS",10)~ THEN GOTO 560
IF ~GlobalGT("Kimlove","LOCALS",9)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 557
SAY @1070
IF ~GlobalLT("Kimlove","LOCALS",4)~ THEN GOTO 553
IF ~ GlobalGT("Kimlove","LOCALS",3)~ THEN GOTO 561
END

IF ~~ THEN BEGIN 558
SAY @1071
IF ~GlobalLT("Kimlove","LOCALS",7)~ THEN GOTO 553
IF ~GlobalGT("Kimlove","LOCALS",6)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 559
SAY @1076
IF ~GlobalLT("Kimlove","LOCALS",7)~ THEN GOTO 553
IF ~ GlobalGT("Kimlove","LOCALS",6)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 560
SAY @1090
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT 
END

IF ~~ THEN BEGIN 561
SAY @1091
IF ~~ THEN REPLY @1064 GOTO 565
IF ~~ THEN REPLY @1065 GOTO 549
IF ~~ THEN REPLY @1082 GOTO 556
IF ~~ THEN REPLY @1067 GOTO 565
IF ~~ THEN REPLY @788 GOTO 564
IF ~~ THEN REPLY @1083 GOTO 564
IF ~~ THEN REPLY @1069 GOTO 536
END

IF ~~ THEN BEGIN 562
SAY @1092
= @1093
IF ~~ THEN REPLY @1094 GOTO 566
END

IF ~~ THEN BEGIN 563
SAY @1095
= @1096
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT 
END


IF ~~ THEN BEGIN 564
SAY @1097
IF ~GlobalLT("Kimlove","LOCALS",8)~ THEN GOTO 560
IF ~GlobalGT("Kimlove","LOCALS",7)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 565
SAY @1098 
IF ~GlobalLT("Kimlove","LOCALS",6)~ THEN GOTO 553
IF ~GlobalGT("Kimlove","LOCALS",5)~ THEN GOTO 555
END

IF ~~ THEN BEGIN 566
SAY @1099
= @1100
IF ~~ THEN REPLY @1101 GOTO 567
IF ~~ THEN REPLY @1102 GOTO 563
END

IF ~~ THEN BEGIN 567
SAY @1103
IF ~~ THEN EXIT
END



IF ~Global("KIMLOVETLK","LOCALS",18)
    !Global("KIMRomanceActive","GLOBAL",3)~ THEN BEGIN 568
SAY @1104
IF ~~ THEN GOTO 569
END

IF ~~ THEN BEGIN 569
SAY @1105
IF ~~ THEN REPLY @1106 GOTO 570
IF ~~ THEN REPLY @1107 GOTO 572
IF ~~ THEN REPLY @1108 GOTO 571
IF ~~ THEN REPLY @1109 GOTO 573
END

IF ~~ THEN BEGIN 570
SAY @1110
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT 
END

IF ~~ THEN BEGIN 571
SAY @1111
IF ~~ THEN GOTO 573
END

IF ~~ THEN BEGIN 572
SAY @1112
IF ~~ THEN GOTO 573
END

IF ~~ THEN BEGIN 573
SAY @1113
IF ~~ THEN GOTO 574
END

IF ~~ THEN BEGIN 574
SAY @1114
IF ~~ THEN REPLY @1115 GOTO 577
IF ~~ THEN REPLY @1116 GOTO 576
IF ~~ THEN REPLY @1117 GOTO 575
IF ~~ THEN REPLY @1118 GOTO 570
END

IF ~~ THEN BEGIN 575
SAY @1119
IF ~~ THEN REPLY @1120 GOTO 578
END

IF ~~ THEN BEGIN 576
SAY @1121
IF ~~ THEN REPLY @1122 GOTO 578
END

IF ~~ THEN BEGIN 577
SAY @1123
IF ~~ THEN REPLY @1124 GOTO 578
END

IF ~~ THEN BEGIN 578
SAY @1125
IF ~~ THEN GOTO 579
END

IF ~~ THEN BEGIN 579
SAY @1126
IF ~~ THEN REPLY @1017 GOTO 586
IF ~~ THEN REPLY @1127 GOTO 585
IF ~~ THEN REPLY @1128 GOTO 584
IF ~~ THEN REPLY @1129 GOTO 583
IF ~~ THEN REPLY @1130 GOTO 582
IF ~~ THEN REPLY @1131 GOTO 581
IF ~~ THEN REPLY @1132 GOTO 580
END

IF ~~ THEN BEGIN 580
SAY @1133
IF ~~ THEN  DO ~SetGlobal("KimRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 581
SAY @1134
IF ~~ THEN GOTO 587
END

IF ~~ THEN BEGIN 582
SAY @1135
IF ~~ THEN DO ~IncrementGlobal("Kimbreak","LOCALS",1)~ GOTO 587
END

IF ~~ THEN BEGIN 583
SAY @1136
IF ~~ THEN GOTO 587
END

IF ~~ THEN BEGIN 584
SAY @1137
IF ~~ THEN GOTO 587
END

IF ~~ THEN BEGIN 585
SAY @1138
IF ~~ THEN DO ~IncrementGlobal("Kimbreak","LOCALS",1)~ GOTO 587
END

IF ~~ THEN BEGIN 586
SAY @1139
IF ~~ THEN GOTO 587
END

IF ~~ THEN BEGIN 587
SAY @1140
IF ~~ THEN GOTO 588
END

IF ~~ THEN BEGIN 588
SAY @1141
IF ~~ THEN REPLY @1142 GOTO 590
IF ~~ THEN REPLY @1143 GOTO 591
IF ~~ THEN REPLY @1144 GOTO 589
IF ~~ THEN REPLY @1145 GOTO 590
END

IF ~~ THEN BEGIN 589
SAY @1146
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 590
SAY @1147
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 591
SAY @1148
IF ~~ THEN EXIT
END




