BEGIN ~Kim~


// Avant la mort de Maevar

IF   ~GLT("RenalJob",4)~ THEN BEGIN 0
SAY @0
IF ~GENDER(Protagonist,Male)~ THEN REPLY @1 GOTO 1
IF ~~ THEN REPLY @2 GOTO 2
IF ~~ THEN REPLY @3 GOTO 3
IF ~~ THEN REPLY @4 GOTO 4
IF ~~ THEN REPLY @5  GOTO 5
IF ~~ THEN REPLY @6  GOTO 6
IF ~GENDER(Protagonist,Male)~ THEN REPLY @7  GOTO 7
IF ~~ THEN REPLY @8 GOTO 8
IF ~~ THEN REPLY @9 GOTO 17
END

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

IF ~~ THEN BEGIN 2
SAY @11
IF ~~ THEN REPLY @12 GOTO 9
IF ~~ THEN REPLY @13 GOTO 3
IF ~~ THEN REPLY @14 GOTO 8
IF ~GENDER (Protagonist,Male)~ THEN REPLY @15 GOTO 7
IF ~GENDER (Protagonist,Male)~ THEN REPLY @16 GOTO 1
IF ~~ THEN REPLY @17 GOTO 6
IF ~~ THEN REPLY @18 GOTO 17
END

IF ~~ THEN BEGIN 3
SAY @19
IF ~~ THEN REPLY @20 GOTO 17
IF ~~ THEN REPLY @21 GOTO 6
IF ~~ THEN REPLY @22 GOTO 15
IF ~~ THEN REPLY @23 GOTO 4
IF ~~ THEN REPLY @24 GOTO 14
END

IF ~~ THEN BEGIN 4
SAY @25
IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 6
SAY @27
IF ~~ THEN REPLY @28 GOTO 14
IF ~~ THEN REPLY @29 GOTO 17
IF ~~ THEN REPLY @30 GOTO 5
IF ~~ THEN REPLY @31 GOTO 8
IF ~GENDER (Protagonist,Male)~ THEN REPLY @32 GOTO 15
END

IF ~~ THEN BEGIN 7
SAY @33
IF ~~ THEN REPLY @34 GOTO 15
IF ~~ THEN REPLY @35 GOTO 9
IF ~~ THEN REPLY @36 GOTO 8
IF ~~ THEN REPLY @37 GOTO 17
IF ~~ THEN REPLY @38 GOTO 6
IF ~~ THEN REPLY @39 GOTO 12
IF ~~ THEN REPLY @40 GOTO 4
IF ~~ THEN REPLY @41 GOTO 5
END

IF ~~ THEN BEGIN 8
SAY @42
IF ~GENDER (Protagonist,Male)~ THEN REPLY @43 GOTO 15
IF ~~ THEN REPLY @44 GOTO 16
IF ~~ THEN REPLY @45 GOTO 13
IF ~~ THEN REPLY @46 GOTO 4
IF ~~ THEN REPLY @47 GOTO 7
IF ~~ THEN REPLY @48 GOTO 11
END

IF ~~ THEN BEGIN 9
SAY @49
IF ~ GENDER (Protagonist,Male)~ THEN REPLY @50 GOTO 15
IF ~~ THEN REPLY @51 GOTO 10
IF ~~ THEN REPLY @52 GOTO 8
IF ~~ THEN REPLY @53 GOTO 7
END

IF ~~ THEN BEGIN 10
SAY @54
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 11
SAY @55
IF ~~ THEN REPLY @56 GOTO 17
IF ~~ THEN REPLY @57 GOTO 4
IF ~~ THEN REPLY @58 GOTO 13
IF ~~ THEN REPLY @59 GOTO 5
IF ~~ THEN REPLY @60 GOTO 6
END

IF ~~ THEN BEGIN 12
SAY @61
IF ~~ THEN GOTO 18
END

IF ~~ THEN BEGIN 13
SAY @62
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 14
SAY @63
IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 16
SAY @65
IF ~~ THEN EXIT 
END

IF ~~ THEN BEGIN 17
SAY @66
IF ~~ THEN DO ~SetGlobal("MORTKIM","LOCALS",1) ~ EXIT
END

IF ~~ THEN BEGIN 18
SAY @67
IF ~~ THEN EXIT
END


// Après la mort de Maevar, mais avant le duel

IF
~Global("RenalJob","GLOBAL",4)
Global("DUELKIM","LOCALS",0)~
THEN BEGIN 19
SAY @68
IF ~GENDER (Protagonist,Male)~ THEN REPLY @69 GOTO 20
IF ~~ THEN REPLY @70 GOTO 21
IF ~~ THEN REPLY @71 GOTO 22
IF ~~ THEN REPLY @72 GOTO 23
IF ~~ THEN REPLY @73 GOTO 24
IF ~GENDER(Protagonist,Male)~ THEN REPLY @74 GOTO 25
IF ~~ THEN REPLY @75 GOTO 26
IF ~~ THEN REPLY @76 GOTO 21
IF ~~ THEN REPLY @77 GOTO 50
END


IF ~~ THEN BEGIN 20
SAY @78
IF ~~ THEN REPLY @79 GOTO 27
IF ~~ THEN REPLY @80 GOTO 28
IF ~~ THEN REPLY @81 GOTO 50
IF ~~ THEN REPLY @82 GOTO 23
IF ~~ THEN REPLY @83 GOTO 24
IF ~~ THEN REPLY @84 GOTO 25
IF ~~ THEN REPLY @85 GOTO 29 
END

IF ~~ THEN BEGIN 21
SAY @86
=
@87
IF ~~ THEN REPLY @88 GOTO 27
IF ~~ THEN REPLY @89 GOTO 28
IF ~~ THEN REPLY @90 GOTO 30
IF ~~ THEN REPLY @72 GOTO 23
IF ~~ THEN REPLY @73 GOTO 24
IF ~GENDER(Protagonist,Male)~ THEN REPLY @74 GOTO 25
IF ~~ THEN REPLY @91 GOTO 31
IF ~~ THEN REPLY @92 GOTO 32
IF ~~ THEN REPLY @93 GOTO 29 
IF ~~ THEN REPLY @94 GOTO 50
END

IF ~~ THEN BEGIN 22
SAY @95
IF ~~ THEN REPLY @96 GOTO 29
IF ~~ THEN REPLY @97 GOTO 32
IF ~~ THEN REPLY @98 GOTO 33
IF ~~ THEN REPLY @99 GOTO 50
IF ~~ THEN REPLY @100 GOTO 33
END

IF ~~ THEN BEGIN 23
SAY @101 
IF ~~ THEN REPLY @102 GOTO 29
IF ~~ THEN REPLY @103 GOTO 35
IF ~~ THEN REPLY @104 GOTO 26
IF ~~ THEN REPLY @105 GOTO 50
IF ~~ THEN REPLY @106 GOTO 35
END

IF ~~ THEN BEGIN 24
SAY @107 
IF ~~ THEN GOTO 23
END

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

IF ~~ THEN BEGIN 26
SAY @109
IF ~~ THEN DO ~SetGlobal("DUELKIM","LOCALS",1) ~ EXIT
END

IF ~~ THEN BEGIN 27
SAY @110
IF ~~ THEN REPLY @111 GOTO 29
IF ~~ THEN REPLY @112 GOTO 50
IF ~~ THEN REPLY @72 GOTO 23
IF ~~ THEN REPLY @73 GOTO 24
IF ~GENDER(Protagonist,Male)~ THEN REPLY @74 GOTO 25
IF ~~ THEN REPLY @113 GOTO 25
END

IF ~~ THEN BEGIN 28
SAY @114
IF ~GENDER (Protagonist,Male)~ THEN REPLY @115 GOTO 25
IF ~~ THEN REPLY @116 GOTO 26
IF ~~ THEN REPLY @117 GOTO 25
IF ~~ THEN REPLY @118 GOTO 36
IF ~~ THEN REPLY @119 GOTO 29
END

IF ~~ THEN BEGIN 29
SAY @120
IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 31
SAY @122
IF ~~ THEN REPLY @123 GOTO 50
IF ~~ THEN REPLY @124 GOTO 26
IF ~~ THEN REPLY @125 GOTO 28
IF ~~ THEN REPLY @126 GOTO 28
IF ~~ THEN REPLY @72 GOTO 23
IF ~~ THEN REPLY @73 GOTO 24
IF ~GENDER(Protagonist,Male)~ THEN REPLY @74 GOTO 25
END

IF ~~ THEN BEGIN 32
SAY @127
IF ~~ THEN REPLY @123 GOTO 50
IF ~~ THEN REPLY @128 GOTO 26
IF ~~ THEN REPLY @125 GOTO 28
IF ~~ THEN REPLY @126 GOTO 28
IF ~~ THEN REPLY @72 GOTO 23
IF ~~ THEN REPLY @73 GOTO 24
IF ~GENDER(Protagonist,Male)~ THEN REPLY @74 GOTO 25
END

IF ~~ THEN BEGIN 33
SAY @129
IF ~~ THEN REPLY @130 GOTO 50
IF ~~ THEN REPLY @131 GOTO 28
IF ~~ THEN REPLY @132 GOTO 25
IF ~~ THEN REPLY @72 GOTO 23
IF ~~ THEN REPLY @73 GOTO 24
IF ~GENDER(Protagonist,Male)~ THEN REPLY @74 GOTO 25
END


IF ~~ THEN BEGIN 35
SAY @133
IF ~GENDER (Protagonist,Male)~ THEN REPLY @134 GOTO 25
IF ~~ THEN REPLY @135 GOTO 27
IF ~~ THEN REPLY @136 GOTO 28
IF ~~ THEN REPLY @137 GOTO 26
IF ~~ THEN REPLY @138 GOTO 25
IF ~~ THEN REPLY @139 GOTO 29
IF ~~ THEN REPLY @118 GOTO 36
END


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


// RESULTATS DU DUEL

IF ~Global("DUELKIM","LOCALS",4)
Global("KIMOK","LOCALS",0)~
THEN BEGIN 37
SAY @141
IF ~~ THEN REPLY @142 DO ~SetGlobal("KIMOK","LOCALS",1)~EXIT
IF ~~ THEN REPLY @143 GOTO 50
IF ~~ THEN REPLY @144 GOTO 38
END

IF ~~ THEN BEGIN 38
SAY @145
IF ~GlobalLT("Kimlove", "LOCALS",-3)~ THEN GOTO 42
IF ~GlobalGT("Kimlove", "LOCALS",-4)~ THEN GOTO 41
END

IF ~Global("DUELKIM","LOCALS",3)
Global("KIMOK","LOCALS",0)~ 
THEN BEGIN 39
SAY @146
IF ~~ THEN REPLY @147 GOTO 40
IF ~~ THEN REPLY @148 GOTO 40
IF ~~ THEN REPLY @149 GOTO 40
IF ~~ THEN REPLY @150 GOTO 50
IF ~~ THEN REPLY @151 GOTO 38
END

IF ~~ THEN BEGIN 40
SAY @152
IF ~~ THEN REPLY @153 GOTO 38
IF ~~ THEN REPLY @154 GOTO 25
IF ~~ THEN REPLY @155 DO ~SetGlobal("KIMOK","LOCALS",1)~EXIT
END

IF ~~ THEN BEGIN 41
SAY @156
IF ~~ THEN REPLY @157 GOTO 43
IF ~~ THEN REPLY @158 GOTO 44
IF ~~ THEN REPLY @159 GOTO 51
IF ~~ THEN REPLY @160 GOTO 44
END

IF ~~ THEN BEGIN 42
SAY @161
IF ~~ THEN DO ~SetGlobal("KIMOK","LOCALS",1)~EXIT
END

IF ~~ THEN BEGIN 43
SAY @162
IF ~~ THEN REPLY @163 GOTO 42
IF ~~ THEN REPLY @164 GOTO 45
IF ~~ THEN REPLY @165 GOTO 51
IF ~~ THEN REPLY @166 GOTO 44
IF ~~ THEN REPLY @167 DO ~SetGlobal("KIMOK","LOCALS",1)~EXIT
END

IF ~~ THEN BEGIN 44
SAY @168
IF ~~ THEN REPLY @165 GOTO 51
IF ~~ THEN REPLY @164 GOTO 45
IF ~~ THEN REPLY @167 DO ~SetGlobal("KIMOK","LOCALS",1)~EXIT
IF ~~ THEN REPLY @163 GOTO 42
END

IF ~~ THEN BEGIN 45
SAY @169
IF ~~ THEN REPLY @167 DO ~SetGlobal("KIMOK","LOCALS",1)~EXIT
IF ~~ THEN REPLY @163 GOTO 42
IF ~~ THEN REPLY @165 GOTO 51
IF ~~ THEN REPLY @170 GOTO 44
END

IF ~~ THEN BEGIN 50
SAY @171
IF ~~ THEN DO ~SetGlobal("MORTKIM","LOCALS",1) ~ EXIT
END


IF ~~ THEN BEGIN 51
SAY @172
IF ~~ THEN DO ~SetGlobal("kimjoin","LOCALS",1)
TakePartyGold(500)
DestroyGold(500)
JoinParty ()~ EXIT
END


/// Après Maevar, après le duel

IF ~Global("DUELKIM","LOCALS",4)
Global("KIMOK","LOCALS",1)~
THEN BEGIN 52
SAY @173
IF ~~ THEN REPLY @174 EXIT
IF ~~ THEN REPLY @143 GOTO 50
IF ~~ THEN REPLY @175 GOTO 38
END

IF ~Global("DUELKIM","LOCALS",3)
Global("KIMOK","LOCALS",1)~
THEN BEGIN 53
SAY @176
IF ~~ THEN REPLY @174 EXIT
IF ~~ THEN REPLY @143 GOTO 50
IF ~~ THEN REPLY @175 GOTO 38
END







BEGIN ~KimP~

IF ~Global("KickedOut","LOCALS",0)~ THEN BEGIN Virekim
SAY @177
IF ~~ THEN REPLY @178 DO ~joinparty()~ EXIT
IF ~~ THEN REPLY @179 DO ~SetGlobal("KickedOut","LOCALS",1) ~ GOTO Virekim2
END

IF ~Global("KickedOut","LOCALS",1)~ THEN BEGIN backkim
SAY @180
IF ~~ THEN REPLY @181 EXIT
IF ~~ THEN REPLY @182 DO ~SetGlobal("KickedOut","LOCALS",0)
JoinParty() ~ EXIT
END

IF ~~ THEN BEGIN Virekim2
SAY @183
IF ~~ THEN DO ~EscapeAreaMove("AR0406",1178,1386,0)~ EXIT
END