// creator  : weidu.exe (version 23600)
// argument : X#LP1REP.DLG
// game     : .
// source   : ./override/X#LP1REP.DLG
// dialog   : lang\en_us/dialog.tlk
// dialogF  : (none)

BEGIN ~X#LP1REP~

IF ~  NumberOfTimesTalkedTo(0)
Global("X#LakeP1RepTalk","GLOBAL",0)
~ THEN BEGIN 0 // from:
  SAY #60199 /* ~Hello there! I find myself in need of coin. Allow me to introduce myself. I am Sam, a bard of no small ability. Could I interest you in commissioning some of my work?~ */
  IF ~~ THEN REPLY #60200 /* ~That depends. Exactly what sort of services can you offer?~ */ GOTO 5
  IF ~~ THEN REPLY #60201 /* ~I hardly have enough coin at present to patronize the arts for their own sake. Can you offer something useful in exchange for our gold?~ */ GOTO 5
  IF ~  OR(2)
InParty("garrick")
InParty("eldoth")
~ THEN REPLY #60202 /* ~Thank you, but we already have our own bard, on retainer, if you will.~ */ GOTO 4
  IF ~~ THEN REPLY #60203 /* ~We have better things on which to spend our gold than your tab.~ */ GOTO 3
  IF ~~ THEN REPLY #60204 /* ~No thank you. I do not need your services today.~ */ GOTO 9
END

IF ~  NumTimesTalkedToGT(0)
Global("X#LakeP1RepTalk","GLOBAL",1)
~ THEN BEGIN 1 // from:
  SAY #60205 /* ~Ah, so good to see you again! Would you like to avail yourself of my services as a public liaison?~ */
  IF ~~ THEN REPLY #60206 /* ~Yes, I think I can make use of your talents again.~ */ DO ~IncrementGlobal("X#UseTroubadorRep","GLOBAL",1)
~ GOTO 5
  IF ~~ THEN REPLY #60207 /* ~Not today, thanks.~ */ GOTO 9
  IF ~  OR(2)
InParty("garrick")
InParty("eldoth")
~ THEN REPLY #60202 /* ~Thank you, but we already have our own bard, on retainer, if you will.~ */ GOTO 4
END

IF ~  NumTimesTalkedToGT(0)
Global("X#LakeP1RepTalk","GLOBAL",0)
~ THEN BEGIN 2 // from:
  SAY #60208 /* ~Ah, so good to see you again! Would you like to hear about an arrangement that might prove mutually beneficial?~ */
  IF ~~ THEN REPLY #60209 /* ~Yes, I will hear you out.~ */ GOTO 5
  IF ~~ THEN REPLY #60207 /* ~Not today, thanks.~ */ GOTO 9
END

IF ~~ THEN BEGIN 3 // from: 0.3
  SAY #60210 /* ~I must urge you to reconsider. I might be able to offer a valuable service indeed to one of your repute.~ */
  IF ~~ THEN REPLY #60211 /* ~Very well. I will hear you out. What can you do for me?~ */ GOTO 5
  IF ~~ THEN REPLY #60212 /* ~Now I am certain that I have no need of the wares you are selling. Good day.~ */ GOTO 9
END

IF ~~ THEN BEGIN 4 // from: 1.2 0.2
  SAY #60213 /* ~And I am sure he is a most capable musician. Even so, I believe I might be able to offer something unique, beyond the scope of my esteemed colleague. Will you not hear me out?~ */
  IF ~~ THEN REPLY #60211 /* ~Very well. I will hear you out. What can you do for me?~ */ GOTO 5
  IF ~~ THEN REPLY #60214 /* ~Thank you, but no. I believe we can manage on our own.~ */ GOTO 9
END

IF ~~ THEN BEGIN 5 // from: 8.0 4.0 3.0 2.0 1.0 0.1 0.0
  SAY #60215 /* ~Well, I can spread the word of your accomplishments, perhaps in a different light. For a small amount of coin, I can sing your praises to the countryside in a way that makes you appear more powerful, more intimidating, perhaps more worthy of fear.~ */
  IF ~~ THEN GOTO 7
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
Global("X#AloraRep","GLOBAL",2)
~ THEN EXTERN ~BALORA~ 282
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
Global("X#AloraRep","GLOBAL",1)
~ THEN EXTERN ~BALORA~ 281
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
Global("X#AloraRep","GLOBAL",0)
~ THEN EXTERN ~BALORA~ 280
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharTeelRep","GLOBAL",2)
~ THEN EXTERN ~BSHART~ 278
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharTeelRep","GLOBAL",1)
~ THEN EXTERN ~BSHART~ 277
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharTeelRep","GLOBAL",0)
~ THEN EXTERN ~BSHART~ 276
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
Global("X#ViconiaRep","GLOBAL",2)
~ THEN EXTERN ~BVICON~ 308
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
Global("X#ViconiaRep","GLOBAL",1)
~ THEN EXTERN ~BVICON~ 307
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
Global("X#ViconiaRep","GLOBAL",0)
~ THEN EXTERN ~BVICON~ 306
  IF ~  InParty("tiax")
InMyArea("tiax")
!StateCheck("tiax",CD_STATE_NOTVALID)
Global("X#TiaxRep","GLOBAL",2)
~ THEN EXTERN ~BTIAX~ 302
  IF ~  InParty("tiax")
InMyArea("tiax")
!StateCheck("tiax",CD_STATE_NOTVALID)
Global("X#TiaxRep","GLOBAL",1)
~ THEN EXTERN ~BTIAX~ 301
  IF ~  InParty("tiax")
InMyArea("tiax")
!StateCheck("tiax",CD_STATE_NOTVALID)
Global("X#TiaxRep","GLOBAL",0)
~ THEN EXTERN ~BTIAX~ 300
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
Global("P#BranwenRep","GLOBAL",2)
~ THEN EXTERN ~BBRANW~ 337
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
Global("P#BranwenRep","GLOBAL",1)
~ THEN EXTERN ~BBRANW~ 336
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
Global("P#BranwenRep","GLOBAL",0)
~ THEN EXTERN ~BBRANW~ 335
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
Global("X#EdwinRep","GLOBAL",2)
~ THEN EXTERN ~BEDWIN~ 359
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
Global("X#EdwinRep","GLOBAL",1)
~ THEN EXTERN ~BEDWIN~ 358
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
Global("X#EdwinRep","GLOBAL",0)
~ THEN EXTERN ~BEDWIN~ 357
  IF ~  !InParty("minsc")
InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
Global("X#DynaheirRep","GLOBAL",2)
~ THEN EXTERN ~BDYNAH~ 428
  IF ~  !InParty("minsc")
InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
Global("X#DynaheirRep","GLOBAL",1)
~ THEN EXTERN ~BDYNAH~ 427
  IF ~  !InParty("minsc")
InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
Global("X#DynaheirRep","GLOBAL",0)
~ THEN EXTERN ~BDYNAH~ 426
  IF ~  InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
InParty("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#DynaMinscRep","GLOBAL",2)
~ THEN EXTERN ~BDYNAH~ 425
  IF ~  InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
InParty("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#DynaMinscRep","GLOBAL",1)
~ THEN EXTERN ~BDYNAH~ 424
  IF ~  InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
InParty("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#DynaMinscRep","GLOBAL",0)
~ THEN EXTERN ~BDYNAH~ 423
  IF ~  InParty("minsc")
InMyArea("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#MinscRep","GLOBAL",2)
~ THEN EXTERN ~BMINSC~ 414
  IF ~  InParty("minsc")
InMyArea("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#MinscRep","GLOBAL",1)
~ THEN EXTERN ~BMINSC~ 413
  IF ~  InParty("minsc")
InMyArea("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#MinscRep","GLOBAL",0)
~ THEN EXTERN ~BMINSC~ 412
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("X#CoranRep","GLOBAL",2)
~ THEN EXTERN ~BCORAN~ 475
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("X#CoranRep","GLOBAL",1)
~ THEN EXTERN ~BCORAN~ 474
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("X#CoranRep","GLOBAL",0)
~ THEN EXTERN ~BCORAN~ 473
  IF ~  InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
Global("X#SkieRep","GLOBAL",2)
~ THEN EXTERN ~BSKIE~ 410
  IF ~  InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
Global("X#SkieRep","GLOBAL",1)
~ THEN EXTERN ~BSKIE~ 409
  IF ~  InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
Global("X#SkieRep","GLOBAL",0)
~ THEN EXTERN ~BSKIE~ 408
  IF ~  InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
Global("X#QuayleRep","GLOBAL",2)
~ THEN EXTERN ~BQUAYL~ 294
  IF ~  InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
Global("X#QuayleRep","GLOBAL",1)
~ THEN EXTERN ~BQUAYL~ 293
  IF ~  InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
Global("X#QuayleRep","GLOBAL",0)
~ THEN EXTERN ~BQUAYL~ 292
  IF ~  InParty("yeslick")
InMyArea("yeslick")
!StateCheck("yeslick",CD_STATE_NOTVALID)
Global("X#YeslickRep","GLOBAL",2)
~ THEN EXTERN ~BYESLI~ 260
  IF ~  InParty("yeslick")
InMyArea("yeslick")
!StateCheck("yeslick",CD_STATE_NOTVALID)
Global("X#YeslickRep","GLOBAL",1)
~ THEN EXTERN ~BYESLI~ 259
  IF ~  InParty("yeslick")
InMyArea("yeslick")
!StateCheck("yeslick",CD_STATE_NOTVALID)
Global("X#YeslickRep","GLOBAL",0)
~ THEN EXTERN ~BYESLI~ 258
  IF ~  InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
Global("X#KivanRep","GLOBAL",2)
~ THEN EXTERN ~BKIVAN~ 353
  IF ~  InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
Global("X#KivanRep","GLOBAL",1)
~ THEN EXTERN ~BKIVAN~ 352
  IF ~  InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
Global("X#KivanRep","GLOBAL",0)
~ THEN EXTERN ~BKIVAN~ 351
  IF ~  InParty("kagain")
InMyArea("kagain")
!StateCheck("kagain",CD_STATE_NOTVALID)
Global("X#KagainRep","GLOBAL",2)
~ THEN EXTERN ~BKAGAI~ 285
  IF ~  InParty("kagain")
InMyArea("kagain")
!StateCheck("kagain",CD_STATE_NOTVALID)
Global("X#KagainRep","GLOBAL",1)
~ THEN EXTERN ~BKAGAI~ 284
  IF ~  InParty("kagain")
InMyArea("kagain")
!StateCheck("kagain",CD_STATE_NOTVALID)
Global("X#KagainRep","GLOBAL",0)
~ THEN EXTERN ~BKAGAI~ 283
  IF ~  InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
Global("X#XanRep","GLOBAL",2)
~ THEN EXTERN ~BXANNN~ 430
  IF ~  InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
Global("X#XanRep","GLOBAL",1)
~ THEN EXTERN ~BXANNN~ 429
  IF ~  InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
Global("X#XanRep","GLOBAL",0)
~ THEN EXTERN ~BXANNN~ 428
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
Global("X#FaldornRep","GLOBAL",2)
~ THEN EXTERN ~BFALDO~ 366
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
Global("X#FaldornRep","GLOBAL",1)
~ THEN EXTERN ~BFALDO~ 365
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
Global("X#FaldornRep","GLOBAL",0)
~ THEN EXTERN ~BFALDO~ 364
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Global("X#ImoenRep","GLOBAL",2)
~ THEN EXTERN ~BIMOEN~ 426
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Global("X#ImoenRep","GLOBAL",1)
~ THEN EXTERN ~BIMOEN~ 425
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Global("X#ImoenRep","GLOBAL",0)
~ THEN EXTERN ~BIMOEN~ 424
  IF ~  InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
Global("X#AjantisRep","GLOBAL",2)
~ THEN EXTERN ~BAJANT~ 313
  IF ~  InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
Global("X#AjantisRep","GLOBAL",1)
~ THEN EXTERN ~BAJANT~ 312
  IF ~  InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
Global("X#AjantisRep","GLOBAL",0)
~ THEN EXTERN ~BAJANT~ 311
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#EldothRep","GLOBAL",2)
~ THEN EXTERN ~BELDOT~ 395
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#EldothRep","GLOBAL",1)
~ THEN EXTERN ~BELDOT~ 394
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#EldothRep","GLOBAL",0)
~ THEN EXTERN ~BELDOT~ 393
  IF ~  InParty("garrick")
InMyArea("garrick")
!StateCheck("garrick",CD_STATE_NOTVALID)
Global("X#GarrickRep","GLOBAL",2)
~ THEN GOTO 6
  IF ~  InParty("garrick")
InMyArea("garrick")
!StateCheck("garrick",CD_STATE_NOTVALID)
Global("X#GarrickRep","GLOBAL",2)
~ THEN EXTERN ~BGARRI~ 312
  IF ~  InParty("garrick")
InMyArea("garrick")
!StateCheck("garrick",CD_STATE_NOTVALID)
Global("X#GarrickRep","GLOBAL",1)
~ THEN EXTERN ~BGARRI~ 311
  IF ~  InParty("garrick")
InMyArea("garrick")
!StateCheck("garrick",CD_STATE_NOTVALID)
Global("X#GarrickRep","GLOBAL",0)
~ THEN EXTERN ~BGARRI~ 310
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
Global("X#XzarRep","GLOBAL",2)
~ THEN EXTERN ~BXZAR~ 302
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
Global("X#XzarRep","GLOBAL",1)
~ THEN EXTERN ~BXZAR~ 301
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
Global("X#XzarRep","GLOBAL",0)
~ THEN EXTERN ~BXZAR~ 300
  IF ~  InParty("montaron")
InMyArea("montaron")
!StateCheck("montaron",CD_STATE_NOTVALID)
Global("X#MontaronRep","GLOBAL",2)
~ THEN EXTERN ~BMONTA~ 284
  IF ~  InParty("montaron")
InMyArea("montaron")
!StateCheck("montaron",CD_STATE_NOTVALID)
Global("X#MontaronRep","GLOBAL",1)
~ THEN EXTERN ~BMONTA~ 283
  IF ~  InParty("montaron")
InMyArea("montaron")
!StateCheck("montaron",CD_STATE_NOTVALID)
Global("X#MontaronRep","GLOBAL",0)
~ THEN EXTERN ~BMONTA~ 282
  IF ~  InParty("khalid")
InMyArea("khalid")
!StateCheck("khalid",CD_STATE_NOTVALID)
Global("X#KhalidRep","GLOBAL",2)
~ THEN EXTERN ~BKHALI~ 296
  IF ~  InParty("khalid")
InMyArea("khalid")
!StateCheck("khalid",CD_STATE_NOTVALID)
Global("X#KhalidRep","GLOBAL",1)
~ THEN EXTERN ~BKHALI~ 295
  IF ~  InParty("khalid")
InMyArea("khalid")
!StateCheck("khalid",CD_STATE_NOTVALID)
Global("X#KhalidRep","GLOBAL",0)
~ THEN EXTERN ~BKHALI~ 294
  IF ~  InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
Global("X#JaheiraRep","GLOBAL",2)
~ THEN EXTERN ~BJAHEI~ 321
  IF ~  InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
Global("X#JaheiraRep","GLOBAL",1)
~ THEN EXTERN ~BJAHEI~ 320
  IF ~  InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
Global("X#JaheiraRep","GLOBAL",0)
~ THEN EXTERN ~BJAHEI~ 319
  IF ~  InParty("safana")
InMyArea("safana")
!StateCheck("safana",CD_STATE_NOTVALID)
Global("X#SafanaRep","GLOBAL",2)
~ THEN EXTERN ~BSAFAN~ 258
  IF ~  InParty("safana")
InMyArea("safana")
!StateCheck("safana",CD_STATE_NOTVALID)
Global("X#SafanaRep","GLOBAL",1)
~ THEN EXTERN ~BSAFAN~ 257
  IF ~  InParty("safana")
InMyArea("safana")
!StateCheck("safana",CD_STATE_NOTVALID)
Global("X#SafanaRep","GLOBAL",0)
~ THEN EXTERN ~BSAFAN~ 256
END

IF ~~ THEN BEGIN 6 // from: 5.61
  SAY #60234 /* ~Eh, right... I am sure they are remarkable, but I prefer to... stick to original material... just so no one can say I was copying, you understand.~ */
  IF ~~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ GOTO 7
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
Global("X#AloraRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BALORA~ 282
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
Global("X#AloraRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BALORA~ 281
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
Global("X#AloraRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BALORA~ 280
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharTeelRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BSHART~ 278
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharTeelRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BSHART~ 277
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharTeelRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BSHART~ 276
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
Global("X#ViconiaRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BVICON~ 308
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
Global("X#ViconiaRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BVICON~ 307
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
Global("X#ViconiaRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BVICON~ 306
  IF ~  InParty("tiax")
InMyArea("tiax")
!StateCheck("tiax",CD_STATE_NOTVALID)
Global("X#TiaxRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BTIAX~ 302
  IF ~  InParty("tiax")
InMyArea("tiax")
!StateCheck("tiax",CD_STATE_NOTVALID)
Global("X#TiaxRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BTIAX~ 301
  IF ~  InParty("tiax")
InMyArea("tiax")
!StateCheck("tiax",CD_STATE_NOTVALID)
Global("X#TiaxRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BTIAX~ 300
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
Global("P#BranwenRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BBRANW~ 337
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
Global("P#BranwenRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BBRANW~ 336
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
Global("P#BranwenRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BBRANW~ 335
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
Global("X#EdwinRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BEDWIN~ 359
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
Global("X#EdwinRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BEDWIN~ 358
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
Global("X#EdwinRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BEDWIN~ 357
  IF ~  !InParty("minsc")
InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
Global("X#DynaheirRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BDYNAH~ 428
  IF ~  !InParty("minsc")
InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
Global("X#DynaheirRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BDYNAH~ 427
  IF ~  !InParty("minsc")
InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
Global("X#DynaheirRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BDYNAH~ 426
  IF ~  InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
InParty("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#DynaMinscRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BDYNAH~ 425
  IF ~  InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
InParty("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#DynaMinscRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BDYNAH~ 424
  IF ~  InParty("dynaheir")
InMyArea("dynaheir")
!StateCheck("dynaheir",CD_STATE_NOTVALID)
InParty("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#DynaMinscRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BDYNAH~ 423
  IF ~  InParty("minsc")
InMyArea("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#MinscRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BMINSC~ 414
  IF ~  InParty("minsc")
InMyArea("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#MinscRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BMINSC~ 413
  IF ~  InParty("minsc")
InMyArea("minsc")
!StateCheck("minsc",CD_STATE_NOTVALID)
Global("X#MinscRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BMINSC~ 412
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("X#CoranRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BCORAN~ 475
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("X#CoranRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BCORAN~ 474
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("X#CoranRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BCORAN~ 473
  IF ~  InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
Global("X#SkieRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BSKIE~ 410
  IF ~  InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
Global("X#SkieRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BSKIE~ 409
  IF ~  InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
Global("X#SkieRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BSKIE~ 408
  IF ~  InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
Global("X#QuayleRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BQUAYL~ 294
  IF ~  InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
Global("X#QuayleRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BQUAYL~ 293
  IF ~  InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
Global("X#QuayleRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BQUAYL~ 292
  IF ~  InParty("yeslick")
InMyArea("yeslick")
!StateCheck("yeslick",CD_STATE_NOTVALID)
Global("X#YeslickRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BYESLI~ 260
  IF ~  InParty("yeslick")
InMyArea("yeslick")
!StateCheck("yeslick",CD_STATE_NOTVALID)
Global("X#YeslickRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BYESLI~ 259
  IF ~  InParty("yeslick")
InMyArea("yeslick")
!StateCheck("yeslick",CD_STATE_NOTVALID)
Global("X#YeslickRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BYESLI~ 258
  IF ~  InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
Global("X#KivanRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BKIVAN~ 353
  IF ~  InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
Global("X#KivanRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BKIVAN~ 352
  IF ~  InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
Global("X#KivanRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BKIVAN~ 351
  IF ~  InParty("kagain")
InMyArea("kagain")
!StateCheck("kagain",CD_STATE_NOTVALID)
Global("X#KagainRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BKAGAI~ 285
  IF ~  InParty("kagain")
InMyArea("kagain")
!StateCheck("kagain",CD_STATE_NOTVALID)
Global("X#KagainRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BKAGAI~ 284
  IF ~  InParty("kagain")
InMyArea("kagain")
!StateCheck("kagain",CD_STATE_NOTVALID)
Global("X#KagainRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BKAGAI~ 283
  IF ~  InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
Global("X#XanRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BXANNN~ 430
  IF ~  InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
Global("X#XanRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BXANNN~ 429
  IF ~  InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
Global("X#XanRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BXANNN~ 428
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
Global("X#FaldornRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BFALDO~ 366
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
Global("X#FaldornRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BFALDO~ 365
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
Global("X#FaldornRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BFALDO~ 364
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Global("X#ImoenRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BIMOEN~ 426
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Global("X#ImoenRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BIMOEN~ 425
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Global("X#ImoenRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BIMOEN~ 424
  IF ~  InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
Global("X#AjantisRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BAJANT~ 313
  IF ~  InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
Global("X#AjantisRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BAJANT~ 312
  IF ~  InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
Global("X#AjantisRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BAJANT~ 311
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#EldothRep","GLOBAL",2)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BELDOT~ 395
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#EldothRep","GLOBAL",1)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BELDOT~ 394
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#EldothRep","GLOBAL",0)
~ THEN DO ~IncrementGlobal("X#GarrickRep","GLOBAL",1)
~ EXTERN ~BELDOT~ 393
END

IF ~~ THEN BEGIN 7 // from: 6.0 5.0
  SAY #60294 /* ~I have a wide variety of things I can offer a discerning customer. What say you?~ */
  IF ~  ReputationGT(Player1,10)
~ THEN REPLY #60295 /* ~Why would I pay someone to malign me?~ */ DO ~SetGlobal("X#TroubadorRep","GLOBAL",1)
SetGlobal("X#LakeP1RepTalk","GLOBAL",1)
~ GOTO 10
  IF ~  ReputationLT(Player1,11)
~ THEN REPLY #60295 /* ~Why would I pay someone to malign me?~ */ DO ~SetGlobal("X#TroubadorRep","GLOBAL",1)
SetGlobal("X#LakeP1RepTalk","GLOBAL",1)
~ GOTO 11
  IF ~~ THEN REPLY #60296 /* ~I think it is time people realized that I am a powerful force. Let the public know that I am not to be trifled with.~ */ DO ~SetGlobal("X#TroubadorRep","GLOBAL",1)
SetGlobal("X#LakeP1RepTalk","GLOBAL",1)
IncrementGlobal("X#UseTroubadorRep","GLOBAL",1)
~ GOTO 12
  IF ~  Class(Player1,PALADIN_ALL)
~ THEN REPLY #60297 /* ~Bite your false tongue! We seek no fame but what we earn through righteous deeds!~ */ DO ~SetGlobal("X#TroubadorRep","GLOBAL",1)
SetGlobal("X#LakeP1RepTalk","GLOBAL",1)
~ EXIT
  IF ~  Class(Player1,THIEF_ALL)
~ THEN REPLY #60298 /* ~Thanks, but no thanks. For one like me, it pays to remain anonymous.~ */ DO ~SetGlobal("X#TroubadorRep","GLOBAL",1)
SetGlobal("X#LakeP1RepTalk","GLOBAL",1)
~ EXIT
  IF ~  GlobalGT("X#TroubadorRep","GLOBAL",0)
GlobalGT("X#LakeP1RepTalk","GLOBAL",0)
~ THEN REPLY #60299 /* ~I have heard this before from those who sell similar services. What can you do for me that is better?~ */ GOTO 8
END

IF ~~ THEN BEGIN 8 // from: 7.5
  SAY #60300 /* ~I can offer you the immediate satisfaction that your wish will be granted immediately, which my absent brethren cannot, as they are elsewhere engaged. No doubt you know the details of the service I offer. Can I interest you in a similar commission?~ */
  IF ~~ THEN REPLY #60301 /* ~Yes, I think I might make use of your talents.~ */ DO ~IncrementGlobal("X#UseTroubadorRep","GLOBAL",1)
~ GOTO 5
  IF ~~ THEN REPLY #60207 /* ~Not today, thanks.~ */ GOTO 9
END

IF ~~ THEN BEGIN 9 // from: 11.1 10.1 8.1 4.1 3.1 2.1 1.1 0.4
  SAY #60302 /* ~Well, if you change your mind, I am performing here regularly.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10 // from: 7.0
  SAY #60303 /* ~Not everyone wishes to do business with someone who is quite so... honest.~ */
  IF ~~ THEN REPLY #60296 /* ~I think it is time people realized that I am a powerful force. Let the public know that I am not to be trifled with.~ */ DO ~SetGlobal("X#TroubadorRep","GLOBAL",1)
~ GOTO 12
  IF ~~ THEN REPLY #60305 /* ~No thank you, I do not need your services today.~ */ GOTO 9
  IF ~  InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN EXTERN ~BJAHEI~ 322
END

IF ~~ THEN BEGIN 11 // from: 7.1
  SAY #60306 /* ~Not everyone has heard of your fearsome reputation.~ */
  IF ~~ THEN REPLY #60308 /* ~I think it is time more people realized that I am a powerful force. Let the public know that I am not to be trifled with.~ */ DO ~IncrementGlobal("X#UseTroubadorRep","GLOBAL",1)
~ GOTO 12
  IF ~~ THEN REPLY #60305 /* ~No thank you, I do not need your services today.~ */ GOTO 9
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~BVICON~ 309
END

IF ~~ THEN BEGIN 12 // from: 11.0 10.0 7.2
  SAY #60309 /* ~A wise decision. How much more fearsome would you like to become? A little, a modest amount, or to a dramatic extent?~ */
  IF ~  Reputation(Player1,20)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 13
  IF ~  Reputation(Player1,19)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 14
  IF ~  Reputation(Player1,18)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 15
  IF ~  Reputation(Player1,17)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 16
  IF ~  Reputation(Player1,16)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 17
  IF ~  Reputation(Player1,15)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 18
  IF ~  Reputation(Player1,14)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 19
  IF ~  Reputation(Player1,13)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 20
  IF ~  Reputation(Player1,12)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 21
  IF ~  Reputation(Player1,11)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 22
  IF ~  Reputation(Player1,10)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 23
  IF ~  Reputation(Player1,9)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 24
  IF ~  Reputation(Player1,8)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 25
  IF ~  Reputation(Player1,7)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 26
  IF ~  Reputation(Player1,6)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 27
  IF ~  Reputation(Player1,5)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 28
  IF ~  Reputation(Player1,4)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 29
  IF ~  ReputationLT(Player1,4)
~ THEN REPLY #60310 /* ~A little would suffice.~ */ GOTO 63
  IF ~  Reputation(Player1,20)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 30
  IF ~  Reputation(Player1,19)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 31
  IF ~  Reputation(Player1,18)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 32
  IF ~  Reputation(Player1,17)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 33
  IF ~  Reputation(Player1,16)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 34
  IF ~  Reputation(Player1,15)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 35
  IF ~  Reputation(Player1,14)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 36
  IF ~  Reputation(Player1,13)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 37
  IF ~  Reputation(Player1,12)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 38
  IF ~  Reputation(Player1,11)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 39
  IF ~  Reputation(Player1,10)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 40
  IF ~  Reputation(Player1,9)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 41
  IF ~  Reputation(Player1,8)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 42
  IF ~  Reputation(Player1,7)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 43
  IF ~  Reputation(Player1,6)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 44
  IF ~  Reputation(Player1,5)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 45
  IF ~  Reputation(Player1,4)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 61
  IF ~  ReputationLT(Player1,4)
~ THEN REPLY #60311 /* ~A moderate amount would do, I think.~ */ GOTO 63
  IF ~  Reputation(Player1,20)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 46
  IF ~  Reputation(Player1,19)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 47
  IF ~  Reputation(Player1,18)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 48
  IF ~  Reputation(Player1,17)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 49
  IF ~  Reputation(Player1,16)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 50
  IF ~  Reputation(Player1,15)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 51
  IF ~  Reputation(Player1,14)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 52
  IF ~  Reputation(Player1,13)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 53
  IF ~  Reputation(Player1,12)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 54
  IF ~  Reputation(Player1,11)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 55
  IF ~  Reputation(Player1,10)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 56
  IF ~  Reputation(Player1,9)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 57
  IF ~  Reputation(Player1,8)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 58
  IF ~  Reputation(Player1,7)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 59
  IF ~  Reputation(Player1,6)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 60
  IF ~  Reputation(Player1,5)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 62
  IF ~  Reputation(Player1,4)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 61
  IF ~  ReputationLT(Player1,4)
~ THEN REPLY #60312 /* ~Why do it by halves? Let us see a dramatic change.~ */ GOTO 63
END

IF ~~ THEN BEGIN 13 // from: 12.0
  SAY #60313 /* ~No mean feat, for a <MANWOMAN> of your reputation. Few would credit you with such deeds. It would cost you 1500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1500)
DestroyGold(1500)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 14 // from: 12.1
  SAY #60316 /* ~It will not be easy, for a <MANWOMAN> of your reputation, but I love a challenge. In this case, such a commision would cost 1200 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1199)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1200)
DestroyGold(1200)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 15 // from: 12.2
  SAY #60317 /* ~Challenging, but I am up to the task. For a <MANWOMAN> of your reputation, that would take 1000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1000)
DestroyGold(1000)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 16 // from: 12.3
  SAY #60318 /* ~There are those that will take some convincing, but I can manage nicely. Yet it will be necessary to be extremely thorough, and that costs. For a <MANWOMAN> of your reputation, the price would be 500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(500)
DestroyGold(500)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 17 // from: 12.4
  SAY #60319 /* ~There are bound to be at least a few people yet who have not yet heard of your good deeds. I shall find them, and persuade the rest that you are no one with whom to trifle. For a <MANWOMAN> of your reputation, that would take 500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(500)
DestroyGold(500)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 18 // from: 12.5
  SAY #60320 /* ~Let me see: taverns and meeting houses up and down the Sword Coast, and associated expenses... for a <MANWOMAN> of your reputation, that would take 400 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(399)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(400)
DestroyGold(400)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 19 // from: 12.6
  SAY #60321 /* ~For a <MANWOMAN> of your reputation, I can do it for the paltry sum of 200 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(199)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(200)
DestroyGold(200)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 20 // from: 12.7
  SAY #60322 /* ~Let me see: taverns and meeting houses up and down the Sword Coast, and associated expenses... for a <MANWOMAN> of your reputation, that would take 300 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(299)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(300)
DestroyGold(300)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 21 // from: 12.8
  SAY #60323 /* ~For 400 gold coins, I can do wonders for a <MANWOMAN> of your reputation.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(399)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(400)
DestroyGold(400)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 22 // from: 12.9
  SAY #60324 /* ~This will involve a good deal of travel. People are not sure what to think, so I'll have to make sure they all hear what you want them to hear. For a <MANWOMAN> of your reputation, that would take 500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(500)
DestroyGold(500)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 23 // from: 12.10
  SAY #60325 /* ~This will involve a good deal of travel. People are not sure what to think, so I'll have to make sure they all hear what you want them to hear. For a <MANWOMAN> of your reputation, that would take 700 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(699)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(700)
DestroyGold(700)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 24 // from: 12.11
  SAY #60326 /* ~People would believe as much, in a <MANWOMAN> of your reputation, but I'm still going to have to spread the word far and wide, which means travel. The expenses would total 900 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(899)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(900)
DestroyGold(900)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 25 // from: 12.12
  SAY #60327 /* ~There are bound to be at least a few people yet who have not yet heard of your deeds. I shall find them, and persuade them that you are no one with whom to trifle. For a <MANWOMAN> of your reputation, that would take 1200 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1199)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1200)
DestroyGold(1200)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 26 // from: 12.13
  SAY #60328 /* ~There are those that will take some convincing that you could be even more fearsome than they imagine, but I can manage nicely. Yet it will be necessary to be extremely thorough, and that costs. For a <MANWOMAN> of your reputation, the price would be 1500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1500)
DestroyGold(1500)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 27 // from: 12.14
  SAY #60329 /* ~Challenging, but I am up to the task. For a <MANWOMAN> of your reputation, that would take 2000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2000)
DestroyGold(2000)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 28 // from: 12.15
  SAY #60330 /* ~It will not be easy, for a <MANWOMAN> of your reputation, but I love a challenge. In this case, such a commision would cost 2500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2500)
DestroyGold(2500)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 29 // from: 12.16
  SAY #60331 /* ~No mean feat, for a <MANWOMAN> of your reputation. Few would credit you with such deeds. It would cost you 5000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(5000)
DestroyGold(5000)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 30 // from: 12.18
  SAY #60332 /* ~No mean feat, for a <MANWOMAN> of your reputation. Few would credit you with such deeds. It would cost you 2400 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2399)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2400)
DestroyGold(2400)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 31 // from: 12.19
  SAY #60333 /* ~It will not be easy, for a <MANWOMAN> of your reputation, but I love a challenge. In this case, such a commision would cost 1900 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1899)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1900)
DestroyGold(1900)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 32 // from: 12.20
  SAY #60334 /* ~Challenging, but I am up to the task. For a <MANWOMAN> of your reputation, that would take 1300 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1299)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1300)
DestroyGold(1300)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 33 // from: 12.21
  SAY #60335 /* ~There are those that will take some convincing, but I can manage nicely. Yet it will be necessary to be extremely thorough, and that costs. For a <MANWOMAN> of your reputation, the price would be 900 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(899)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(900)
DestroyGold(900)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 34 // from: 12.22
  SAY #60336 /* ~There are bound to be at least a few people yet who have not yet heard of your good deeds. I shall find them, and persuade the rest that you are no one with whom to trifle. For a <MANWOMAN> of your reputation, that would take 800 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(799)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(800)
DestroyGold(800)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 35 // from: 12.23
  SAY #60337 /* ~Let me see: taverns and meeting houses up and down the Sword Coast, and associated expenses... for a <MANWOMAN> of your reputation, that would take 500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(500)
DestroyGold(500)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 36 // from: 12.24
  SAY #60338 /* ~For a <MANWOMAN> of your reputation, I can do it for the paltry sum of 450 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(449)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(450)
DestroyGold(450)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 37 // from: 12.25
  SAY #60339 /* ~Let me see: taverns and meeting houses up and down the Sword Coast, and associated expenses... for a <MANWOMAN> of your reputation, that would take 600 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(599)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(600)
DestroyGold(600)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 38 // from: 12.26
  SAY #60340 /* ~For 800 gold coins, I can do wonders for a <MANWOMAN> of your reputation.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(799)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(800)
DestroyGold(800)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 39 // from: 12.27
  SAY #60341 /* ~This will involve a good deal of travel. People are not sure what to think, so I'll have to make sure they all hear what you want them to hear. For a <MANWOMAN> of your reputation, that would take 1000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1000)
DestroyGold(1000)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 40 // from: 12.28
  SAY #60342 /* ~This will involve a good deal of travel. People are not sure what to think, so I'll have to make sure they all hear what you want them to hear. For a <MANWOMAN> of your reputation, that would take 1400 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1399)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1400)
DestroyGold(1400)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 41 // from: 12.29
  SAY #60343 /* ~People would believe as much, in a <MANWOMAN> of your reputation, but I'm still going to have to spread the word far and wide, which means travel. The expenses would total 1800 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1799)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1800)
DestroyGold(1800)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 42 // from: 12.30
  SAY #60344 /* ~There are bound to be at least a few people yet who have not yet heard of your deeds. I shall find them, and persuade them that you are no one with whom to trifle. For a <MANWOMAN> of your reputation, that would take 2400 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2399)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2400)
DestroyGold(2400)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 43 // from: 12.31
  SAY #60345 /* ~There are those that will take some convincing that you could be even more fearsome than they imagine, but I can manage nicely. Yet it will be necessary to be extremely thorough, and that costs. For a <MANWOMAN> of your reputation, the price would be 3000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(3000)
DestroyGold(3000)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 44 // from: 12.32
  SAY #60346 /* ~Challenging, but I am up to the task. For a <MANWOMAN> of your reputation, that would take 4000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(3999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(4000)
DestroyGold(4000)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 45 // from: 12.33
  SAY #60347 /* ~No mean feat, for a <MANWOMAN> of your reputation. Few would credit you with such deeds. It would cost you 6500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(6499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(6500)
DestroyGold(6500)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 46 // from: 12.36
  SAY #60348 /* ~No mean feat, for a <MANWOMAN> of your reputation. Few would credit you with such deeds. It would cost you 2800 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2799)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2800)
DestroyGold(2800)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 47 // from: 12.37
  SAY #60330 /* ~It will not be easy, for a <MANWOMAN> of your reputation, but I love a challenge. In this case, such a commision would cost 2500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2500)
DestroyGold(2500)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 48 // from: 12.38
  SAY #60329 /* ~Challenging, but I am up to the task. For a <MANWOMAN> of your reputation, that would take 2000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2000)
DestroyGold(2000)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 49 // from: 12.39
  SAY #60349 /* ~There are those that will take some convincing, but I can manage nicely. Yet it will be necessary to be extremely thorough, and that costs. For a <MANWOMAN> of your reputation, the price would be 1500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1500)
DestroyGold(1500)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 50 // from: 12.40
  SAY #60336 /* ~There are bound to be at least a few people yet who have not yet heard of your good deeds. I shall find them, and persuade the rest that you are no one with whom to trifle. For a <MANWOMAN> of your reputation, that would take 800 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(799)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(800)
DestroyGold(800)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 51 // from: 12.41
  SAY #60350 /* ~Let me see: taverns and meeting houses up and down the Sword Coast, and associated expenses... for a <MANWOMAN> of your reputation, that would take 700 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(699)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(700)
DestroyGold(700)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 52 // from: 12.42
  SAY #60351 /* ~For a <MANWOMAN> of your reputation, I can do it for the paltry sum of 700 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(699)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(700)
DestroyGold(700)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 53 // from: 12.43
  SAY #60352 /* ~Let me see: taverns and meeting houses up and down the Sword Coast, and associated expenses... for a <MANWOMAN> of your reputation, that would take 900 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(899)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(900)
DestroyGold(900)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 54 // from: 12.44
  SAY #60353 /* ~For 1200 gold coins, I can do wonders for a <MANWOMAN> of your reputation.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1199)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1200)
DestroyGold(1200)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 55 // from: 12.45
  SAY #60354 /* ~This will involve a good deal of travel. People are not sure what to think, so I'll have to make sure they all hear what you want them to hear. For a <MANWOMAN> of your reputation, that would take 1600 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(1599)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(1600)
DestroyGold(1600)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 56 // from: 12.46
  SAY #60355 /* ~This will involve a good deal of travel. People are not sure what to think, so I'll have to make sure they all hear what you want them to hear. For a <MANWOMAN> of your reputation, that would take 2200 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2199)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2200)
DestroyGold(2200)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 57 // from: 12.47
  SAY #60356 /* ~People would believe as much, in a <MANWOMAN> of your reputation, but I'm still going to have to spread the word far and wide, which means travel. The expenses would total 2800 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(2799)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(2800)
DestroyGold(2800)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 58 // from: 12.48
  SAY #60357 /* ~There are bound to be at least a few people yet who have not yet heard of your deeds. I shall find them, and persuade them that you are no one with whom to trifle. For a <MANWOMAN> of your reputation, that would take 3700 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(3699)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(3700)
DestroyGold(3700)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 59 // from: 12.49
  SAY #60358 /* ~There are those that will take some convincing that you could be even more fearsome than they imagine, but I can manage nicely. Yet it will be necessary to be extremely thorough, and that costs. For a <MANWOMAN> of your reputation, the price would be 4000 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(3999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(4000)
DestroyGold(4000)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 60 // from: 12.50
  SAY #60359 /* ~No mean feat, for a <MANWOMAN> of your reputation. Few would credit even you with such deeds. It would cost you 7500 gold pieces.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(7499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(7500)
DestroyGold(7500)
ReputationInc(-3)
~ GOTO 65
END

IF ~~ THEN BEGIN 61 // from: 12.52 12.34
  SAY #60360 /* ~For a <MANWOMAN> of your reputation, I could hardly make you seem more than a little more fearsome, and that would cost you 5000 gold.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(5000)
DestroyGold(5000)
ReputationInc(-1)
~ GOTO 65
END

IF ~~ THEN BEGIN 62 // from: 12.51
  SAY #60361 /* ~For a <MANWOMAN> of your reputation, I doubt even I could do much to make it worse. Nevertheless, I might be able to manage moderate damage, but it would cost you 7500 gold.~ */
  IF ~~ THEN REPLY #60314 /* ~Maybe later.~ */ GOTO 64
  IF ~  PartyGoldGT(7499)
~ THEN REPLY #60315 /* ~Do it.~ */ DO ~TakePartyGold(7500)
DestroyGold(7500)
ReputationInc(-2)
~ GOTO 65
END

IF ~~ THEN BEGIN 63 // from: 12.53 12.35 12.17
  SAY #60362 /* ~That actually would not be possible, for a <MANWOMAN> of your reputation. People already quake in fear at your passage.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 64 // from: 62.0 61.0 60.0 59.0 58.0 57.0 56.0 55.0 54.0 53.0 52.0 51.0 50.0 49.0 48.0 47.0 46.0 45.0 44.0 43.0 42.0 41.0 40.0 39.0 38.0 37.0 36.0 35.0 34.0 33.0 32.0 31.0 30.0 29.0 28.0 27.0 26.0 25.0 24.0 23.0 22.0 21.0 20.0 19.0 18.0 17.0 16.0 15.0 14.0 13.0
  SAY #60363 /* ~I would happily help you, should you come back with a larger purse. I hear that there are many ways of raising coin for a person of your talents.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 65 // from: 62.1 61.1 60.1 59.1 58.1 57.1 56.1 55.1 54.1 53.1 52.1 51.1 50.1 49.1 48.1 47.1 46.1 45.1 44.1 43.1 42.1 41.1 40.1 39.1 38.1 37.1 36.1 35.1 34.1 33.1 32.1 31.1 30.1 29.1 28.1 27.1 26.1 25.1 24.1 23.1 22.1 21.1 20.1 19.1 18.1 17.1 16.1 15.1 14.1 13.1
  SAY #60364 /* ~You should see results very soon indeed. It was a pleasure doing business with you.~ */
  IF ~~ THEN DO ~SetGlobal("X#TT1Deactivate","GLOBAL",1)
~ EXIT
END
