QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-06 03:30:23 +00:00
Code Issues Releases Wiki Activity
QB64-PE/programs/samples/pete/hgm30e/hgm30e.bas

2896 lines
79 KiB
QBasic
Raw Blame History

chdir ".\programs\samples\pete\hgm30e"
'HEGEMONY 3.0.e
'Copyright: Akos Ivanyi (21.07.2003)
'-----=====GENERAL GAMEFLOW=====-----
' variables:
' |
' opening:
' |
' choosecontrol:<----O
' / \ |
' human: ai: |
' \ / |
' nextturn:------>O
' (gosubs)
'-----=====THE GAME=====-----
variables:
'------------------------------------------------
DECLARE FUNCTION fixcolor (col AS INTEGER)
DIM rca AS STRING * 1
'$DYNAMIC
DIM pic(32000) AS INTEGER
'$STATIC
DIM control$(9)
DIM c$(9)
DIM name$(9)
DIM land%(9)
DIM sea(9)
DIM navy%(9)
DIM seaarmy%(9)
DIM seamoved%(9)
DIM money&(9)
DIM population&(9)
DIM tax(9)
DIM morale(9)
DIM trust(9)
DIM science(6, 9)
DIM sciencename$(6)
DIM sciencemoney&(6)
DIM ownercolor%(9)
DIM peasant&(9)
DIM fisher&(9)
DIM worker&(9)
DIM merchant&(9)
DIM soldier&(9)
DIM unemployed&(9)
DIM fo%(9)
DIM chu%(9)
DIM uni%(9)
DIM mil%(9)
DIM allfood&(9)
DIM spy%(9)
DIM spycost%(9)
DIM landtrade(9)
DIM value(9)
DIM lostvalue(9)
DIM diplinterest(9)
DIM hate(9)
DIM fear(9)
DIM diplplan(9)
DIM property&(9)
DIM level(9)
DIM bestname$(9)
DIM bestturn(9)
DIM bestcontrol$(9)
DIM bestdate$(9)
DIM dipl%(9, 9)
DIM diplaction%(9, 9)
DIM border%(9, 9)
DIM owner%(15, 15)
DIM original%(15, 15)
DIM terrain%(15, 15)
DIM fort%(15, 15)
DIM church%(15, 15)
DIM university%(15, 15)
DIM mill%(15, 15)
DIM army%(15, 15)
DIM moved%(16, 16)
DIM localmorale(15, 15)
DIM threat(16, 16)
DIM ed%(15, 15)
DIM tername$(9)
DIM foodpot(9)
DIM prodpot(9)
DIM terdefense(9)
DIM tercolor(9)
DIM size%(7)
DIM i AS INTEGER
DIM j AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
ownercolor%(0) = 0
ownercolor%(1) = 2
ownercolor%(2) = 4
ownercolor%(3) = 1
ownercolor%(4) = 14
ownercolor%(5) = 8
ownercolor%(6) = 15
ownercolor%(7) = 11
ownercolor%(8) = 13
ownercolor%(9) = 12
sciencename$(1) = "agriculture"
sciencename$(2) = "industry"
sciencename$(3) = "trade"
sciencename$(4) = "sailing"
sciencename$(5) = "military"
sciencename$(6) = "medicine"
size%(1) = 1
size%(2) = 2
size%(3) = 5
size%(4) = 10
size%(5) = 20
size%(6) = 50
size%(7) = 100
tername$(0) = "sea"
tercolor(0) = 1
x = 8
y = 8
BF = 700: mf = 30: sf = 70
bc = 100: mc = 3: sc = 10
bu = 500: mu = 25: su = 250
bm = 200: mm = -20: sm = 180
bn = 200: mn = 20: sn = 180
ba = 150: ma = 30: sa = 75
message$ = "Welcome, Majesty."
opening:
'------------------------------------------------
save% = 1
code% = 1
SCREEN 12
CLS
LOCATE 1, 1
OPEN "motto.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, text$
PRINT text$
WEND
CLOSE
GOSUB press
CLS
OPEN "hgm.bmp" FOR BINARY AS #1
SEEK #1, 119
FOR i = 299 TO 0 STEP -1
FOR j = 0 TO 399 STEP 2
GET #1, , rca
PSET (j + 120, i + 90), fixcolor(FIX(ASC(rca) / 16))
PSET (j + 121, i + 90), fixcolor(ASC(rca) - FIX(ASC(rca) / 16) * 16)
NEXT j
NEXT i
CLOSE #1
LINE (0, 0)-(639, 479), 2, B
rca = INPUT$(1)
RANDOMIZE TIMER
CLS
GOSUB title
LOCATE 7, 1: PRINT "(Press 'ENTER' for default.)"
LOCATE 6, 1
scen$ = "default.scn"
INPUT "Which scenario do you wish to play"; scen$
IF scen$ = "" THEN scen$ = "default.scn"
LOCATE 9, 1
PRINT "Opening file..."
OPEN scen$ FOR INPUT AS #1
INPUT #1, players%
INPUT #1, player%
INPUT #1, turn%
FOR i = 1 TO 6
INPUT #1, sciencemoney&(i)
NEXT i
FOR i = 1 TO players%
LINE INPUT #1, name$(i)
INPUT #1, control$(i)
INPUT #1, population&(i)
INPUT #1, money&(i)
INPUT #1, navy%(i)
INPUT #1, seaarmy%(i)
INPUT #1, seamoved%(i)
INPUT #1, tax(i)
INPUT #1, trust(i)
FOR j = 1 TO 6
INPUT #1, science(j, i)
NEXT j
FOR j = 1 TO players%
INPUT #1, dipl%(i, j)
NEXT j
FOR j = 1 TO players%
INPUT #1, diplaction%(i, j)
NEXT j
NEXT i
FOR k = 1 TO 9
FOR i = 1 TO 15
FOR j = 1 TO 15
SELECT CASE k
CASE 1
INPUT #1, owner%(i, j)
CASE 2
INPUT #1, original%(i, j)
CASE 3
INPUT #1, terrain%(i, j)
CASE 4
INPUT #1, fort%(i, j)
CASE 5
INPUT #1, church%(i, j)
CASE 6
INPUT #1, university%(i, j)
CASE 7
INPUT #1, mill%(i, j)
CASE 8
INPUT #1, army%(i, j)
CASE 9
INPUT #1, moved%(i, j)
END SELECT
NEXT j
NEXT i
NEXT k
CLOSE
OPEN "terrain.typ" FOR INPUT AS #1
FOR i = 1 TO 9
LINE INPUT #1, tername$(i)
INPUT #1, foodpot(i)
INPUT #1, prodpot(i)
INPUT #1, terdefense(i)
INPUT #1, tercolor(i)
NEXT i
CLOSE
PRINT
GOSUB spy
GOSUB chooseplayer
GOSUB enemydistance
choosecontrol:
'------------------------------------------------
GOSUB countproperties:
active% = 0
human% = 0
FOR i = 1 TO players%
IF land%(i) > 0 THEN active% = active% + 1
IF control$(i) = "human" THEN human% = human% + 1
NEXT i
IF human% = 0 THEN GOTO aicombat
IF active% = 1 THEN GOTO victory
IF land%(player%) = 0 THEN
WHILE land%(player%) = 0
IF player% < players% THEN
player% = player% + 1
ELSE
player% = 1
turn% = turn% + 1
revoltnation = INT(RND * players%) + 1
revoltlevel = RND * RND * 10
END IF
FOR i = 1 TO players%
diplaction%(player%, i) = 0
NEXT i
WEND
END IF
GOSUB spy
IF control$(player%) = "human" THEN
BEEP
IF human% > 1 THEN
CLS
COLOR ownercolor%(player%)
LOCATE player% * 3, player% * 6
PRINT name$(player%); "'s turn!"
BEEP
GOSUB press
CLS
END IF
GOSUB countproperties
GOTO human
ELSE
GOTO ai
END IF
human:
'------------------------------------------------
LOCATE 1, 1
GOSUB title
GOSUB see
GOSUB morale
GOSUB drawmap
LINE (450, 100)-(640, 360), 0, BF
LINE (129 + x * 20, 79 + y * 20)-(151 + x * 20, 101 + y * 20), 0, B
RESTORE eye
FOR i = 1 TO 7
FOR j = 1 TO 12
READ pixel%
IF pixel% < 16 THEN PSET (134 + x * 20 + j, 83 + y * 20 + i), pixel%
NEXT j
NEXT i
LINE (455, 380)-(639, 404), 7, B
LOCATE 5, 29
COLOR ownercolor%(player%)
PRINT name$(player%); "'s turn:"; turn%
COLOR 7
LOCATE 5, 1
PRINT "Empires"
PRINT "-------"
PRINT "i = Information"
PRINT "t = Treasury"
PRINT "s = Science"
PRINT "d = Diplomacy"
PRINT
PRINT "Territories"
PRINT "-----------"
PRINT "Examine: numbers"
PRINT "Move army: arrows"
PRINT "Build:"
PRINT " f = Fort"
PRINT " c = Church"
PRINT " u = University"
PRINT " m = Mills, Mines"
PRINT " Mints..."
PRINT " a = Army"
PRINT " n = Navy"
PRINT "Sell/Destroy:"
PRINT " F, C, U, M, A, N"
PRINT
PRINT "Military unit size: + = increase, - = decrease"
PRINT "E = End turn, g = save Game, h = Help, Q = Quit";
COLOR 14
PRINT " Gold:"; money&(player%); " "
COLOR 7
LOCATE 5, 59
PRINT "Territory info"
LOCATE 6, 59
PRINT "--------------"
LOCATE 7, 59
PRINT "Location:"; x; y; " "
COLOR ownercolor%(owner%(y, x))
IF terrain%(y, x) <> 0 THEN
LOCATE 8, 59
PRINT "Province of..."
LOCATE 9, 61
PRINT name$(owner%(y, x))
LOCATE 10, 59
COLOR ownercolor%(original%(y, x))
PRINT "Original owner:"
LOCATE 11, 61
PRINT name$(original%(y, x))
END IF
LOCATE 12, 59
COLOR tercolor(terrain%(y, x))
PRINT "Terrain: "; tername$(terrain%(y, x))
IF terrain%(y, x) <> 0 THEN
LOCATE 13, 61
PRINT "food:"; foodpot(terrain%(y, x))
LOCATE 14, 61
PRINT "resources:"; prodpot(terrain%(y, x))
LOCATE 15, 61
PRINT "defence bonus:"; terdefense(terrain%(y, x)) * 100; "%"
LOCATE 16, 59
COLOR ownercolor%(owner%(y, x))
PRINT "Forts:";
IF see% = 1 THEN PRINT fort%(y, x)
LOCATE 17, 59
PRINT "Churches:";
IF see% = 1 THEN PRINT church%(y, x)
LOCATE 18, 59
PRINT "Universities:";
IF see% = 1 THEN PRINT university%(y, x)
LOCATE 19, 59
PRINT "Mills, etc.:";
IF see% = 1 THEN PRINT mill%(y, x)
END IF
LOCATE 20, 59
IF owner%(y, x) <> 0 THEN
PRINT "Army:";
IF see% = 1 THEN PRINT army%(y, x)
ELSE
COLOR ownercolor%(player%)
PRINT "Army:"; seaarmy%(player%)
END IF
LOCATE 21, 59
PRINT "Morale:";
IF see% = 1 THEN PRINT INT(localmorale(y, x) * 100 + .5); "% "
LOCATE 22, 59
COLOR ownercolor%(player%)
IF owner%(y, x) = player% THEN
PRINT "Reinforcement:"; moved%(y, x)
ELSEIF owner%(y, x) <> 0 THEN
PRINT "Attackers:"; moved%(y, x)
ELSE
PRINT "Just embarked:"; seamoved%(player%)
END IF
LOCATE 23, 59
IF terrain%(y, x) = 0 THEN
PRINT "Navy:"; navy%(player%); " "
ELSE
PRINT " "
END IF
COLOR 7
LOCATE 25, 59
PRINT message$
LOCATE 27, 20
IF code% > 1 THEN COLOR ownercolor%(player%)
PRINT size%(code%); " "
COLOR 7
k$ = ""
WHILE k$ = ""
k$ = INKEY$
WEND
message$ = " "
SELECT CASE k$
CASE "q"
message$ = "'Q' instead of 'q'. "
CASE "Q"
GOTO bye
CASE "1" TO "9"
IF VAL(k$) < 4 THEN
IF y < 15 THEN y = y + 1
END IF
IF k$ = "1" OR k$ = "4" OR k$ = "7" THEN
IF x > 1 THEN x = x - 1
END IF
IF k$ = "3" OR k$ = "6" OR k$ = "9" THEN
IF x < 15 THEN x = x + 1
END IF
IF VAL(k$) > 6 THEN
IF y > 1 THEN y = y - 1
END IF
CASE CHR$(0) + "H"
IF y > 1 THEN
IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN
IF terrain%(y - 1, x) <> 0 THEN
moved%(y - 1, x) = moved%(y - 1, x) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN
seamoved%(player%) = seamoved%(player%) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
message$ = "Not enough ships. "
END IF
END IF
ELSEIF terrain%(y, x) = 0 AND terrain%(y - 1, x) <> 0 AND seaarmy%(player%) >= size%(code%) THEN
seaarmy%(player%) = seaarmy%(player%) - size%(code%)
moved%(y - 1, x) = moved%(y - 1, x) + size%(code%)
END IF
END IF
CASE CHR$(0) + "P"
IF y < 15 THEN
IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN
IF terrain%(y + 1, x) <> 0 THEN
moved%(y + 1, x) = moved%(y + 1, x) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN
seamoved%(player%) = seamoved%(player%) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
message$ = "Not enough ships. "
END IF
END IF
ELSEIF terrain%(y, x) = 0 AND terrain%(y + 1, x) <> 0 AND seaarmy%(player%) >= size%(code%) THEN
seaarmy%(player%) = seaarmy%(player%) - size%(code%)
moved%(y + 1, x) = moved%(y + 1, x) + size%(code%)
END IF
END IF
CASE CHR$(0) + "K"
IF x > 1 THEN
IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN
IF terrain%(y, x - 1) <> 0 THEN
moved%(y, x - 1) = moved%(y, x - 1) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN
seamoved%(player%) = seamoved%(player%) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
message$ = "Not enough ships. "
END IF
END IF
ELSEIF terrain%(y, x) = 0 AND terrain%(y, x - 1) <> 0 AND seaarmy%(player%) >= size%(code%) THEN
seaarmy%(player%) = seaarmy%(player%) - size%(code%)
moved%(y, x - 1) = moved%(y, x - 1) + size%(code%)
END IF
END IF
CASE CHR$(0) + "M"
IF x < 15 THEN
IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN
IF terrain%(y, x + 1) <> 0 THEN
moved%(y, x + 1) = moved%(y, x + 1) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN
seamoved%(player%) = seamoved%(player%) + size%(code%)
army%(y, x) = army%(y, x) - size%(code%)
ELSE
message$ = "Not enough ships. "
END IF
END IF
ELSEIF terrain%(y, x) = 0 AND terrain%(y, x + 1) <> 0 AND seaarmy%(player%) >= size%(code%) THEN
seaarmy%(player%) = seaarmy%(player%) - size%(code%)
moved%(y, x + 1) = moved%(y, x + 1) + size%(code%)
END IF
END IF
CASE "f"
IF owner%(y, x) = player% THEN
fort%(y, x) = fort%(y, x) + 1
money&(player%) = money&(player%) - BF
message$ = "Cost:" + STR$(BF) + " "
END IF
CASE "c"
IF owner%(y, x) = player% THEN
church%(y, x) = church%(y, x) + 1
money&(player%) = money&(player%) - bc
message$ = "Cost:" + STR$(bc) + " "
END IF
CASE "u"
IF owner%(y, x) = player% THEN
university%(y, x) = university%(y, x) + 1
money&(player%) = money&(player%) - bu
message$ = "Cost:" + STR$(bu) + " "
END IF
CASE "m"
IF owner%(y, x) = player% AND prodpot(terrain%(y, x)) > mill%(y, x) THEN
mill%(y, x) = mill%(y, x) + 1
money&(player%) = money&(player%) - bm
message$ = "Cost:" + STR$(bm) + " "
ELSEIF owner%(y, x) = player% THEN
message$ = "No more resources. "
END IF
CASE "n"
IF owner%(y, x) = 0 THEN
navy%(player%) = navy%(player%) + size%(code%)
money&(player%) = money&(player%) - bn * size%(code%)
message$ = "Cost:" + STR$(bn * size%(code%)) + " "
END IF
CASE "a"
IF owner%(y, x) = player% THEN
GOSUB countproperties
IF soldier&(player%) >= population&(player%) THEN
message$ = "No more people! "
ELSE
moved%(y, x) = moved%(y, x) + size%(code%)
money&(player%) = money&(player%) - ba * size%(code%)
message$ = "Cost:" + STR$(ba * size%(code%)) + " "
END IF
END IF
CASE "F"
IF owner%(y, x) = player% AND fort%(y, x) > 0 THEN
fort%(y, x) = fort%(y, x) - 1
money&(player%) = money&(player%) + sf
message$ = "Income:" + STR$(sf) + " "
END IF
CASE "C"
IF owner%(y, x) = player% AND church%(y, x) > 0 THEN
church%(y, x) = church%(y, x) - 1
money&(player%) = money&(player%) + sc
message$ = "Income:" + STR$(sc) + " "
END IF
CASE "U"
IF owner%(y, x) = player% AND university%(y, x) > 0 THEN
university%(y, x) = university%(y, x) - 1
money&(player%) = money&(player%) + su
message$ = "Income:" + STR$(su) + " "
END IF
CASE "M"
IF owner%(y, x) = player% AND mill%(y, x) > 0 THEN
mill%(y, x) = mill%(y, x) - 1
money&(player%) = money&(player%) + sm
message$ = "Income:" + STR$(sm) + " "
END IF
CASE "N"
IF owner%(y, x) = 0 AND navy%(player%) > 0 THEN
IF seamoved%(player%) + seaarmy%(player%) < navy%(player%) THEN
navy%(player%) = navy%(player%) - 1
money&(player%) = money&(player%) + sn
message$ = "Income:" + STR$(sn) + " "
ELSE
message$ = "Disembark first. "
END IF
END IF
CASE "A"
IF owner%(y, x) = player% AND army%(y, x) > 0 THEN
army%(y, x) = army%(y, x) - 1
money&(player%) = money&(player%) + sa
message$ = "Income:" + STR$(sa) + " "
END IF
CASE "i"
GOSUB info
CASE "s"
GOSUB science
CASE "t"
GOSUB treasury
CASE "d"
GOSUB diplomacy
CASE "E"
GOTO nextturn
CASE "e"
message$ = "'E' instead of 'e'. "
CASE "g"
GOSUB savegame
CASE "h"
GOSUB help
CASE "+"
IF code% < 7 THEN code% = code% + 1
CASE "-"
IF code% > 1 THEN code% = code% - 1
END SELECT
GOTO human
ai:
'------------------------------------------------
IF human% > 0 THEN PRINT name$(player%); "'s turn..."
'-- ai load variables --
OPEN control$(player%) FOR INPUT AS #1
INPUT #1, foodweight
INPUT #1, prodweight
INPUT #1, hateweight
INPUT #1, diplweight
INPUT #1, friendliness
INPUT #1, chance
INPUT #1, trustweight
INPUT #1, remoteweight
INPUT #1, mintrust
INPUT #1, aitrade
INPUT #1, aifriend
INPUT #1, aially
INPUT #1, minmorale
INPUT #1, mintax
FOR i = 1 TO 5
INPUT #1, feardipl(i)
NEXT i
INPUT #1, warmilitary
INPUT #1, peacemilitary
INPUT #1, aibuilding
INPUT #1, aichurch
INPUT #1, aimill
INPUT #1, ainavy
INPUT #1, aiuni
FOR i = 1 TO 6
INPUT #1, aiscience(i)
NEXT i
INPUT #1, landorsea
INPUT #1, planning
INPUT #1, myfactor
INPUT #1, avgfactor
CLOSE
'-- ai tax --
GOSUB countproperties
GOSUB professions
limit = minmorale * (1 - unemployed&(player%) / (population&(player%) + .001))
besttax = 0
FOR try = 1 TO 25
tax(player%) = try / 100
GOSUB morale
IF morale(player%) > limit THEN besttax = try / 100
NEXT try
IF besttax < mintax THEN besttax = mintax
tax(player%) = besttax
GOSUB morale
'-- ai diplomacy --
FOR i = 1 TO players%
value(i) = 0
lostvalue(i) = 0
diplaction%(player%, i) = 0
NEXT i
origvalue = 0
FOR i = 1 TO 15
FOR j = 1 TO 15
value(owner%(i, j)) = value(owner%(i, j)) + foodpot(terrain%(i, j)) * foodweight + prodpot(terrain%(i, j)) * prodweight
IF original%(i, j) = player% THEN
origvalue = origvalue + foodpot(terrain%(i, j)) * foodweight + prodpot(terrain%(i, j)) * prodweight
IF owner%(i, j) <> player% THEN lostvalue(owner%(i, j)) = lostvalue(owner%(i, j)) + foodpot(terrain%(i, j)) * foodweight + prodpot(terrain%(i, j)) * prodweight
END IF
NEXT j
NEXT i
maxvalue = 0
maxcountry = 0
FOR i = 1 TO players%
IF value(i) > maxvalue THEN
maxvalue = value(i)
maxcountry = i
END IF
diplinterest(i) = 0
hate(i) = 0
modifyme = 0
modifytarget = 0
allvalue = 0
enemyvalue = 0
tradevalue = value(player%)
friendvalue = value(player%)
allyvalue = 0
FOR j = 1 TO players%
IF j <> player% AND j <> i THEN diplinterest(i) = diplinterest(i) + (dipl%(player%, j) - 3) * (dipl%(j, i) - 3) / 2 + 3
IF dipl%(player%, j) = 5 THEN modifyme = modifyme + value(j)
IF dipl%(player%, j) = 1 THEN modifyme = modifyme - value(j)
IF dipl%(i, j) = 5 THEN modifytarget = modifytarget + value(j)
IF dipl%(i, j) = 1 THEN modifytarget = modifytarget - value(j)
allvalue = allvalue + value(j)
IF dipl%(player%, j) = 1 THEN enemyvalue = enemyvalue + value(j)
IF dipl%(player%, j) = 3 THEN tradevalue = tradevalue + value(j)
IF dipl%(player%, j) = 4 THEN friendvalue = friendvalue + value(j)
IF dipl%(player%, j) = 5 THEN allyvalue = allyvalue + value(j)
NEXT j
diplinterest(i) = diplinterest(i) / (players% - 2)
IF active% < 3 THEN diplinterest(i) = 2
hate(i) = lostvalue(i) / origvalue
IF dipl%(player%, i) = 4 THEN hate(i) = -lostvalue(i) / origvalue
fear(i) = (value(i) + modifytarget) / (value(player%) + modifyme)
NEXT i
avgvalue = allvalue / players%
target% = 0
min = 999
FOR i = 1 TO players%
diplplan(i) = fear(i) * (1 - hate(i) * hateweight) * (1 + (diplinterest(i) - dipl%(player%, i)) / 10 * diplweight) * (1 - (1 - trust(i)) * trustweight)
IF diplplan(i) < 0 THEN diplplan(i) = 0
IF border%(player%, i) = 0 AND navy%(player%) < soldier&(player%) THEN diplplan(i) = diplplan(i) * soldier&(player%) / (navy%(player%) + .001)
IF border%(player%, i) = 0 THEN diplplan(i) = diplplan(i) * (1 + remoteweight)
diplplan(i) = diplplan(i) * (1 + friendliness) * (1 - chance + RND * 2 * chance) - 1
IF diplplan(i) < min AND i <> player% AND land%(i) > 0 THEN
min = diplplan(i)
target% = i
END IF
NEXT i
overlimit = 0
IF maxvalue > value(player%) * myfactor AND maxvalue > avgvalue * avgfactor THEN
overlimit = 1
IF dipl%(player%, maxcountry) > 2 OR allyvalue > maxvalue / 2 THEN target% = maxcountry
END IF
IF trust(player%) > mintrust THEN diplaction%(player%, target%) = -1
FOR i = 1 TO players%
IF (min > 0 OR money&(player%) < 0 OR enemyvalue > allyvalue) AND (overlimit = 0 OR target% <> i) THEN diplaction%(player%, i) = 1
IF overlimit = 1 AND i <> maxcountry THEN diplaction%(player%, i) = 1
IF dipl%(player%, i) = 2 AND diplaction%(player%, i) > -1 AND diplplan(i) > 0 AND aitrade * (1 - (1 - trust(i)) * trustweight) / (value(player%) / avgvalue) / (tradevalue / avgvalue) * (1 + friendliness) > RND THEN diplaction%(player%, i) = 1
IF dipl%(player%, i) = 3 AND diplaction%(player%, i) > -1 AND diplplan(i) > 0 AND aifriend * (1 - (1 - trust(i)) * trustweight) / (value(player%) / avgvalue) / (friendvalue / avgvalue) * (1 + friendliness) > RND THEN diplaction%(player%, i) = 1
IF dipl%(player%, i) = 4 AND diplaction%(player%, i) > -1 AND diplplan(i) > 0 AND aially * (1 - (1 - trust(i)) * trustweight) / (value(player%) / avgvalue) / (allyvalue / avgvalue) * (1 + friendliness) > RND THEN diplaction%(player%, i) = 1
IF overlimit = 1 AND i = maxcountry AND diplaction%(player%, i) > -1 THEN diplaction%(player%, i) = 0
NEXT i
'-- ai movements --
'- analysing -
seafear = 0
FOR i = 1 TO players%
a = soldier&(player%) / land%(player%) ^ 2 * land%(i) * feardipl(dipl%(player%, i)) * (1 - sea(player%))
IF a > seafear THEN seafear = a
NEXT i
ownmill% = 1
maxrnd = 0
unii = 0
unij = 0
max2rnd = 0
disi = 0
disj = 0
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% AND original%(i, j) = player% AND prodpot(terrain%(i, j)) > mill%(i, j) THEN ownmill% = 0
threat(i, j) = 0
coast = 0
a = 1
IF owner%(i, j) = player% THEN
IF i > 1 AND i < 15 AND j > 1 AND j < 15 THEN a = (dipl%(player%, owner%(i - 1, j)) - 1) * (dipl%(player%, owner%(i + 1, j)) - 1) * (dipl%(player%, owner%(i, j - 1)) - 1) * (dipl%(player%, owner%(i, j + 1)) - 1)
IF original%(i, j) <> player% THEN
threat(i, j) = (population&(player%) / (allfood&(player%) + .001) * foodpot(terrain%(i, j)) / 40) * (1 - morale(player%) ^ 2)
IF threat(i, j) < foodpot(terrain%(i, j)) THEN threat(i, j) = foodpot(terrain%(i, j))
IF threat(i, j) < 1 THEN threat(i, j) = 1
END IF
threat(i, j) = threat(i, j) - army%(i, j) * (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3)
currentrnd = RND
IF original%(i, j) = player% AND currentrnd > maxrnd THEN
maxrnd = currentrnd
unii = i
unij = j
END IF
IF i > 1 THEN
IF owner%(i - 1, j) = 0 THEN
coast = 1
ELSEIF owner%(i - 1, j) <> player% THEN
threat(i, j) = threat(i, j) + army%(i - 1, j) * feardipl(dipl%(player%, owner%(i - 1, j)))
END IF
END IF
IF i < 15 THEN
IF owner%(i + 1, j) = 0 THEN
coast = 1
ELSEIF owner%(i + 1, j) <> player% THEN
threat(i, j) = threat(i, j) + army%(i + 1, j) * feardipl(dipl%(player%, owner%(i + 1, j)))
END IF
END IF
IF j > 1 THEN
IF owner%(i, j - 1) = 0 THEN
coast = 1
ELSEIF owner%(i, j - 1) <> player% THEN
threat(i, j) = threat(i, j) + army%(i, j - 1) * feardipl(dipl%(player%, owner%(i, j - 1)))
END IF
END IF
IF j < 15 THEN
IF owner%(i, j + 1) = 0 THEN
coast = 1
ELSEIF owner%(i, j + 1) <> player% THEN
threat(i, j) = threat(i, j) + army%(i, j + 1) * feardipl(dipl%(player%, owner%(i, j + 1)))
END IF
END IF
IF coast = 1 THEN threat(i, j) = threat(i, j) + seafear
ELSEIF dipl%(owner%(i, j), player%) = 1 THEN
IF i > 1 THEN
current2rnd = RND
IF owner%(i - 1, j) = 0 AND current2rnd > max2rnd THEN
max2rnd = current2rnd
disi = i
disj = j
END IF
END IF
IF i < 15 THEN
current2rnd = RND
IF owner%(i + 1, j) = 0 AND current2rnd > max2rnd THEN
max2rnd = current2rnd
disi = i
disj = j
END IF
END IF
IF j > 1 THEN
current2rnd = RND
IF owner%(i, j - 1) = 0 AND current2rnd > max2rnd THEN
maxrnd = current2rnd
disi = i
disj = j
END IF
END IF
IF j < 15 THEN
current2rnd = RND
IF owner%(i, j + 1) = 0 AND current2rnd > maxrnd THEN
max2rnd = current2rnd
disi = i
disj = j
END IF
END IF
END IF
NEXT j
NEXT i
'- reinforcing and attacking -
maxthreat = 0
threati = 0
threatj = 0
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% THEN
IF threat(i, j) > maxthreat THEN
maxthreat = threat(i, j)
threati = i
threatj = j
END IF
END IF
max = 1
coast = 0
a = 0: ' help neighbouring zone
minforce = 9999
minarmy = 9999
B = 0: ' attack enemy
c = 0: ' concentrate forces next to enemy
excess = INT(-threat(i, j) / (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3)) - 1
IF excess > army%(i, j) THEN excess = army%(i, j)
IF excess >= 1 THEN
IF i > 1 THEN
IF threat(i - 1, j) > max THEN
max = threat(i - 1, j)
a = 1
END IF
force = army%(i - 1, j) * (1 + terdefense(terrain%(i - 1, j)) + fort%(i - 1, j) * .3)
IF dipl%(player%, owner%(i - 1, j)) = 1 AND force < minforce THEN
minforce = force
minarmy = army%(i - 1, j)
B = 1
END IF
IF ed%(i - 1, j) < ed%(i, j) AND owner%(i - 1, j) = player% THEN c = 1
IF owner%(i - 1, j) = 0 THEN coast = 1
END IF
IF i < 15 THEN
IF threat(i + 1, j) > max THEN
max = threat(i + 1, j)
a = 2
END IF
force = army%(i + 1, j) * (1 + terdefense(terrain%(i + 1, j)) + fort%(i + 1, j) * .3)
IF dipl%(player%, owner%(i + 1, j)) = 1 AND force < minforce THEN
minforce = force
minarmy = army%(i + 1, j)
B = 2
END IF
IF ed%(i + 1, j) < ed%(i, j) AND owner%(i + 1, j) = player% THEN c = 2
IF owner%(i + 1, j) = 0 THEN coast = 1
END IF
IF j > 1 THEN
IF threat(i, j - 1) > max THEN
max = threat(i, j - 1)
a = 3
END IF
force = army%(i, j - 1) * (1 + terdefense(terrain%(i, j - 1)) + fort%(i, j - 1) * .3)
IF dipl%(player%, owner%(i, j - 1)) = 1 AND force < minforce THEN
minforce = force
minarmy = army%(i, j - 1)
B = 3
END IF
IF ed%(i, j - 1) < ed%(i, j) AND owner%(i, j - 1) = player% THEN c = 3
IF owner%(i, j - 1) = 0 THEN coast = 1
END IF
IF j < 15 THEN
IF threat(i, j + 1) > max THEN
max = threat(i, j + 1)
a = 4
END IF
force = army%(i, j + 1) * (1 + terdefense(terrain%(i, j + 1)) + fort%(i, j + 1) * .3)
IF dipl%(player%, owner%(i, j + 1)) = 1 AND force < minforce THEN
minforce = force
minarmy = army%(i, j + 1)
B = 4
END IF
IF ed%(i, j + 1) < ed%(i, j) AND owner%(i, j + 1) = player% THEN c = 4
IF owner%(i, j + 1) = 0 THEN coast = 1
END IF
END IF
'first round to help neighbours
d = a
IF max > excess THEN send = excess ELSE send = INT(max)
excess = excess - send
round = 1
movements:
IF send < 1 THEN d = 0
SELECT CASE d
CASE 0
'embark if you don't know where to go
IF round = 2 AND send > 0 AND coast = 1 THEN
emb = navy%(player%) - seaarmy%(player%) - seamoved%(player%)
IF emb > send THEN emb = send
army%(i, j) = army%(i, j) - emb
seamoved%(player%) = seamoved%(player%) + emb
END IF
CASE 1
moved%(i - 1, j) = moved%(i - 1, j) + send
army%(i, j) = army%(i, j) - send
CASE 2
moved%(i + 1, j) = moved%(i + 1, j) + send
army%(i, j) = army%(i, j) - send
CASE 3
moved%(i, j - 1) = moved%(i, j - 1) + send
army%(i, j) = army%(i, j) - send
CASE 4
moved%(i, j + 1) = moved%(i, j + 1) + send
army%(i, j) = army%(i, j) - send
END SELECT
'second round to attack enemy or concentrate forces
round = round + 1
send = excess
d = 0
IF c > 0 THEN d = c
IF B > 0 AND minforce < excess THEN
d = B
send = send + INT(minarmy / (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3))
END IF
IF send >= 1 AND round = 2 THEN GOTO movements
NEXT j
NEXT i
'- embarking -
landenemy% = 0
seaenemy% = 0
enemyvalue = 0
FOR i = 1 TO players%
IF dipl%(player%, i) = 1 THEN
IF border%(player%, i) > 0 THEN landenemy% = landenemy% + 1
IF border%(i, 0) > 0 AND border%(player%, 0) > 0 THEN seaenemy% = seaenemy% + 1
enemyvalue = enemyvalue + value(i)
END IF
NEXT i
IF allyvalue / (enemyvalue + .01) > RND AND landenemy% = 0 AND seaenemy% > 0 AND sea(player%) * active% > RND THEN
FOR i = 1 TO 15
FOR j = 1 TO 15
emb = 0
IF i > 1 THEN
IF owner%(i - 1, j) = 0 THEN emb = 1
END IF
IF i < 15 THEN
IF owner%(i + 1, j) = 0 THEN emb = 1
END IF
IF j > 1 THEN
IF owner%(i, j - 1) = 0 THEN emb = 1
END IF
IF j < 15 THEN
IF owner%(i, j + 1) = 0 THEN emb = 1
END IF
IF owner%(i, j) = player% AND emb = 1 THEN
emb = navy%(player%) - seaarmy%(player%) - seamoved%(player%)
ELSE
emb = 0
END IF
IF army%(i, j) - 5 < emb THEN emb = army%(i, j) - 5
IF emb > 0 THEN
army%(i, j) = army%(i, j) - emb
seamoved%(player%) = seamoved%(player%) + emb
END IF
NEXT j
NEXT i
END IF
'- disembarking -
IF disi > 0 AND disj > 0 AND seaarmy%(player%) > 5 AND seaarmy%(player%) > soldier&(player%) / land%(player%) * 2 THEN
moved%(disi, disj) = seaarmy%(player%)
seaarmy%(player%) = 0
IF human% > 0 THEN
COLOR ownercolor%(player%)
PRINT name$(player%);
COLOR 7
PRINT " disembarks on"; disj; disi
GOSUB press
END IF
END IF
'-- ai money spending --
IF money&(player%) < -population&(player%) / 3 THEN GOSUB debt
IF money&(player%) > 0 THEN
IF enemyvalue > 0 THEN
spend& = INT(money&(player%) * warmilitary)
ELSE
spend& = INT(money&(player%) * peacemilitary)
END IF
GOSUB military
END IF
IF money&(player%) > 0 THEN
IF aibuilding > RND OR morale(player%) < RND THEN
GOSUB building
ELSE
GOSUB developscience
END IF
END IF
nextturn:
'------------------------------------------------
GOSUB countproperties
GOSUB morale
IF human% > 0 THEN CLS
'-- science --
FOR i = 1 TO 6
aa& = INT(science(i, player%) ^ 3 * 1000)
IF sciencemoney&(i) > aa& THEN sciencemoney&(i) = aa&
IF uni%(player%) / 100 > RND AND population&(player%) > 0 THEN sciencemoney&(i) = sciencemoney&(i) + RND * 1000 * (1 + (uni%(player%) / population&(player%) * 50))
IF population&(player%) < 100 THEN
plus = 0
ELSE
plus = sciencemoney&(i) / 10000 / science(i, player%) ^ 3 * (1 + uni%(player%) / population&(player%) * 50)
END IF
IF plus > .3 THEN plus = .3
science(i, player%) = science(i, player%) + plus
IF control$(player%) = "human" AND plus > 0 THEN
PRINT "Your level of "; sciencename$(i); " has increased by:";
PRINT USING "##.###"; plus
GOSUB press
END IF
NEXT i
'-- war --
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) <> 0 THEN
attack = 0
defend = 0
IF owner%(i, j) = player% THEN
army%(i, j) = army%(i, j) + moved%(i, j)
moved%(i, j) = 0
END IF
rebels% = INT(population&(owner%(i, j)) / (allfood&(owner%(i, j)) + .001) * foodpot(terrain%(i, j)) / 20 * RND * morale(original%(i, j)) ^ 2)
IF owner%(i, j) <> player% AND moved%(i, j) > 0 THEN
attack = attack + moved%(i, j) * science(5, player%) * (.9 + RND / 5)
IF human% > 0 THEN
PRINT
PRINT "Location:"; j; i
COLOR ownercolor%(player%)
PRINT name$(player%);
COLOR 7
PRINT " starts an attack against ";
COLOR ownercolor%(owner%(i, j))
PRINT name$(owner%(i, j));
COLOR 7
PRINT " with"; moved%(i, j); "soldiers."
END IF
IF dipl%(player%, owner%(i, j)) > 1 THEN
IF diplaction%(player%, owner%(i, j)) = -1 AND dipl%(player%, owner%(i, j)) = 2 THEN
IF human% > 0 THEN PRINT "...shortly after a declaration of war."
ELSE
IF human% > 0 THEN PRINT "...WITHOUT A DECLARATION OF WAR! (Diplomatic trust: ";
penalty = -2 * ((dipl%(player%, owner%(i, j)) - 1) ^ 2) - 5
trust(player%) = trust(player%) + penalty / 100 + .05
diplaction%(player%, owner%(i, j)) = -1
dipl%(player%, owner%(i, j)) = 2
dipl%(owner%(i, j), player%) = 2
IF human% > 0 THEN PRINT INT(penalty + .5); "%)"
END IF
END IF
IF human% > 0 THEN
PRINT name$(owner%(i, j)); " defends the territory with"; army%(i, j); "soldiers."
PRINT "Defence bonuses:"; INT(terdefense(terrain%(i, j)) * 100 + .5); "% for terrain,"; fort%(i, j) * 30; "% for forts."
END IF
END IF
GOSUB revolt
IF owner%(i, j) <> original%(i, j) AND RND < (revoltbonus / 5 / players%) AND INT(rebels% * (1 - morale(owner%(i, j)) ^ 2)) > 0 AND attack = 0 THEN
attack = rebels% * science(5, original%(i, j)) * revoltbonus * (1 - morale(owner%(i, j)) ^ 2) * (.9 + RND / 5)
IF human% > 0 THEN
PRINT
PRINT "Location:"; j; i; " ";
COLOR ownercolor%(owner%(i, j))
PRINT name$(owner%(i, j));
COLOR 7
PRINT " (Original owner: ";
COLOR ownercolor%(original%(i, j))
PRINT name$(original%(i, j));
COLOR 7
PRINT ")"
PRINT "A rebellion breakes out in the occupied territory:"; INT(attack + .5); "rebels!"
PRINT name$(owner%(i, j)); " defends with"; army%(i, j); "soldiers."
PRINT "Defence bonuses:"; INT(terdefense(terrain%(i, j)) * 100 + .5); "% for terrain,"; fort%(i, j) * 30; "% for forts."
END IF
END IF
IF attack > 0 THEN
defend = army%(i, j) * science(5, owner%(i, j)) * (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3) * (.9 + RND / 5) + .001
IF owner%(i, j) = original%(i, j) THEN
defend = defend + rebels%
army%(i, j) = army%(i, j) + rebels%
IF human% > 0 AND rebels% > 0 THEN PRINT "The defender army is reinforced by"; rebels%; "volunteers."
END IF
IF attack > defend THEN
IF moved%(i, j) = 0 THEN
IF allfood&(player%) < 1 THEN allfood&(player%) = foodpot(terrain%(i, j)) * 2
pop% = INT(population&(player%) * foodpot(terrain%(i, j)) / (allfood&(player%) + .001))
IF human% > 0 THEN
PRINT name$(owner%(i, j)); " loses the fight against the rebels.";
COLOR ownercolor%(original%(i, j))
PRINT " The territory is liberated."
COLOR 7
PRINT "Lost population:"; pop%
GOSUB press
END IF
owner%(i, j) = original%(i, j)
population&(player%) = population&(player%) - pop%
population&(owner%(i, j)) = population&(owner%(i, j)) + pop%
army%(i, j) = INT(attack - defend)
ELSE
IF allfood&(owner%(i, j)) < 1 THEN allfood&(owner%(i, j)) = foodpot(terrain%(i, j)) * 2
pop% = INT(population&(owner%(i, j)) * foodpot(terrain%(i, j)) / (allfood&(owner%(i, j)) + .001))
IF human% > 0 THEN
COLOR ownercolor%(player%)
PRINT name$(player%);
COLOR 7
PRINT " wins the battle, and conqueres the territory."
PRINT "Gained population:"; pop%
GOSUB press
END IF
population&(owner%(i, j)) = population&(owner%(i, j)) - pop%
population&(player%) = population&(player%) + pop%
army%(i, j) = INT(moved%(i, j) * (1 - defend / attack))
moved%(i, j) = 0
owner%(i, j) = player%
END IF
ELSE
IF moved%(i, j) = 0 THEN
IF human% > 0 THEN
PRINT "The guarding forces manage to supress the rebellion."
GOSUB press
END IF
army%(i, j) = INT(army%(i, j) * (1 - attack / defend))
ELSE
IF human% > 0 THEN
PRINT "The attacking forces lose the battle."
GOSUB press
END IF
army%(i, j) = INT(army%(i, j) * (1 - attack / defend))
moved%(i, j) = 0
END IF
END IF
IF defend > 1 AND attack > defend / 4 THEN
a = INT(fort%(i, j) / 2 * RND + .5)
fort%(i, j) = fort%(i, j) - a
IF human% > 0 AND a > 0 THEN
PRINT a; "forts are destroyed in the battle."
GOSUB press
END IF
END IF
END IF
END IF
NEXT j
NEXT i
' sea battles
FOR i = 1 TO players%
IF RND > .9 AND dipl%(player%, i) = 1 AND navy%(i) > 0 AND navy%(player%) > 0 THEN
attack = navy%(player%) * science(5, player%) * science(4, player%) * (.9 + RND / 5)
defend = navy%(i) * science(5, i) * science(4, i) * (.9 + RND / 5)
IF attack > defend THEN
navy%(player%) = INT(navy%(player%) * (1 - (defend / attack) ^ 2 / 3))
navy%(i) = INT(navy%(i) * (1 - 1 / 3))
IF human% > 0 THEN
COLOR ownercolor%(player%)
PRINT
PRINT name$(player%);
COLOR 7
PRINT " wins a naval battle against "; name$(i); "."
IF control$(player%) = "human" THEN PRINT "Losses:"; INT(100 * (defend / attack) ^ 2 / 3); "%"
GOSUB press
END IF
ELSE
navy%(i) = INT(navy%(i) * (1 - (attack / defend) ^ 2 / 3))
navy%(player%) = INT(navy%(player%) * (1 - 1 / 3))
IF human% > 0 THEN
PRINT
PRINT name$(player%); " loses a third of her fleet in a naval battle against ";
COLOR ownercolor%(i)
PRINT name$(i); "."
COLOR 7
GOSUB press
END IF
END IF
IF seamoved%(player%) + seaarmy%(player%) > navy%(player%) THEN
seamoved%(player%) = 0
seaarmy%(player%) = navy%(player%)
END IF
IF seamoved%(i) + seaarmy%(i) > navy%(i) THEN
seamoved%(i) = 0
seaarmy%(i) = navy%(i)
END IF
END IF
seaarmy%(i) = seaarmy%(i) + seamoved%(i)
seamoved%(i) = 0
IF seaarmy%(i) > navy%(i) THEN seaarmy%(i) = navy%(i)
NEXT i
'-- diplomacy --
FOR i = 1 TO players%
dipl%(i, i) = 5
IF land%(i) = 0 THEN
FOR j = 1 TO players%
dipl%(i, j) = 2
dipl%(j, i) = 2
dipl%(i, i) = 5
NEXT j
END IF
IF diplaction%(player%, i) = -1 AND dipl%(player%, i) > 1 AND i <> player% THEN
dipl%(player%, i) = dipl%(player%, i) - 1
dipl%(i, player%) = dipl%(player%, i)
diplaction%(player%, i) = 0
diplaction%(i, player%) = 0
trust(player%) = trust(player%) - .05
IF human% > 0 THEN
PRINT
PRINT name$(player%); " spoils her relationship with "; name$(i); " to: ";
SELECT CASE dipl%(player%, i)
CASE 1
PRINT "war!"
CASE 2
PRINT "neutrality."
CASE 3
PRINT "trade."
CASE 4
PRINT "friendship."
END SELECT
GOSUB press
END IF
IF trust(player%) < 0 THEN trust(player%) = 0
IF dipl%(player%, i) = 1 THEN
FOR j = 1 TO players%
IF dipl%(i, j) = 5 AND j <> i AND dipl%(player%, j) > 1 THEN
IF human% > 0 THEN
PRINT name$(j); ", as an ally of "; name$(i); ", declares war to "; name$(player%); "."
GOSUB press
END IF
dipl%(player%, j) = 1
dipl%(j, player%) = 1
END IF
IF dipl%(player%, j) = 5 AND j <> player% AND dipl%(i, j) > 1 THEN
IF human% > 0 THEN
PRINT name$(j); ", as an ally of "; name$(player%); ", declares war to "; name$(i); "."
GOSUB press
END IF
dipl%(i, j) = 1
dipl%(j, i) = 1
END IF
NEXT j
END IF
END IF
prevent = 0
FOR j = 1 TO players%
IF dipl%(player%, j) = 1 AND dipl%(i, j) = 5 THEN prevent = 1
IF dipl%(player%, j) = 5 AND dipl%(i, j) = 1 THEN prevent = 1
NEXT j
IF diplaction%(player%, i) = 1 AND diplaction%(i, player%) = 1 AND prevent = 0 AND dipl%(player%, i) < 5 THEN
dipl%(player%, i) = dipl%(player%, i) + 1
dipl%(i, player%) = dipl%(player%, i)
diplaction%(player%, i) = 0
diplaction%(i, player%) = 0
IF human% > 0 THEN
PRINT
PRINT name$(player%); " and "; name$(i); " improve their relationship to: ";
SELECT CASE dipl%(player%, i)
CASE 2
PRINT "neutrality."
CASE 3
PRINT "trade."
CASE 4
PRINT "friendship."
CASE 5
PRINT "alliance!"
END SELECT
GOSUB press
END IF
IF dipl%(player%, i) = 5 THEN
FOR j = 1 TO players%
IF dipl%(i, j) = 1 AND player% <> i AND dipl%(player%, j) > 1 THEN
IF human% > 0 THEN
PRINT name$(player%); ", as an ally of "; name$(i); ", declares war to "; name$(j); "."
GOSUB press
END IF
dipl%(player%, j) = 1
dipl%(j, player%) = 1
END IF
IF dipl%(player%, j) = 1 AND i <> player% AND dipl%(i, j) > 1 THEN
IF human% > 0 THEN
PRINT name$(i); ", as an ally of "; name$(player%); ", declares war to "; name$(j); "."
GOSUB press
END IF
dipl%(i, j) = 1
dipl%(j, i) = 1
END IF
NEXT j
END IF
END IF
IF dipl%(player%, i) = 1 THEN
FOR j = 1 TO players%
IF dipl%(player%, j) = 5 AND dipl%(i, j) > 1 AND j <> player% THEN
IF human% > 0 THEN
PRINT
PRINT name$(j); ", as an ally of "; name$(player%); ", declares war to "; name$(i); "."
GOSUB press
END IF
dipl%(i, j) = 1
dipl%(j, i) = 1
END IF
IF dipl%(i, j) = 5 AND dipl%(player%, j) > 1 AND j <> i THEN
IF human% > 0 THEN
PRINT
PRINT name$(j); ", as an ally of "; name$(i); ", declares war to "; name$(player%); "."
GOSUB press
END IF
dipl%(player%, j) = 1
dipl%(j, player%) = 1
END IF
NEXT j
END IF
NEXT i
FOR i = 1 TO 15
FOR j = 1 TO 15
IF dipl%(owner%(i, j), original%(i, j)) = 5 AND owner%(i, j) <> original%(i, j) THEN
IF allfood&(owner%(i, j)) < 1 THEN allfood&(owner%(i, j)) = foodpot(terrain%(i, j)) * 2
pop% = INT(population&(owner%(i, j)) * foodpot(terrain%(i, j)) / allfood&(owner%(i, j)))
population&(owner%(i, j)) = population&(owner%(i, j)) - pop%
population&(original%(i, j)) = population&(original%(i, j)) + pop%
popmoney% = INT(pop% * RND * 3)
money&(owner%(i, j)) = money&(owner%(i, j)) + popmoney%
IF human% > 0 THEN
PRINT
PRINT "Location:"; j; i
PRINT name$(owner%(i, j)); " liberates a territory of her ally, ";
COLOR ownercolor%(original%(i, j))
PRINT name$(original%(i, j)); "!"
COLOR 7
PRINT "The grateful population sends "; popmoney%; "golds to "; name$(owner%(i, j)); "."
GOSUB press
END IF
owner%(i, j) = original%(i, j)
END IF
NEXT j
NEXT i
'-- other variables --
IF trust(player%) <= .99 THEN trust(player%) = trust(player%) + .01
GOSUB countproperties
IF control$(player%) = "human" AND landtrade(player%) > land%(player%) THEN
PRINT
PRINT "Thanks to your diplomatic relations with other empires, you can trade on"
PRINT INT(landtrade(player%) / land%(player%) * 100); "% of the area of your own country."
GOSUB press
END IF
FOR i = 1 TO players%
IF dipl%(player%, i) > 2 AND player% <> i THEN
FOR j = 1 TO 6
IF (RND < ((dipl%(player%, i) - 2) ^ 2) * science(3, player%) / 100) AND science(j, player%) < science(j, i) THEN
a = (science(j, i) - science(j, player%)) / 10
science(j, player%) = science(j, player%) + a
IF control$(player%) = "human" THEN
PRINT
PRINT "By copying an invention from "; name$(i); " your "; sciencename$(j); " develops by:";
PRINT USING "##.###"; a
GOSUB press
END IF
END IF
NEXT j
END IF
NEXT i
GOSUB morale
GOSUB professions
i = player%
GOSUB finances
money&(player%) = money&(player%) + total&
IF control$(player%) = "human" AND human% > 0 THEN
PRINT
PRINT "Change in your treasury:"; total&; "gold"
PRINT
GOSUB press
END IF
'-- reproduction --
allfood&(player%) = INT(allfood&(player%) * science(1, player%) + border%(player%, 0) * (1 + sea(player%)) * science(4, player%))
a = allfood&(player%) * 50 / (population&(player%) + .001)
IF a > 2 THEN a = 2
population&(player%) = INT(population&(player%) * (.9 + (a / 10)))
IF control$(player%) = "human" THEN
IF a > 1 THEN
PRINT "Your empire produced enough food for the population to grow by"; INT((a - 1) * 10); "%."
ELSE
PRINT "There is not enough food in your empire."; INT((1 - a) * 10); "% fell victim of starvation!"
END IF
END IF
IF morale(player%) < 1 THEN
population&(player%) = INT(population&(player%) * (1 - (1 - morale(player%)) ^ 2))
IF control$(player%) = "human" THEN
PRINT INT(((1 - morale(player%)) ^ 2) * 100); "% of the population leaves your land because of discontent."
END IF
END IF
epidemic = 0
IF land%(player%) > 0 THEN epidemic = (RND / 10) * (population&(player%) / 250 / land%(player%)) / science(6, player%)
population&(player%) = INT(population&(player%) * (1 - epidemic))
IF control$(player%) = "human" THEN
PRINT "Epidemics have"; INT(epidemic * 100); "% death toll in the country."
GOSUB press
END IF
IF population&(player%) < 0 THEN population&(player%) = 0
IF population&(player%) = 0 THEN
peasant&(player%) = 0
fisher&(player%) = 0
worker&(player%) = 0
merchant&(player%) = 0
soldier&(player%) = 0
unemployed&(player%) = 0
money&(player%) = 0
END IF
'-- human player eliminated --
IF control$(player%) = "human" THEN
IF land%(player%) = 0 THEN
CLS
PRINT "The last remains of your empire are conquered by the enemy,"
PRINT "so the struggle for hegemony continues without you."
control$(player%) = "default.ai"
GOSUB death
GOSUB press
ELSEIF population&(player%) <= 0 THEN
CLS
PRINT "You have run out of population."
PRINT "Hmmm, a rather funny way of political suicide..."
control$(player%) = "default.ai"
population&(player%) = 0
GOSUB death
GOSUB press
ELSEIF morale(player%) < .33 THEN
CLS
PRINT "The discontent masses don't endure your tyranny any more."
PRINT "A great revolution breaks out and sweeps your evil regime away."
PRINT "The new leader begins with a neutral relationship to all empires."
control$(player%) = "default.ai"
GOSUB neutral
GOSUB death
GOSUB press
END IF
ELSE
IF morale(player%) < .33 THEN
COLOR ownercolor%(player%)
IF human% > 0 THEN
PRINT
PRINT "There is a revolution in "; name$(player%); "!"
COLOR 7
PRINT "The new leader begins with a neutral relationship to all empires."
GOSUB beethoven
GOSUB press
END IF
GOSUB neutral
END IF
END IF
human% = 0
FOR i = 1 TO players%
IF control$(i) = "human" THEN human% = human% + 1
NEXT i
FOR i = 1 TO players%
IF land%(i) = 0 THEN
navy%(i) = 0
money&(i) = 0
population&(i) = 0
peasant&(i) = 0
fisher&(i) = 0
worker&(i) = 0
merchant&(i) = 0
soldier&(i) = 0
seaarmy%(i) = 0
unemployed&(i) = 0
ELSE
IF population&(i) <= 0 THEN population&(i) = allfood&(i) * 50
IF population&(i) <= 0 THEN population&(i) = 1
IF soldier&(i) > population&(i) THEN soldier&(i) = population&(i)
END IF
NEXT i
FOR i = 1 TO 6
sciencemoney&(i) = 0
NEXT i
message$ = "Welcome, Majesty."
IF player% < players% THEN
player% = player% + 1
ELSE
player% = 1
turn% = turn% + 1
revoltnation = INT(RND * players%) + 1
revoltlevel = RND * RND * 10
END IF
FOR i = 1 TO players%
diplaction%(player%, i) = 0
NEXT i
GOSUB spy
IF human% > 0 THEN CLS
GOSUB enemydistance
GOTO choosecontrol
'-----=====GOSUBS=====-----
chooseplayer:
FOR i = 1 TO players%
c$(i) = control$(i)
NEXT i
cprefresh:
LOCATE 12, 1
PRINT "Choose control for the empires."
PRINT : PRINT " Empire / Control Best results Turns Date"
LINE (0, 222)-(640, 222), 7
OPEN "bestturn.txt" FOR INPUT AS #1
FOR i = 1 TO players%
PRINT i; "- "; name$(i); SPC(8 - LEN(name$(i)));
IF c$(i) = "human" THEN COLOR 15
PRINT " / "; c$(i); " "
COLOR 7
INPUT #1, bestname$(i)
INPUT #1, bestturn(i)
INPUT #1, bestcontrol$(i)
INPUT #1, bestdate$(i)
LOCATE (14 + i), 37
PRINT bestcontrol$(i)
LOCATE (14 + i), 55
PRINT bestturn(i)
LOCATE (14 + i), 67
PRINT bestdate$(i)
NEXT i
CLOSE
PRINT : PRINT " 0 - Let the game begin!"
PRINT : PRINT "Press a number."
k$ = ""
WHILE k$ = ""
k$ = INKEY$
WEND
k = VAL(k$)
IF k <= players% THEN
IF c$(k) = "human" THEN
c$(k) = control$(k)
IF c$(k) = "human" THEN c$(k) = "default.ai"
ELSE
c$(k) = "human"
END IF
END IF
IF k$ <> "0" THEN GOTO cprefresh
human% = 0
FOR i = 1 TO players%
IF c$(i) = "human" THEN human% = human% + 1
control$(i) = c$(i)
NEXT i
CLS
RETURN
title:
COLOR 4
PRINT "HEGEMONY 3.0.e Copyright: Akos Ivanyi (21.07.2003)"
COLOR 15
PRINT "============== ivanyiakos@hotmail.com"
COLOR 2
PRINT "The Game of the Middle Ages www.angelfire.com/ego/akos"
COLOR 7
LINE (0, 50)-(640, 50), 7
FOR i = 1 TO 15
FOR j = 1 TO 15
LINE (280 + j * 3, i * 3)-(281 + j * 3, 1 + i * 3), ownercolor%(owner%(i, j)), BF
NEXT j
NEXT i
RETURN
countproperties:
allsea% = 0
allship% = 0
FOR i = 0 TO players%
land%(i) = 0
fo%(i) = 0
chu%(i) = 0
uni%(i) = 0
mil%(i) = 0
allfood&(i) = 0
soldier&(i) = 0
sea(i) = 0
FOR j = 0 TO players%
border%(i, j) = 0
NEXT j
allship% = allship% + navy%(i)
NEXT i
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = 0 THEN allsea% = allsea% + 1
land%(owner%(i, j)) = land%(owner%(i, j)) + 1
fo%(owner%(i, j)) = fo%(owner%(i, j)) + fort%(i, j)
chu%(owner%(i, j)) = chu%(owner%(i, j)) + church%(i, j)
uni%(owner%(i, j)) = uni%(owner%(i, j)) + university%(i, j)
mil%(owner%(i, j)) = mil%(owner%(i, j)) + mill%(i, j)
allfood&(owner%(i, j)) = allfood&(owner%(i, j)) + foodpot(terrain%(i, j))
soldier&(owner%(i, j)) = soldier&(owner%(i, j)) + army%(i, j)
soldier&(player%) = soldier&(player%) + moved%(i, j)
FOR k = 0 TO players%
a = 0
IF i > 1 THEN
IF owner%(i - 1, j) = k THEN a = a + 1
END IF
IF i < 15 THEN
IF owner%(i + 1, j) = k THEN a = a + 1
END IF
IF j > 1 THEN
IF owner%(i, j - 1) = k THEN a = a + 1
END IF
IF j < 15 THEN
IF owner%(i, j + 1) = k THEN a = a + 1
END IF
border%(owner%(i, j), k) = border%(owner%(i, j), k) + a
NEXT k
NEXT j
NEXT i
FOR i = 1 TO players%
IF allsea% = 0 OR allship% = 0 THEN
sea(i) = 0
ELSE
sea(i) = navy%(i) / allship%
END IF
soldier&(i) = soldier&(i) + seaarmy%(i) + seamoved%(i)
IF land%(i) = 0 THEN navy%(i) = 0
NEXT i
FOR i = 1 TO players%
landtrade(i) = 0
FOR j = 1 TO players%
IF dipl%(i, j) > 2 THEN
IF border%(i, j) > 0 THEN
landtrade(i) = landtrade(i) + land%(j)
ELSE
landtrade(i) = landtrade(i) + land%(j) * sea(i)
END IF
END IF
NEXT j
NEXT i
RETURN
professions:
FOR i = 1 TO players%
IF land%(i) > 0 THEN
merchant&(i) = INT(population&(i) / 50 * science(3, i) * landtrade(i) / land%(i))
IF merchant&(i) > population&(i) / 5 THEN merchant&(i) = INT(population&(i) / 5)
worker&(i) = INT(population&(i) / 10 * science(2, i))
IF worker&(i) > population&(i) * .5 THEN worker&(i) = INT(population&(i) * .5)
peasant&(i) = INT((population&(i) - soldier&(i) - merchant&(i) - worker&(i)) / (allfood&(i) * science(1, i) + border%(i, 0) * (1 + sea(i)) * science(4, i) + .0001) * allfood&(i) * science(1, i))
IF peasant&(i) > allfood&(i) * science(1, i) * 80 THEN peasant&(i) = INT(allfood&(i) * science(1, i) * 80)
fisher&(i) = INT(population&(i) - soldier&(i) - merchant&(i) - worker&(i) - peasant&(i))
IF fisher&(i) > border%(i, 0) * (1 + sea(i)) * science(4, i) * 25 THEN fisher&(i) = INT(border%(i, 0) * (1 + sea(i)) * science(4, i) * 25)
unemployed&(i) = population&(i) - soldier&(i) - merchant&(i) - worker&(i) - peasant&(i) - fisher&(i)
IF unemployed&(i) < 0 THEN unemployed&(i) = 0
END IF
NEXT i
RETURN
morale:
FOR i = 1 TO players%
morale(i) = 0
NEXT i
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) <> 0 THEN
pop% = INT(population&(owner%(i, j)) * foodpot(terrain%(i, j)) / (allfood&(owner%(i, j)) + .001))
bonus = church%(i, j) * 20 / (pop% + .001)
IF bonus > 1 THEN bonus = 1
localmorale(i, j) = (1 - tax(owner%(i, j)) * 2) * (1 - unemployed&(owner%(i, j)) / (population&(owner%(i, j)) + .001)) * (1 + bonus) * (.5 + trust(owner%(i, j)) / 2)
IF money&(owner%(i, j)) < 0 THEN localmorale(i, j) = localmorale(i, j) + money&(owner%(i, j)) / 10 / (population&(owner%(i, j)) + .001)
IF localmorale(i, j) > 1 THEN localmorale(i, j) = 1
IF original%(i, j) <> owner%(i, j) THEN localmorale(i, j) = localmorale(i, j) - .1
IF localmorale(i, j) < 0 THEN localmorale(i, j) = 0
morale(owner%(i, j)) = morale(owner%(i, j)) + localmorale(i, j)
END IF
NEXT j
NEXT i
FOR i = 1 TO players%
IF land%(i) = 0 THEN morale(i) = 1 ELSE morale(i) = morale(i) / land%(i)
NEXT i
RETURN
science:
sciencerefresh:
CLS
GOSUB title
LOCATE 7, 1
PRINT "Agricult"
PRINT "Industry"
PRINT "Trade"
PRINT "Sailing"
PRINT "Military"
PRINT "Medicine"
FOR i = 1 TO players%
COLOR ownercolor%(i)
a = 1 + i * 8
LOCATE 5, a
PRINT name$(i)
IF spy%(i) > 0 THEN
FOR j = 1 TO 6
LOCATE (6 + j), a
PRINT INT(science(j, i) * 1000) / 1000;
NEXT j
END IF
NEXT i
LOCATE 14, 1
COLOR 14
PRINT "Your money:"; money&(player%); " "
COLOR 7
PRINT
FOR i = 1 TO 6
aa& = INT(science(i, player%) ^ 3 * 1000)
IF sciencemoney&(i) < aa& THEN COLOR 7 ELSE COLOR 4
PRINT "Spent on "; sciencename$(i); ":"; sciencemoney&(i); " ";
LOCATE 15 + i, 30
PRINT i; "= spend 100; "; CHR$(96 + i); " = spend 1000 (max:"; aa&; ") "
NEXT i
LOCATE 28, 1
COLOR 7
PRINT " Agriculture Industry Trade Sailing Military Medicine"
max = 0
FOR i = 1 TO players%
FOR j = 1 TO 6
IF science(j, i) > max THEN max = science(j, i)
NEXT j
NEXT i
FOR i = 1 TO players%
IF spy%(i) > 0 THEN
FOR j = 1 TO 6
LINE (-50 + j * 100 + i * 5, 430)-(-50 + j * 100 + i * 5, 430 - science(j, i) / max * 90), ownercolor%(i)
NEXT j
END IF
NEXT i
k$ = ""
WHILE k$ = ""
k$ = INKEY$
WEND
SELECT CASE k$
CASE "1" TO "6"
sciencemoney&(VAL(k$)) = sciencemoney&(VAL(k$)) + 100
money&(player%) = money&(player%) - 100
CASE "a" TO "f"
sciencemoney&(ASC(k$) - 96) = sciencemoney&(ASC(k$) - 96) + 1000
money&(player%) = money&(player%) - 1000
CASE ELSE
CLS
RETURN
END SELECT
GOTO sciencerefresh
treasury:
treasuryrefresh:
CLS
GOSUB countproperties
GOSUB professions
GOSUB morale
GOSUB title
LOCATE 5, 1
PRINT "FLOW OF"
PRINT "COINS:"
PRINT
PRINT "Peasants"
PRINT "Fishers"
PRINT "Workers"
PRINT "Merchant"
PRINT "Mills..."
PRINT
PRINT "Interest"
PRINT
PRINT "Forts"
PRINT "Churches"
PRINT "Univers."
PRINT "Navy"
PRINT "Army"
PRINT
PRINT "Total"
PRINT
PRINT
PRINT "TREASURY"
PRINT
PRINT
COLOR ownercolor%(player%)
PRINT "Tax rate:"; INT(tax(player%) * 100 + .5); "% Morale:"; INT(morale(player%) * 100 + .5); "% ";
COLOR 7
PRINT "t = reduce tax T = raise tax"
FOR i = 1 TO players%
GOSUB finances
COLOR ownercolor%(i)
a = 1 + i * 8
LOCATE 5, a
PRINT name$(i)
IF spy%(i) > 0 THEN
LOCATE 8, a
PRINT peas&
LOCATE 9, a
PRINT fish&
LOCATE 10, a
PRINT work&
LOCATE 11, a
PRINT merc&
LOCATE 12, a
PRINT mmil&
LOCATE 14, a
PRINT interest&
LOCATE 16, a
PRINT mfor&
LOCATE 17, a
PRINT mchu&
LOCATE 18, a
PRINT muni&
LOCATE 19, a
PRINT mnav&
LOCATE 20, a
PRINT marm&
LOCATE 22, a
PRINT total&
LOCATE 25, a
PRINT money&(i)
END IF
NEXT i
COLOR 7
k$ = ""
WHILE k$ = ""
k$ = INKEY$
WEND
SELECT CASE k$
CASE "t"
tax(player%) = tax(player%) - .01
IF tax(player%) < 0 THEN tax(player%) = 0
CASE "T"
tax(player%) = tax(player%) + .01
IF tax(player%) > 1 THEN tax(player%) = 1
CASE ELSE
CLS
RETURN
END SELECT
GOTO treasuryrefresh
finances:
peas& = INT(peasant&(i) * tax(i) * morale(i) * science(1, i) * 4)
fish& = INT(fisher&(i) * tax(i) * morale(i) * science(4, i) * 4)
work& = INT(worker&(i) * tax(i) * morale(i) * science(2, i) * 8)
merc& = INT(merchant&(i) * tax(i) * morale(i) * science(3, i) * 16)
mmil& = -INT(mil%(i) * science(2, i) * mm)
IF money&(i) > 0 THEN
interest& = INT(money&(i) * .04)
ELSE
interest& = INT(money&(i) * .12)
END IF
mfor& = -INT(fo%(i) * mf)
mchu& = -INT(chu%(i) * mc)
muni& = -INT(uni%(i) * mu)
mnav& = -INT(navy%(i) * mn)
marm& = -INT(soldier&(i) * ma)
total& = peas& + fish& + work& + merc& + mmil& + interest& + mfor& + mchu& + muni& + mnav& + marm&
RETURN
diplomacy:
change% = 1
diplomacyrefresh:
CLS
GOSUB title
GOSUB countproperties
GOSUB spycost
LOCATE 5, 1
PRINT "Diplomatic relations"
PRINT "--------------------"
LOCATE 10, 1
FOR i = 1 TO players%
COLOR ownercolor%(i)
PRINT name$(i)
NEXT i
COLOR ownercolor%(player%)
PRINT
PRINT "Your"
PRINT "attitude"
PRINT
PRINT "Your"
PRINT "Info"
FOR i = 1 TO players%
COLOR ownercolor%(i)
a = 1 + i * 8
LOCATE 7, a
PRINT "("; i; ")"
LOCATE 8, a
PRINT name$(i)
FOR j = 1 TO players%
LOCATE (9 + j), a
SELECT CASE dipl%(i, j)
CASE 1
PRINT "war"
CASE 2
PRINT "neutr."
CASE 3
PRINT "trade"
CASE 4
PRINT "friend"
CASE 5
PRINT "ally"
END SELECT
LOCATE 21, (a + 2)
IF diplaction%(player%, i) = -1 THEN PRINT "-";
IF diplaction%(player%, i) = 0 THEN PRINT "0";
IF diplaction%(player%, i) = 1 THEN PRINT "+";
LOCATE 24, a
IF spy%(i) = 0 THEN PRINT "none"
IF spy%(i) = 1 THEN PRINT "general"
IF spy%(i) = 2 THEN PRINT "full"
NEXT j
NEXT i
COLOR 7
LOCATE 26, 1
PRINT "1-9 = choose target country (currently: ";
COLOR ownercolor%(change%)
PRINT name$(change%);
COLOR 7
PRINT ")"
PRINT "Change attitude: + = positive, - = negative, 0 = neutral"
PRINT "Spying: g = general info ";
SELECT CASE spy%(change%)
CASE 0
PRINT "("; INT(spycost%(change%) / 2); " gold)";
CASE ELSE
PRINT "(you already have)";
END SELECT
PRINT " f = full info ";
SELECT CASE spy%(change%)
CASE 0
PRINT "("; spycost%(change%); " gold)"
CASE 1
PRINT "("; INT(spycost%(change%) / 2); " gold)"
CASE ELSE
PRINT "(you already have)"
END SELECT
k$ = ""
WHILE k$ = ""
k$ = INKEY$
WEND
SELECT CASE k$
CASE "1" TO "9"
change% = VAL(k$)
CASE "+"
diplaction%(player%, change%) = 1
CASE "0"
diplaction%(player%, change%) = 0
CASE "-"
diplaction%(player%, change%) = -1
CASE "g"
IF spy%(change%) = 0 THEN
money&(player%) = money&(player%) - spycost%(change%) / 2
spy%(change%) = 1
END IF
CASE "f"
IF spy%(change%) = 0 THEN
money&(player%) = money&(player%) - spycost%(change%)
ELSEIF spy%(change%) = 1 THEN
money&(player%) = money&(player%) - spycost%(change%) / 2
END IF
spy%(change%) = 2
CASE ELSE
CLS
RETURN
END SELECT
GOTO diplomacyrefresh
spycost:
FOR i = 1 TO players%
spycost%(i) = INT((5 - dipl%(i, player%)) ^ 2 * 10 * land%(i))
NEXT i
RETURN
spy:
FOR i = 1 TO players%
SELECT CASE dipl%(player%, i)
CASE 1 TO 2
spy%(i) = 0
CASE 3 TO 4
spy%(i) = 1
CASE 5
spy%(i) = 2
END SELECT
NEXT i
RETURN
see:
see% = 0
IF spy%(owner%(y, x)) = 2 THEN see% = 1
IF y > 1 THEN
IF owner%(y - 1, x) = player% THEN see% = 1
END IF
IF y < 15 THEN
IF owner%(y + 1, x) = player% THEN see% = 1
END IF
IF x > 1 THEN
IF owner%(y, x - 1) = player% THEN see% = 1
END IF
IF x < 15 THEN
IF owner%(y, x + 1) = player% THEN see% = 1
END IF
IF owner%(y, x) = 0 THEN see% = 0
RETURN
press:
WHILE INKEY$ = "": WEND
RETURN
savegame:
save$ = "save" + RIGHT$(STR$(save%), LEN(STR$(save%)) - 1) + ".scn"
OPEN save$ FOR OUTPUT AS #1
PRINT #1, players%
PRINT #1, player%
PRINT #1, turn%
FOR i = 1 TO 6
PRINT #1, sciencemoney&(i)
NEXT i
FOR i = 1 TO players%
PRINT #1, name$(i)
PRINT #1, control$(i)
PRINT #1, population&(i)
PRINT #1, money&(i)
PRINT #1, navy%(i)
PRINT #1, seaarmy%(i)
PRINT #1, seamoved%(i)
PRINT #1, tax(i)
PRINT #1, trust(i)
FOR j = 1 TO 6
PRINT #1, science(j, i)
NEXT j
FOR j = 1 TO players%
PRINT #1, dipl%(i, j)
NEXT j
FOR j = 1 TO players%
PRINT #1, diplaction%(i, j)
NEXT j
NEXT i
FOR k = 1 TO 9
FOR i = 1 TO 15
FOR j = 1 TO 15
SELECT CASE k
CASE 1
PRINT #1, owner%(i, j);
CASE 2
PRINT #1, original%(i, j);
CASE 3
PRINT #1, terrain%(i, j);
CASE 4
PRINT #1, fort%(i, j);
CASE 5
PRINT #1, church%(i, j);
CASE 6
PRINT #1, university%(i, j);
CASE 7
PRINT #1, mill%(i, j);
CASE 8
PRINT #1, army%(i, j);
CASE 9
PRINT #1, moved%(i, j);
END SELECT
NEXT j
PRINT #1,
NEXT i
NEXT k
CLOSE
message$ = "Saved as: " + save$
save% = save% + 1
RETURN
help:
helprefresh:
CLS
GOSUB title
LOCATE 6, 1
PRINT "HELP"
PRINT "----"
PRINT "1 - About the game"
PRINT "2 - How to play?"
PRINT "3 - Money matters (income, costs, investments)"
PRINT "4 - Professions"
PRINT "5 - Science and development"
PRINT "6 - Diplomacy"
PRINT "7 - Military and war"
PRINT "8 - Other things to know..."
PRINT "9 - Back to the game"
k = 0
WHILE k = 0
k = VAL(INKEY$)
WEND
CLS
SELECT CASE k
CASE 1
help$ = "about.hlp"
CASE 2
help$ = "how.hlp"
CASE 3
help$ = "money.hlp"
CASE 4
help$ = "jobs.hlp"
CASE 5
help$ = "science.hlp"
CASE 6
help$ = "dipl.hlp"
CASE 7
help$ = "military.hlp"
CASE 8
help$ = "other.hlp"
CASE 9
CLS
RETURN
END SELECT
IF k <> 9 THEN
linesmax = 0
OPEN help$ FOR INPUT AS #1
DO UNTIL EOF(1)
LINE INPUT #1, memo$
linesmax = linesmax + 1
LOOP
CLOSE
memo$ = ""
upper = 1: lower = 25
hscroll:
lines = 0
CLS
LOCATE 1, 1
OPEN help$ FOR INPUT AS #1
DO UNTIL EOF(1)
lines = lines + 1
LINE INPUT #1, text$
IF lines >= upper AND lines <= lower THEN PRINT text$
IF lines > lower THEN EXIT DO
LOOP
CLOSE
LOCATE 28, 1
PRINT "Possible keys: Page up, Page down, Arrow up, Arrow down, Escape..."
LINE (0, 420)-(640, 420), ownercolor%(player%)
waitforkey:
nothing = 0
k$ = INKEY$
IF k$ = (CHR$(0) + "H") THEN
IF upper > 1 THEN
upper = upper - 1
lower = lower - 1
GOTO hscroll
END IF
ELSEIF k$ = (CHR$(0) + "P") THEN
IF lower < linesmax THEN
upper = upper + 1
lower = lower + 1
GOTO hscroll
END IF
ELSEIF k$ = (CHR$(0) + CHR$(73)) THEN
upper = upper - 24
lower = lower - 24
IF upper < 1 THEN upper = 1
IF lower < 25 THEN lower = 25
ELSEIF k$ = (CHR$(0) + CHR$(81)) THEN
upper = upper + 24
lower = lower + 24
IF upper > linesmax - 24 THEN upper = linesmax - 24
IF lower > linesmax THEN lower = linesmax
ELSE
nothing = 1
END IF
IF k$ = CHR$(27) THEN
GOTO helprefresh
ELSEIF nothing = 1 THEN
GOTO waitforkey
ELSE
GOTO hscroll
END IF
END IF
GOTO helprefresh
info:
CLS
GOSUB countproperties
GOSUB professions
GOSUB morale
GOSUB title
LOCATE 7, 1
PRINT "Land"
PRINT "Sea"
PRINT "Popul."
PRINT "Money"
PRINT : PRINT "Tax"
PRINT "Morale"
PRINT "Trust"
PRINT : PRINT "Forts"
PRINT "Church"
PRINT "Univer."
PRINT "Mills"
PRINT "Ships"
PRINT : PRINT "Peasant"
PRINT "Fisher"
PRINT "Worker"
PRINT "Merchant"
PRINT "Soldier"
COLOR 8
PRINT "Embarked"
COLOR 7
PRINT "Unempl."
FOR i = 1 TO players%
COLOR ownercolor%(i)
a = 1 + i * 8
LOCATE 5, a
PRINT name$(i)
LOCATE 7, a
PRINT land%(i)
IF spy%(i) > 0 THEN
LOCATE 8, a
PRINT INT(sea(i) * 100 + .5); "%"
LOCATE 9, a
PRINT population&(i)
LOCATE 10, a
PRINT money&(i)
LOCATE 12, a
PRINT INT(tax(i) * 100 + .5); "%"
LOCATE 13, a
PRINT INT(morale(i) * 100 + .5); "%"
END IF
LOCATE 14, a
PRINT INT(trust(i) * 100 + .5); "%"
IF spy%(i) > 0 THEN
LOCATE 16, a
PRINT fo%(i)
LOCATE 17, a
PRINT chu%(i)
LOCATE 18, a
PRINT uni%(i)
LOCATE 19, a
PRINT mil%(i)
LOCATE 20, a
PRINT navy%(i)
LOCATE 22, a
PRINT peasant&(i)
LOCATE 23, a
PRINT fisher&(i)
LOCATE 24, a
PRINT worker&(i)
LOCATE 25, a
PRINT merchant&(i)
LOCATE 26, a
PRINT soldier&(i)
LOCATE 27, a
PRINT seaarmy%(i) + seamoved%(i)
LOCATE 28, a
PRINT unemployed&(i)
END IF
NEXT i
GOSUB press
CLS
RETURN
bye:
CLS
LOCATE 14, 24
PRINT "Would you like to play a new game?"
k$ = INKEY$
WHILE k$ <> "y" AND k$ <> "n"
k$ = INKEY$
WEND
IF k$ = "y" THEN GOTO opening:
CLS
COLOR (RND * 14 + 1)
LOCATE RND * 28 + 1, RND * 74 + 1
PRINT "BYE!"
GOSUB dragnet
SLEEP 1
SYSTEM
END
aicombat:
IF active% = 1 THEN GOTO victory
IF land%(player%) = 0 THEN
WHILE land%(player%) = 0
IF player% < players% THEN
player% = player% + 1
ELSE
player% = 1
turn% = turn% + 1
END IF
WEND
END IF
LINE (30, 400)-(110, 100), 0, BF
LINE (510, 400)-(590, 100), 0, BF
LOCATE 1, 1
GOSUB title
GOSUB drawmap
LOCATE 5, 35
PRINT "AI COMBAT"
LOCATE 6, 25
PRINT "Turn:"; turn%
LOCATE 6, 45
COLOR ownercolor%(player%)
PRINT name$(player%); " "
COLOR 7
maxprop& = 0
maxsc = 0
FOR i = 1 TO players%
property&(i) = fo%(i) * BF + chu%(i) * bc + uni%(i) * bu + mil%(i) * bm + navy%(i) * bn + soldier&(i) * ba + money&(i)
level(i) = 0
FOR j = 1 TO 6
level(i) = level(i) + science(j, i)
NEXT j
level(i) = level(i) / 6
IF property&(i) > maxprop& THEN maxprop& = property&(i)
IF level(i) > maxsc THEN maxsc = level(i)
NEXT i
FOR i = 1 TO players%
LINE (20 + i * 10, 400)-(20 + i * 10, 400 - property&(i) / maxprop& * 300), ownercolor%(i)
LINE (500 + i * 10, 400)-(500 + i * 10, 400 - level(i) / maxsc * 300), ownercolor%(i)
NEXT i
LOCATE 27, 1
PRINT "Value of properties Average science level"
LOCATE 27, 35
PRINT save$
LOCATE 6, 1
PRINT " max ="; maxprop&; "gold "
LOCATE 6, 63
PRINT " max ="; INT(maxsc * 1000) / 1000; " "
LOCATE 28, 21
PRINT "n = next player N = next turn"
LOCATE 29, 21
PRINT "s = save q = quit";
IF turn% < nextturn THEN GOTO ai
k$ = INKEY$
WHILE k$ <> "n" AND k$ <> "N" AND k$ <> "s" AND k$ <> "q"
k$ = INKEY$
WEND
nextturn = 0
IF k$ = "N" THEN nextturn = turn% + 1
IF k$ = "n" OR k$ = "N" THEN GOTO ai
IF k$ = "s" THEN GOSUB savegame
IF k$ = "q" THEN GOTO bye
GOTO aicombat
victory:
FOR i = 1 TO players%
IF land%(i) > 0 THEN winner% = i
NEXT i
CLS
GOSUB title
GOSUB drawmap
LOCATE 14, 4
PRINT "HEGEMONY!!!"
PRINT " -----------"
LOCATE 14, 61
PRINT "HEGEMONY!!!"
LOCATE 15, 61
PRINT "-----------"
LOCATE 5, 1
COLOR 15
PRINT " Eternal glory to the victorious leader of "; name$(winner%); ", the most"
PRINT " magnificent emperor in history, who brought us unity, peace and wealth!"
LOCATE 26, 1
COLOR 8
PRINT " (The vicious oppressor shall burn in the flames of hell forever, for all"
PRINT " the sorrow and misery he caused us!)"
GOSUB organ
GOSUB press
OPEN "bestturn.txt" FOR INPUT AS #1
FOR i = 1 TO players%
INPUT #1, bestname$(i)
INPUT #1, bestturn(i)
INPUT #1, bestcontrol$(i)
INPUT #1, bestdate$(i)
NEXT i
CLOSE
IF bestturn(winner%) >= turn% THEN
bestname$(winner%) = name$(winner%)
bestturn(winner%) = turn%
bestcontrol$(winner%) = control$(winner%)
bestdate$(winner%) = DATE$
OPEN "bestturn.txt" FOR OUTPUT AS #1
FOR i = 1 TO players%
WRITE #1, bestname$(i), bestturn(i), bestcontrol$(i), bestdate$(i)
NEXT i
CLOSE
END IF
GOTO bye
debt:
FOR i = 1 TO players%
diplaction%(player%, i) = 1
NEXT i
money&(player%) = money&(player%) + sn * navy%(player%)
navy%(player%) = 0
IF money&(player%) < 0 THEN
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% AND threat(i, j) = (-1) * army%(i, j) * (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3) THEN
money&(player%) = money&(player%) + sf * fort%(i, j)
fort%(i, j) = 0
END IF
IF owner%(i, j) = player% AND army%(i, j) > 1 THEN
a = INT(army%(i, j) / 10)
IF enemyvalue = 0 THEN a = a * 3
IF a = 0 AND army%(i, j) > 1 THEN a = 1
army%(i, j) = army%(i, j) - a
money&(player%) = money&(player%) + sa * a
END IF
IF owner%(i, j) = player% AND university%(i, j) > 0 THEN
IF original%(i, j) <> player% OR RND < .5 THEN
university%(i, j) = university%(i, j) - 1
money&(player%) = money&(player%) + su
END IF
END IF
NEXT j
NEXT i
END IF
RETURN
military:
i = player%
GOSUB finances
IF total& < 0 THEN RETURN
IF RND > landorsea AND sea(player%) < .6 AND (navy%(player%) < (10 * (1 - landorsea) * soldier&(player%)) OR sea(player%) < (1 / active%)) AND landenemy% = 0 THEN
'sea forces
'effects of a 10000 gold invention: a=navy, b=sailing, c=military
a = 10000 / (bn + planning * mn) * science(4, player%) * science(5, player%)
B = (1 + uni%(player%) / (population&(player%) + .001) * 50) / (science(4, player%) ^ 3) * navy%(player%) * science(5, player%)
c = (1 + uni%(player%) / (population&(player%) + .001) * 50) / (science(5, player%) ^ 3) * navy%(player%) * science(4, player%)
IF a > B AND a > c THEN
d = INT(spend& / bn)
navy%(player%) = navy%(player%) + d
money&(player%) = money&(player%) - d * bn
ELSEIF B > a AND B > c THEN
d = INT(science(4, player%) ^ 3 * 1000)
IF spend& < d THEN d = spend&
sciencemoney&(4) = d
money&(player%) = money&(player%) - d
ELSE
d = INT(science(5, player%) ^ 3 * 1000)
IF spend& < d THEN d = spend&
sciencemoney&(5) = d
money&(player%) = money&(player%) - d
END IF
ELSE
'land forces
'effects of a 10000 gold invention: a=forts, b=soldiers, c=military
a = 10000 / (BF + planning * mf) * .3 * soldier&(player%) * science(5, player%)
B = 10000 / (ba + planning * ma) * (1 + fo%(player%) * .3) * science(5, player%)
c = (1 + uni%(player%) / (population&(player%) + .001) * 50) / (science(5, player%) ^ 3) * (1 + fo%(player%) * .3) * soldier&(player%)
IF c > a AND c > B THEN
'develop military
d = INT(science(5, player%) ^ 3 * 1000)
IF spend& < d THEN d = spend&
sciencemoney&(5) = d
money&(player%) = money&(player%) - d
ELSE
'build forts
FOR i = 1 TO 15
FOR j = 1 TO 15
a = 10000 / (BF + planning * mf) * .3 * army%(i, j)
B = 10000 / (ba + planning * ma) * (1 + fort%(i, j) * .3)
IF a > B AND owner%(i, j) = player% AND threat(i, j) > 0 AND spend& >= BF THEN
fort%(i, j) = fort%(i, j) + 1
money&(player%) = money&(player%) - BF
spend& = spend& - BF
END IF
NEXT j
NEXT i
'build army
IF maxthreat > 0 AND spend& >= ba THEN
IF maxthreat > (spend& / ba) THEN d = INT(spend& / ba) ELSE d = INT(maxthreat)
e& = population&(player%) - soldier&(player%)
IF e& < d THEN d = e&
army%(threati, threatj) = army%(threati, threatj) + d
money&(player%) = money&(player%) - d * ba
spend& = spend& - d * ba
END IF
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% AND threat(i, j) > 0 AND spend& >= ba THEN
IF maxthreat > spend& / ba THEN d = INT(spend& / ba) ELSE d = INT(maxthreat)
army%(i, j) = army%(i, j) + d
money&(player%) = money&(player%) - d * ba
spend& = spend& - d * ba
END IF
NEXT j
NEXT i
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% AND spend& >= ba THEN
d = INT(spend& / ba / land%(player%)) + 1
army%(i, j) = army%(i, j) + d
money&(player%) = money&(player%) - d * ba
spend& = spend& - d * ba
END IF
NEXT j
NEXT i
END IF
END IF
RETURN
building:
spendchurch& = money&(player%) * aichurch
spendmill& = money&(player%) * aimill
spendnavy& = money&(player%) * ainavy
round = 0
buildmore:
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% THEN
IF (ownmill% = 0 AND original%(i, j) = player%) OR ownmill% = 1 THEN
IF mill%(i, j) < prodpot(terrain%(i, j)) AND spendmill& >= bm THEN
mill%(i, j) = mill%(i, j) + 1
spendmill& = spendmill& - bm
money&(player%) = money&(player%) - bm
END IF
END IF
maxmor = .5 + trust(player%) / 2
IF money&(player%) < 0 THEN maxmor = maxmor + money&(player%) / 10 / population&(player%)
IF original%(i, j) <> player% THEN maxmor = maxmor - .1
IF maxmor < 0 THEN maxmor = 0
a = (1 - localmorale(i, j)) * 2
IF original%(i, j) <> player% THEN
IF localmorale(i, j) + .005 < maxmor THEN
a = 1
ELSE
a = 0
END IF
END IF
IF RND < a THEN
IF spendchurch& >= bc THEN
church%(i, j) = church%(i, j) + 1
spendchurch& = spendchurch& - bc
money&(player%) = money&(player%) - bc
END IF
END IF
END IF
NEXT j
NEXT i
round = round + 1
IF (spendmill& > bm OR spendchurch& > bc) AND round < 5 THEN GOTO buildmore
i = player%
GOSUB finances
IF sea(player%) < .6 AND (navy%(player%) < (10 * (1 - landorsea) * soldier&(player%)) OR sea(player%) < (1 / active%)) AND total& > 0 THEN
a = INT(spendnavy& / bn)
navy%(player%) = navy%(player%) + a
money&(player%) = money&(player%) - a * bn
END IF
RETURN
developscience:
IF aiuni > RND THEN
IF unii > 0 AND unij > 0 THEN
a = INT(money&(player%) / bu)
university%(unii, unij) = university%(unii, unij) + a
money&(player%) = money&(player%) - a * bu
END IF
ELSE
FOR i = 1 TO 6
aa& = INT(science(i, player%) ^ 3 * 1000) - sciencemoney&(i)
bb& = INT(money&(player%) * aiscience(i))
IF unemployed&(player%) > 6 AND i = 6 THEN bb& = 0
IF bb& > aa& THEN
sciencemoney&(i) = sciencemoney&(i) + aa&
money&(player%) = money&(player%) - aa&
ELSE
sciencemoney&(i) = sciencemoney&(i) + bb&
money&(player%) = money&(player%) - bb&
END IF
NEXT i
END IF
RETURN
drawmap:
FOR i = 1 TO 15
FOR j = 1 TO 15
LINE (130 + j * 20, 80 + i * 20)-(150 + j * 20, 100 + i * 20), 0, B
LINE (131 + j * 20, 81 + i * 20)-(149 + j * 20, 99 + i * 20), tercolor(terrain%(i, j)), BF
IF owner%(i, j) <> 0 THEN LINE (145 + j * 20, 95 + i * 20)-(150 + j * 20, 100 + i * 20), 0, B
IF owner%(i, j) <> 0 THEN LINE (146 + j * 20, 96 + i * 20)-(150 + j * 20, 100 + i * 20), ownercolor%(owner%(i, j)), BF
NEXT j
NEXT i
RETURN
neutral:
FOR i = 1 TO players%
IF i <> player% THEN
dipl%(player%, i) = 2
dipl%(i, player%) = 2
END IF
NEXT i
IF money&(player%) < 0 THEN
money&(player%) = money&(player%) + sn * navy%(player%)
navy%(player%) = 0
END IF
IF money&(player%) < 0 THEN
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = player% THEN
army%(i, j) = INT(army%(i, j) / 2)
money&(player%) = money&(player%) + sa * army%(i, j)
university%(i, j) = INT(university%(i, j) / 2)
money&(player%) = money&(player%) + su * university%(i, j)
fort%(i, j) = INT(fort%(i, j) / 2)
money&(player%) = money&(player%) + sf * fort%(i, j)
IF church%(i, j) > 5 THEN church%(i, j) = church%(i, j) - 1
money&(player%) = money&(player%) + sc
END IF
NEXT j
NEXT i
END IF
IF money&(player%) < 0 THEN money&(player%) = INT(RND * 1000)
GOSUB countproperties
population&(player%) = allfood&(player%) * 50
RETURN
revolt:
revoltbonus = 1
a = original%(i, j)
IF i > 1 THEN
B = owner%(i - 1, j)
c = original%(i - 1, j)
IF a = c AND B = c THEN revoltbonus = revoltbonus + 1
END IF
IF i < 15 THEN
B = owner%(i + 1, j)
c = original%(i + 1, j)
IF a = c AND B = c THEN revoltbonus = revoltbonus + 1
END IF
IF j > 1 THEN
B = owner%(i, j - 1)
c = original%(i, j - 1)
IF a = c AND B = c THEN revoltbonus = revoltbonus + 1
END IF
IF j < 15 THEN
B = owner%(i, j + 1)
c = original%(i, j + 1)
IF a = c AND B = c THEN revoltbonus = revoltbonus + 1
END IF
IF revoltnation = original%(i, j) THEN revoltbonus = revoltbonus + revoltlevel
RETURN
enemydistance:
FOR i = 1 TO 15
FOR j = 1 TO 15
IF owner%(i, j) = 0 THEN ed%(i, j) = 0 ELSE ed%(i, j) = 99
IF i > 1 THEN
IF owner%(i - 1, j) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1
IF ed%(i, j) > dipl%(owner%(i - 1, j), owner%(i, j)) - 1 AND owner%(i - 1, j) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i - 1, j), owner%(i, j)) - 1
END IF
IF i < 15 THEN
IF owner%(i + 1, j) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1
IF ed%(i, j) > dipl%(owner%(i + 1, j), owner%(i, j)) - 1 AND owner%(i + 1, j) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i + 1, j), owner%(i, j)) - 1
END IF
IF j > 1 THEN
IF owner%(i, j - 1) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1
IF ed%(i, j) > dipl%(owner%(i, j - 1), owner%(i, j)) - 1 AND owner%(i, j - 1) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i, j - 1), owner%(i, j)) - 1
END IF
IF j < 15 THEN
IF owner%(i, j + 1) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1
IF ed%(i, j) > dipl%(owner%(i, j + 1), owner%(i, j)) - 1 AND owner%(i, j + 1) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i, j + 1), owner%(i, j)) - 1
END IF
NEXT j
NEXT i
FOR k = 1 TO 9
FOR i = 1 TO 15
FOR j = 1 TO 15
IF i > 1 THEN
IF ed%(i - 1, j) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i - 1, j) + 1
END IF
IF i < 15 THEN
IF ed%(i + 1, j) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i + 1, j) + 1
END IF
IF j > 1 THEN
IF ed%(i, j - 1) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i, j - 1) + 1
END IF
IF j < 15 THEN
IF ed%(i, j + 1) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i, j + 1) + 1
END IF
NEXT j
NEXT i
NEXT k
RETURN
beethoven:
'Beethoven's Fifth
PLAY "T180 o2 P2 P8 L8 GGG L2 E-"
PLAY "P24 P8 L8 FFF L2 D"
RETURN
death:
'Dead March from Saul
PLAY "l8t200mlo1c..p16c.p32cp32c.p8e..dp32d.cp32c.o0bo1c..mn"
RETURN
dragnet:
'Dragnet
PLAY "t255o2l2cl8dd#p8cp8l2f#"
RETURN
organ:
PLAY "T110ML"
PLAY "O2e-16c16e-16g16O3c16e-16d16c16O2b16g16b16O3d16g16f16e-16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "O3e-16c16e-16g16O4c16e-16d16c16d16c16O3b16a16g16f16e-16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "O3e-16c16e-16g16O4c16e-16d16c16O3b16g16b16O4d16g16f16e-16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "O4e-16c16e-16g16O5c16e-16d16c16d16c16O4b16a16g16f16e-16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "O4e-16c16O3g16e-16c16O5c16O4g16e-16a-16O2f16a16O3c16f16a-16"
PLAY "O4c16e-16"
IF INKEY$ <> "" THEN RETURN
PLAY "O4d16O3b-16f16d16O2b-16O4b-16f16d16g16O2e-16g16b-16O3e-16g16b-16"
PLAY "O4d16"
IF INKEY$ <> "" THEN RETURN
PLAY "O4c16O3a16g+16a16O4c16O3a16g+16a16O4e-16c16O3g16a16O4e-16c16O3"
PLAY "g16a16"
IF INKEY$ <> "" THEN RETURN
PLAY "O4d16c16O3f+16a16O4a16c16O3f+16a16O4f+16c16O3d16a16O4c16O3a16"
PLAY "f+16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "O3b-16O1g16b-16O2d16g16b-16a16g16f+16d16f+16a16O3d16c16O2b-16a16"
IF INKEY$ <> "" THEN RETURN
PLAY "O2b-16g16b-16O3d16g16b-16a16g16a16g16f+16e16d16c16O2b-16a16"
IF INKEY$ <> "" THEN RETURN
PLAY "O2b-16g16b-16O3d16g16b-16a16g16f+16d16f+16a16O4d16c16O3b-16a16"
IF INKEY$ <> "" THEN RETURN
PLAY "O3b-16g16b-16O4d16g16b-16a16g16a16g16f+16e16d16c16O3b-16a16"
IF INKEY$ <> "" THEN RETURN
PLAY "O3b-16g16b-16O4d16g16d16O3b-16g16O2f16O4g16d16O3b16g16b16O4d16g16"
IF INKEY$ <> "" THEN RETURN
PLAY "o4c16o3g16o4g16o3g16o4c16o3g16o4g16o3g16b16g16o4f16o3g16b16g16"
IF INKEY$ <> "" THEN RETURN
PLAY "o4f16o3g16"
PLAY "o4e-16c16e-16g16o5c16o4g16e-16c16o2b-16o5c16o4g16e16c16e16g16"
IF INKEY$ <> "" THEN RETURN
PLAY "o5c16"
PLAY "o4f16c16o5c16o4c16f16c16o5c16o4c16e16c16b-16c16e16c16b-16c16"
IF INKEY$ <> "" THEN RETURN
PLAY "o2a-16f16a-16o3c16f16a-16g16f16g16f16e16d16c16o2b-16a-16g16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3a-16f16a-16o4c16f16a-16g16f16g16f16e16d16c16o3b-16a-16g16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3a-16o4f16c16o3a-16f16o4c16o3a-16f16c16a-16f16c16o2a-16o3f16"
PLAY "c16o2a-16"
IF INKEY$ <> "" THEN RETURN
PLAY "o2d-2o4a-16f16e16f16g16f16e16f16"
PLAY "o1b2o5d16o4f16g16a-16g16f16e-16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "o4e-16g16o5c16o4g16b-16a-16g16f16e-4d4"
IF INKEY$ <> "" THEN RETURN
PLAY "o4c16o3g16o4g16o3g16o4c16o3g16o4g16o3g16b16g16o4f16o3g16b16g16"
PLAY "o4g16o3g16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3b-16g16o4e16o3g16b-16g16o4e16o3g16a16o4e-16o5c16o4e-16o3a16"
PLAY "o4e-16o5c16o4e-16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3a-16f16o4d16o3f16a-16f16o4d16o3f16g16o4d-16b-16d-16o3g16o4d-16"
PLAY "b-16d-16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3f+16e-16o4c16o3e-16f+16e-16o4c16o3e-16e-16o4c16o5c16o4c16o3e-16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3e-16o4c16e-16g16o5c16g16e-16c16g16e-16c16o3g16o4f16d16o3b16f16"
IF INKEY$ <> "" THEN RETURN
PLAY "o3e-16c16e-16g16o4c16e-16d16c16d16c16o3b16a16g16f16e-16d16"
IF INKEY$ <> "" THEN RETURN
PLAY "o4e-16c16e-16g16o5c16e-16d16o4b16o5c16o4g16e-16d16c16o3g16e-16d16"
PLAY "o3c16.p4"
RETURN
eye:
DATA 16,16,16,16,00,00,00,00,16,16,16,16
DATA 16,16,00,00,00,15,15,00,00,00,16,16
DATA 16,00,00,15,15,06,06,15,15,00,00,16
DATA 00,00,15,15,06,06,06,06,15,15,00,00
DATA 16,00,00,15,06,06,06,06,15,00,00,16
DATA 16,16,00,00,00,06,06,00,00,00,16,16
DATA 16,16,16,16,00,00,00,00,16,16,16,16
'-----=====END OF GAME=====-----
FUNCTION fixcolor (col AS INTEGER)
SELECT CASE col
CASE 1
fixcolor = 4
CASE 3
fixcolor = 6
CASE 4
fixcolor = 1
CASE 6
fixcolor = 3
CASE 9
fixcolor = 12
CASE 11
fixcolor = 14
CASE 12
fixcolor = 9
CASE 14
fixcolor = 11
CASE ELSE
fixcolor = col
END SELECT
END FUNCTION
View git blame Copy permalink