ClearScreen
goto c
Write "     Y"
goto lc
Writeln "ou have come across a man, standing very tall, that seems to be busy?"
goto c
Write "     Y"
goto lc
Writeln "ou feel that you can pick his pocket and he wouldn't even notice!"
goto g
write "     D"
goto lg
write "o you try {y,n} ? > "
getchoice YN 2
writeln "^2"
if 2 = "N"
goto cya
endif
goto c
Write "     Y"
goto lc
Writeln "ou try..."
goto c
Write "     Y"
goto lc
Write "ou approch him and "
assign 1 "1"
:delay
if 1~ = 100
write "."
endif
if 1~ = 200
write "."
endif
if 1~ = 300
write "."
endif
if 1~ = 400
write "."
endif
if 1~ = 500
write "."
endif
increment 1 1
if 1~ <> 500
goto delay
endif
IfSkill pp
Write " succeed in doing so.  You got "
goto y
write "2000"
goto lc
writeln " gold coins!"
Increment G 2000
Goto End
EndIf
goto r
Writeln "     You get caught!"
Write "     You get fined "
goto y
write "2000"
goto r
writeln " gold coins if you have it!"
Decrement G 2000
:End
Quit
:c
ChangeColor 3 0
return
:lc
ChangeColor 11 0
return
:cya
goto w
writeln "     The man vanishes!"
quit
:g
changecolor 2 0
return
:lg
changecolor 10 0
return
:y
changecolor 14 0
return
:w
changecolor 15 0
return
:r
changecolor 4 0
return
