Author Topic: Beyond Sol (Read 11531 times)

romichess · « **Reply #15 on:** December 16, 2019, 11:54:16 pm »

It is enough better to make a new post.

Press:
esc to quit
p to pause/unpause
t toggles star name and production value
n for new game

Click:
on a blue planet then any planet to send ships
on numbers to select number of ships
on OK to send ships
on QUIT to cancel send
on CLEAR to start over selecting number of ships
can only click on second planet if range line is green
if range line is red second planet is out of range

I think that is all actions for now.

Code: QB64: [Select]

TYPE stars
    n AS STRING * 10 '                 Name of star
    x AS INTEGER '                     x-position
    y AS INTEGER '                     y-position
    o AS INTEGER '                     Owner
    c AS INTEGER '                     Color
    s AS INTEGER '                     Size
    t AS LONG '                     (Type of planetary system; terran, frozen, radiated, toxic, etc.) Ships
    p AS INTEGER '                     (Population) For now ships produced per turn
END TYPE
 
TYPE FLEETS
    t AS LONG
    x1 AS INTEGER
    y1 AS INTEGER
    x2 AS INTEGER
    y2 AS INTEGER
    o AS INTEGER
    d AS INTEGER
END TYPE
 
'DECLARE SUB NewGame
'DECLARE SUB PaintStars
'DECLARE SUB StarNames
'DECLARE SUB ShowPanel (i)
'DECLARE SUB Identify (x, y)
'DECLARE SUB PaintBackground
'DECLARE SUB GetInput
 
' Global variables shared because they are needed in more than one routine
DIM SHARED sw AS INTEGER '             Screen Width
DIM SHARED sh AS INTEGER '             Screen Height
DIM SHARED sww AS INTEGER '            Screen Width Wide margin
DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
DIM SHARED shw AS INTEGER '            Screen Height Wide margine
DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
DIM SHARED nw AS INTEGER '             games Natural screen Width
DIM SHARED nh AS INTEGER '             games Natural screen Height
DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
DIM SHARED star(100) AS stars '        100 stars - may change
DIM SHARED names(200) AS STRING * 10 ' 200 star names
DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
DIM SHARED home(7) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
DIM SHARED x AS INTEGER
DIM SHARED y AS INTEGER
DIM SHARED cx AS INTEGER
DIM SHARED cy AS INTEGER
DIM SHARED cp AS INTEGER
DIM SHARED ps AS LONG
DIM SHARED clk AS LONG
DIM SHARED h AS INTEGER
DIM SHARED x1 AS INTEGER
DIM SHARED y1 AS INTEGER
DIM SHARED x2 AS INTEGER
DIM SHARED y2 AS INTEGER
DIM SHARED ch AS STRING * 1 '          Game loop key input variable
DIM SHARED repeat AS INTEGER '         Game loop control variable
DIM SHARED ttf1 AS LONG
DIM SHARED ttf2 AS LONG
DIM SHARED fleet(1000) AS FLEETS
DIM SHARED fltcnt AS INTEGER
DIM SHARED LL AS INTEGER
DIM SHARED rng AS INTEGER
DIM SHARED slct AS INTEGER
DIM SHARED pact AS INTEGER
DIM SHARED nclk AS INTEGER
DIM SHARED px AS INTEGER
DIM SHARED py AS INTEGER
DIM SHARED ii AS INTEGER
DIM SHARED srcstr AS STRING * 10
DIM SHARED dststr AS STRING * 10
DIM SHARED panx, pany AS INTEGER
DIM SHARED dig AS INTEGER
DIM SHARED strng AS STRING * 10
DIM SHARED value AS INTEGER
DIM SHARED srcidx AS INTEGER
DIM SHARED dstidx AS INTEGER
DIM SHARED id AS INTEGER
DIM SHARED hate(7, 7) AS INTEGER
DIM SHARED pause AS INTEGER
 
sw = _DESKTOPWIDTH '                   native video with of syatem
sww = sw / 24 '                        margin based on native video width to keep stars away from edge
swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
nw = 1920
 
ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
 
sh = _DESKTOPHEIGHT
shw = sh / 20
shn = sh / 40
nh = 1080
 
tt = 0
cx = sw
cp = 100
h = 100
ar = 0
rng = 200
slct = 0
strng = ""
 
SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
 
_FULLSCREEN
 
ps = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
 
StarNames '                            Routine to load star names into string array stars(200)
 
NewGame
 
ttf1 = _LOADFONT("cyberbit.ttf", 16 * ratio, "BOLD")
ttf2 = _LOADFONT("cyberbit.ttf", 72 * ratio, "BOLD")
 
repeat = 1
 
WHILE repeat
 
    _LIMIT 200 '                        Set to 200 frames per second
 
    id = INT(RND * 5 + 2)
 
    CLS
 
    PaintBackground
 
    PaintStars
 
    PaintFleet
 
    GetInput
 
    Identify x, y '                     Identify star mouse is over if any
 
    Player
 
    Computer
 
    _DISPLAY
 
WEND
 
SYSTEM
 
SUB PaintFleet
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            CIRCLE (fleet(i).x1, fleet(i).y1), 3, fleet(i).o + 8
            count = count - 1
        END IF
        i = i + 1
    WEND
END SUB
 
SUB SendFleet (org, dst, ships)
    FOR i = 0 TO 999
        IF fleet(i).o = 0 THEN
            fleet(i).o = star(org).o
            fleet(i).d = dst
            fleet(i).x1 = star(org).x
            fleet(i).y1 = star(org).y
            fleet(i).x2 = star(dst).x
            fleet(i).y2 = star(dst).y
            fleet(i).t = ships
            star(org).t = star(org).t - ships
            fltcnt = fltcnt + 1
            EXIT FOR
        END IF
    NEXT
    LL = LL + 1
END SUB
 
SUB Computer
    RANDOMIZE TIMER
    FOR i = 0 TO 99
        r = INT(RND * 60)
        IF r < star(i).p THEN
            IF star(i).o > 0 THEN
                star(i).t = star(i).t + 1
            ELSE
                IF INT(RND * 10) < 3 THEN
                    star(i).t = star(i).t + 1
                END IF
            END IF
        END IF
    NEXT
 
    org = home(id)
    IF star(org).o <> id THEN
        FOR j = 0 TO 99
            IF star(j).o = id THEN home(id) = j: EXIT FOR
        NEXT
    END IF
 
    FOR p = 0 TO 3
 
        IF p = 0 THEN
            sf2 = 100
            sf1 = home(id)
            IF star(sf1).t > LL * 2 THEN
                sf3 = star(sf1).t / 2
                g = -1
                FOR j = 0 TO 99
                    IF star(j).o <> id THEN
                        IF hate(id, star(j).o) > g THEN
                            IF star(sf1).t > star(j).t * 5 + RND * 200 - 100 THEN
                                FOR k = 0 TO 99
                                    IF star(k).o = id THEN
                                        dist = SQR(ABS(star(k).x - star(j).x) ^ 2 + ABS(star(k).y - star(j).y) ^ 2)
                                        IF dist <= 250 * ratio THEN
                                            sf2 = j
                                            g = hate(id, star(j).o)
                                            EXIT FOR
                                        END IF
                                    END IF
                                NEXT
                            END IF
                        END IF
                    END IF
                    IF g = h THEN EXIT FOR
                NEXT
                IF sf2 < 100 THEN
                    SendFleet sf1, sf2, sf3
                    sf2 = 100
                    EXIT FOR
                END IF
            END IF
        END IF
 
        IF p = 1 THEN
            ok = 0
            FOR i = 1 TO 99
                IF i <> home(id) AND star(i).o = id THEN
                    IF star(i).t > LL * 1.5 THEN
                        ok = 1
                        EXIT FOR
                    END IF
                END IF
            NEXT
            IF ok = 1 THEN
                SendFleet i, home(id), star(i).t / 4
                EXIT FOR
            END IF
        END IF
 
        IF p = 2 THEN
            FOR i = 1 TO 99
                IF i <> home(id) AND star(i).o = id THEN
                    IF star(i).t > 49 THEN
                        ok = 1
                        FOR j = 0 TO 99
                            IF star(j).o <> id AND star(j).o <> 0 THEN
                                dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                IF dist <= 350 * ratio THEN
                                    ok = 0
                                    EXIT FOR
                                END IF
                            END IF
                        NEXT
                        IF ok = 1 THEN
                            SendFleet i, home(id), star(i).t
                            EXIT FOR
                        END IF
                    END IF
                END IF
            NEXT
            IF ok = 1 THEN EXIT FOR
        END IF
 
        IF p = 3 THEN
            sf2 = 100
            FOR i = 0 TO 99
                IF star(i).o = id AND star(i).t > LL * 1.5 THEN
                    sf3 = star(i).t / 2
                    FOR j = 0 TO 99
                        IF star(j).o <> id AND star(i).t > star(j).t * 4 THEN
                            FOR k = 0 TO 99
                                IF star(k).o = id THEN
                                    dist = SQR(ABS(star(k).x - star(j).x) ^ 2 + ABS(star(k).y - star(j).y) ^ 2)
                                    IF dist <= 250 * ratio THEN
                                        sf1 = i
                                        sf2 = j
                                        g = hate(id, star(j).o)
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                        END IF
                    NEXT
                    IF g = h THEN EXIT FOR
                END IF
            NEXT
            IF sf2 < 100 THEN
                SendFleet sf1, sf2, sf3
                sf2 = 100
                EXIT FOR
            END IF
        END IF
 
    NEXT
 
    GetInput
 
    Identify x, y '                     Identify star mouse is over if any
 
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            count = count - 1
            IF fleet(i).x2 > fleet(i).x1 THEN
                fleet(i).x1 = fleet(i).x1 + 1
            END IF
            IF fleet(i).x2 < fleet(i).x1 THEN
                fleet(i).x1 = fleet(i).x1 - 1
            END IF
            IF fleet(i).y2 > fleet(i).y1 THEN
                fleet(i).y1 = fleet(i).y1 + 1
            END IF
            IF fleet(i).y2 < fleet(i).y1 THEN
                fleet(i).y1 = fleet(i).y1 - 1
            END IF
            IF fleet(i).x1 = fleet(i).x2 AND fleet(i).y1 = fleet(i).y2 THEN
                dst = fleet(i).d
                IF star(dst).o = fleet(i).o THEN
                    star(dst).t = star(dst).t + fleet(i).t
                    fleet(i).o = 0
                    fltcnt = fltcnt - 1
                ELSE
                    IF fleet(i).t > star(dst).t * 1.1 THEN
                        alive = 1
                        WHILE alive
                            alive = 0
                            damorg = fleet(i).t / 11 + 1
                            damdst = star(dst).t / 10 + 1
                            fleet(i).t = fleet(i).t - damdst
                            star(dst).t = star(dst).t - damorg
                            IF fleet(i).t > 0 AND star(dst).t > 0 THEN
                                alive = 1
                            END IF
                        WEND
                        IF star(dst).t < 1 THEN
                            hate(star(dst).o, fleet(i).o) = hate(star(dst).o, fleet(i).o) + 1
                            star(dst).t = fleet(i).t
                            star(dst).o = fleet(i).o
                        END IF
                        fleet(i).o = 0
                        fltcnt = fltcnt - 1
                    ELSE
                        k = 100
                        shortest = 10000
                        FOR j = 0 TO 99
                            IF star(j).o = fleet(i).o THEN
                                dist = SQR(ABS(star(j).x - fleet(i).x1) ^ 2 + ABS(star(j).y - fleet(i).y1) ^ 2)
                                IF dist < shortest THEN
                                    shortest = dist
                                    k = j
                                END IF
                            END IF
                        NEXT
                        IF k < 100 THEN
                            fleet(i).x2 = star(k).x
                            fleet(i).y2 = star(k).y
                            fleet(i).d = k
                        END IF
                    END IF
                END IF
            END IF
        END IF
        i = i + 1
    WEND
END SUB
 
SUB GetInput
 
    ch = INKEY$
    IF ch = CHR$(27) THEN repeat = 0
    IF ch = "n" THEN NewGame
    IF ch = "t" THEN tt = 1 - tt
    IF ch = "p" THEN pause = 1
 
    WHILE (pause = 1)
        IF INKEY$ = "p" THEN
            pause = 0
        END IF
    WEND
 
    WHILE _MOUSEINPUT: WEND '          Eat all the mice but keep last mouse to toy with
 
    x = _MOUSEX
    y = _MOUSEY
    mb = _MOUSEBUTTON(1)
    clk = 0
 
    IF mb = -1 AND cx = sw THEN
        cx = x
        cy = y
    END IF
 
    IF mb = 0 AND cx < sw THEN
        IF ABS(x - cx) < 9 AND ABS(y - cy) < 9 THEN
            clk = 1
        END IF
        cx = sw
    END IF
END SUB
 
SUB PaintBackground
    RANDOMIZE TIMER
    x = RND * sw
    y = RND * sh
    c = RND * 14 + 1
    PSET (x, y), c
    RANDOMIZE USING seed
    FOR i = 1 TO 600 * ratio
        x = RND * sw
        y = RND * sh
        c = RND * 14 + 1
        PSET (x, y), c
    NEXT
END SUB
 
SUB Player
    tmp$ = RTRIM$(strng)
    IF slct = 1 THEN
        nclk = 1
        FOR i = 0 TO 99
            IF star(i).o = 1 THEN
                dist = SQR(ABS(star(i).x - x) ^ 2 + ABS(star(i).y - y) ^ 2)
                IF dist <= 200 * ratio THEN
                    nclk = 0
                    EXIT FOR
                END IF
            END IF
        NEXT
        c = 10
        IF nclk = 1 THEN
            c = 12
            clk = 0
        END IF
        LINE (px, py)-(x, y), c
        EXIT SUB
    END IF
    IF pact = 1 THEN
        ShowPanel ii
        IF clk = 1 THEN
            x1 = panx: x2 = panx + 400 * ratio
            y1 = pany: y2 = pany + 540 * ratio
            IF x > x1 + 216 * ratio AND x < x1 + 366 * ratio AND y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                pact = 0
            ELSE IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio AND y > y1 + 260 * ratio AND y < y1 + 320 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (38 * ratio)
                    strng = tmp$ + STR$(dig)
                ELSE IF x > x1 + 266 * ratio AND x < x1 + 366 * ratio AND y > y1 + 366 * ratio AND y < y1 + 406 * ratio THEN
                        strng = ""
                    ELSE IF x > x1 + 32 * ratio AND x < x1 + 182 * ratio AND y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                            value = VAL(strng)
                            strng = ""
                            pact = 0
                            IF value <= star(srcidx).t THEN
                                SendFleet srcidx, dstidx, value
                            END IF
                        END IF
                    END IF
                END IF
            END IF
        END IF
    END IF
END SUB
 
SUB Identify (x, y)
    IF nclk = 0 THEN
        FOR i = 0 TO 99
            dx = star(i).x - x
            dy = star(i).y - y
            IF pact = 0 AND ABS(dx) <= star(i).s + 8 AND ABS(dy) <= star(i).s + 8 THEN
                ii = i
                IF star(i).o = 1 AND slct = 0 THEN
                    IF clk THEN
                        slct = 1
                    END IF
                    px = x
                    py = y
                    srcstr = star(i).n
                    srcidx = i
                ELSE
                    IF slct = 1 OR pact = 1 THEN
                        IF clk THEN
                            slct = 0
                            pact = 1
                            dststr = star(i).n
                            dstidx = i
                        END IF
                    END IF
                END IF
                EXIT FOR
            END IF
        NEXT
    END IF
END SUB
 
SUB ShowPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
    y2 = y1 + 540 * ratio
    _DEST ps
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf2
    n$ = RTRIM$(srcstr)
    L = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - L) / 2, 8 * ratio), n$, ps
    n$ = "to"
    L = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - L) / 2, 80 * ratio), n$, ps
    n$ = RTRIM$(dststr)
    L = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - L) / 2, 152 * ratio), n$, ps
    LINE (20 * ratio, 240 * ratio)-(380 * ratio, 240 * ratio), 0
    _PRINTSTRING (20 * ratio, 260 * ratio), "0123456789", ps
    _PRINTSTRING (20 * ratio, 346 * ratio), strng, ps
    xo = 286 * ratio: xd = 366 * ratio: yo = 366 * ratio: yd = 406 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 32 * ratio: xd = 182 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 216 * ratio: xd = 366 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    _FONT ttf1
    COLOR 7, 8
    _PRINTSTRING (100 * ratio, 112 * ratio), STR$(star(srcidx).t), ps
    _PRINTSTRING (270 * ratio, 112 * ratio), STR$(star(dstidx).t), ps
    COLOR 0, 7
    _PRINTSTRING (300 * ratio, 380 * ratio), "CLEAR", ps
    _FONT ttf2
    _PRINTSTRING (60 * ratio, 458 * ratio), "Ok", ps
    _PRINTSTRING (220 * ratio, 458 * ratio), "Quit", ps
    _PUTIMAGE (x1, y1), ps, 0, (0, 0)-(400 * ratio, 540 * ratio)
    panx = x1: pany = y1
    _DEST 0
END SUB
 
SUB PaintStars
    FOR i = 0 TO 99
        c = star(i).c
        x = star(i).x
        y = star(i).y
        o = star(i).o
        CIRCLE (x, y), (star(i).s + 8) * ratio, c
        COLOR 15
        IF o > 0 THEN
            PAINT (x, y), o + 8, c
        END IF
        _FONT ttf1
        IF tt THEN
            n$ = star(i).n
            n$ = RTRIM$(n$)
            L = _PRINTWIDTH(n$)
            _PRINTSTRING (x + 10, y), STR$(star(i).p), 0
        ELSE
            n$ = STR$(star(i).t)
            L = _PRINTWIDTH(n$)
        END IF
        _PRINTSTRING (x - L / 2, y + 14), n$, 0
    NEXT
END SUB
 
SUB NewGame
    DIM k AS INTEGER
    DIM r AS INTEGER
    DIM dx AS INTEGER
    DIM dy AS INTEGER
    DIM n AS STRING * 10
    FOR i = 0 TO 999
        fleet(i).o = 0
    NEXT
    slct = 0
    fltcnt = 0
    LL = 0
    RANDOMIZE TIMER
    seed = RND * 1000
    star(0).n = "Sol"
    star(0).x = RND * (sw - sww) + swn
    star(0).y = RND * (sh - shw) + shn
    star(0).c = 14
    star(0).s = 2
    star(0).o = 1
    star(0).p = 10
    star(0).t = 100
    home(1) = 0
    FOR i = 1 TO 99
        k = 1
        WHILE k
            k = 0
            x = RND * (sw - sww) + swn
            y = RND * (sh - shw) + shn
            r = INT(RND * 200)
            n = names(r)
            FOR j = 0 TO i - 1
                dx = x - star(j).x
                dy = y - star(j).y
                IF ABS(dx) < sww AND ABS(dy) < shw THEN
                    k = 1
                END IF
                IF n = star(j).n THEN
                    k = 1
                END IF
            NEXT
        WEND
        star(i).n = n
        star(i).x = x
        star(i).y = y
        star(i).c = RND * 6 + 9
        star(i).s = RND * 5
        star(i).o = 0
        star(i).p = star(i).s + (RND * 5) + 3
        star(i).t = 0
    NEXT
    FOR i = 2 TO 6
        ok = 0
        WHILE (ok < 1)
            ok = 1
            j = RND * 100
            FOR k = 1 TO i - 1
                dist = SQR(ABS(star(j).x - star(home(k)).x) ^ 2 + ABS(star(j).y - star(home(k)).y) ^ 2)
                IF dist < 500 * ratio THEN
                    ok = 0
                    EXIT FOR
                END IF
            NEXT
            IF ok = 1 THEN
                ok = -1
                FOR k = 0 TO 99
                    dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                    IF dist <= 250 THEN ok = ok + 1
                    IF ok = 1 THEN EXIT FOR
                NEXT
            END IF
        WEND
        home(i) = j
        star(j).o = i
        star(j).t = 100
    NEXT
END SUB
 
' A lot of star names I made up
 
SUB StarNames
    names(0) = "Acamar"
    names(1) = "Arcab"
    names(2) = "Acrux"
    names(3) = "Adhara"
    names(4) = "Arneb"
    names(5) = "Antares"
    names(6) = "Arcturus"
    names(7) = "Atria"
    names(8) = "Beid"
    names(9) = "Betelgeuse"
    names(10) = "Botein"
    names(11) = "Beemim"
    names(12) = "Bellatrix"
    names(13) = "Bharani"
    names(14) = "Biham"
    names(15) = "Brachium"
    names(16) = "Canopus"
    names(17) = "Capella"
    names(18) = "Castor"
    names(19) = "Chara"
    names(20) = "Cursa"
    names(21) = "Copernicus"
    names(22) = "Chalawan"
    names(23) = "Chertan"
    names(24) = "Dabih"
    names(25) = "Dalim"
    names(26) = "Deneb"
    names(27) = "Denebola"
    names(28) = "Diadem"
    names(29) = "Diphda"
    names(30) = "Dschubba"
    names(31) = "Dziban"
    names(32) = "Edasich"
    names(33) = "Electra"
    names(34) = "Elgafar"
    names(35) = "Elkurud"
    names(36) = "Elnath"
    names(37) = "Eltanin"
    names(38) = "Enif"
    names(39) = "Errai"
    names(40) = "Fafnir"
    names(41) = "Fang"
    names(42) = "Fawaris"
    names(43) = "Felis"
    names(44) = "Fomalhaut"
    names(45) = "Fulu"
    names(46) = "Fumal"
    names(47) = "Furud"
    names(48) = "Garnet"
    names(49) = "Giausar"
    names(50) = "Gienah"
    names(51) = "Ginan"
    names(52) = "Gomeisa"
    names(53) = "Graffias"
    names(54) = "Grumium"
    names(55) = "Gudja"
    names(56) = "Hadar"
    names(57) = "Haedus"
    names(58) = "Hamal"
    names(59) = "Hassaleh"
    names(60) = "Hatysa"
    names(61) = "Helvetios"
    names(62) = "Heze"
    names(63) = "Homan"
    names(64) = "Iklil"
    names(65) = "Imai"
    names(66) = "Intercrus"
    names(67) = "Izar"
    names(68) = "Iccar"
    names(69) = "Inar"
    names(70) = "Iaeth"
    names(71) = "Imaous"
    names(72) = "Jabbah"
    names(73) = "Jishui"
    names(74) = "Jax"
    names(75) = "Jalae"
    names(76) = "Jewel"
    names(77) = "Jumbo"
    names(78) = "Jerue"
    names(79) = "Jabear"
    names(80) = "Kakkab"
    names(81) = "Kang"
    names(82) = "Kekouan"
    names(83) = "Keid"
    names(84) = "Kitalpha"
    names(85) = "Kochab"
    names(86) = "Kolob"
    names(87) = "Kobol"
    names(88) = "Larawag"
    names(89) = "Lesath"
    names(90) = "Libertas"
    names(91) = "Lich"
    names(92) = "Lilly"
    names(93) = "Laddel"
    names(94) = "Luminous"
    names(95) = "Lasacious"
    names(96) = "Mizar"
    names(97) = "Markab"
    names(98) = "Matar"
    names(99) = "Mintaka"
    names(100) = "Meleph"
    names(101) = "Menkar"
    names(102) = "Merga"
    names(103) = "Merope"
    names(104) = "Nahn"
    names(105) = "Naos"
    names(106) = "Nashira"
    names(107) = "Navi"
    names(108) = "Nekkar"
    names(109) = "Nembus"
    names(110) = "Nihal"
    names(111) = "Nunki"
    names(112) = "Ogma"
    names(113) = "Okab"
    names(114) = "Ohmy"
    names(115) = "Oragami"
    names(116) = "Origen"
    names(117) = "Omanii"
    names(118) = "Obytewa"
    names(119) = "Oglok"
    names(120) = "Phact"
    names(121) = "Pherkad"
    names(122) = "Pleione"
    names(122) = "Polaris"
    names(123) = "Pollux"
    names(124) = "Procyon"
    names(125) = "Proxima"
    names(126) = "Polis"
    names(127) = "Quaint"
    names(128) = "Quazzat"
    names(129) = "Quetzal"
    names(130) = "Qussol"
    names(131) = "Quella"
    names(132) = "Quyaeo"
    names(133) = "Ququdas"
    names(134) = "Quekak"
    names(135) = "Rasalas"
    names(136) = "Regor"
    names(137) = "Regulus"
    names(138) = "Rigel"
    names(139) = "Revati"
    names(140) = "Rotenev"
    names(141) = "Rukbat"
    names(142) = "Rastaban"
    names(143) = "Sabik"
    names(144) = "Sadr"
    names(145) = "Saiph"
    names(146) = "Sargas"
    names(147) = "Sarin"
    names(148) = "Syrma"
    names(149) = "Spica"
    names(150) = "Sirius"
    names(151) = "Tarazed"
    names(152) = "Taygeta"
    names(153) = "Tejat"
    names(154) = "Thabit"
    names(155) = "Thuban"
    names(156) = "Tiaki"
    names(157) = "Toliman"
    names(158) = "Torcular"
    names(157) = "Umala"
    names(158) = "Ulatte"
    names(159) = "Ubbessa"
    names(160) = "Unoless"
    names(161) = "Umaddem"
    names(162) = "Ummbra"
    names(162) = "Uniqu"
    names(163) = "Uzzaal"
    names(164) = "Vega"
    names(165) = "Veritate"
    names(166) = "Vindetrix"
    names(167) = "Vedas"
    names(168) = "Vergg"
    names(169) = "Vacant"
    names(170) = "Vucae"
    names(171) = "Vicar"
    names(172) = "Wasat"
    names(173) = "Wazn"
    names(174) = "Wezen"
    names(175) = "Waiten"
    names(176) = "Wachar"
    names(177) = "Wheelz"
    names(178) = "Whatsp"
    names(179) = "Wassand"
    names(180) = "Xenno"
    names(181) = "Xyphod"
    names(182) = "Xu"
    names(183) = "Xaal"
    names(184) = "Xyross"
    names(185) = "Xiggot"
    names(186) = "Xirrks"
    names(187) = "Yed"
    names(188) = "Yildun"
    names(189) = "Yundun"
    names(190) = "Yavyo"
    names(191) = "Yotrac"
    names(192) = "Yxzoqu"
    names(193) = "Ynnot"
    names(194) = "Zaniah"
    names(195) = "Zaurak"
    names(196) = "Zhang"
    names(197) = "Zibal"
    names(198) = "Zosma"
    names(199) = "Zuben"
END SUB
 
 
 

bplus · « **Reply #16 on:** December 17, 2019, 10:06:17 am »

Quote

Any feedback good or bad is not only welcome it is needed for this project to last much longer. I'll be on to something else if no one is interested. As it is it seems like at least an interesting example of GUI on demand.

OK in last post you start explaining some things, I have no idea idea why I want to send ships anywhere? So if you want a new audience, you might consider explaining the the game setup and objectives.

romichess · « **Reply #17 on:** December 17, 2019, 11:31:31 am »

Quote from: bplus on December 17, 2019, 10:06:17 am

OK in last post you start explaining some things, I have no idea idea why I want to send ships anywhere? So if you want a new audience, you might consider explaining the the game setup and objectives.

From the op.

The game lives! Save humanity from the alien threat!!

To play just click on one of your stars. Then click (don't drag) on any other star and then send ships. That is all there is to it. The esc key exits the game. The "t' key toggles the star names. Look for the blue star. That is Sol the human's home star.

I'm pretty sure any child could figure it out from that. :)

bplus · « **Reply #18 on:** December 17, 2019, 12:25:03 pm »

LOL sure a child can figure it out but well a little far from that...

OK so I click Sol and then click another star and a blue bubble travels (and not as the crow flies, which I can fix if you are interested) ever so slowly from Sol to planet and back and then nothing changes... ??? Still don't get it?

romichess · « **Reply #19 on:** December 18, 2019, 12:28:53 am »

Quote from: bplus on December 17, 2019, 12:25:03 pm

LOL sure a child can figure it out but well a little far from that...

OK so I click Sol and then click another star and a blue bubble travels (and not as the crow flies, which I can fix if you are interested) ever so slowly from Sol to planet and back and then nothing changes... ??? Still don't get it?

You have to send enough ships to take over the star system. If you don't the fleet turns around. Afterall they don't want to die for nothing, LOL. The graphics are not the final graphics. I'm just working on game play right now. When the ships are not traveling as the crow flies it is unknown by the player where the computers ships are going until they make the turn. In some cases that gives the player little time to react. It is a work in progress.

Kazman · « **Reply #20 on:** December 18, 2019, 10:07:25 am »

I'm playing the game, I like it but mouse reactions are too slow... I often had to click several times on every button in order to make effect

romichess · « **Reply #21 on:** December 18, 2019, 04:50:48 pm »

Quote from: Kazman on December 18, 2019, 10:07:25 am

I'm playing the game, I like it but mouse reactions are too slow... I often had to click several times on every button in order to make effect

Thank you for trying the game and thanks for liking it! The mouse is a problem. It seems to be the speed of the click. If I hesitate in the button down position for just a moment before letting the button up it works every time. If I could figure out why then maybe it can be fixed. Also my goal is for the computer to be a challenge without resorting to cheating like so many games do.

romichess · « **Reply #22 on:** December 20, 2019, 06:15:23 am »

The news is that the mouse problem is solved. It is silky smooth now. Still if one is in a hurry moving and clicking the mouse at the same time especially if clicking at double click speed there are still issues. But that is like at crazy speed. One can operate the mouse very quickly without any problems at all. And clicking on the numbers is more accurate as well. Also the computer target selection code has been completely rewritten. I do have a friend that test almost every new version. And he really likes this version. He says it is more challenging. So it seems that the playing algorithm may be finalized soon.

In the next update (not this one) starbases will be added. Basically starbases will be from level 0 to 9. The math will be like a lvl 0 (1) will be like 1 x 1 x 1000 ships. They will do the damage of a thousand ships but only cost 500 ships to build. They will take normal damage. A lvl 9 (10) starbase will be like 10 x 10 x 1000 ships and they will do the damage of 100,000 ships but because of their size and thickness of hull they will take half damage. It will cost ships at one fourth to repair them. Just wanted to let everyone know it was coming! :)

Code: QB64: [Select]

TYPE stars
    n AS STRING * 10 '                 Name of star
    x AS INTEGER '                     x-position
    y AS INTEGER '                     y-position
    o AS INTEGER '                     Owner
    c AS INTEGER '                     Color
    s AS INTEGER '                     Size
    t AS LONG '                     (Type of planetary system; terran, frozen, radiated, toxic, etc.) Ships
    p AS INTEGER '                     (Population) For now ships produced per turn
END TYPE
 
TYPE FLEETS
    t AS LONG
    x1 AS INTEGER
    y1 AS INTEGER
    x2 AS INTEGER
    y2 AS INTEGER
    o AS INTEGER
    d AS INTEGER
END TYPE
 
'DECLARE SUB NewGame
'DECLARE SUB PaintStars
'DECLARE SUB StarNames
'DECLARE SUB ShowPanel (i)
'DECLARE SUB Identify (x, y)
'DECLARE SUB PaintBackground
'DECLARE SUB GetInput
 
' Global variables shared because they are needed in more than one routine
DIM SHARED sw AS INTEGER '             Screen Width
DIM SHARED sh AS INTEGER '             Screen Height
DIM SHARED sww AS INTEGER '            Screen Width Wide margin
DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
DIM SHARED shw AS INTEGER '            Screen Height Wide margine
DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
DIM SHARED nw AS INTEGER '             games Natural screen Width
DIM SHARED nh AS INTEGER '             games Natural screen Height
DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
DIM SHARED star(100) AS stars '        100 stars - may change
DIM SHARED names(200) AS STRING * 10 ' 200 star names
DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
DIM SHARED home(7) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
DIM SHARED x AS INTEGER
DIM SHARED y AS INTEGER
DIM SHARED cx AS INTEGER
DIM SHARED cp AS INTEGER
DIM SHARED ps AS LONG
DIM SHARED clk AS LONG
DIM SHARED h AS INTEGER
DIM SHARED x1 AS INTEGER
DIM SHARED y1 AS INTEGER
DIM SHARED x2 AS INTEGER
DIM SHARED y2 AS INTEGER
DIM SHARED ch AS STRING * 1 '          Game loop key input variable
DIM SHARED repeat AS INTEGER '         Game loop control variable
DIM SHARED ttf1 AS LONG
DIM SHARED ttf2 AS LONG
DIM SHARED fleet(1000) AS FLEETS
DIM SHARED fltcnt AS INTEGER
DIM SHARED LL AS INTEGER
DIM SHARED rng AS INTEGER
DIM SHARED slct AS INTEGER
DIM SHARED pact AS INTEGER
DIM SHARED nclk AS INTEGER
DIM SHARED px AS INTEGER
DIM SHARED py AS INTEGER
DIM SHARED ii AS INTEGER
DIM SHARED srcstr AS STRING * 10
DIM SHARED dststr AS STRING * 10
DIM SHARED panx, pany AS INTEGER
DIM SHARED dig AS INTEGER
DIM SHARED strng AS STRING * 10
DIM SHARED value AS INTEGER
DIM SHARED srcidx AS INTEGER
DIM SHARED dstidx AS INTEGER
DIM SHARED id AS INTEGER
DIM SHARED hate(7, 7) AS INTEGER
DIM SHARED pause AS INTEGER
 
sw = _DESKTOPWIDTH '                   native video with of syatem
sww = sw / 24 '                        margin based on native video width to keep stars away from edge
swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
nw = 1920
 
ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
 
sh = _DESKTOPHEIGHT
shw = sh / 20
shn = sh / 40
nh = 1080
 
tt = 0
cx = sw
cp = 100
h = 100
ar = 0
rng = 200
slct = 0
strng = ""
 
SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
 
_FULLSCREEN
 
ps = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
 
StarNames '                            Routine to load star names into string array stars(200)
 
NewGame
 
ttf1 = _LOADFONT("cyberbit.ttf", 16 * ratio, "BOLD")
ttf2 = _LOADFONT("cyberbit.ttf", 72 * ratio, "BOLD")
 
repeat = 1
 
WHILE repeat
 
    _LIMIT 60 '                        Set to 200 frames per second
 
    id = INT(RND * 5 + 2)
 
    CLS
 
    PaintBackground
 
    PaintStars
 
    PaintFleet
 
    GetInput
 
    Identify x, y
 
    Player
 
    Computer
 
    _DISPLAY
 
WEND
 
SYSTEM
 
SUB PaintFleet
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            CIRCLE (fleet(i).x1, fleet(i).y1), 3, fleet(i).o + 8
            count = count - 1
        END IF
        i = i + 1
    WEND
END SUB
 
SUB SendFleet (org, dst, ships)
    FOR i = 0 TO 999
        IF fleet(i).o = 0 THEN
            fleet(i).o = star(org).o
            fleet(i).d = dst
            fleet(i).x1 = star(org).x
            fleet(i).y1 = star(org).y
            fleet(i).x2 = star(dst).x
            fleet(i).y2 = star(dst).y
            fleet(i).t = ships
            star(org).t = star(org).t - ships
            fltcnt = fltcnt + 1
            EXIT FOR
        END IF
    NEXT
    LL = LL + 1
END SUB
 
SUB Computer
    RANDOMIZE TIMER
    FOR i = 0 TO 99
        r = INT(RND * 60)
        IF r < star(i).p THEN
            IF star(i).o > 0 THEN
                star(i).t = star(i).t + 1
            ELSE
                IF INT(RND * 10) < 3 THEN
                    star(i).t = star(i).t + 1
                END IF
            END IF
        END IF
    NEXT
 
    org = home(id)
    IF star(org).o <> id THEN
        FOR j = 0 TO 99
            IF star(j).o = id THEN home(id) = j: EXIT FOR
        NEXT
    END IF
 
    FOR p = 0 TO 3
 
        IF p = 0 THEN
            away = 10000
            i = home(id)
            IF star(i).t > LL * 2 THEN
                FOR j = 0 TO 99
                    IF star(j).o <> id THEN
                        dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                        IF dist <= 250 AND star(j).t > star(i).t / 3 THEN
                            away = 10000
                            EXIT FOR
                        END IF
                        ok = 0
                        FOR K = 0 TO 99
                            IF star(K).o = id THEN
                                dist = SQR(ABS(star(j).x - star(K).x) ^ 2 + ABS(star(j).y - star(K).y) ^ 2)
                                IF dist <= 250 THEN
                                    ok = 1
                                    EXIT FOR
                                END IF
                            END IF
                        NEXT
                        IF ok = 1 THEN
                            dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                            IF dist < away AND star(i).t > star(j).t * 3 THEN
                                away = dist
                                jay = j
                            END IF
                        END IF
                    END IF
                NEXT
                IF away < 10000 THEN
                    SendFleet i, jay, star(i).t / 2
                END IF
            END IF
        END IF
 
        IF p = 1 THEN
            sf2 = 100
            FOR i = 0 TO 99
                IF star(i).o = id AND i <> home(id) AND star(i).t > LL * 1.5 THEN
                    sf3 = star(i).t / 2
                    FOR j = 0 TO 99
                        IF star(j).o <> id AND star(i).t > star(j).t * 4 THEN
                            FOR K = 0 TO 99
                                IF star(K).o = id THEN
                                    dist = SQR(ABS(star(K).x - star(j).x) ^ 2 + ABS(star(K).y - star(j).y) ^ 2)
                                    IF dist <= 250 * ratio THEN
                                        sf1 = i
                                        sf2 = j
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                        END IF
                    NEXT
                    IF sf2 < 100 THEN EXIT FOR
                END IF
            NEXT
            IF sf2 < 100 THEN
                SendFleet sf1, sf2, sf3
                EXIT FOR
            END IF
        END IF
 
        IF p = 2 THEN
            FOR i = 0 TO 99
                IF i <> home(id) AND star(i).o = id THEN
                    IF star(i).t > 49 THEN
                        ok = 1
                        FOR j = 0 TO 99
                            IF star(j).o <> id AND star(j).o <> 0 THEN
                                dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                IF dist <= 350 * ratio THEN
                                    ok = 0
                                    EXIT FOR
                                END IF
                            END IF
                        NEXT
                        IF ok = 1 THEN
                            SendFleet i, home(id), star(i).t
                            EXIT FOR
                        END IF
                    END IF
                END IF
            NEXT
            IF ok = 1 THEN EXIT FOR
        END IF
 
        IF p = 3 THEN
            ok = 0
            FOR i = 0 TO 99
                IF i <> home(id) AND star(i).o = id THEN
                    IF star(i).t > LL * 1.5 + star(i).p * 50 THEN
                        ok = 1
                        EXIT FOR
                    END IF
                END IF
            NEXT
            IF ok = 1 THEN
                SendFleet i, home(id), star(i).t / 4
                EXIT FOR
            END IF
        END IF
 
    NEXT
 
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            count = count - 1
            IF fleet(i).x2 > fleet(i).x1 THEN
                fleet(i).x1 = fleet(i).x1 + 1
            END IF
            IF fleet(i).x2 < fleet(i).x1 THEN
                fleet(i).x1 = fleet(i).x1 - 1
            END IF
            IF fleet(i).y2 > fleet(i).y1 THEN
                fleet(i).y1 = fleet(i).y1 + 1
            END IF
            IF fleet(i).y2 < fleet(i).y1 THEN
                fleet(i).y1 = fleet(i).y1 - 1
            END IF
            IF fleet(i).x1 = fleet(i).x2 AND fleet(i).y1 = fleet(i).y2 THEN
                dst = fleet(i).d
                IF star(dst).o = fleet(i).o THEN
                    star(dst).t = star(dst).t + fleet(i).t
                    fleet(i).o = 0
                    fltcnt = fltcnt - 1
                ELSE
                    IF fleet(i).t > star(dst).t * 0.6 THEN
                        alive = 1
                        WHILE alive
                            alive = 0
                            damorg = fleet(i).t / 10 + 1
                            damdst = star(dst).t / 9 + 1
                            fleet(i).t = fleet(i).t - damdst
                            star(dst).t = star(dst).t - damorg
                            IF fleet(i).t > 0 AND star(dst).t > 0 THEN
                                alive = 1
                            END IF
                        WEND
                        IF star(dst).t < 1 THEN
                            hate(star(dst).o, fleet(i).o) = hate(star(dst).o, fleet(i).o) + 1
                            star(dst).t = fleet(i).t
                            star(dst).o = fleet(i).o
                        END IF
                        fleet(i).o = 0
                        fltcnt = fltcnt - 1
                    ELSE
                        K = 100
                        shortest = 10000
                        FOR j = 0 TO 99
                            IF star(j).o = fleet(i).o THEN
                                dist = SQR(ABS(star(j).x - fleet(i).x1) ^ 2 + ABS(star(j).y - fleet(i).y1) ^ 2)
                                IF dist < shortest THEN
                                    shortest = dist
                                    K = j
                                END IF
                            END IF
                        NEXT
                        IF K < 100 THEN
                            fleet(i).x2 = star(K).x
                            fleet(i).y2 = star(K).y
                            fleet(i).d = K
                        END IF
                    END IF
                END IF
            END IF
        END IF
        i = i + 1
    WEND
END SUB
 
SUB GetInput
 
    ch = INKEY$
    IF ch = CHR$(27) THEN repeat = 0
    IF ch = "n" THEN NewGame
    IF ch = "t" THEN tt = 1 - tt
    IF ch = "p" THEN pause = 1
 
    WHILE (pause = 1)
        IF INKEY$ = "p" THEN
            pause = 0
        END IF
    WEND
 
    clk = 0
 
    WHILE _MOUSEINPUT
 
        x = _MOUSEX
        y = _MOUSEY
        mb = _MOUSEBUTTON(1)
 
        IF mb AND cx = sw THEN cx = x
 
    WEND
 
    IF mb = 0 AND cx < sw THEN clk = 1
 
    cx = sw
 
    x = _MOUSEX
    y = _MOUSEY
 
END SUB
 
SUB PaintBackground
    RANDOMIZE TIMER
    x = RND * sw
    y = RND * sh
    c = RND * 14 + 1
    PSET (x, y), c
    RANDOMIZE USING seed
    FOR i = 1 TO 600 * ratio
        x = RND * sw
        y = RND * sh
        c = RND * 14 + 1
        PSET (x, y), c
    NEXT
END SUB
 
SUB Player
    tmp$ = RTRIM$(strng)
    IF slct = 1 THEN
        nclk = 1
        FOR i = 0 TO 99
            IF star(i).o = 1 THEN
                dist = SQR(ABS(star(i).x - x) ^ 2 + ABS(star(i).y - y) ^ 2)
                IF dist <= 250 * ratio THEN
                    nclk = 0
                    EXIT FOR
                END IF
            END IF
        NEXT
        c = 10
        IF nclk = 1 THEN
            c = 12
            clk = 0
        END IF
        LINE (px, py)-(x, y), c
        n$ = STR$(INT(dist))
        _PRINTSTRING (x + 20, y), n$, 0
        EXIT SUB
    END IF
    IF pact = 1 THEN
        ShowPanel ii
        IF clk = 1 THEN
            x1 = panx: x2 = panx + 400 * ratio
            y1 = pany: y2 = pany + 540 * ratio
            IF x > x1 + 216 * ratio AND x < x1 + 366 * ratio AND y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                pact = 0
            ELSE IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio AND y > y1 + 260 * ratio AND y < y1 + 320 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    strng = tmp$ + STR$(dig)
                ELSE IF x > x1 + 266 * ratio AND x < x1 + 366 * ratio AND y > y1 + 366 * ratio AND y < y1 + 406 * ratio THEN
                        strng = ""
                    ELSE IF x > x1 + 32 * ratio AND x < x1 + 182 * ratio AND y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                            value = VAL(strng)
                            strng = ""
                            pact = 0
                            IF value <= star(srcidx).t THEN
                                SendFleet srcidx, dstidx, value
                            END IF
                        END IF
                    END IF
                END IF
            END IF
        END IF
    END IF
END SUB
 
SUB Identify (x, y)
    IF nclk = 0 THEN
        FOR i = 0 TO 99
            dx = star(i).x - x
            dy = star(i).y - y
            IF pact = 0 AND ABS(dx) <= star(i).s + 8 AND ABS(dy) <= star(i).s + 8 THEN
                ii = i
                IF star(i).o = 1 AND slct = 0 THEN
                    IF clk THEN
                        slct = 1
                    END IF
                    px = x
                    py = y
                    srcstr = star(i).n
                    srcidx = i
                ELSE
                    IF slct = 1 OR pact = 1 THEN
                        IF clk THEN
                            slct = 0
                            pact = 1
                            dststr = star(i).n
                            dstidx = i
                        END IF
                    END IF
                END IF
                EXIT FOR
            END IF
        NEXT
    END IF
END SUB
 
SUB ShowPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
    y2 = y1 + 540 * ratio
    _DEST ps
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf2
    n$ = RTRIM$(srcstr)
    L = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - L) / 2, 8 * ratio), n$, ps
    n$ = "to"
    L = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - L) / 2, 80 * ratio), n$, ps
    n$ = RTRIM$(dststr)
    L = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - L) / 2, 152 * ratio), n$, ps
    LINE (20 * ratio, 240 * ratio)-(380 * ratio, 240 * ratio), 0
    _PRINTSTRING (20 * ratio, 260 * ratio), "0123456789", ps
    _PRINTSTRING (20 * ratio, 346 * ratio), strng, ps
    xo = 286 * ratio: xd = 366 * ratio: yo = 366 * ratio: yd = 406 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 32 * ratio: xd = 182 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 216 * ratio: xd = 366 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    _FONT ttf1
    COLOR 7, 8
    _PRINTSTRING (100 * ratio, 112 * ratio), STR$(star(srcidx).t), ps
    _PRINTSTRING (270 * ratio, 112 * ratio), STR$(star(dstidx).t), ps
    COLOR 0, 7
    _PRINTSTRING (300 * ratio, 380 * ratio), "CLEAR", ps
    _FONT ttf2
    _PRINTSTRING (60 * ratio, 458 * ratio), "Ok", ps
    _PRINTSTRING (220 * ratio, 458 * ratio), "Quit", ps
    _PUTIMAGE (x1, y1), ps, 0, (0, 0)-(400 * ratio, 540 * ratio)
    panx = x1: pany = y1
    _DEST 0
END SUB
 
SUB PaintStars
    FOR i = 0 TO 99
        c = star(i).c
        x = star(i).x
        y = star(i).y
        o = star(i).o
        CIRCLE (x, y), (star(i).s + 8) * ratio, c
        COLOR 15
        IF o > 0 THEN
            PAINT (x, y), o + 8, c
        END IF
        _FONT ttf1
        IF tt THEN
            n$ = star(i).n
            n$ = RTRIM$(n$)
            L = _PRINTWIDTH(n$)
            _PRINTSTRING (x + 10, y), STR$(star(i).p), 0
        ELSE
            n$ = STR$(star(i).t)
            L = _PRINTWIDTH(n$)
        END IF
        _PRINTSTRING (x - L / 2, y + 14), n$, 0
    NEXT
END SUB
 
SUB NewGame
    DIM k AS INTEGER
    DIM r AS INTEGER
    DIM dx AS INTEGER
    DIM dy AS INTEGER
    DIM n AS STRING * 10
    FOR i = 0 TO 999
        fleet(i).o = 0
    NEXT
    slct = 0
    fltcnt = 0
    LL = 25
    RANDOMIZE TIMER
    seed = RND * 1000
    star(0).n = "Sol"
    star(0).x = RND * (sw - sww) + swn
    star(0).y = RND * (sh - shw) + shn
    star(0).c = 14
    star(0).s = 2
    star(0).o = 1
    star(0).p = 10
    star(0).t = 100
    home(1) = 0
    FOR i = 1 TO 99
        k = 1
        WHILE k
            k = 0
            x = RND * (sw - sww) + swn
            y = RND * (sh - shw) + shn
            r = INT(RND * 200)
            n = names(r)
            FOR j = 0 TO i - 1
                dx = x - star(j).x
                dy = y - star(j).y
                IF ABS(dx) < sww AND ABS(dy) < shw THEN
                    k = 1
                END IF
                IF n = star(j).n THEN
                    k = 1
                END IF
            NEXT
        WEND
        star(i).n = n
        star(i).x = x
        star(i).y = y
        star(i).c = RND * 6 + 9
        star(i).s = RND * 5
        star(i).o = 0
        star(i).p = star(i).s + (RND * 5) + 3
        star(i).t = 0
    NEXT
    FOR i = 2 TO 6
        ok = 0
        WHILE (ok < 1)
            ok = 1
            j = RND * 100
            FOR k = 1 TO i - 1
                dist = SQR(ABS(star(j).x - star(home(k)).x) ^ 2 + ABS(star(j).y - star(home(k)).y) ^ 2)
                IF dist < 500 * ratio THEN
                    ok = 0
                    EXIT FOR
                END IF
            NEXT
            IF ok = 1 THEN
                ok = -1
                FOR k = 0 TO 99
                    dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                    IF dist <= 200 THEN ok = ok + 1
                    IF ok = 1 THEN EXIT FOR
                NEXT
            END IF
        WEND
        home(i) = j
        star(j).o = i
        star(j).p = 10
        star(j).t = 100
    NEXT
END SUB
 
' A lot of star names I made up
 
SUB StarNames
    names(0) = "Acamar"
    names(1) = "Arcab"
    names(2) = "Acrux"
    names(3) = "Adhara"
    names(4) = "Arneb"
    names(5) = "Antares"
    names(6) = "Arcturus"
    names(7) = "Atria"
    names(8) = "Beid"
    names(9) = "Betelgeuse"
    names(10) = "Botein"
    names(11) = "Beemim"
    names(12) = "Bellatrix"
    names(13) = "Bharani"
    names(14) = "Biham"
    names(15) = "Brachium"
    names(16) = "Canopus"
    names(17) = "Capella"
    names(18) = "Castor"
    names(19) = "Chara"
    names(20) = "Cursa"
    names(21) = "Copernicus"
    names(22) = "Chalawan"
    names(23) = "Chertan"
    names(24) = "Dabih"
    names(25) = "Dalim"
    names(26) = "Deneb"
    names(27) = "Denebola"
    names(28) = "Diadem"
    names(29) = "Diphda"
    names(30) = "Dschubba"
    names(31) = "Dziban"
    names(32) = "Edasich"
    names(33) = "Electra"
    names(34) = "Elgafar"
    names(35) = "Elkurud"
    names(36) = "Elnath"
    names(37) = "Eltanin"
    names(38) = "Enif"
    names(39) = "Errai"
    names(40) = "Fafnir"
    names(41) = "Fang"
    names(42) = "Fawaris"
    names(43) = "Felis"
    names(44) = "Fomalhaut"
    names(45) = "Fulu"
    names(46) = "Fumal"
    names(47) = "Furud"
    names(48) = "Garnet"
    names(49) = "Giausar"
    names(50) = "Gienah"
    names(51) = "Ginan"
    names(52) = "Gomeisa"
    names(53) = "Graffias"
    names(54) = "Grumium"
    names(55) = "Gudja"
    names(56) = "Hadar"
    names(57) = "Haedus"
    names(58) = "Hamal"
    names(59) = "Hassaleh"
    names(60) = "Hatysa"
    names(61) = "Helvetios"
    names(62) = "Heze"
    names(63) = "Homan"
    names(64) = "Iklil"
    names(65) = "Imai"
    names(66) = "Intercrus"
    names(67) = "Izar"
    names(68) = "Iccar"
    names(69) = "Inar"
    names(70) = "Iaeth"
    names(71) = "Imaous"
    names(72) = "Jabbah"
    names(73) = "Jishui"
    names(74) = "Jax"
    names(75) = "Jalae"
    names(76) = "Jewel"
    names(77) = "Jumbo"
    names(78) = "Jerue"
    names(79) = "Jabear"
    names(80) = "Kakkab"
    names(81) = "Kang"
    names(82) = "Kekouan"
    names(83) = "Keid"
    names(84) = "Kitalpha"
    names(85) = "Kochab"
    names(86) = "Kolob"
    names(87) = "Kobol"
    names(88) = "Larawag"
    names(89) = "Lesath"
    names(90) = "Libertas"
    names(91) = "Lich"
    names(92) = "Lilly"
    names(93) = "Laddel"
    names(94) = "Luminous"
    names(95) = "Lasacious"
    names(96) = "Mizar"
    names(97) = "Markab"
    names(98) = "Matar"
    names(99) = "Mintaka"
    names(100) = "Meleph"
    names(101) = "Menkar"
    names(102) = "Merga"
    names(103) = "Merope"
    names(104) = "Nahn"
    names(105) = "Naos"
    names(106) = "Nashira"
    names(107) = "Navi"
    names(108) = "Nekkar"
    names(109) = "Nembus"
    names(110) = "Nihal"
    names(111) = "Nunki"
    names(112) = "Ogma"
    names(113) = "Okab"
    names(114) = "Ohmy"
    names(115) = "Oragami"
    names(116) = "Origen"
    names(117) = "Omanii"
    names(118) = "Obytewa"
    names(119) = "Oglok"
    names(120) = "Phact"
    names(121) = "Pherkad"
    names(122) = "Pleione"
    names(122) = "Polaris"
    names(123) = "Pollux"
    names(124) = "Procyon"
    names(125) = "Proxima"
    names(126) = "Polis"
    names(127) = "Quaint"
    names(128) = "Quazzat"
    names(129) = "Quetzal"
    names(130) = "Qussol"
    names(131) = "Quella"
    names(132) = "Quyaeo"
    names(133) = "Ququdas"
    names(134) = "Quekak"
    names(135) = "Rasalas"
    names(136) = "Regor"
    names(137) = "Regulus"
    names(138) = "Rigel"
    names(139) = "Revati"
    names(140) = "Rotenev"
    names(141) = "Rukbat"
    names(142) = "Rastaban"
    names(143) = "Sabik"
    names(144) = "Sadr"
    names(145) = "Saiph"
    names(146) = "Sargas"
    names(147) = "Sarin"
    names(148) = "Syrma"
    names(149) = "Spica"
    names(150) = "Sirius"
    names(151) = "Tarazed"
    names(152) = "Taygeta"
    names(153) = "Tejat"
    names(154) = "Thabit"
    names(155) = "Thuban"
    names(156) = "Tiaki"
    names(157) = "Toliman"
    names(158) = "Torcular"
    names(157) = "Umala"
    names(158) = "Ulatte"
    names(159) = "Ubbessa"
    names(160) = "Unoless"
    names(161) = "Umaddem"
    names(162) = "Ummbra"
    names(162) = "Uniqu"
    names(163) = "Uzzaal"
    names(164) = "Vega"
    names(165) = "Veritate"
    names(166) = "Vindetrix"
    names(167) = "Vedas"
    names(168) = "Vergg"
    names(169) = "Vacant"
    names(170) = "Vucae"
    names(171) = "Vicar"
    names(172) = "Wasat"
    names(173) = "Wazn"
    names(174) = "Wezen"
    names(175) = "Waiten"
    names(176) = "Wachar"
    names(177) = "Wheelz"
    names(178) = "Whatsp"
    names(179) = "Wassand"
    names(180) = "Xenno"
    names(181) = "Xyphod"
    names(182) = "Xu"
    names(183) = "Xaal"
    names(184) = "Xyross"
    names(185) = "Xiggot"
    names(186) = "Xirrks"
    names(187) = "Yed"
    names(188) = "Yildun"
    names(189) = "Yundun"
    names(190) = "Yavyo"
    names(191) = "Yotrac"
    names(192) = "Yxzoqu"
    names(193) = "Ynnot"
    names(194) = "Zaniah"
    names(195) = "Zaurak"
    names(196) = "Zhang"
    names(197) = "Zibal"
    names(198) = "Zosma"
    names(199) = "Zuben"
END SUB
 
 

romichess · « **Reply #23 on:** December 23, 2019, 04:23:36 am »

First of all when over 60 y.o. never program when tired. I just went through several days of hell making and fixing bugs only to create more bugs than I fixed. After taking a day and a half off and getting lots of sleep I was able to fix all the bugs and add a ton of new features. No star bases yet but that is next. Much of the code was completely rewritten and is much cleaner. That process will continue. Optimising for speed will come later.

I probably can't name all the changes but here is a list of what I can remember.

Send all, send half and send third buttons to the fleet send panel.
A standing orders panel. So stars can automatically send ships to another planet.
Right clicking the mouse will cancel a panel
Right clicking on empty space will pause/unpause the game. Orders can still be issued.
Pressing "p" will do the same and orders can be issued.
The range line will when over a star snap to the center of the star and give the exact range
Range can be gotten between any two stars.
Right clicking will cancel range lines.
The computer players start the game paused so that a player can find his home star. Initial orders can be placed before unpausing.
And a few more minor changes.
The computer players are better than ever also! And still no cheating!!

To bring up a panel left or right click on one of your stars. Then left click another star to send ships or right click another one of your planets to bring up the standing orders panel. To cancel a standing order just enter 0 and 0. One standing order per star.

I was going to add star bases before making another post but I'm at the point of needing another day and a half off. That is all there is for now. Opinions about the interface are welcome as well as suggestions and opinions about the computer's play. Thanks!

Code: QB64: [Select]

TYPE stars
    n AS STRING * 10 '                 Name of star
    x AS INTEGER '                     x-position
    y AS INTEGER '                     y-position
    o AS INTEGER '                     Owner
    c AS INTEGER '                     Color
    s AS INTEGER '                     Size
    t AS LONG '                        Ships
    p AS INTEGER '                     (Population) For now ships production
END TYPE
 
TYPE FLEETS
    t AS LONG
    x1 AS INTEGER
    y1 AS INTEGER
    x2 AS INTEGER
    y2 AS INTEGER
    o AS INTEGER
    d AS INTEGER
END TYPE
 
TYPE ORDERS
    src AS LONG
    ovr AS LONG
    shp AS LONG
    dst AS LONG
END TYPE
 
' Global variables shared because they are needed in more than one routine
DIM SHARED sw AS INTEGER '             Screen Width
DIM SHARED sh AS INTEGER '             Screen Height
DIM SHARED sww AS INTEGER '            Screen Width Wide margin
DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
DIM SHARED shw AS INTEGER '            Screen Height Wide margine
DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
DIM SHARED nw AS INTEGER '             games Natural screen Width
DIM SHARED nh AS INTEGER '             games Natural screen Height
DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
DIM SHARED star(100) AS stars '        100 stars - may change
DIM SHARED names(200) AS STRING * 10 ' 200 star names
DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
DIM SHARED home(7) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
DIM SHARED x AS INTEGER
DIM SHARED y AS INTEGER
DIM SHARED lcx AS INTEGER
DIM SHARED rcx AS INTEGER
DIM SHARED cp AS INTEGER
DIM SHARED sp AS LONG
DIM SHARED op AS LONG
DIM SHARED lclk AS LONG
DIM SHARED rclk AS LONG
DIM SHARED h AS INTEGER
DIM SHARED ch AS STRING * 1 '          Game loop key input variable
DIM SHARED repeat AS INTEGER '         Game loop control variable
DIM SHARED ttf16 AS LONG
DIM SHARED ttf24 AS LONG
DIM SHARED ttf36 AS LONG
DIM SHARED ttf72 AS LONG
DIM SHARED fleet(1000) AS FLEETS
DIM SHARED fltcnt AS INTEGER
DIM SHARED LL AS INTEGER
DIM SHARED rng AS INTEGER
DIM SHARED slct AS INTEGER
DIM SHARED pact AS INTEGER
DIM SHARED oact AS INTEGER
DIM SHARED ii AS INTEGER
DIM SHARED panx, pany AS INTEGER
DIM SHARED oanx, oany AS INTEGER
DIM SHARED dig AS INTEGER
DIM SHARED strng AS STRING * 14
DIM SHARED value AS INTEGER
DIM SHARED id AS INTEGER
DIM SHARED hate(7, 7) AS INTEGER
DIM SHARED paused AS INTEGER
DIM SHARED src AS INTEGER
DIM SHARED dst AS INTEGER
DIM SHARED strng0 AS STRING * 10
DIM SHARED strng1 AS STRING * 10
DIM SHARED order(100) AS ORDERS
DIM SHARED box AS INTEGER
DIM SHARED ord AS ORDERS
 
sw = _DESKTOPWIDTH '                   native video with of syatem
sww = sw / 24 '                        margin based on native video width to keep stars away from edge
swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
nw = 1920
 
ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
 
sh = _DESKTOPHEIGHT
shw = sh / 20
shn = sh / 40
nh = 1080
 
tt = 0
lcx = sw
rcx = sw
cp = 100
h = 100
ar = 0
rng = 200
slct = 0
strng = ""
strng0 = ""
strng1 = ""
src = 100
dst = 100
ord.src = 100
 
SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
 
_FULLSCREEN
 
sp = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
op = _NEWIMAGE(400 * ratio, 225 * ratio, 256)
 
StarNames '                            Routine to load star names into string array stars(200)
 
NewGame
 
ttf16 = _LOADFONT("cyberbit.ttf", 16 * ratio, "BOLD")
ttf24 = _LOADFONT("cyberbit.ttf", 24 * ratio, "BOLD")
ttf36 = _LOADFONT("cyberbit.ttf", 36 * ratio, "BOLD")
ttf72 = _LOADFONT("cyberbit.ttf", 72 * ratio, "BOLD")
 
repeat = 1
 
WHILE repeat
 
    _LIMIT 60 '                        Set to 200 frames per second
 
    id = INT(RND * 5 + 2)
 
    CLS
 
    PaintBackground
 
    PaintStars
 
    PaintFleet
 
    GetInput
 
    Player
 
    Computer
 
    _DISPLAY
 
WEND
 
SYSTEM
 
SUB Computer
    STATIC last(7) AS INTEGER
 
    IF paused = 0 THEN
        RANDOMIZE TIMER
        FOR i = 0 TO 99
            r = INT(RND * 60)
            IF r < star(i).p THEN
                IF star(i).o > 0 THEN
                    star(i).t = star(i).t + 1
                ELSE
                    IF INT(RND * 10) < 3 THEN
                        star(i).t = star(i).t + 1
                    END IF
                END IF
            END IF
        NEXT
 
        org = home(id)
        IF star(org).o <> id THEN
            FOR j = 0 TO 99
                IF star(j).o = id THEN home(id) = j: EXIT FOR
            NEXT
        END IF
 
        FOR p = 0 TO 3
 
            IF p = 0 THEN
                away = 10000
                i = home(id)
                IF star(i).t > LL THEN
                    FOR j = 0 TO 99
                        IF star(j).o <> id AND last(id) <> j THEN
                            dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                            IF dist <= 250 AND star(j).t > star(i).t / 3 THEN
                                away = 10000
                                EXIT FOR
                            END IF
                            ok = 0
                            FOR K = 0 TO 99
                                IF star(K).o = id THEN
                                    dist = SQR(ABS(star(j).x - star(K).x) ^ 2 + ABS(star(j).y - star(K).y) ^ 2)
                                    IF dist <= 250 THEN
                                        ok = 1
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                            IF ok = 1 THEN
                                dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                IF dist < away AND star(i).t > star(j).t * 2 THEN
                                    away = dist
                                    jay = j
                                END IF
                            END IF
                        END IF
                    NEXT
                    IF away < 10000 THEN
                        last(id) = jay
                        SendFleet i, jay, star(i).t / 1.5
                    END IF
                END IF
            END IF
 
            IF p = 1 THEN
                sf2 = 100
                FOR i = 0 TO 99
                    IF star(i).o = id AND i <> home(id) AND star(i).t > LL * 1.5 THEN
                        sf3 = star(i).t / 2
                        FOR j = 0 TO 99
                            IF star(j).o <> id AND star(i).t > star(j).t * 4 THEN
                                FOR K = 0 TO 99
                                    IF star(K).o = id THEN
                                        dist = SQR(ABS(star(K).x - star(j).x) ^ 2 + ABS(star(K).y - star(j).y) ^ 2)
                                        IF dist <= 250 * ratio THEN
                                            sf1 = i
                                            sf2 = j
                                            EXIT FOR
                                        END IF
                                    END IF
                                NEXT
                            END IF
                        NEXT
                        IF sf2 < 100 THEN EXIT FOR
                    END IF
                NEXT
                IF sf2 < 100 THEN
                    SendFleet sf1, sf2, sf3
                    EXIT FOR
                END IF
            END IF
 
            IF p = 2 THEN
                FOR i = 0 TO 99
                    IF i <> home(id) AND star(i).o = id THEN
                        IF star(i).t > 49 THEN
                            ok = 1
                            FOR j = 0 TO 99
                                IF star(j).o <> id AND star(j).o <> 0 THEN
                                    dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                    IF dist <= 350 * ratio THEN
                                        ok = 0
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                            IF ok = 1 THEN
                                SendFleet i, home(id), star(i).t
                                EXIT FOR
                            END IF
                        END IF
                    END IF
                NEXT
                IF ok = 1 THEN EXIT FOR
            END IF
 
            IF p = 3 THEN
                ok = 0
                FOR i = 0 TO 99
                    IF i <> home(id) AND star(i).o = id THEN
                        IF star(i).t > LL * 1.5 + star(i).p * 50 THEN
                            ok = 1
                            EXIT FOR
                        END IF
                    END IF
                NEXT
                IF ok = 1 THEN
                    SendFleet i, home(id), star(i).t / 4
                    EXIT FOR
                END IF
            END IF
 
        NEXT
 
        count = fltcnt
        i = 0
        WHILE count
            IF fleet(i).o <> 0 THEN
                count = count - 1
                IF fleet(i).x2 > fleet(i).x1 THEN
                    fleet(i).x1 = fleet(i).x1 + 1
                END IF
                IF fleet(i).x2 < fleet(i).x1 THEN
                    fleet(i).x1 = fleet(i).x1 - 1
                END IF
                IF fleet(i).y2 > fleet(i).y1 THEN
                    fleet(i).y1 = fleet(i).y1 + 1
                END IF
                IF fleet(i).y2 < fleet(i).y1 THEN
                    fleet(i).y1 = fleet(i).y1 - 1
                END IF
                IF fleet(i).x1 = fleet(i).x2 AND fleet(i).y1 = fleet(i).y2 THEN
                    dest = fleet(i).d
                    IF star(dest).o = fleet(i).o THEN
                        star(dest).t = star(dest).t + fleet(i).t
                        fleet(i).o = 0
                        fltcnt = fltcnt - 1
                    ELSE
                        IF fleet(i).t > star(dest).t * 0.6 THEN
                            alive = 1
                            WHILE alive
                                alive = 0
                                damorg = fleet(i).t / 10 + 1
                                damdst = star(dest).t / 9 + 1
                                fleet(i).t = fleet(i).t - damdst
                                star(dest).t = star(dest).t - damorg
                                IF fleet(i).t > 0 AND star(dest).t > 0 THEN
                                    alive = 1
                                END IF
                            WEND
                            IF star(dest).t < 1 THEN
                                hate(star(dest).o, fleet(i).o) = hate(star(dest).o, fleet(i).o) + 1
                                star(dest).t = fleet(i).t
                                star(dest).o = fleet(i).o
                            END IF
                            fleet(i).o = 0
                            fltcnt = fltcnt - 1
                        ELSE
                            K = 100
                            shortest = 10000
                            FOR j = 0 TO 99
                                IF star(j).o = fleet(i).o THEN
                                    dist = SQR(ABS(star(j).x - fleet(i).x1) ^ 2 + ABS(star(j).y - fleet(i).y1) ^ 2)
                                    IF dist < shortest THEN
                                        shortest = dist
                                        K = j
                                    END IF
                                END IF
                            NEXT
                            IF K < 100 THEN
                                fleet(i).x2 = star(K).x
                                fleet(i).y2 = star(K).y
                                fleet(i).d = K
                            END IF
                        END IF
                    END IF
                END IF
            END IF
            i = i + 1
        WEND
    END IF
END SUB
 
SUB GetInput
 
    IF ch = CHR$(27) THEN repeat = 0
    IF ch = "n" THEN NewGame
    IF ch = "t" THEN tt = 1 - tt
    IF ch = "p" THEN paused = 1 - paused
    ch = INKEY$
 
    lclk = 0
    rclk = 0
 
    WHILE _MOUSEINPUT
 
        x = _MOUSEX
        y = _MOUSEY
        lmb = _MOUSEBUTTON(1)
        rmb = _MOUSEBUTTON(2)
 
        IF lmb AND lcx = sw THEN lcx = x
        IF rmb AND rcx = sw THEN rcx = x
    WEND
 
    IF lmb = 0 AND lcx < sw THEN lclk = 1
    IF rmb = 0 AND rcx < sw THEN rclk = 1
 
    lcx = sw
    rcx = sw
 
    x = _MOUSEX
    y = _MOUSEY
 
    IF rclk = 1 THEN
        i = Identify
        IF i = 100 THEN
            IF src = 100 THEN
                paused = 1 - paused
                ch = ""
            ELSE
                src = 100
                oact = 0
                pact = 0
            END IF
            rclk = 0
        END IF
        IF pact = 1 OR oact = 1 THEN
            rclk = 0
        END IF
    END IF
 
END SUB
 
FUNCTION Identify
    ii = 100
    FOR i = 0 TO 99
        dx = star(i).x - x
        dy = star(i).y - y
        IF ABS(dx) <= star(i).s + 8 AND ABS(dy) <= star(i).s + 8 THEN
            ii = i
            EXIT FOR
        END IF
    NEXT
    Identify = ii
END FUNCTION
 
SUB OrderPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 225 * ratio THEN y1 = sh - 225 * ratio
    y2 = y1 + 225 * ratio
    _DEST op
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf72
    n$ = RTRIM$(star(i).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 4 * ratio), n$, op
    LINE (20 * ratio, 76 * ratio)-(380 * ratio, 76 * ratio), 0
    _PRINTSTRING (20 * ratio, 80 * ratio), "0123456789", op
    COLOR 7, 8
    _FONT ttf36
    IF box = 0 THEN
        _PRINTSTRING (20 * ratio, 166 * ratio), "If Over", op
        xo = 142 * ratio: xd = 250 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 268 * ratio: xd = 314 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 332 * ratio: xd = 366 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        n$ = RTRIM$(strng0)
        COLOR 0, 7
        _FONT ttf24
        _PRINTSTRING (148 * ratio, 172 * ratio), n$, op
        _PRINTSTRING (273 * ratio, 172 * ratio), "OK", op
        _PRINTSTRING (341 * ratio, 172 * ratio), "X", op
    END IF
    IF box = 1 THEN
        _PRINTSTRING (20 * ratio, 166 * ratio), "Then Send", op
        xo = 198 * ratio: xd = 278 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 294 * ratio: xd = 340 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 356 * ratio: xd = 390 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        n$ = RTRIM$(strng1)
        COLOR 0, 7
        _FONT ttf24
        _PRINTSTRING (200 * ratio, 172 * ratio), n$, op
        _PRINTSTRING (299 * ratio, 172 * ratio), "OK", op
        _PRINTSTRING (365 * ratio, 172 * ratio), "X", op
    END IF
    _PUTIMAGE (x1, y1), op, 0, (0, 0)-(400 * ratio, 225 * ratio)
    _DEST 0
    oanx = x1: oany = y1
END SUB
 
SUB PaintBackground
    RANDOMIZE TIMER
    x = RND * sw
    y = RND * sh
    c = RND * 14 + 1
    PSET (x, y), c
    RANDOMIZE USING seed
    FOR i = 1 TO 600 * ratio
        x = RND * sw
        y = RND * sh
        c = RND * 14 + 1
        PSET (x, y), c
    NEXT
END SUB
 
SUB PaintFleet
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            CIRCLE (fleet(i).x1, fleet(i).y1), 3, fleet(i).o + 8
            count = count - 1
        END IF
        i = i + 1
    WEND
END SUB
 
SUB PaintStars
    FOR i = 0 TO 99
        c = star(i).c
        x = star(i).x
        y = star(i).y
        o = star(i).o
        CIRCLE (x, y), (star(i).s + 8) * ratio, c
        COLOR 15
        IF o > 0 THEN
            PAINT (x, y), o + 8, c
        END IF
        _FONT ttf16
        IF tt THEN
            n$ = star(i).n
            n$ = RTRIM$(n$)
            l = _PRINTWIDTH(n$)
            _PRINTSTRING (x + 10, y), STR$(star(i).p), 0
        ELSE
            n$ = STR$(star(i).t)
            l = _PRINTWIDTH(n$)
        END IF
        _PRINTSTRING (x - l / 2, y + 14), n$, 0
    NEXT
END SUB
 
SUB Player
 
    'Add new order to standing orders
    IF ord.src <> 100 THEN
        i = ord.src
        IF ord.shp = 0 THEN
            order(i).src = 100
        ELSE
            order(i) = ord
        END IF
        ord.src = 100
    END IF
 
    'execute standing orders
    FOR i = 0 TO 99
        IF order(i).src <> 100 THEN
            IF star(i).o <> 1 THEN
                order(i).src = 100
            ELSE
                IF star(i).t >= order(i).ovr THEN
                    SendFleet order(i).src, order(i).dst, order(i).shp
                END IF
            END IF
        END IF
    NEXT
 
    IF pact = 0 AND oact = 0 THEN
 
        'If there is no source star see if we can get one
        IF src = 100 THEN
            IF lclk = 1 OR rclk = 1 THEN
                lclk = 0
                rclk = 0
                src = Identify
            END IF
        END IF
 
        ' If there is a source star then look for a right click else draw a range line
        IF src <> 100 THEN
            c = 12
            FOR i = 0 TO 99
                IF star(i).o = 1 THEN
                    dist = SQR(ABS(star(i).x - x) ^ 2 + ABS(star(i).y - y) ^ 2)
                    IF dist <= 250 * ratio THEN
                        c = 10
                        EXIT FOR
                    END IF
                END IF
            NEXT
            rang = SQR(ABS(star(src).x - x) ^ 2 + ABS(star(src).y - y) ^ 2)
            i = Identify
            IF i <> 100 THEN
                x = star(i).x
                y = star(i).y
            END IF
            LINE (star(src).x, star(src).y)-(x, y), c
            n$ = STR$(INT(rang))
            _FONT ttf16
            _PRINTSTRING (x + 20, y), n$, 0
        END IF
 
        'If we have a source star see if we clicked on a destination star
        IF src <> 100 THEN
            IF lclk = 1 OR rclk = 1 THEN
                i = Identify
                IF i < 100 AND i <> src THEN
                    dst = i
                    IF lclk = 1 THEN
                        lclk = 0
                        pact = 1
                    ELSE
                        rclk = 0
                        IF star(i).o = 1 THEN
                            oact = 1
                        END IF
                    END IF
                END IF
            END IF
        END IF
 
    END IF
 
    'If the star standing orders panel is active
    IF oact = 1 THEN
 
        IF star(src).o = 1 THEN
            OrderPanel dst
        END IF
 
        IF rclk = 1 THEN oact = 0
 
        IF box = 0 THEN
            tmp$ = RTRIM$(strng0)
        ELSE
            tmp$ = RTRIM$(strng1)
        END IF
 
        IF lclk = 1 THEN
 
            x1 = oanx: x2 = oanx + 400 * ratio
            y1 = oany: y2 = oany + 540 * ratio
 
            IF y > y1 + 80 * ratio AND y < y1 + 152 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    IF box = 0 THEN
                        n$ = RTRIM$(strng0)
                        l = LEN(n$)
                        IF l < 8 THEN strng0 = tmp$ + STR$(dig)
                    ELSE
                        n$ = RTRIM$(strng1)
                        l = LEN(n$)
                        IF l < 8 THEN strng1 = tmp$ + STR$(dig)
                    END IF
                END IF
            END IF
 
            IF y > y1 + 166 * ratio AND y < y1 + 200 * ratio THEN
 
                IF box = 0 THEN
 
                    IF x > x1 + 268 * ratio AND x < x1 + 314 * ratio THEN
                        ord.ovr = INT(VAL(strng0))
                        strng0 = ""
                        strng1 = ""
                        box = 1
                    END IF
 
                    IF x > x1 + 332 * ratio AND x < x1 + 366 * ratio THEN
                        strng0 = ""
                    END IF
 
                ELSE
 
                    IF x > x1 + 294 * ratio AND x < x1 + 340 * ratio THEN
                        IF INT(VAL(strng1)) > ord.ovr THEN
                            strng1 = ""
                        ELSE
                            ord.src = src
                            ord.shp = VAL(strng1)
                            ord.dst = dst
                            box = 0
                            oact = 0
                            strng0 = ""
                            strng1 = ""
                            src = 100
                        END IF
                    END IF
 
                    IF x > x1 + 356 * ratio AND x < x1 + 390 * ratio THEN
                        strng0 = ""
                        strng1 = ""
                        box = 0
                    END IF
 
                END IF
 
            END IF
        END IF
        x1 = 10000: y1 = 10000
    END IF
 
    'If the fleet send panel is active
    IF pact = 1 THEN
        IF rclk = 1 THEN pact = 0
        IF star(src).o = 1 THEN
            ShowPanel dst
        END IF
        IF lclk = 1 THEN
            tmp$ = RTRIM$(strng)
 
            x1 = panx: x2 = panx + 400 * ratio
            y1 = pany: y2 = pany + 540 * ratio
 
            IF y > y1 + 256 * ratio AND y < y1 + 328 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    strng = tmp$ + STR$(dig)
                END IF
            END IF
 
            IF y > y1 + 334 * ratio AND y < y1 + 374 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 84 * ratio THEN
                    pact = 0
                    value = star(src).t
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 102 * ratio AND x < x1 + 184 * ratio THEN
                    pact = 0
                    value = star(src).t / 2
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 202 * ratio AND x < x1 + 282 * ratio THEN
                    pact = 0
                    value = star(src).t / 3
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 300 * ratio AND x < x1 + 380 * ratio THEN
                    strng = ""
                END IF
            END IF
 
            IF y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                IF x > x1 + 32 * ratio AND x < x1 + 182 * ratio THEN
                    value = VAL(strng)
                    strng = ""
                    pact = 0
                    IF value <= star(src).t THEN
                        SendFleet src, dst, value
                    END IF
                    src = 100
                END IF
                IF x > x1 + 212 * ratio AND x < x1 + 362 * ratio THEN
                    pact = 0
                    src = 100
                    strng = ""
                END IF
            END IF
        END IF
    END IF
END SUB
 
SUB SendFleet (src, dst, ships)
    FOR i = 0 TO 999
        IF fleet(i).o = 0 THEN
            fleet(i).o = star(src).o
            fleet(i).d = dst
            fleet(i).x1 = star(src).x
            fleet(i).y1 = star(src).y
            fleet(i).x2 = star(dst).x
            fleet(i).y2 = star(dst).y
            fleet(i).t = ships
            star(src).t = star(src).t - ships
            fltcnt = fltcnt + 1
            EXIT FOR
        END IF
    NEXT
    LL = LL + 1
END SUB
 
SUB ShowPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
    y2 = y1 + 540 * ratio
    _DEST sp
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf72
    n$ = RTRIM$(star(src).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 12 * ratio), n$, sp
    n$ = "to"
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 80 * ratio), n$, sp
    n$ = RTRIM$(star(dst).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 152 * ratio), n$, sp
    LINE (20 * ratio, 239 * ratio)-(380 * ratio, 239 * ratio), 0
    _PRINTSTRING (20 * ratio, 256 * ratio), "0123456789", sp
    n$ = RTRIM$(strng)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 383 * ratio), n$, sp
    xo = 20 * ratio: xd = 84 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 102 * ratio: xd = 184 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 202 * ratio: xd = 282 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 300 * ratio: xd = 380 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 32 * ratio: xd = 182 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 212 * ratio: xd = 362 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    _FONT ttf24
    COLOR 7, 8
    n$ = RTRIM$(STR$(star(src).t))
    l = _PRINTWIDTH(n$)
    _PRINTSTRING (120 * ratio - l, 112 * ratio), n$, sp
    n$ = RTRIM$(STR$(star(dst).t))
    l = _PRINTWIDTH(n$)
    _PRINTSTRING (300 * ratio - l, 112 * ratio), n$, sp
    _FONT ttf16
    COLOR 0, 7
    _PRINTSTRING (38 * ratio, 347 * ratio), "ALL", sp
    _PRINTSTRING (122 * ratio, 347 * ratio), "HALF", sp
    _PRINTSTRING (214 * ratio, 347 * ratio), "THIRD", sp
    _PRINTSTRING (312 * ratio, 347 * ratio), "CLEAR", sp
    _FONT ttf72
    _PRINTSTRING (60 * ratio, 458 * ratio), "Ok", sp
    _PRINTSTRING (216 * ratio, 458 * ratio), "Quit", sp
    _PUTIMAGE (x1, y1), sp, 0, (0, 0)-(400 * ratio, 540 * ratio)
    panx = x1: pany = y1
    _DEST 0
END SUB
 
SUB NewGame
    DIM k AS INTEGER
    DIM r AS INTEGER
    DIM dx AS INTEGER
    DIM dy AS INTEGER
    DIM n AS STRING * 10
    paused = 1
    FOR i = 0 TO 999
        fleet(i).o = 0
    NEXT
    slct = 0
    fltcnt = 0
    LL = 25
    RANDOMIZE TIMER
    seed = RND * 1000
    FOR i = 0 TO 99
        k = 1
        WHILE k
            k = 0
            x = RND * (sw - sww) + swn
            y = RND * (sh - shw) + shn
            r = INT(RND * 200)
            n = names(r)
            FOR j = 0 TO i - 1
                dx = x - star(j).x
                dy = y - star(j).y
                IF ABS(dx) < sww AND ABS(dy) < shw THEN
                    k = 1
                END IF
                IF n = star(j).n THEN
                    k = 1
                END IF
            NEXT
        WEND
        star(i).n = n
        star(i).x = x
        star(i).y = y
        star(i).c = RND * 6 + 9
        star(i).s = RND * 5
        star(i).o = 0
        star(i).p = star(i).s + (RND * 5) + 3
        star(i).t = 0
        order(i).src = 100
    NEXT
    FOR i = 1 TO 6
        ok = 0
        WHILE (ok < 1)
            ok = 1
            j = RND * 100
            FOR k = 1 TO i - 1
                dist = SQR(ABS(star(j).x - star(home(k)).x) ^ 2 + ABS(star(j).y - star(home(k)).y) ^ 2)
                IF dist < 500 * ratio THEN
                    ok = 0
                    EXIT FOR
                END IF
            NEXT
            IF ok = 1 THEN
                ok = -1
                FOR k = 0 TO 99
                    dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                    IF dist <= 200 THEN ok = ok + 1
                    IF ok = 1 THEN EXIT FOR
                NEXT
            END IF
        WEND
        home(i) = j
        star(j).o = i
        star(j).p = 10
        star(j).t = 100
        star(j).s = 4
        star(home(1)).n = "Sol"
        star(home(1)).c = 14
    NEXT
END SUB
 
' A lot of star names I made up
 
SUB StarNames
    names(0) = "Acamar"
    names(1) = "Arcab"
    names(2) = "Acrux"
    names(3) = "Adhara"
    names(4) = "Arneb"
    names(5) = "Antares"
    names(6) = "Arcturus"
    names(7) = "Atria"
    names(8) = "Beid"
    names(9) = "Betelgeuse"
    names(10) = "Botein"
    names(11) = "Beemim"
    names(12) = "Bellatrix"
    names(13) = "Bharani"
    names(14) = "Biham"
    names(15) = "Brachium"
    names(16) = "Canopus"
    names(17) = "Capella"
    names(18) = "Castor"
    names(19) = "Chara"
    names(20) = "Cursa"
    names(21) = "Copernicus"
    names(22) = "Chalawan"
    names(23) = "Chertan"
    names(24) = "Dabih"
    names(25) = "Dalim"
    names(26) = "Deneb"
    names(27) = "Denebola"
    names(28) = "Diadem"
    names(29) = "Diphda"
    names(30) = "Dschubba"
    names(31) = "Dziban"
    names(32) = "Edasich"
    names(33) = "Electra"
    names(34) = "Elgafar"
    names(35) = "Elkurud"
    names(36) = "Elnath"
    names(37) = "Eltanin"
    names(38) = "Enif"
    names(39) = "Errai"
    names(40) = "Fafnir"
    names(41) = "Fang"
    names(42) = "Fawaris"
    names(43) = "Felis"
    names(44) = "Fomalhaut"
    names(45) = "Fulu"
    names(46) = "Fumal"
    names(47) = "Furud"
    names(48) = "Garnet"
    names(49) = "Giausar"
    names(50) = "Gienah"
    names(51) = "Ginan"
    names(52) = "Gomeisa"
    names(53) = "Graffias"
    names(54) = "Grumium"
    names(55) = "Gudja"
    names(56) = "Hadar"
    names(57) = "Haedus"
    names(58) = "Hamal"
    names(59) = "Hassaleh"
    names(60) = "Hatysa"
    names(61) = "Helvetios"
    names(62) = "Heze"
    names(63) = "Homan"
    names(64) = "Iklil"
    names(65) = "Imai"
    names(66) = "Intercrus"
    names(67) = "Izar"
    names(68) = "Iccar"
    names(69) = "Inar"
    names(70) = "Iaeth"
    names(71) = "Imaous"
    names(72) = "Jabbah"
    names(73) = "Jishui"
    names(74) = "Jax"
    names(75) = "Jalae"
    names(76) = "Jewel"
    names(77) = "Jumbo"
    names(78) = "Jerue"
    names(79) = "Jabear"
    names(80) = "Kakkab"
    names(81) = "Kang"
    names(82) = "Kekouan"
    names(83) = "Keid"
    names(84) = "Kitalpha"
    names(85) = "Kochab"
    names(86) = "Kolob"
    names(87) = "Kobol"
    names(88) = "Larawag"
    names(89) = "Lesath"
    names(90) = "Libertas"
    names(91) = "Lich"
    names(92) = "Lilly"
    names(93) = "Laddel"
    names(94) = "Luminous"
    names(95) = "Lasacious"
    names(96) = "Mizar"
    names(97) = "Markab"
    names(98) = "Matar"
    names(99) = "Mintaka"
    names(100) = "Meleph"
    names(101) = "Menkar"
    names(102) = "Merga"
    names(103) = "Merope"
    names(104) = "Nahn"
    names(105) = "Naos"
    names(106) = "Nashira"
    names(107) = "Navi"
    names(108) = "Nekkar"
    names(109) = "Nembus"
    names(110) = "Nihal"
    names(111) = "Nunki"
    names(112) = "Ogma"
    names(113) = "Okab"
    names(114) = "Ohmy"
    names(115) = "Oragami"
    names(116) = "Origen"
    names(117) = "Omanii"
    names(118) = "Obytewa"
    names(119) = "Oglok"
    names(120) = "Phact"
    names(121) = "Pherkad"
    names(122) = "Pleione"
    names(122) = "Polaris"
    names(123) = "Pollux"
    names(124) = "Procyon"
    names(125) = "Proxima"
    names(126) = "Polis"
    names(127) = "Quaint"
    names(128) = "Quazzat"
    names(129) = "Quetzal"
    names(130) = "Qussol"
    names(131) = "Quella"
    names(132) = "Quyaeo"
    names(133) = "Ququdas"
    names(134) = "Quekak"
    names(135) = "Rasalas"
    names(136) = "Regor"
    names(137) = "Regulus"
    names(138) = "Rigel"
    names(139) = "Revati"
    names(140) = "Rotenev"
    names(141) = "Rukbat"
    names(142) = "Rastaban"
    names(143) = "Sabik"
    names(144) = "Sadr"
    names(145) = "Saiph"
    names(146) = "Sargas"
    names(147) = "Sarin"
    names(148) = "Syrma"
    names(149) = "Spica"
    names(150) = "Sirius"
    names(151) = "Tarazed"
    names(152) = "Taygeta"
    names(153) = "Tejat"
    names(154) = "Thabit"
    names(155) = "Thuban"
    names(156) = "Tiaki"
    names(157) = "Toliman"
    names(158) = "Torcular"
    names(157) = "Umala"
    names(158) = "Ulatte"
    names(159) = "Ubbessa"
    names(160) = "Unoless"
    names(161) = "Umaddem"
    names(162) = "Ummbra"
    names(162) = "Uniqu"
    names(163) = "Uzzaal"
    names(164) = "Vega"
    names(165) = "Veritate"
    names(166) = "Vindetrix"
    names(167) = "Vedas"
    names(168) = "Vergg"
    names(169) = "Vacant"
    names(170) = "Vucae"
    names(171) = "Vicar"
    names(172) = "Wasat"
    names(173) = "Wazn"
    names(174) = "Wezen"
    names(175) = "Waiten"
    names(176) = "Wachar"
    names(177) = "Wheelz"
    names(178) = "Whatsp"
    names(179) = "Wassand"
    names(180) = "Xenno"
    names(181) = "Xyphod"
    names(182) = "Xu"
    names(183) = "Xaal"
    names(184) = "Xyross"
    names(185) = "Xiggot"
    names(186) = "Xirrks"
    names(187) = "Yed"
    names(188) = "Yildun"
    names(189) = "Yundun"
    names(190) = "Yavyo"
    names(191) = "Yotrac"
    names(192) = "Yxzoqu"
    names(193) = "Ynnot"
    names(194) = "Zaniah"
    names(195) = "Zaurak"
    names(196) = "Zhang"
    names(197) = "Zibal"
    names(198) = "Zosma"
    names(199) = "Zuben"
END SUB
 
 

Kazman · « **Reply #24 on:** December 23, 2019, 07:31:44 am »

I will test last version at home, because I'm testing it at work and it does almost nothing... no right click, no menus, no ships moving... I thing it is my problem, this pc is a sh#t :P

romichess · « **Reply #25 on:** December 23, 2019, 02:04:47 pm »

Quote from: Kazman on December 23, 2019, 07:31:44 am

I will test last version at home, because I'm testing it at work and it does almost nothing... no right click, no menus, no ships moving... I thing it is my problem, this pc is a sh#t :P

I'm sorry! Just to be sure I copied the posted code and ran it. It works on my machine. The game DOES START PAUSED now. Right clicking or pressing "p" toggles the paused mode. Even paused, orders should be able to be entered. Thus one should get menus. Please let me know when you get home if it is working for you, or not. Thanks!

romichess · « **Reply #26 on:** December 24, 2019, 04:31:28 pm »

I did find a couple of bugs. They were not fatal bugs. Anyway they are squashed now. And I performed more rigorous testing to make sure that there are no more bugs. And I added two more features. Lines were added for standing orders which are barely visible but if I can see them with my old eyes ... but if they are not visible on a lower contrast monitor, let me know. The second feature is a "mystery player". One of the computer players is randomly selected to use a different algorithm.

Code: QB64: [Select]

TYPE stars
    n AS STRING * 10 '                 Name of star
    x AS INTEGER '                     x-position
    y AS INTEGER '                     y-position
    o AS INTEGER '                     Owner
    c AS INTEGER '                     Color
    s AS INTEGER '                     Size
    t AS LONG '                        Ships
    p AS INTEGER '                     (Population) For now ships production
END TYPE
 
TYPE FLEETS
    t AS LONG
    x1 AS INTEGER
    y1 AS INTEGER
    x2 AS INTEGER
    y2 AS INTEGER
    o AS INTEGER
    d AS INTEGER
END TYPE
 
TYPE ORDERS
    src AS LONG
    ovr AS LONG
    shp AS LONG
    dst AS LONG
END TYPE
 
' Global variables shared because they are needed in more than one routine
DIM SHARED sw AS INTEGER '             Screen Width
DIM SHARED sh AS INTEGER '             Screen Height
DIM SHARED sww AS INTEGER '            Screen Width Wide margin
DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
DIM SHARED shw AS INTEGER '            Screen Height Wide margine
DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
DIM SHARED nw AS INTEGER '             games Natural screen Width
DIM SHARED nh AS INTEGER '             games Natural screen Height
DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
DIM SHARED star(100) AS stars '        100 stars - may change
DIM SHARED names(200) AS STRING * 10 ' 200 star names
DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
DIM SHARED home(7) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
DIM SHARED x AS INTEGER
DIM SHARED y AS INTEGER
DIM SHARED lcx AS INTEGER
DIM SHARED rcx AS INTEGER
DIM SHARED cp AS INTEGER
DIM SHARED sp AS LONG
DIM SHARED op AS LONG
DIM SHARED lclk AS LONG
DIM SHARED rclk AS LONG
DIM SHARED h AS INTEGER
DIM SHARED ch AS STRING * 1 '          Game loop key input variable
DIM SHARED repeat AS INTEGER '         Game loop control variable
DIM SHARED ttf16 AS LONG
DIM SHARED ttf24 AS LONG
DIM SHARED ttf36 AS LONG
DIM SHARED ttf72 AS LONG
DIM SHARED fleet(1000) AS FLEETS
DIM SHARED fltcnt AS INTEGER
DIM SHARED LL AS INTEGER
DIM SHARED rng AS INTEGER
DIM SHARED slct AS INTEGER
DIM SHARED pact AS INTEGER
DIM SHARED oact AS INTEGER
DIM SHARED ii AS INTEGER
DIM SHARED panx, pany AS INTEGER
DIM SHARED oanx, oany AS INTEGER
DIM SHARED dig AS INTEGER
DIM SHARED strng AS STRING * 14
DIM SHARED value AS INTEGER
DIM SHARED id AS INTEGER
DIM SHARED hate(7, 7) AS INTEGER
DIM SHARED paused AS INTEGER
DIM SHARED src AS INTEGER
DIM SHARED dst AS INTEGER
DIM SHARED strng0 AS STRING * 10
DIM SHARED strng1 AS STRING * 10
DIM SHARED order(100) AS ORDERS
DIM SHARED box AS INTEGER
DIM SHARED ord AS ORDERS
DIM SHARED hid AS INTEGER
 
sw = _DESKTOPWIDTH '                   native video with of syatem
sww = sw / 24 '                        margin based on native video width to keep stars away from edge
swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
nw = 1920
 
ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
 
sh = _DESKTOPHEIGHT
shw = sh / 20
shn = sh / 40
nh = 1080
 
tt = 0
lcx = sw
rcx = sw
cp = 100
h = 100
ar = 0
rng = 200
slct = 0
strng = ""
strng0 = ""
strng1 = ""
src = 100
dst = 100
ord.src = 100
 
SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
 
_FULLSCREEN
 
sp = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
op = _NEWIMAGE(400 * ratio, 225 * ratio, 256)
 
StarNames '                            Routine to load star names into string array stars(200)
 
NewGame
 
ttf16 = _LOADFONT("cyberbit.ttf", 16 * ratio, "BOLD")
ttf24 = _LOADFONT("cyberbit.ttf", 24 * ratio, "BOLD")
ttf36 = _LOADFONT("cyberbit.ttf", 36 * ratio, "BOLD")
ttf72 = _LOADFONT("cyberbit.ttf", 72 * ratio, "BOLD")
 
repeat = 1
 
WHILE repeat
 
    _LIMIT 60 '                        Set to 200 frames per second
 
    id = INT(RND * 5 + 2)
 
    CLS
 
    PaintBackground
 
    PaintStars
 
    PaintFleet
 
    GetInput
 
    Player
 
    Computer
 
    _DISPLAY
 
WEND
 
SYSTEM
 
SUB Computer
    STATIC last(7) AS INTEGER
 
    IF paused = 0 THEN
        RANDOMIZE TIMER
        FOR i = 0 TO 99
            r = INT(RND * 60)
            IF r < star(i).p THEN
                IF star(i).o > 0 THEN
                    star(i).t = star(i).t + 1
                ELSE
                    IF INT(RND * 10) < 3 THEN
                        star(i).t = star(i).t + 1
                    END IF
                END IF
            END IF
        NEXT
 
        org = home(id)
        IF star(org).o <> id THEN
            FOR j = 0 TO 99
                IF star(j).o = id THEN home(id) = j: EXIT FOR
            NEXT
        END IF
 
        FOR p = 0 TO 3
 
            IF p = 0 THEN
                away = 10000
                i = home(id)
                IF id = hid THEN
                    most = 0
                    FOR j = 0 TO 99
                        IF star(j).o <> hid THEN
                            ok = 0
                            FOR k = 0 TO 99
                                IF star(k).o = hid THEN
                                    dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                                    IF dist <= 250 THEN
                                        ok = 1
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                            IF ok = 1 THEN
                                IF star(j).p >= most THEN
                                    most = star(j).p
                                    jay = j
                                END IF
                            END IF
                        END IF
                    NEXT
                    IF star(i).t > star(jay).t * 3 THEN
                        SendFleet i, jay, star(i).t / 2
                    END IF
                ELSE
                    IF star(i).t > LL THEN
                        FOR j = 0 TO 99
                            IF star(j).o <> id AND last(id) <> j THEN
                                ok = 0
                                FOR k = 0 TO 99
                                    IF star(k).o = id THEN
                                        dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                                        IF dist <= 250 THEN
                                            ok = 1
                                            EXIT FOR
                                        END IF
                                    END IF
                                NEXT
                                IF ok = 1 THEN
                                    dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                    IF dist < away AND star(i).t > star(j).t * 2 THEN
                                        away = dist
                                        jay = j
                                    END IF
                                END IF
                            END IF
                        NEXT
                        IF away < 10000 THEN
                            last(id) = jay
                            SendFleet i, jay, star(i).t / 1.5
                        END IF
                    END IF
                END IF
            END IF
 
            IF p = 1 THEN
                sf2 = 100
                FOR i = 0 TO 99
                    IF star(i).o = id AND i <> home(id) AND star(i).t > LL * 1.5 THEN
                        sf3 = star(i).t / 2
                        FOR j = 0 TO 99
                            IF star(j).o <> id AND star(i).t > star(j).t * 4 AND id <> hid THEN
                                FOR k = 0 TO 99
                                    IF star(k).o = id THEN
                                        dist = SQR(ABS(star(k).x - star(j).x) ^ 2 + ABS(star(k).y - star(j).y) ^ 2)
                                        IF dist <= 250 * ratio THEN
                                            sf1 = i
                                            sf2 = j
                                            EXIT FOR
                                        END IF
                                    END IF
                                NEXT
                            END IF
                        NEXT
                        IF sf2 < 100 THEN EXIT FOR
                    END IF
                NEXT
                IF sf2 < 100 THEN
                    SendFleet sf1, sf2, sf3
                    EXIT FOR
                END IF
            END IF
 
            IF p = 2 THEN
                FOR i = 0 TO 99
                    IF i <> home(id) AND star(i).o = id THEN
                        IF star(i).t > 49 THEN
                            ok = 1
                            FOR j = 0 TO 99
                                IF star(j).o <> id AND star(j).o <> 0 THEN
                                    dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                    IF dist <= 350 * ratio THEN
                                        ok = 0
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                            IF ok = 1 THEN
                                SendFleet i, home(id), star(i).t
                                EXIT FOR
                            END IF
                        END IF
                    END IF
                NEXT
                IF ok = 1 THEN EXIT FOR
            END IF
 
            IF p = 3 THEN
                ok = 0
                FOR i = 0 TO 99
                    IF i <> home(id) AND star(i).o = id THEN
                        IF star(i).t > LL * 1.5 + star(i).p * 50 THEN
                            ok = 1
                            EXIT FOR
                        END IF
                    END IF
                NEXT
                IF ok = 1 THEN
                    SendFleet i, home(id), star(i).t / 4
                    EXIT FOR
                END IF
            END IF
 
        NEXT
 
        count = fltcnt
        i = 0
        WHILE count
            IF fleet(i).o <> 0 THEN
                count = count - 1
                IF fleet(i).x2 > fleet(i).x1 THEN
                    fleet(i).x1 = fleet(i).x1 + 1
                END IF
                IF fleet(i).x2 < fleet(i).x1 THEN
                    fleet(i).x1 = fleet(i).x1 - 1
                END IF
                IF fleet(i).y2 > fleet(i).y1 THEN
                    fleet(i).y1 = fleet(i).y1 + 1
                END IF
                IF fleet(i).y2 < fleet(i).y1 THEN
                    fleet(i).y1 = fleet(i).y1 - 1
                END IF
                IF fleet(i).x1 = fleet(i).x2 AND fleet(i).y1 = fleet(i).y2 THEN
                    dest = fleet(i).d
                    IF star(dest).o = fleet(i).o THEN
                        star(dest).t = star(dest).t + fleet(i).t
                        fleet(i).o = 0
                        fltcnt = fltcnt - 1
                    ELSE
                        IF fleet(i).t > star(dest).t * 0.6 THEN
                            alive = 1
                            WHILE alive
                                alive = 0
                                damorg = fleet(i).t / 10 + 1
                                damdst = star(dest).t / 9 + 1
                                fleet(i).t = fleet(i).t - damdst
                                star(dest).t = star(dest).t - damorg
                                IF fleet(i).t > 0 AND star(dest).t > 0 THEN
                                    alive = 1
                                END IF
                            WEND
                            IF star(dest).t < 1 THEN
                                hate(star(dest).o, fleet(i).o) = hate(star(dest).o, fleet(i).o) + 1
                                star(dest).t = fleet(i).t
                                star(dest).o = fleet(i).o
                            END IF
                            fleet(i).o = 0
                            fltcnt = fltcnt - 1
                        ELSE
                            k = 100
                            shortest = 10000
                            FOR j = 0 TO 99
                                IF star(j).o = fleet(i).o THEN
                                    dist = SQR(ABS(star(j).x - fleet(i).x1) ^ 2 + ABS(star(j).y - fleet(i).y1) ^ 2)
                                    IF dist < shortest THEN
                                        shortest = dist
                                        k = j
                                    END IF
                                END IF
                            NEXT
                            IF k < 100 THEN
                                fleet(i).x2 = star(k).x
                                fleet(i).y2 = star(k).y
                                fleet(i).d = k
                            END IF
                        END IF
                    END IF
                END IF
            END IF
            i = i + 1
        WEND
    END IF
END SUB
 
SUB GetInput
 
    IF ch = CHR$(27) THEN repeat = 0
    IF ch = "n" THEN NewGame
    IF ch = "t" THEN tt = 1 - tt
    IF ch = "p" THEN paused = 1 - paused
    ch = INKEY$
 
    lclk = 0
    rclk = 0
 
    WHILE _MOUSEINPUT
 
        x = _MOUSEX
        y = _MOUSEY
        lmb = _MOUSEBUTTON(1)
        rmb = _MOUSEBUTTON(2)
 
        IF lmb AND lcx = sw THEN lcx = x
        IF rmb AND rcx = sw THEN rcx = x
    WEND
 
    IF lmb = 0 AND lcx < sw THEN lclk = 1
    IF rmb = 0 AND rcx < sw THEN rclk = 1
 
    lcx = sw
    rcx = sw
 
    x = _MOUSEX
    y = _MOUSEY
 
    IF rclk = 1 THEN
        i = Identify
        IF i = 100 THEN
            IF src = 100 THEN
                paused = 1 - paused
                ch = ""
            ELSE
                src = 100
                oact = 0
                pact = 0
            END IF
            rclk = 0
        END IF
        IF pact = 1 OR oact = 1 THEN
            rclk = 0
        END IF
    END IF
 
END SUB
 
FUNCTION Identify
    ii = 100
    FOR i = 0 TO 99
        dx = star(i).x - x
        dy = star(i).y - y
        IF ABS(dx) <= star(i).s + 8 AND ABS(dy) <= star(i).s + 8 THEN
            ii = i
            EXIT FOR
        END IF
    NEXT
    Identify = ii
END FUNCTION
 
SUB OrderPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 225 * ratio THEN y1 = sh - 225 * ratio
    y2 = y1 + 225 * ratio
    _DEST op
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf72
    n$ = RTRIM$(star(i).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 4 * ratio), n$, op
    LINE (20 * ratio, 76 * ratio)-(380 * ratio, 76 * ratio), 0
    _PRINTSTRING (20 * ratio, 80 * ratio), "0123456789", op
    COLOR 7, 8
    _FONT ttf36
    IF box = 0 THEN
        _PRINTSTRING (20 * ratio, 166 * ratio), "If Over", op
        xo = 142 * ratio: xd = 250 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 268 * ratio: xd = 314 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 332 * ratio: xd = 366 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        n$ = RTRIM$(strng0)
        COLOR 0, 7
        _FONT ttf24
        _PRINTSTRING (148 * ratio, 172 * ratio), n$, op
        _PRINTSTRING (273 * ratio, 172 * ratio), "OK", op
        _PRINTSTRING (341 * ratio, 172 * ratio), "X", op
    END IF
    IF box = 1 THEN
        _PRINTSTRING (20 * ratio, 166 * ratio), "Then Send", op
        xo = 198 * ratio: xd = 278 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 294 * ratio: xd = 340 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 356 * ratio: xd = 390 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        n$ = RTRIM$(strng1)
        COLOR 0, 7
        _FONT ttf24
        _PRINTSTRING (200 * ratio, 172 * ratio), n$, op
        _PRINTSTRING (299 * ratio, 172 * ratio), "OK", op
        _PRINTSTRING (365 * ratio, 172 * ratio), "X", op
    END IF
    _PUTIMAGE (x1, y1), op, 0, (0, 0)-(400 * ratio, 225 * ratio)
    _DEST 0
    oanx = x1: oany = y1
END SUB
 
SUB PaintBackground
    RANDOMIZE TIMER
    x = RND * sw
    y = RND * sh
    c = RND * 14 + 1
    PSET (x, y), c
    RANDOMIZE USING seed
    FOR i = 1 TO 600 * ratio
        x = RND * sw
        y = RND * sh
        c = RND * 14 + 1
        PSET (x, y), c
    NEXT
END SUB
 
SUB PaintFleet
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            CIRCLE (fleet(i).x1, fleet(i).y1), 3, fleet(i).o + 8
            count = count - 1
        END IF
        i = i + 1
    WEND
END SUB
 
SUB PaintStars
    FOR i = 0 TO 99
        c = star(i).c
        x = star(i).x
        y = star(i).y
        o = star(i).o
        CIRCLE (x, y), (star(i).s + 8) * ratio, c
        COLOR 15
        IF o > 0 THEN
            PAINT (x, y), o + 8, c
        END IF
        _FONT ttf16
        IF tt THEN
            n$ = star(i).n
            n$ = RTRIM$(n$)
            l = _PRINTWIDTH(n$)
            _PRINTSTRING (x + 10, y), STR$(star(i).p), 0
        ELSE
            n$ = STR$(star(i).t)
            l = _PRINTWIDTH(n$)
        END IF
        _PRINTSTRING (x - l / 2, y + 14), n$, 0
    NEXT
END SUB
 
SUB Player
    'Add new order to standing orders
    IF ord.src <> 100 THEN
        i = ord.src
        IF ord.shp = 0 THEN
            order(i).src = 100
        ELSE
            order(i) = ord
        END IF
        src = 100
        ord.src = 100
    END IF
 
    'execute standing orders
    FOR i = 0 TO 99
        IF order(i).src <> 100 THEN
            IF star(i).o <> 1 THEN
                order(i).src = 100
            ELSE
                LINE (star(i).x, star(i).y)-(star(order(i).dst).x, star(order(i).dst).y), 17
                IF star(i).t >= order(i).ovr THEN
                    SendFleet order(i).src, order(i).dst, order(i).shp
                END IF
            END IF
        END IF
    NEXT
 
    IF pact = 0 AND oact = 0 THEN
 
        'If there is no source star see if we can get one
        IF src = 100 THEN
            IF lclk = 1 OR rclk = 1 THEN
                lclk = 0
                rclk = 0
                src = Identify
            END IF
        END IF
 
        ' If there is a source star then look for a right click else draw a range line
        IF src <> 100 THEN
            c = 12
            FOR i = 0 TO 99
                IF star(i).o = 1 THEN
                    dist = SQR(ABS(star(i).x - x) ^ 2 + ABS(star(i).y - y) ^ 2)
                    IF dist <= 250 * ratio THEN
                        c = 10
                        EXIT FOR
                    END IF
                END IF
            NEXT
            i = Identify
            IF i <> 100 THEN
                x = star(i).x
                y = star(i).y
            END IF
            rang = SQR(ABS(star(src).x - x) ^ 2 + ABS(star(src).y - y) ^ 2)
            LINE (star(src).x, star(src).y)-(x, y), c
            n$ = STR$(INT(rang))
            _FONT ttf16
            _PRINTSTRING (x + 20, y), n$, 0
        END IF
 
        'If we have a source star see if we clicked on a destination star
        IF src <> 100 THEN
            IF lclk = 1 OR rclk = 1 THEN
                i = Identify
                IF i < 100 AND i <> src THEN
                    IF lclk = 1 THEN
                        lclk = 0
                        FOR j = 0 TO 99
                            IF star(j).o = 1 THEN
                                dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                IF dist <= 250 THEN
                                    dst = i
                                    pact = 1
                                    EXIT FOR
                                END IF
                            END IF
                        NEXT
                    ELSE
                        rclk = 0
                        dst = i
                        IF star(i).o = 1 THEN
                            oact = 1
                        END IF
                    END IF
                END IF
            END IF
        END IF
 
    END IF
 
    'If the star standing orders panel is active
    IF oact = 1 THEN
 
        IF star(src).o = 1 THEN
            OrderPanel dst
        END IF
 
        IF rclk = 1 THEN oact = 0
 
        IF box = 0 THEN
            tmp$ = RTRIM$(strng0)
        ELSE
            tmp$ = RTRIM$(strng1)
        END IF
 
        IF lclk = 1 THEN
 
            x1 = oanx: x2 = oanx + 400 * ratio
            y1 = oany: y2 = oany + 540 * ratio
 
            IF y > y1 + 80 * ratio AND y < y1 + 152 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    IF box = 0 THEN
                        n$ = RTRIM$(strng0)
                        l = LEN(n$)
                        IF l < 8 THEN strng0 = tmp$ + STR$(dig)
                    ELSE
                        n$ = RTRIM$(strng1)
                        l = LEN(n$)
                        IF l < 8 THEN strng1 = tmp$ + STR$(dig)
                    END IF
                END IF
            END IF
 
            IF y > y1 + 166 * ratio AND y < y1 + 200 * ratio THEN
 
                IF box = 0 THEN
 
                    IF x > x1 + 268 * ratio AND x < x1 + 314 * ratio THEN
                        ord.ovr = INT(VAL(strng0))
                        box = 1
                    END IF
 
                    IF x > x1 + 332 * ratio AND x < x1 + 366 * ratio THEN
                        strng0 = ""
                    END IF
 
                ELSE
 
                    IF x > x1 + 294 * ratio AND x < x1 + 340 * ratio THEN
                        IF INT(VAL(strng1)) > ord.ovr THEN
                            strng1 = ""
                        ELSE
                            box = 0
                            oact = 0
                            ord.src = src
                            ord.dst = dst
                            ord.shp = VAL(strng1)
                            strng0 = ""
                            strng1 = ""
                        END IF
                    END IF
 
                    IF x > x1 + 356 * ratio AND x < x1 + 390 * ratio THEN
                        strng0 = ""
                        strng1 = ""
                        box = 0
                    END IF
 
                END IF
 
            END IF
        END IF
        x1 = 10000: y1 = 10000
 
    END IF
 
 
    'If the fleet send panel is active
    IF pact = 1 THEN
        IF rclk = 1 THEN pact = 0
        IF star(src).o = 1 THEN
            ShowPanel dst
        END IF
        IF lclk = 1 THEN
            tmp$ = RTRIM$(strng)
 
            x1 = panx: x2 = panx + 400 * ratio
            y1 = pany: y2 = pany + 540 * ratio
 
            IF y > y1 + 256 * ratio AND y < y1 + 328 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    strng = tmp$ + STR$(dig)
                END IF
            END IF
 
            IF y > y1 + 334 * ratio AND y < y1 + 374 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 84 * ratio THEN
                    pact = 0
                    value = star(src).t
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 102 * ratio AND x < x1 + 184 * ratio THEN
                    pact = 0
                    value = star(src).t / 2
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 202 * ratio AND x < x1 + 282 * ratio THEN
                    pact = 0
                    value = star(src).t / 3
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 300 * ratio AND x < x1 + 380 * ratio THEN
                    strng = ""
                END IF
            END IF
 
            IF y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                IF x > x1 + 32 * ratio AND x < x1 + 182 * ratio THEN
                    value = VAL(strng)
                    strng = ""
                    pact = 0
                    IF value <= star(src).t THEN
                        SendFleet src, dst, value
                    END IF
                    src = 100
                END IF
                IF x > x1 + 212 * ratio AND x < x1 + 362 * ratio THEN
                    pact = 0
                    src = 100
                    strng = ""
                END IF
            END IF
        END IF
    END IF
END SUB
 
SUB SendFleet (src, dst, ships)
    FOR i = 0 TO 999
        IF fleet(i).o = 0 THEN
            fleet(i).o = star(src).o
            fleet(i).d = dst
            fleet(i).x1 = star(src).x
            fleet(i).y1 = star(src).y
            fleet(i).x2 = star(dst).x
            fleet(i).y2 = star(dst).y
            fleet(i).t = ships
            star(src).t = star(src).t - ships
            fltcnt = fltcnt + 1
            EXIT FOR
        END IF
    NEXT
    LL = LL + 1
END SUB
 
SUB ShowPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
    y2 = y1 + 540 * ratio
    _DEST sp
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf72
    n$ = RTRIM$(star(src).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 12 * ratio), n$, sp
    n$ = "to"
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 80 * ratio), n$, sp
    n$ = RTRIM$(star(dst).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 152 * ratio), n$, sp
    LINE (20 * ratio, 239 * ratio)-(380 * ratio, 239 * ratio), 0
    _PRINTSTRING (20 * ratio, 256 * ratio), "0123456789", sp
    n$ = RTRIM$(strng)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 383 * ratio), n$, sp
    xo = 20 * ratio: xd = 84 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 102 * ratio: xd = 184 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 202 * ratio: xd = 282 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 300 * ratio: xd = 380 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 32 * ratio: xd = 182 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 212 * ratio: xd = 362 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    _FONT ttf24
    COLOR 7, 8
    n$ = RTRIM$(STR$(star(src).t))
    l = _PRINTWIDTH(n$)
    _PRINTSTRING (120 * ratio - l, 112 * ratio), n$, sp
    n$ = RTRIM$(STR$(star(dst).t))
    l = _PRINTWIDTH(n$)
    _PRINTSTRING (300 * ratio - l, 112 * ratio), n$, sp
    _FONT ttf16
    COLOR 0, 7
    _PRINTSTRING (38 * ratio, 347 * ratio), "ALL", sp
    _PRINTSTRING (122 * ratio, 347 * ratio), "HALF", sp
    _PRINTSTRING (214 * ratio, 347 * ratio), "THIRD", sp
    _PRINTSTRING (312 * ratio, 347 * ratio), "CLEAR", sp
    _FONT ttf72
    _PRINTSTRING (60 * ratio, 458 * ratio), "Ok", sp
    _PRINTSTRING (216 * ratio, 458 * ratio), "Quit", sp
    _PUTIMAGE (x1, y1), sp, 0, (0, 0)-(400 * ratio, 540 * ratio)
    panx = x1: pany = y1
    _DEST 0
END SUB
 
SUB NewGame
    DIM k AS INTEGER
    DIM r AS INTEGER
    DIM dx AS INTEGER
    DIM dy AS INTEGER
    DIM n AS STRING * 10
    paused = 1
    FOR i = 0 TO 999
        fleet(i).o = 0
    NEXT
    slct = 0
    fltcnt = 0
    LL = 25
    RANDOMIZE TIMER
    seed = RND * 1000
    FOR i = 0 TO 99
        k = 1
        WHILE k
            k = 0
            x = RND * (sw - sww) + swn
            y = RND * (sh - shw) + shn
            r = INT(RND * 200)
            n = names(r)
            FOR j = 0 TO i - 1
                dx = x - star(j).x
                dy = y - star(j).y
                IF ABS(dx) < sww AND ABS(dy) < shw THEN
                    k = 1
                END IF
                IF n = star(j).n THEN
                    k = 1
                END IF
            NEXT
        WEND
        star(i).n = n
        star(i).x = x
        star(i).y = y
        star(i).c = RND * 6 + 9
        star(i).s = RND * 5
        star(i).o = 0
        star(i).p = star(i).s + (RND * 5) + 3
        star(i).t = 0
        order(i).src = 100
    NEXT
    FOR i = 1 TO 6
        ok = 0
        WHILE (ok < 1)
            ok = 1
            j = RND * 100
            FOR k = 1 TO i - 1
                dist = SQR(ABS(star(j).x - star(home(k)).x) ^ 2 + ABS(star(j).y - star(home(k)).y) ^ 2)
                IF dist < 500 * ratio THEN
                    ok = 0
                    EXIT FOR
                END IF
            NEXT
            IF ok = 1 THEN
                ok = -1
                FOR k = 0 TO 99
                    dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                    IF dist <= 200 THEN ok = ok + 1
                    IF ok = 1 THEN EXIT FOR
                NEXT
            END IF
        WEND
        home(i) = j
        star(j).o = i
        star(j).p = 10
        star(j).t = 100
        star(j).s = 4
    NEXT
    star(home(1)).n = "Sol"
    star(home(1)).c = 14
    away = 0
    from = home(1)
    FOR i = 2 TO 6
        too = home(i)
        dist = SQR(ABS(star(from).x - star(too).x ^ 2 - ABS(star(from).y - star(too).y) ^ 2))
        IF dist > away THEN
            away = dist
            hid = i
        END IF
    NEXT
END SUB
 
' A lot of star names I made up
 
SUB StarNames
    names(0) = "Acamar"
    names(1) = "Arcab"
    names(2) = "Acrux"
    names(3) = "Adhara"
    names(4) = "Arneb"
    names(5) = "Antares"
    names(6) = "Arcturus"
    names(7) = "Atria"
    names(8) = "Beid"
    names(9) = "Betelgeuse"
    names(10) = "Botein"
    names(11) = "Beemim"
    names(12) = "Bellatrix"
    names(13) = "Bharani"
    names(14) = "Biham"
    names(15) = "Brachium"
    names(16) = "Canopus"
    names(17) = "Capella"
    names(18) = "Castor"
    names(19) = "Chara"
    names(20) = "Cursa"
    names(21) = "Copernicus"
    names(22) = "Chalawan"
    names(23) = "Chertan"
    names(24) = "Dabih"
    names(25) = "Dalim"
    names(26) = "Deneb"
    names(27) = "Denebola"
    names(28) = "Diadem"
    names(29) = "Diphda"
    names(30) = "Dschubba"
    names(31) = "Dziban"
    names(32) = "Edasich"
    names(33) = "Electra"
    names(34) = "Elgafar"
    names(35) = "Elkurud"
    names(36) = "Elnath"
    names(37) = "Eltanin"
    names(38) = "Enif"
    names(39) = "Errai"
    names(40) = "Fafnir"
    names(41) = "Fang"
    names(42) = "Fawaris"
    names(43) = "Felis"
    names(44) = "Fomalhaut"
    names(45) = "Fulu"
    names(46) = "Fumal"
    names(47) = "Furud"
    names(48) = "Garnet"
    names(49) = "Giausar"
    names(50) = "Gienah"
    names(51) = "Ginan"
    names(52) = "Gomeisa"
    names(53) = "Graffias"
    names(54) = "Grumium"
    names(55) = "Gudja"
    names(56) = "Hadar"
    names(57) = "Haedus"
    names(58) = "Hamal"
    names(59) = "Hassaleh"
    names(60) = "Hatysa"
    names(61) = "Helvetios"
    names(62) = "Heze"
    names(63) = "Homan"
    names(64) = "Iklil"
    names(65) = "Imai"
    names(66) = "Intercrus"
    names(67) = "Izar"
    names(68) = "Iccar"
    names(69) = "Inar"
    names(70) = "Iaeth"
    names(71) = "Imaous"
    names(72) = "Jabbah"
    names(73) = "Jishui"
    names(74) = "Jax"
    names(75) = "Jalae"
    names(76) = "Jewel"
    names(77) = "Jumbo"
    names(78) = "Jerue"
    names(79) = "Jabear"
    names(80) = "Kakkab"
    names(81) = "Kang"
    names(82) = "Kekouan"
    names(83) = "Keid"
    names(84) = "Kitalpha"
    names(85) = "Kochab"
    names(86) = "Kolob"
    names(87) = "Kobol"
    names(88) = "Larawag"
    names(89) = "Lesath"
    names(90) = "Libertas"
    names(91) = "Lich"
    names(92) = "Lilly"
    names(93) = "Laddel"
    names(94) = "Luminous"
    names(95) = "Lasacious"
    names(96) = "Mizar"
    names(97) = "Markab"
    names(98) = "Matar"
    names(99) = "Mintaka"
    names(100) = "Meleph"
    names(101) = "Menkar"
    names(102) = "Merga"
    names(103) = "Merope"
    names(104) = "Nahn"
    names(105) = "Naos"
    names(106) = "Nashira"
    names(107) = "Navi"
    names(108) = "Nekkar"
    names(109) = "Nembus"
    names(110) = "Nihal"
    names(111) = "Nunki"
    names(112) = "Ogma"
    names(113) = "Okab"
    names(114) = "Ohmy"
    names(115) = "Oragami"
    names(116) = "Origen"
    names(117) = "Omanii"
    names(118) = "Obytewa"
    names(119) = "Oglok"
    names(120) = "Phact"
    names(121) = "Pherkad"
    names(122) = "Pleione"
    names(122) = "Polaris"
    names(123) = "Pollux"
    names(124) = "Procyon"
    names(125) = "Proxima"
    names(126) = "Polis"
    names(127) = "Quaint"
    names(128) = "Quazzat"
    names(129) = "Quetzal"
    names(130) = "Qussol"
    names(131) = "Quella"
    names(132) = "Quyaeo"
    names(133) = "Ququdas"
    names(134) = "Quekak"
    names(135) = "Rasalas"
    names(136) = "Regor"
    names(137) = "Regulus"
    names(138) = "Rigel"
    names(139) = "Revati"
    names(140) = "Rotenev"
    names(141) = "Rukbat"
    names(142) = "Rastaban"
    names(143) = "Sabik"
    names(144) = "Sadr"
    names(145) = "Saiph"
    names(146) = "Sargas"
    names(147) = "Sarin"
    names(148) = "Syrma"
    names(149) = "Spica"
    names(150) = "Sirius"
    names(151) = "Tarazed"
    names(152) = "Taygeta"
    names(153) = "Tejat"
    names(154) = "Thabit"
    names(155) = "Thuban"
    names(156) = "Tiaki"
    names(157) = "Toliman"
    names(158) = "Torcular"
    names(157) = "Umala"
    names(158) = "Ulatte"
    names(159) = "Ubbessa"
    names(160) = "Unoless"
    names(161) = "Umaddem"
    names(162) = "Ummbra"
    names(162) = "Uniqu"
    names(163) = "Uzzaal"
    names(164) = "Vega"
    names(165) = "Veritate"
    names(166) = "Vindetrix"
    names(167) = "Vedas"
    names(168) = "Vergg"
    names(169) = "Vacant"
    names(170) = "Vucae"
    names(171) = "Vicar"
    names(172) = "Wasat"
    names(173) = "Wazn"
    names(174) = "Wezen"
    names(175) = "Waiten"
    names(176) = "Wachar"
    names(177) = "Wheelz"
    names(178) = "Whatsp"
    names(179) = "Wassand"
    names(180) = "Xenno"
    names(181) = "Xyphod"
    names(182) = "Xu"
    names(183) = "Xaal"
    names(184) = "Xyross"
    names(185) = "Xiggot"
    names(186) = "Xirrks"
    names(187) = "Yed"
    names(188) = "Yildun"
    names(189) = "Yundun"
    names(190) = "Yavyo"
    names(191) = "Yotrac"
    names(192) = "Yxzoqu"
    names(193) = "Ynnot"
    names(194) = "Zaniah"
    names(195) = "Zaurak"
    names(196) = "Zhang"
    names(197) = "Zibal"
    names(198) = "Zosma"
    names(199) = "Zuben"
END SUB
 

romichess · « **Reply #27 on:** December 30, 2019, 07:25:47 pm »

The instructions are in the attachment.

Starbases are still in development. To do them well is proving more difficult than expected. When and where to build them is not easy. Unless one gets off to a good start it is very hard to beat the computer. If beating the computer is too difficult I may add starbases for the human player first.

Code: QB64: [Select]

TYPE stars
    n AS STRING * 10 '                 Name of star
    x AS INTEGER '                     x-position
    y AS INTEGER '                     y-position
    o AS INTEGER '                     Owner
    c AS INTEGER '                     Color
    s AS INTEGER '                     Size
    t AS LONG '                        Ships
    p AS INTEGER '
    d AS INTEGER '                   (Population) For now ships production
END TYPE
 
TYPE FLEETS
    t AS LONG
    x1 AS INTEGER
    y1 AS INTEGER
    x2 AS INTEGER
    y2 AS INTEGER
    o AS INTEGER
    d AS INTEGER
END TYPE
 
TYPE ORDERS
    src AS LONG
    ovr AS LONG
    shp AS LONG
    dst AS LONG
END TYPE
 
' Global variables shared because they are needed in more than one routine
DIM SHARED sw AS INTEGER '             Screen Width
DIM SHARED sh AS INTEGER '             Screen Height
DIM SHARED sww AS INTEGER '            Screen Width Wide margin
DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
DIM SHARED shw AS INTEGER '            Screen Height Wide margine
DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
DIM SHARED nw AS INTEGER '             games Natural screen Width
DIM SHARED nh AS INTEGER '             games Natural screen Height
DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
DIM SHARED star(100) AS stars '        100 stars - may change
DIM SHARED names(200) AS STRING * 10 ' 200 star names
DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
DIM SHARED home(7) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
DIM SHARED x AS INTEGER
DIM SHARED y AS INTEGER
DIM SHARED lcx AS INTEGER
DIM SHARED rcx AS INTEGER
DIM SHARED cp AS INTEGER
DIM SHARED sp AS LONG
DIM SHARED op AS LONG
DIM SHARED lclk AS LONG
DIM SHARED rclk AS LONG
DIM SHARED h AS INTEGER
DIM SHARED ch AS STRING * 1 '          Game loop key input variable
DIM SHARED repeat AS INTEGER '         Game loop control variable
DIM SHARED ttf16 AS LONG
DIM SHARED ttf24 AS LONG
DIM SHARED ttf36 AS LONG
DIM SHARED ttf72 AS LONG
DIM SHARED fleet(2000) AS FLEETS
DIM SHARED fltcnt AS INTEGER
DIM SHARED LL AS INTEGER
DIM SHARED rng AS INTEGER
DIM SHARED slct AS INTEGER
DIM SHARED pact AS INTEGER
DIM SHARED oact AS INTEGER
DIM SHARED ii AS INTEGER
DIM SHARED panx, pany AS INTEGER
DIM SHARED oanx, oany AS INTEGER
DIM SHARED dig AS INTEGER
DIM SHARED strng AS STRING * 14
DIM SHARED value AS LONG
DIM SHARED id AS INTEGER
'DIM SHARED hate(7, 7) AS INTEGER
DIM SHARED paused AS INTEGER
DIM SHARED src AS INTEGER
DIM SHARED dst AS INTEGER
DIM SHARED strng0 AS STRING * 10
DIM SHARED strng1 AS STRING * 10
DIM SHARED order(100) AS ORDERS
DIM SHARED box AS INTEGER
DIM SHARED ord AS ORDERS
DIM SHARED it AS INTEGER
DIM SHARED speed AS INTEGER
DIM SHARED hate(7, 7) AS LONG
 
 
sw = _DESKTOPWIDTH '                   native video with of syatem
sww = sw / 24 '                        margin based on native video width to keep stars away from edge
swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
nw = 1920
 
ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
 
sh = _DESKTOPHEIGHT
shw = sh / 20
shn = sh / 40
nh = 1080
 
tt = 0
lcx = sw
rcx = sw
cp = 100
h = 100
ar = 0
rng = 200
slct = 0
strng = ""
strng0 = ""
strng1 = ""
src = 100
dst = 100
ord.src = 100
 
SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
 
_FULLSCREEN
 
sp = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
op = _NEWIMAGE(400 * ratio, 225 * ratio, 256)
 
StarNames '                            Routine to load star names into string array stars(200)
 
NewGame
 
ttf16 = _LOADFONT("cyberbit.ttf", 16 * ratio, "BOLD")
ttf24 = _LOADFONT("cyberbit.ttf", 24 * ratio, "BOLD")
ttf36 = _LOADFONT("cyberbit.ttf", 36 * ratio, "BOLD")
ttf72 = _LOADFONT("cyberbit.ttf", 72 * ratio, "BOLD")
 
repeat = 1
 
WHILE repeat
 
    id = INT(RND * 5 + 2)
 
    CLS
 
    PaintBackground
 
    PaintStars
 
    PaintFleet
 
    FOR it = 0 TO speed
 
        GetInput
 
        Player
 
        Computer
 
    NEXT
 
    PRINT LL
 
    _DISPLAY
 
WEND
 
SYSTEM
 
SUB Computer
 
    IF paused = 0 THEN
        RANDOMIZE TIMER
        FOR i = 0 TO 99
            r = INT(RND * 60)
            IF r < star(i).p THEN
                IF star(i).o > 0 THEN
                    star(i).t = star(i).t + 1
                ELSE
                    IF INT(RND * 10) < 3 THEN
                        star(i).t = star(i).t + 1
                    END IF
                END IF
            END IF
        NEXT
 
        i = home(id)
        IF star(i).o <> id THEN
            FOR j = 0 TO 99
                IF star(j).o = id THEN home(id) = j: i = j: EXIT FOR
            NEXT
        END IF
 
        dis = 0
        hid = 0
        FOR j = 1 TO 6
            IF j <> id THEN
                IF hate(id, j) > dis THEN
                    dis = hate(id, j)
                    hid = j
                END IF
            END IF
        NEXT
 
        FOR p = 0 TO 3
 
            IF p = 0 THEN
                IF star(i).t > LL THEN
                    away = 10000
                    jay = 100
                    FOR j = 0 TO 99
                        IF star(j).d > 0 THEN
                            star(j).d = star(j).d - 1
                        ELSE
                            IF star(j).o = hid THEN th = 3 ELSE th = 4
                            IF star(j).o <> id AND star(i).t > star(j).t * th THEN
                                ok = 0
                                FOR k = 0 TO 99
                                    IF star(k).o = id THEN
                                        dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                                        IF dist < 251 THEN
                                            ok = 1
                                            EXIT FOR
                                        END IF
                                    END IF
                                NEXT
                                IF ok = 1 THEN
                                    dist = SQR(ABS(star(j).x - star(i).x) ^ 2 + ABS(star(j).y - star(i).y) ^ 2)
                                    IF dist < away THEN
                                        away = dist
                                        jay = j
                                    END IF
                                END IF
                            END IF
                        END IF
                    NEXT
                    IF jay < 100 THEN
                        SendFleet i, jay, star(i).t / 1.5
                        star(jay).d = 1000
                    END IF
                END IF
            END IF
 
            IF p = 1 THEN
                sf2 = 100
                FOR i = 0 TO 99
                    IF star(i).o = id AND i <> home(id) AND star(i).t > LL * 1.5 THEN
                        sf3 = star(i).t / 2
                        FOR j = 0 TO 99
                            IF star(j).d > 0 THEN
                                star(j).d = star(j).d - 1
                            ELSE
                                IF star(j).o <> id AND star(i).t > star(j).t * 4 THEN
                                    FOR k = 0 TO 99
                                        IF star(k).o = id THEN
                                            dist = SQR(ABS(star(k).x - star(j).x) ^ 2 + ABS(star(k).y - star(j).y) ^ 2)
                                            IF dist <= 250 * ratio THEN
                                                sf1 = i
                                                sf2 = j
                                                EXIT FOR
                                            END IF
                                        END IF
                                    NEXT
                                END IF
                            END IF
                        NEXT
                        IF sf2 < 100 THEN EXIT FOR
                    END IF
                NEXT
                IF sf2 < 100 THEN
                    SendFleet sf1, sf2, sf3
                    star(sf2).d = 1000
                    EXIT FOR
                END IF
            END IF
 
            IF p = 2 THEN
                FOR i = 0 TO 99
                    IF i <> home(id) AND star(i).o = id THEN
                        IF star(i).t > LL / 2 THEN
                            ok = 1
                            FOR j = 0 TO 99
                                IF star(j).o <> id AND star(j).o <> 0 THEN
                                    dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                    IF dist <= 350 * ratio THEN
                                        ok = 0
                                        EXIT FOR
                                    END IF
                                END IF
                            NEXT
                            IF ok = 1 THEN
                                SendFleet i, home(id), star(i).t / 2
                                EXIT FOR
                            END IF
                        END IF
                    END IF
                NEXT
                IF ok = 1 THEN EXIT FOR
            END IF
 
            IF p = 3 THEN
                ok = 0
                FOR i = 0 TO 99
                    IF i <> home(id) AND star(i).o = id THEN
                        IF star(i).t > LL * 1.5 + star(i).p * 50 THEN
                            ok = 1
                            EXIT FOR
                        END IF
                    END IF
                NEXT
                IF ok = 1 THEN
                    SendFleet i, home(id), star(i).t / 4
                    EXIT FOR
                END IF
            END IF
 
        NEXT
 
        count = fltcnt
        i = 0
        WHILE count
            IF fleet(i).o <> 0 THEN
                count = count - 1
                IF fleet(i).x2 > fleet(i).x1 THEN
                    fleet(i).x1 = fleet(i).x1 + 1
                END IF
                IF fleet(i).x2 < fleet(i).x1 THEN
                    fleet(i).x1 = fleet(i).x1 - 1
                END IF
                IF fleet(i).y2 > fleet(i).y1 THEN
                    fleet(i).y1 = fleet(i).y1 + 1
                END IF
                IF fleet(i).y2 < fleet(i).y1 THEN
                    fleet(i).y1 = fleet(i).y1 - 1
                END IF
                IF fleet(i).x1 = fleet(i).x2 AND fleet(i).y1 = fleet(i).y2 THEN
                    dest = fleet(i).d
                    IF star(dest).o = fleet(i).o THEN
                        star(dest).t = star(dest).t + fleet(i).t
                        fleet(i).o = 0
                        fltcnt = fltcnt - 1
                    ELSE
                        o = star(dest).o
                        IF o > 0 AND star(dest).t < fleet(i).t * 0.6 THEN
                            SendFleet dest, home(o), star(dest).t * 0.9
                            star(dest).t = 0
                            star(dest).o = fleet(i).o
                            star(dest).t = fleet(i).t
                            star(dest).o = fleet(i).o
                            fleet(i).o = 0
                            fltcnt = fltcnt - 1
                        ELSE
                            IF fleet(i).t * 1.1 > star(dest).t THEN
                                alive = 1
                                WHILE alive
                                    alive = 0
                                    damorg = fleet(i).t / 10 + 1
                                    damdst = star(dest).t / 8 + 1
                                    fleet(i).t = fleet(i).t - damdst
                                    star(dest).t = star(dest).t - damorg
                                    IF fleet(i).t > 0 AND star(dest).t > 0 THEN
                                        alive = 1
                                    END IF
                                WEND
                                IF star(dest).t < 1 THEN
                                    star(dest).t = fleet(i).t
                                    star(dest).o = fleet(i).o
                                END IF
                                fleet(i).o = 0
                                fltcnt = fltcnt - 1
                            ELSE
                                k = 100
                                shortest = 10000
                                FOR j = 0 TO 99
                                    IF star(j).o = fleet(i).o THEN
                                        dist = SQR(ABS(star(j).x - fleet(i).x1) ^ 2 + ABS(star(j).y - fleet(i).y1) ^ 2)
                                        IF dist < shortest THEN
                                            shortest = dist
                                            k = j
                                        END IF
                                    END IF
                                NEXT
                                IF k < 100 THEN
                                    fleet(i).x2 = star(k).x
                                    fleet(i).y2 = star(k).y
                                    fleet(i).d = k
                                ELSE
                                    fleet(i).o = 0
                                    fltcnt = fltcnt - 1
                                END IF
                            END IF
                        END IF
                    END IF
                END IF
            END IF
            i = i + 1
        WEND
    END IF
END SUB
 
SUB GetInput
 
    IF ch = CHR$(27) THEN repeat = 0
    IF ch = "n" THEN NewGame
    IF ch = "t" THEN tt = 1 - tt
    IF ch = "p" THEN paused = 1 - paused
    IF ch = "+" THEN
        IF speed < 10 THEN speed = speed + 1
    END IF
    IF ch = "-" THEN
        IF speed > 0 THEN speed = speed - 1
    END IF
    ch = INKEY$
 
 
    lclk = 0
    rclk = 0
 
    WHILE _MOUSEINPUT
 
        x = _MOUSEX
        y = _MOUSEY
        lmb = _MOUSEBUTTON(1)
        rmb = _MOUSEBUTTON(2)
 
        IF lmb AND lcx = sw THEN lcx = x
        IF rmb AND rcx = sw THEN rcx = x
    WEND
 
    IF lmb = 0 AND lcx < sw THEN lclk = 1
    IF rmb = 0 AND rcx < sw THEN rclk = 1
 
    lcx = sw
    rcx = sw
 
    x = _MOUSEX
    y = _MOUSEY
 
    IF rclk = 1 THEN
        i = Identify
        IF i = 100 THEN
            IF src = 100 THEN
                paused = 1 - paused
                ch = ""
            ELSE
                src = 100
                oact = 0
                pact = 0
            END IF
            rclk = 0
        END IF
        IF pact = 1 OR oact = 1 THEN
            rclk = 0
        END IF
    END IF
 
END SUB
 
FUNCTION Identify
    ii = 100
    FOR i = 0 TO 99
        dx = star(i).x - x
        dy = star(i).y - y
        IF ABS(dx) <= star(i).s + 8 AND ABS(dy) <= star(i).s + 8 THEN
            ii = i
            EXIT FOR
        END IF
    NEXT
    Identify = ii
END FUNCTION
 
SUB OrderPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 225 * ratio THEN y1 = sh - 225 * ratio
    y2 = y1 + 225 * ratio
    _DEST op
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf72
    n$ = RTRIM$(star(i).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 4 * ratio), n$, op
    LINE (20 * ratio, 76 * ratio)-(380 * ratio, 76 * ratio), 0
    _PRINTSTRING (20 * ratio, 80 * ratio), "0123456789", op
    COLOR 7, 8
    _FONT ttf36
    IF box = 0 THEN
        _PRINTSTRING (20 * ratio, 166 * ratio), "If Over", op
        xo = 142 * ratio: xd = 250 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 268 * ratio: xd = 314 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 332 * ratio: xd = 366 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        n$ = RTRIM$(strng0)
        COLOR 0, 7
        _FONT ttf24
        _PRINTSTRING (148 * ratio, 172 * ratio), n$, op
        _PRINTSTRING (273 * ratio, 172 * ratio), "OK", op
        _PRINTSTRING (341 * ratio, 172 * ratio), "X", op
    END IF
    IF box = 1 THEN
        _PRINTSTRING (20 * ratio, 166 * ratio), "Then Send", op
        xo = 198 * ratio: xd = 278 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 294 * ratio: xd = 340 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        xo = 356 * ratio: xd = 390 * ratio: yo = 166 * ratio: yd = 200 * ratio
        LINE (xo, yo)-(xd, yd), 7, BF
        n$ = RTRIM$(strng1)
        COLOR 0, 7
        _FONT ttf24
        _PRINTSTRING (200 * ratio, 172 * ratio), n$, op
        _PRINTSTRING (299 * ratio, 172 * ratio), "OK", op
        _PRINTSTRING (365 * ratio, 172 * ratio), "X", op
    END IF
    _PUTIMAGE (x1, y1), op, 0, (0, 0)-(400 * ratio, 225 * ratio)
    _DEST 0
    oanx = x1: oany = y1
END SUB
 
SUB PaintBackground
    RANDOMIZE TIMER
    x = RND * sw
    y = RND * sh
    c = RND * 14 + 1
    PSET (x, y), c
    RANDOMIZE USING seed
    FOR i = 1 TO 600 * ratio
        x = RND * sw
        y = RND * sh
        c = RND * 14 + 1
        PSET (x, y), c
    NEXT
END SUB
 
SUB PaintFleet
    count = fltcnt
    i = 0
    WHILE count
        IF fleet(i).o <> 0 THEN
            CIRCLE (fleet(i).x1, fleet(i).y1), 3, fleet(i).o + 8
            count = count - 1
        END IF
        i = i + 1
    WEND
END SUB
 
SUB PaintStars
    FOR i = 0 TO 99
        c = star(i).c
        x = star(i).x
        y = star(i).y
        o = star(i).o
        CIRCLE (x, y), (star(i).s + 8) * ratio, c
        COLOR 15
        IF o > 0 THEN
            PAINT (x, y), o + 8, c
        END IF
        _FONT ttf16
        IF tt THEN
            n$ = star(i).n
            n$ = RTRIM$(n$)
            l = _PRINTWIDTH(n$)
            _PRINTSTRING (x + 10, y), STR$(star(i).p), 0
        ELSE
            n$ = STR$(star(i).t)
            l = _PRINTWIDTH(n$)
        END IF
        _PRINTSTRING (x - l / 2, y + 14), n$, 0
    NEXT
END SUB
 
SUB Player
    'Add new order to standing orders
    IF ord.src <> 100 THEN
        i = ord.src
        IF ord.shp = 0 THEN
            order(i).src = 100
        ELSE
            order(i) = ord
        END IF
        src = 100
        ord.src = 100
    END IF
 
    'execute standing orders
    FOR i = 0 TO 99
        IF order(i).src <> 100 THEN
            IF star(i).o <> 1 OR star(order(i).dst).o <> 1 THEN
                order(i).src = 100
            ELSE
                LINE (star(i).x, star(i).y)-(star(order(i).dst).x, star(order(i).dst).y), 17
                IF star(i).t >= order(i).ovr THEN
                    SendFleet order(i).src, order(i).dst, order(i).shp
                END IF
            END IF
        END IF
    NEXT
 
    IF pact = 0 AND oact = 0 THEN
 
        'If there is no source star see if we can get one
        IF src = 100 THEN
            IF lclk = 1 OR rclk = 1 THEN
                lclk = 0
                rclk = 0
                src = Identify
            END IF
        END IF
 
        ' If there is a source star then look for a right click else draw a range line
        IF src <> 100 THEN
            c = 12
            FOR i = 0 TO 99
                IF star(i).o = 1 THEN
                    dist = SQR(ABS(star(i).x - x) ^ 2 + ABS(star(i).y - y) ^ 2)
                    IF dist <= 251 * ratio THEN
                        c = 10
                        EXIT FOR
                    END IF
                END IF
            NEXT
            i = Identify
            IF i <> 100 THEN
                x = star(i).x
                y = star(i).y
            END IF
            rang = SQR(ABS(star(src).x - x) ^ 2 + ABS(star(src).y - y) ^ 2)
            LINE (star(src).x, star(src).y)-(x, y), c
            n$ = STR$(INT(rang))
            _FONT ttf16
            _PRINTSTRING (x + 20, y), n$, 0
        END IF
 
        'If we have a source star see if we clicked on a destination star
        IF src <> 100 THEN
            IF lclk = 1 OR rclk = 1 THEN
                i = Identify
                IF i < 100 AND i <> src THEN
                    IF lclk = 1 THEN
                        lclk = 0
                        FOR j = 0 TO 99
                            IF star(j).o = 1 THEN
                                dist = SQR(ABS(star(i).x - star(j).x) ^ 2 + ABS(star(i).y - star(j).y) ^ 2)
                                IF dist <= 250 THEN
                                    dst = i
                                    pact = 1
                                    EXIT FOR
                                END IF
                            END IF
                        NEXT
                    ELSE
                        rclk = 0
                        dst = i
                        IF star(i).o = 1 THEN
                            oact = 1
                        END IF
                    END IF
                END IF
            END IF
        END IF
 
    END IF
 
    'If the star standing orders panel is active
    IF oact = 1 THEN
 
        IF star(src).o = 1 THEN
            OrderPanel dst
        END IF
 
        IF rclk = 1 THEN oact = 0
 
        IF box = 0 THEN
            tmp$ = RTRIM$(strng0)
        ELSE
            tmp$ = RTRIM$(strng1)
        END IF
 
        IF lclk = 1 THEN
 
            x1 = oanx: x2 = oanx + 400 * ratio
            y1 = oany: y2 = oany + 540 * ratio
 
            IF y > y1 + 80 * ratio AND y < y1 + 152 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    IF box = 0 THEN
                        n$ = RTRIM$(strng0)
                        l = LEN(n$)
                        IF l < 8 THEN strng0 = tmp$ + STR$(dig)
                    ELSE
                        n$ = RTRIM$(strng1)
                        l = LEN(n$)
                        IF l < 8 THEN strng1 = tmp$ + STR$(dig)
                    END IF
                END IF
            END IF
 
            IF y > y1 + 166 * ratio AND y < y1 + 200 * ratio THEN
 
                IF box = 0 THEN
 
                    IF x > x1 + 268 * ratio AND x < x1 + 314 * ratio THEN
                        ord.ovr = INT(VAL(strng0))
                        box = 1
                    END IF
 
                    IF x > x1 + 332 * ratio AND x < x1 + 366 * ratio THEN
                        strng0 = ""
                    END IF
 
                ELSE
 
                    IF x > x1 + 294 * ratio AND x < x1 + 340 * ratio THEN
                        IF INT(VAL(strng1)) > ord.ovr THEN
                            strng1 = ""
                        ELSE
                            box = 0
                            oact = 0
                            ord.src = src
                            ord.dst = dst
                            ord.shp = VAL(strng1)
                            strng0 = ""
                            strng1 = ""
                        END IF
                    END IF
 
                    IF x > x1 + 356 * ratio AND x < x1 + 390 * ratio THEN
                        strng0 = ""
                        strng1 = ""
                        box = 0
                    END IF
 
                END IF
 
            END IF
        END IF
        x1 = 10000: y1 = 10000
 
    END IF
 
 
    'If the fleet send panel is active
    IF pact = 1 THEN
        IF rclk = 1 THEN pact = 0
        IF star(src).o = 1 THEN
            ShowPanel dst
        END IF
        IF lclk = 1 THEN
            tmp$ = RTRIM$(strng)
 
            x1 = panx: x2 = panx + 400 * ratio
            y1 = pany: y2 = pany + 540 * ratio
 
            IF y > y1 + 256 * ratio AND y < y1 + 328 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 380 * ratio THEN
                    dig = (x - x1 - 32 * ratio) / (37 * ratio)
                    strng = tmp$ + STR$(dig)
                END IF
            END IF
 
            IF y > y1 + 334 * ratio AND y < y1 + 374 * ratio THEN
                IF x > x1 + 20 * ratio AND x < x1 + 84 * ratio THEN
                    pact = 0
                    value = star(src).t
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 102 * ratio AND x < x1 + 184 * ratio THEN
                    pact = 0
                    value = star(src).t / 2
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 202 * ratio AND x < x1 + 282 * ratio THEN
                    pact = 0
                    value = star(src).t / 3
                    SendFleet src, dst, value
                    src = 100
                END IF
                IF x > x1 + 300 * ratio AND x < x1 + 380 * ratio THEN
                    strng = ""
                END IF
            END IF
 
            IF y > y1 + 460 * ratio AND y < y1 + 530 * ratio THEN
                IF x > x1 + 32 * ratio AND x < x1 + 182 * ratio THEN
                    value = VAL(strng)
                    strng = ""
                    pact = 0
                    IF value <= star(src).t AND star(src).t <> o THEN
                        SendFleet src, dst, value
                    END IF
                    src = 100
                END IF
                IF x > x1 + 212 * ratio AND x < x1 + 362 * ratio THEN
                    pact = 0
                    src = 100
                    strng = ""
                END IF
            END IF
        END IF
    END IF
END SUB
 
SUB SendFleet (src, dst, ships)
    IF fltcnt < 2000 THEN
        hate(star(src).o, star(dst).o) = hate(star(src).o, star(dst).o) + 1
        FOR i = 0 TO 1999
            IF fleet(i).o = 0 THEN
                fleet(i).o = star(src).o
                fleet(i).d = dst
                fleet(i).x1 = star(src).x
                fleet(i).y1 = star(src).y
                fleet(i).x2 = star(dst).x
                fleet(i).y2 = star(dst).y
                fleet(i).t = ships
                star(src).t = star(src).t - ships
                fltcnt = fltcnt + 1
                EXIT FOR
            END IF
        NEXT
        LL = LL + 1
        IF LL > 20000 THEN LL = 20000
    END IF
END SUB
 
SUB ShowPanel (i)
    x1 = star(i).x - 420 * ratio
    IF star(i).x < sw / 2 THEN x1 = star(i).x + 20 * ratio
    x2 = x1 + 400 * ratio
    y1 = star(i).y
    IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
    y2 = y1 + 540 * ratio
    _DEST sp
    CLS 0, 8
    COLOR 0, 8
    _FONT ttf72
    n$ = RTRIM$(star(src).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 12 * ratio), n$, sp
    n$ = "to"
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 80 * ratio), n$, sp
    n$ = RTRIM$(star(dst).n)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 152 * ratio), n$, sp
    LINE (20 * ratio, 239 * ratio)-(380 * ratio, 239 * ratio), 0
    _PRINTSTRING (20 * ratio, 256 * ratio), "0123456789", sp
    n$ = RTRIM$(strng)
    l = _PRINTWIDTH(n$)
    _PRINTSTRING ((400 * ratio - l) / 2, 383 * ratio), n$, sp
    xo = 20 * ratio: xd = 84 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 102 * ratio: xd = 184 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 202 * ratio: xd = 282 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 300 * ratio: xd = 380 * ratio: yo = 334 * ratio: yd = 374 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 32 * ratio: xd = 182 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    xo = 212 * ratio: xd = 362 * ratio: yo = 458 * ratio: yd = 530 * ratio
    LINE (xo, yo)-(xd, yd), 7, BF
    _FONT ttf24
    COLOR 7, 8
    n$ = RTRIM$(STR$(star(src).t))
    l = _PRINTWIDTH(n$)
    _PRINTSTRING (120 * ratio - l, 112 * ratio), n$, sp
    n$ = RTRIM$(STR$(star(dst).t))
    l = _PRINTWIDTH(n$)
    _PRINTSTRING (300 * ratio - l, 112 * ratio), n$, sp
    _FONT ttf16
    COLOR 0, 7
    _PRINTSTRING (38 * ratio, 347 * ratio), "ALL", sp
    _PRINTSTRING (122 * ratio, 347 * ratio), "HALF", sp
    _PRINTSTRING (214 * ratio, 347 * ratio), "THIRD", sp
    _PRINTSTRING (312 * ratio, 347 * ratio), "CLEAR", sp
    _FONT ttf72
    _PRINTSTRING (60 * ratio, 458 * ratio), "Ok", sp
    _PRINTSTRING (216 * ratio, 458 * ratio), "Quit", sp
    _PUTIMAGE (x1, y1), sp, 0, (0, 0)-(400 * ratio, 540 * ratio)
    panx = x1: pany = y1
    _DEST 0
END SUB
 
SUB NewGame
    DIM k AS INTEGER
    DIM r AS INTEGER
    DIM dx AS INTEGER
    DIM dy AS INTEGER
    DIM n AS STRING * 10
    paused = 1
    FOR i = 0 TO 999
        fleet(i).o = 0
    NEXT
    slct = 0
    fltcnt = 0
    LL = 25
    RANDOMIZE TIMER
    seed = RND * 1000
    FOR i = 0 TO 99
        k = 1
        WHILE k
            k = 0
            x = RND * (sw - sww) + swn
            y = RND * (sh - shw) + shn
            r = INT(RND * 200)
            n = names(r)
            FOR j = 0 TO i - 1
                dx = x - star(j).x
                dy = y - star(j).y
                IF ABS(dx) < sww AND ABS(dy) < shw THEN
                    k = 1
                END IF
                IF n = star(j).n THEN
                    k = 1
                END IF
            NEXT
        WEND
        star(i).n = n
        star(i).x = x
        star(i).y = y
        star(i).c = RND * 6 + 9
        star(i).s = RND * 5
        star(i).o = 0
        star(i).p = star(i).s + (RND * 5) + 3
        star(i).t = 0
        order(i).src = 100
    NEXT
    FOR i = 1 TO 6
        ok = 0
        WHILE (ok < 1)
            ok = 1
            j = RND * 100
            FOR k = 1 TO i - 1
                dist = SQR(ABS(star(j).x - star(home(k)).x) ^ 2 + ABS(star(j).y - star(home(k)).y) ^ 2)
                IF dist < 500 * ratio THEN
                    ok = 0
                    EXIT FOR
                END IF
            NEXT
            IF ok = 1 THEN
                ok = -1
                FOR k = 0 TO 99
                    dist = SQR(ABS(star(j).x - star(k).x) ^ 2 + ABS(star(j).y - star(k).y) ^ 2)
                    IF dist <= 200 THEN ok = ok + 1
                    IF ok = 2 THEN EXIT FOR
                NEXT
            END IF
        WEND
        home(i) = j
        star(j).o = i
        star(j).p = 10
        star(j).t = 100
        star(j).s = 4
    NEXT
    star(home(1)).n = "Sol"
    star(home(1)).c = 14
END SUB
 
' A lot of star names I made up
 
SUB StarNames
    names(0) = "Acamar"
    names(1) = "Arcab"
    names(2) = "Acrux"
    names(3) = "Adhara"
    names(4) = "Arneb"
    names(5) = "Antares"
    names(6) = "Arcturus"
    names(7) = "Atria"
    names(8) = "Beid"
    names(9) = "Betelgeuse"
    names(10) = "Botein"
    names(11) = "Beemim"
    names(12) = "Bellatrix"
    names(13) = "Bharani"
    names(14) = "Biham"
    names(15) = "Brachium"
    names(16) = "Canopus"
    names(17) = "Capella"
    names(18) = "Castor"
    names(19) = "Chara"
    names(20) = "Cursa"
    names(21) = "Copernicus"
    names(22) = "Chalawan"
    names(23) = "Chertan"
    names(24) = "Dabih"
    names(25) = "Dalim"
    names(26) = "Deneb"
    names(27) = "Denebola"
    names(28) = "Diadem"
    names(29) = "Diphda"
    names(30) = "Dschubba"
    names(31) = "Dziban"
    names(32) = "Edasich"
    names(33) = "Electra"
    names(34) = "Elgafar"
    names(35) = "Elkurud"
    names(36) = "Elnath"
    names(37) = "Eltanin"
    names(38) = "Enif"
    names(39) = "Errai"
    names(40) = "Fafnir"
    names(41) = "Fang"
    names(42) = "Fawaris"
    names(43) = "Felis"
    names(44) = "Fomalhaut"
    names(45) = "Fulu"
    names(46) = "Fumal"
    names(47) = "Furud"
    names(48) = "Garnet"
    names(49) = "Giausar"
    names(50) = "Gienah"
    names(51) = "Ginan"
    names(52) = "Gomeisa"
    names(53) = "Graffias"
    names(54) = "Grumium"
    names(55) = "Gudja"
    names(56) = "Hadar"
    names(57) = "Haedus"
    names(58) = "Hamal"
    names(59) = "Hassaleh"
    names(60) = "Hatysa"
    names(61) = "Helvetios"
    names(62) = "Heze"
    names(63) = "Homan"
    names(64) = "Iklil"
    names(65) = "Imai"
    names(66) = "Intercrus"
    names(67) = "Izar"
    names(68) = "Iccar"
    names(69) = "Inar"
    names(70) = "Iaeth"
    names(71) = "Imaous"
    names(72) = "Jabbah"
    names(73) = "Jishui"
    names(74) = "Jax"
    names(75) = "Jalae"
    names(76) = "Jewel"
    names(77) = "Jumbo"
    names(78) = "Jerue"
    names(79) = "Jabear"
    names(80) = "Kakkab"
    names(81) = "Kang"
    names(82) = "Kekouan"
    names(83) = "Keid"
    names(84) = "Kitalpha"
    names(85) = "Kochab"
    names(86) = "Kolob"
    names(87) = "Kobol"
    names(88) = "Larawag"
    names(89) = "Lesath"
    names(90) = "Libertas"
    names(91) = "Lich"
    names(92) = "Lilly"
    names(93) = "Laddel"
    names(94) = "Luminous"
    names(95) = "Lasacious"
    names(96) = "Mizar"
    names(97) = "Markab"
    names(98) = "Matar"
    names(99) = "Mintaka"
    names(100) = "Meleph"
    names(101) = "Menkar"
    names(102) = "Merga"
    names(103) = "Merope"
    names(104) = "Nahn"
    names(105) = "Naos"
    names(106) = "Nashira"
    names(107) = "Navi"
    names(108) = "Nekkar"
    names(109) = "Nembus"
    names(110) = "Nihal"
    names(111) = "Nunki"
    names(112) = "Ogma"
    names(113) = "Okab"
    names(114) = "Ohmy"
    names(115) = "Oragami"
    names(116) = "Origen"
    names(117) = "Omanii"
    names(118) = "Obytewa"
    names(119) = "Oglok"
    names(120) = "Phact"
    names(121) = "Pherkad"
    names(122) = "Pleione"
    names(122) = "Polaris"
    names(123) = "Pollux"
    names(124) = "Procyon"
    names(125) = "Proxima"
    names(126) = "Polis"
    names(127) = "Quaint"
    names(128) = "Quazzat"
    names(129) = "Quetzal"
    names(130) = "Qussol"
    names(131) = "Quella"
    names(132) = "Quyaeo"
    names(133) = "Ququdas"
    names(134) = "Quekak"
    names(135) = "Rasalas"
    names(136) = "Regor"
    names(137) = "Regulus"
    names(138) = "Rigel"
    names(139) = "Revati"
    names(140) = "Rotenev"
    names(141) = "Rukbat"
    names(142) = "Rastaban"
    names(143) = "Sabik"
    names(144) = "Sadr"
    names(145) = "Saiph"
    names(146) = "Sargas"
    names(147) = "Sarin"
    names(148) = "Syrma"
    names(149) = "Spica"
    names(150) = "Sirius"
    names(151) = "Tarazed"
    names(152) = "Taygeta"
    names(153) = "Tejat"
    names(154) = "Thabit"
    names(155) = "Thuban"
    names(156) = "Tiaki"
    names(157) = "Toliman"
    names(158) = "Torcular"
    names(157) = "Umala"
    names(158) = "Ulatte"
    names(159) = "Ubbessa"
    names(160) = "Unoless"
    names(161) = "Umaddem"
    names(162) = "Ummbra"
    names(162) = "Uniqu"
    names(163) = "Uzzaal"
    names(164) = "Vega"
    names(165) = "Veritate"
    names(166) = "Vindetrix"
    names(167) = "Vedas"
    names(168) = "Vergg"
    names(169) = "Vacant"
    names(170) = "Vucae"
    names(171) = "Vicar"
    names(172) = "Wasat"
    names(173) = "Wazn"
    names(174) = "Wezen"
    names(175) = "Waiten"
    names(176) = "Wachar"
    names(177) = "Wheelz"
    names(178) = "Whatsp"
    names(179) = "Wassand"
    names(180) = "Xenno"
    names(181) = "Xyphod"
    names(182) = "Xu"
    names(183) = "Xaal"
    names(184) = "Xyross"
    names(185) = "Xiggot"
    names(186) = "Xirrks"
    names(187) = "Yed"
    names(188) = "Yildun"
    names(189) = "Yundun"
    names(190) = "Yavyo"
    names(191) = "Yotrac"
    names(192) = "Yxzoqu"
    names(193) = "Ynnot"
    names(194) = "Zaniah"
    names(195) = "Zaurak"
    names(196) = "Zhang"
    names(197) = "Zibal"
    names(198) = "Zosma"
    names(199) = "Zuben"
END SUB
 

BeyondSol.txt

romichess · « **Reply #28 on:** December 30, 2019, 07:46:47 pm »

Updated Readme

"Beyond Sol - Pre Alpha Version

A space 4x conquest game by Michael Sherwin

Every thing so far in the game

Game starts off paused but when paused one can still enter orders
Right clicking the mouse on the map will pause unpause the game
If a panel is displayed right clicking will cancel the panel
Left or right clicking on a star brings up the distance line
If the distance line is green ships can be sent
To send ships left click on a destination star and the send panel will appear
Click on the numbers to send ships by then clicking "OK"
The "clear" button clears the numbers
The "All" button sends all ships
There is a send "Half" and send "Third" button as well
The "Quit" button quits the panel
Right clicking on a self owned destination brings up the standing orders panel
Enter number that ships must be greator than in order to send, click "OK"
Or click "X" to clear
Then enter number of ships to send, click "OK" or click "X" to start over
For now untill a "Cancel" button is added just enter 0 and 0 to cancel
The "+" and "-" keys will speed up and slow down the game
If attacking fleets are too out matched they will turn around
If defending fleets are too out matched they will evacuate
The computer player will hate the player that has attacked them the most
A hated player will more likely be attacked
Pressing "p" will pause and unpause the game
Pressing "t" will show star names and production
"t" can be pressed while game is paused
And pressing "Esc" exits the game, no questions asked, so be careful
Pressing "n" stars a new game, no questions asked, be careful
More work needed, remember it is still pre alpha!

The computer is now a very dangerous opponent. However, if one gets off to a very good start the game is not that difficult
There are many features left to be added before it reaches, alpha"

romichess · « **Reply #29 on:** December 30, 2019, 08:58:21 pm »

Oh no! I just discovered that there is a game on Steam that is already named Beyond Sol. And I thought I was being so original, LOL. Back to the name hunt!

News:

Author Topic: Beyond Sol (Read 11531 times)

romichess

Re: Beyond Sol

bplus

Re: Beyond Sol

romichess

Re: Beyond Sol

bplus

Re: Beyond Sol

romichess

Re: Beyond Sol

Kazman

Re: Beyond Sol

romichess

Re: Beyond Sol

romichess

Re: Beyond Sol

romichess

Re: Beyond Sol

Kazman

Re: Beyond Sol

romichess

Re: Beyond Sol

romichess

Re: Beyond Sol

romichess

Re: Beyond Sol

romichess

Re: Beyond Sol

romichess

Re: Beyond Sol