IF T29, @nopower
N: Just type "open" for powers
ASK 999999999999999
IF Qopen, @openemporermenu
END

@openemporermenu
MENU "View polotical status=@pstat", "Check conflicts=@ccon", "Resolve Issues=@reissue", "Collect taxes=@coltax", "Declare Conquer=@conquer", "Close menu=@close"
END

@pstat
COMPARE #<pstat>, 1
IF= @neutral
IF> @check2
END
@neutral
N: The people still appreciate you
GOTO @openemporermenu
END
@check2
COMPARE #<pstat>, 2
IF= @chaotic
IF> @check3
END
@chaotic
N: The people are getting angry
GOTO @openemporermenu
END
@check3
COMPARE #<pstat>, 3
IF= @tyranny
IF> @impeach
END
@tyranny
N: You are becoming loathed
GOTO @openemporermenu
END
@impeach
N: You have been impeached
GIVE T29
END
@nopower
N: You no longer have any power
END

@ccon
SET confilct, %R
N: Now scanning for conflicts...
WAIT 3
COMPARE #<conflict>, 1
IF= @conflict1
IF> @noconflicts
COMPARE #<conflict>, 2
IF= @conflict2
IF> @noconflicts
END
@noconflicts
N: There are no conflicts at this time
END
@conflict1
#include conflict1.txt
END
@conflict2
#include conflict2.txt
END

@reissue
SET issue, %R
N: Now scanning for issues....
WAIT 3
COMPARE #<issue>, 1
IF= @issue1
IF> @noissues
END
@issue1
#include issue1.txt
END
@noissues
N: There are curently no issues at this time
END

@coltax
COMPARE #<num.timeDay>, 1
IF= @collect
IF< @nottime
IF> @nottime
END
@collect
SET collectvalue, %R
N: It is the first of the month, now collecting......
COMPARE #<collectvalue>, 1
IF= @value1
COMPARE #<collectvalue>, 2
IF= @value2
END
@value1
GIVE G100000
SOUND "Coins.wav"
N: You have recieved 100,000 from the people
END
@value2
GIVE G500000
SOUND "Coins.wav"
N: You have recieved 500,000 from the people
END
@nottime
N: You must wait until the first of every month
N: NOTE: THIS IS IN REAL TIME!
END

@conquer
N: So, you wish to conquer?
N: NOTE: THIS MAY AFFECT YOUR ELECTORAL STATUS
ASK 50
IF -YES, @saidno
N: I will now show you the map...
WAIT 2
BKGND "Conquer"
ACTOR 1, "Conquer Perugia", Conquer, 1, 16, 39
ACTOR 2, "Conquer Sassari", Conquer, 1, 47, 55
ACTOR 3, "Conquer Messina", Conquer, 1, 21, 38
ACTOR 4, "Conquer Naples",  Conquer, 1, 12, 95
ACTOR 5, "Conquer Bari",    Conquer, 1, 87, 62 
ACTOR 6, "Conquer Salerno", Conquer, 1, 71, 62
ACTOR 7, "Conquer Florence", Conquer, 1, 50, 59
N: Right click a location to declare a conquer
END
@eventActorClick1
#include conquer1.txt
END
@eventActorClick2
N: Conquer 2 coming in patch 1.1B
GOTO @openemporermenu
END
@eventActorClick3
N: Conquer 3 coming in patch 1.2B
GOTO @openemporermenu
END
@eventActorClick4
N: Conquer 4 coming in patch 1.3B
GOTO @openemporermenu
END
@eventActorClick5
N: Conquer 5 coming in patch 1.4B
GOTO @openemporermenu
END
@eventActorClick6
N: Conquer 6 coming in patch 1.5B
GOTO @openemporermenu
END
@eventActorClick7
N: Conquer 7 coming in patch 1.6B
GOTO @openemporermenu
END

@close
END

@nopower
N: You have been impeached
N: If you think this is an error
N: Contact -seraphino@wosaddict.com-
END
