gunghogeoduck/Electric
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Removed autores. Changed segment font.

Browse source
This commit is contained in:
Daniel Marsee 2017-07-28 00:43:47 -04:00
parent ea45197461
commit 180600f3a0
4 changed files with 3115 additions and 3115 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
DSEG14Classic-Regular.ttf Executable file
View file

Binary file not shown.

BIN
electric Executable file
View file

Binary file not shown.

22
electric.bas
View file

@ -12,7 +12,7 @@ GET #1, 19, vol
IF swidth > 0 AND sheight > 0 THEN IF swidth > 0 AND sheight > 0 THEN
SCREEN _NEWIMAGE(swidth, sheight, 32) SCREEN _NEWIMAGE(swidth, sheight, 32)
ELSE ELSE
desktop& = _SCREENIMAGE 'desktop& = _SCREENIMAGE
IF desktop& THEN IF desktop& THEN
swidth = _WIDTH(desktop&) swidth = _WIDTH(desktop&)
sheight = _HEIGHT(desktop&) sheight = _HEIGHT(desktop&)
@ -22,7 +22,7 @@ ELSE
END IF END IF
SCREEN _NEWIMAGE(swidth, sheight, 32) SCREEN _NEWIMAGE(swidth, sheight, 32)
IF desktop& THEN _FREEIMAGE desktop& IF desktop& THEN _FREEIMAGE desktop&
fs = 1 fs = 0
blue = 255 blue = 255
steering = 1 steering = 1
throttle = 3 throttle = 3
@ -59,7 +59,7 @@ IF electricicon& THEN
_FREEIMAGE electricicon& _FREEIMAGE electricicon&
END IF END IF
IF fs = 1 THEN _FULLSCREEN IF fs = 1 THEN _FULLSCREEN
quartz& = _LOADFONT("segment14.otf", sheight / 24, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 24, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
_PRINTMODE _KEEPBACKGROUND _PRINTMODE _KEEPBACKGROUND
RANDOMIZE TIMER RANDOMIZE TIMER
@ -188,7 +188,7 @@ DO
_PUTIMAGE (0, 0)-(swidth - 1, sheight - 1), premetal&, brushedmetal& _PUTIMAGE (0, 0)-(swidth - 1, sheight - 1), premetal&, brushedmetal&
_FREEIMAGE premetal& _FREEIMAGE premetal&
_FONT 16 _FONT 16
quartz& = _LOADFONT("segment14.otf", sheight / 24, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 24, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
END IF END IF
IF menu(6) THEN credit IF menu(6) THEN credit
@ -222,7 +222,7 @@ _PUTIMAGE (0, 0)-(swidth - 1, sheight - 1), premetal&, brushedmetal&
_FREEIMAGE premetal& _FREEIMAGE premetal&
_PUTIMAGE (0, 0), brushedmetal& _PUTIMAGE (0, 0), brushedmetal&
_FONT 16 _FONT 16
quartz& = _LOADFONT("segment14.otf", sheight / 24, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 24, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
_FONT quartz& _FONT quartz&
center "CREDITS", 1 center "CREDITS", 1
@ -1317,8 +1317,8 @@ _DEST 0
IF team < 1 THEN team = 1 IF team < 1 THEN team = 1
IF team > 4 THEN team = 4 IF team > 4 THEN team = 4
planeshadow& = shadow&(plane&) planeshadow& = shadow&(plane&)
quartz& = _LOADFONT("segment14.otf", 16) quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", 16)
bigquartz& = _LOADFONT("segment14.otf", 32) bigquartz& = _LOADFONT("DSEG14Classic-Regular.ttf", 32)
cyberbit& = _LOADFONT("cyberbit.ttf", 24, "") cyberbit& = _LOADFONT("cyberbit.ttf", 24, "")
numplanes% = team * 4 - 1 numplanes% = team * 4 - 1
DIM points(3) AS score DIM points(3) AS score
@ -1739,7 +1739,7 @@ GET #1, 23, secondary.axis
GET #1, 24, scrdown.axis GET #1, 24, scrdown.axis
GET #1, 25, scrup.axis GET #1, 25, scrup.axis
GET #1, 26, pick.axis GET #1, 26, pick.axis
quartz& = _LOADFONT("segment14.otf", sheight / 24, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 24, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
premetal& = _LOADIMAGE("electricplane2.png") premetal& = _LOADIMAGE("electricplane2.png")
brushedmetal& = _NEWIMAGE(swidth, sheight, 32) brushedmetal& = _NEWIMAGE(swidth, sheight, 32)
@ -1776,7 +1776,7 @@ DO
PUT #1, 2, sheight PUT #1, 2, sheight
_PRINTMODE _KEEPBACKGROUND _PRINTMODE _KEEPBACKGROUND
_FONT 16 _FONT 16
quartz& = _LOADFONT("segment14.otf", sheight / 24, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 24, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
END IF END IF
IF menu(5) THEN IF menu(5) THEN
@ -1895,7 +1895,7 @@ _FREEIMAGE brushedmetal&
END SUB END SUB
SUB pickres 'screen resolution picking dialogue SUB pickres 'screen resolution picking dialogue
quartz& = _LOADFONT("segment14.otf", sheight / 16, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 16, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
premetal& = _LOADIMAGE("brushedmetal.png") premetal& = _LOADIMAGE("brushedmetal.png")
brushedmetal& = _NEWIMAGE(swidth, sheight, 32) brushedmetal& = _NEWIMAGE(swidth, sheight, 32)
@ -1930,7 +1930,7 @@ DO
_PUTIMAGE (0, 0)-(swidth - 1, sheight - 1), premetal&, brushedmetal& _PUTIMAGE (0, 0)-(swidth - 1, sheight - 1), premetal&, brushedmetal&
_FREEIMAGE premetal& _FREEIMAGE premetal&
_FONT 16 _FONT 16
quartz& = _LOADFONT("segment14.otf", sheight / 16, "") quartz& = _LOADFONT("DSEG14Classic-Regular.ttf", sheight / 16, "")
cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "") cyberbit& = _LOADFONT("cyberbit.ttf", sheight / 32, "")
END IF END IF
NEXT NEXT

BIN
electricsettings.cfg Normal file
View file

Binary file not shown.