mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-08 11:10:16 +00:00
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
2895 lines
76 KiB
QBasic
2895 lines
76 KiB
QBasic
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
|
|
|