SET hate, 0
IF T30, @completed
@normal 
N: It seems there is a irrigation leak
N: In the main roman assembly
WAIT 2
N: This will take 4,000gp to fix
WAIT 3
N: Fix this issue?
ASK 5000
IF -YES, @saidno
COMPARE #<num.hostGP>, 4000
IF< @cantafford
ADD totalmoney, 4000
TAKE G4000
GIVE T30
END

@saidno
ADD hate, 1
N: This will make the people hate you
N: Are you sure???
ASK 30
IF -YES, @saidno2
END

@saidno2
SUB hate, 1
N: Thats what I thought
GOTO @normal
END