Skip to content

Commit

Permalink
Merge pull request #32 from MADRAFi/v1.7
Browse files Browse the repository at this point in the history 
V1.7
  • Loading branch information
@MADRAFi
MADRAFi authored Mar 2, 2020
2 parents cdc1889 + d007e72 commit ed973e3
Show file tree
Hide file tree
Showing 21 changed files with 464 additions and 178 deletions.
21 changes: 11 additions & 10 deletions Intro/DE/strings.inc
View file
Original file line number Diff line number Diff line change
@@ -1,19 +1,19 @@
strings: array [0..11] of String = (
'Jahr 2419,'~, // screen 1
'UEE k'#123'mpft immer noch.'~, // screen 2
'Das Jahr 2419,'~, // screen 1
'Das V.I.E. k'#123'mpft immer noch.'~, // screen 2
'Nach 8 Jahren in der Armee hast du'~, // screen 3
'endlich deinen Vertrag beendet.'~, // screen 3
'Seit Langem hast du '#14'ber eigenes'~, // screen 4
'Unternehmen und '#14'ber die M'#15'glichkeit das'~, // screen 4
'Seit Langem hast du von einem eigenen'~, // screen 4
'Unternehmen und von der M'#15'glichkeit das'~, // screen 4
'zu tun was du willst, getr'#123'umt.'~, // screen 4
'F'#14'r den erhaltenen Scheck konntest du'~, // screen 5
'das billigste Schiff kaufen und das Geld'~, // screen 5
'blieb noch immer '#14'brig.'~, // screen 5
'Es h'#123'ngt von dir ab, wohin du gehst...'~, // screen 6
'Von dem erhaltenen Scheck konntest du'~, // screen 5
'das billigste Schiff kaufen und es blieb'~, // screen 5
'sogar noch etwas Geld '#14'brig.'~, // screen 5
'Es liegt nun an dir wohin du gehst...'~, // screen 6
' Dr'#14'cke die Leertaste um fortzufahren '*~
);
creditstxt: array [0..8] of TString = (
creditstxt: array [0..9] of String = (
'Programmierung'~,
'MADRAFi'~,
''~,
Expand All @@ -22,7 +22,8 @@ strings: array [0..11] of String = (
'MADRAFi'~,
''~,
'Musik'~,
'Caruso'~
'Caruso'~,
''~
);
16 changes: 8 additions & 8 deletions Intro/DE/strings_utf8.inc
View file
Original file line number Diff line number Diff line change
@@ -1,15 +1,15 @@
strings: array [0..11] of String = (
'Jahr 2419,'~, // screen 1
'UEE kämpft immer noch.'~, // screen 2
'Das Jahr 2419,'~, // screen 1
'Das V.I.E. kämpft immer noch.'~, // screen 2
'Nach 8 Jahren in der Armee hast du'~, // screen 3
'endlich deinen Vertrag beendet.'~, // screen 3
'Seit Langem hast du über eigenes'~, // screen 4
'Unternehmen und über die Möglichkeit das'~, // screen 4
'Seit Langem hast du von einem eigenen'~, // screen 4
'Unternehmen und von der Möglichkeit das'~, // screen 4
'zu tun was du willst, geträumt.'~, // screen 4
'Für den erhaltenen Scheck konntest du'~, // screen 5
'das billigste Schiff kaufen und das Geld'~, // screen 5
'blieb noch immer übrig.'~, // screen 5
'Es hängt von dir ab, wohin du gehst...'~, // screen 6
'Von dem erhaltenen Scheck konntest du'~, // screen 5
'das billigste Schiff kaufen und es blieb'~, // screen 5
'sogar noch etwas Geld übrig.'~, // screen 5
'Es liegt nun an dir wohin du gehst...'~, // screen 6
' Drücke die Leertaste um fortzufahren '*~
);

Expand Down
29 changes: 16 additions & 13 deletions Intro/intro.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@

var
gfxcolors: array [0..3] of Byte = (
$04,$0a,$0e,$00
$00,$00,$00,$00
);

{$IFDEF DEMO}
Expand Down Expand Up @@ -73,13 +73,13 @@ procedure gfx_fadeout; //(hidetext: Boolean);
repeat
Waitframes(2);
for b:=0 to 3 do
If (gfxcolors[b] and %00001111 <> 0) then Dec(gfxcolors[b]) else gfxcolors[b]:=0;
If (gfxcolors[b] and %00001111 > 0) then Dec(gfxcolors[b]) else gfxcolors[b]:=0;

If (txtcolors[0] and %00001111 <> 0) then Dec(txtcolors[0]) else txtcolors[0]:=0;
If (txtcolors[1] and %00001111 <> 0) then Dec(txtcolors[1]) else txtcolors[1]:=0;
If (txtcolors[0] and %00001111 > 0) then Dec(txtcolors[0]) else txtcolors[0]:=0;
If (txtcolors[1] and %00001111 > 0) then Dec(txtcolors[1]) else txtcolors[1]:=0;

until ((gfxcolors[0] or gfxcolors[1] or gfxcolors[2] or gfxcolors[3])=0);
// until ((gfxcolors[0] or gfxcolors[1] or gfxcolors[2] or gfxcolors[3])=0) and ((txtcolors[0] or txtcolors[1])=0);
// until ((gfxcolors[0]=0) and (gfxcolors[1]=0) and (gfxcolors[2]=0) and (gfxcolors[3]=0));
until ((gfxcolors[0]=0) and (gfxcolors[1]=0) and (gfxcolors[2]=0) and (gfxcolors[3]=0) and (txtcolors[0]=0) and (txtcolors[1]=0));
// waitframes(10);
end;

Expand All @@ -94,15 +94,15 @@ procedure gfx_fadein;
repeat
Waitframes(2);
for b:=0 to 3 do
If ((gfxcolors[b] and %00001111) <= (piccolors[y+b] and %00001111)) then Inc(gfxcolors[b]) else gfxcolors[b]:=piccolors[y+b];
If ((gfxcolors[b] and %00001111) < (piccolors[y+b] and %00001111)) then Inc(gfxcolors[b]) else gfxcolors[b]:=piccolors[y+b];

If ((txtcolors[0] and %00001111) <= (TXTBACK and %00001111)) then Inc(txtcolors[0]) else txtcolors[0]:=TXTBACK;
If ((txtcolors[1] and %00001111) <= (TXTCOLOR and %00001111)) then Inc(txtcolors[1]) else txtcolors[1]:=TXTCOLOR;

until ((gfxcolors[0]=piccolors[y]) and
(gfxcolors[1]=piccolors[y+1]) and
(gfxcolors[2]=piccolors[y+2]) and
(gfxcolors[3]=piccolors[y+3])) or ((txtcolors[0]=TXTBACK) and (txtcolors[1]=TXTCOLOR));
(gfxcolors[3]=piccolors[y+3])); // or ((txtcolors[0]=TXTBACK) and (txtcolors[1]=TXTCOLOR));
end;

procedure wait(time:Word);
Expand Down Expand Up @@ -171,8 +171,9 @@ procedure CRT_ClearRows(start: Byte;num: Byte);


Waitframe;
firstDLI:=@dli_pic1_f1;
DLISTL:= DISPLAY_LIST_ADDRESS_PIC1;
firstDLI:=@dli_pic1_f1;


// fillbyte(pointer(TXT_ADDRESS), 1380, 0);
move(pointer(SCREEN_ADDRESS_PIC1), pointer(TXT_ADDRESS), 1200);
Expand All @@ -192,8 +193,9 @@ procedure CRT_ClearRows(start: Byte;num: Byte);
picnumber:=1;

Waitframe;
firstDLI:=@dli_pic2_f1;
DLISTL:= DISPLAY_LIST_ADDRESS_PIC2;
firstDLI:=@dli_pic2_f1;


move(pointer(SCREEN_ADDRESS_PIC2), pointer(TXT_ADDRESS), 1200);

Expand All @@ -213,8 +215,9 @@ procedure CRT_ClearRows(start: Byte;num: Byte);
picnumber:=2;

Waitframe;
firstDLI:=@dli_pic3_f1;
DLISTL:= DISPLAY_LIST_ADDRESS_PIC3;
firstDLI:=@dli_pic3_f1;


move(pointer(SCREEN_ADDRESS_PIC3), pointer(TXT_ADDRESS), 1200);

Expand All @@ -233,8 +236,8 @@ procedure CRT_ClearRows(start: Byte;num: Byte);
gfx_fadeout;

Waitframe;
firstDLI:=@dli_title;
DLISTL:= DISPLAY_LIST_ADDRESS_TITLE;
firstDLI:=@dli_title;

// clear screen memory
fillbyte(pointer(TXT_ADDRESS), 1320, 0);
Expand Down Expand Up @@ -280,7 +283,7 @@ procedure CRT_ClearRows(start: Byte;num: Byte);
CRT_Invert(2,24,34);
{$ENDIF}
{$IFDEF DE}
CRT_Invert(0,24,38);
CRT_Invert(1,24,38);
{$ENDIF}
{$IFDEF EN}
CRT_Invert(5,24,29);
Expand Down
49 changes: 49 additions & 0 deletions StarV/ABBUC/const.inc
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,49 @@
// stale

FREE_TOP = $AC00;
// FREE_TOP = $AE80;

PLAYER_ADDRESS = FREE_TOP;
MODULE_ADDRESS = PLAYER_ADDRESS + $800;

PMG_ADDRESS = $BC00;

GFX_ADDRESS = $C000;
TXT_ADDRESS = $D800;

LOGO_CHARSET_ADDRESS = $DC00;
LOGO_CHARSET_ADDRESS2 = LOGO_CHARSET_ADDRESS + $400;
CHARSET_ADDRESS = $E400;

DISPLAY_LIST_ADDRESS_TITLE = CHARSET_ADDRESS + $400;
DISPLAY_LIST_ADDRESS_MENU = DISPLAY_LIST_ADDRESS_TITLE + $100;
DISPLAY_LIST_ADDRESS_CONSOLE = DISPLAY_LIST_ADDRESS_MENU + $100;
LOGODATA_ADDRESS = DISPLAY_LIST_ADDRESS_CONSOLE + $100;
// ***************************************************************************//
NUMBEROFLOCATIONS = 15; // number of locations defined in locations.asm. Needs to match.
NUMBEROFITEMS = 24; // number of items defined in items.asm. Needs to match.
NUMBEROFSHIPS = 12; // number of ships defined in ships array.

MAXSHIPPARAMETERS = 8; // number of ship parameters in ship array
MAXAVAILABLEITEMS = 12; // numer of concurrent items displayed
MAXCARGOSLOTS = 10; // number of cargo slots
MAXAVAILABLEDESTINATIONS = 6; // number of destinations from location.

STARTUEC = 10000;
MAXUEC = 4000000000;
WINUEC = 10000000;
WINSHIP = 10;
STARTLOCATION = 0;

// ***************************************************************************//

MENU_TITLE = 0;
MENU_MAIN = 1;
MENU_NAV = 2;
MENU_TRADE = 3;
MENU_MAINT = 4;
MENU_SHIP = 5;
MENU_SAVE = 6;
MENU_LOAD = 7;
MENU_CREDITS = 8;
MENU_CONGRATS = 9;
29 changes: 29 additions & 0 deletions StarV/ABBUC/locations.inc
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,29 @@

locations: array [0..NUMBEROFLOCATIONS-1] of TString = (
'Port Alistair'~,
'Glum Hex'~,
'Gas Mine 158'~,
'Ambiguous Lab'~,
'Area 64'~,
'Kudrov Ore'~,
'Hydro Harvest'~,
'Hikers Research'~,
'Oasis Depot'~,
'Highdust'~,
'Yantar-4K2M'~,
'Tycho Station'~,
'Lourvil'~,
'LKRM-Westforge'~,
'LKRM-Sandy'~//,
// 'Cloud City'~,
// 'Mining Area 147'~,
// 'Cargo Depot'~,
// 'CyberTech'~,
// 'Fobos'~,
// 'Sakigake'~,
// 'Nozomi'~,
// 'Akatsuki'~,
// 'Novorossiysk'~,
// 'Rostov'~

);
8 changes: 3 additions & 5 deletions StarV/DE/credits.inc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,9 +18,7 @@
''~,
'XXL f'#14'r xBios-Unterst'#14'tzung'~,
'Tebe f'#14'r MAD-Pascal hilfe zu gaben'~,
'Kaz f'#14'r Testen und Beratung'~,
'Dely f'#14'r QS-Tests'~,
'Kaz f'#14'r Beratung'~,
'Dely und CharlieChaplin f'#14'r QS-Tests'~,
''~
);

//um Hilfe bei MAD-Pascal
);
32 changes: 16 additions & 16 deletions StarV/DE/strings.inc
View file
Original file line number Diff line number Diff line change
@@ -1,11 +1,11 @@
strings: array [0..66] of String = (
'Gl'#14'ckwunsch!'~, // 0
'N'*'eues Spiel'~,
'V'*'erla'#96'en'~,
'V'*'erlassen'~,
'1'*' Navigation'~,
'2'*' Handel Konsole'~,
'3'*' Auftanken Pad'~, // 5
'4'*' Shiffsdepot'~,
'2'*' Handelskonsole'~,
'3'*' Auftanken'~, // 5
'4'*' Schiffsdepot'~,
'Z'*'ur'#14'ck'~,
'Kaufen'~,
'Verkaufen'~,
Expand All @@ -21,32 +21,32 @@ strings: array [0..66] of String = (
'-Best'#123'tigen'~,
'Sta:'~, // 20
'Nav:'~,
'Abstand:'~,
'Entfernung:'~,
'-Navigation'~,
'S'*'-FTL Springe'~,
'Kein xBios, Kein Bilder'*~, // 25
' Dr'#14'cke irgendeine Taste. '*~,
'S'*'-FTL Sprung'~,
'Keine xBios, Kein Bilder'*~, // 25
' Dr'#14'cke irgendeine Taste '*~,
' Du hast das Schiff gekauft. '*~,
''~,
'Piraten haben dich attackiert. Du warst mutig und hast gek'#123'mpft so lange es gingSie haben dein Leben im Austausch f'#14'r deine Fracht geschont.'~,
'Piraten haben dich attackiert. Du warst mutig und hast gek'#123'mpft bis zum Ende. Sie haben dein Leben im Austausch f'#14'r deine Fracht verschont.'~,
'Es hat einen Systemfehler gegeben. Die Explosion hat einen Teil deiner Ladung besch'#123'digt.'~, // 30
'Banditen haben dich bestohlen. Du hast dein ganzes Geld verloren.'~,
'Du hast einen Pa'#96'agier mitgenommen. Er hat dir zus'#123'tzliches Geld f'#14'r ein Transport gegeben.'~,
'Du hast gesehen, da'#96' die B'#14'rger in Not sind. Du hast dich f'#14'r die Hilfe entschieden und hast einen Teil deiner Waren verteilt.'~,
'Wegen j'#14'ngster Aktivit'#123'ten der Piraten wurdest du verpflichtet, eine milit'#123'rische Eskorte zu verwenden. Du hast Standard-Geb'#14'hren daf'#14'r bezahlt.'~,
'Es scheint, da'#96' dein Lottoschein gewonnen hat. Der Gewinn wurde auf dein Konto '#14'berwiesen.'~, // 35
'Du hast einen Passagier mitgenommen. Er hat dir zus'#123'tzliches Geld f'#14'r den Transport gegeben.'~,
'Du hast gesehen, dass die B'#14'rger in Not sind. Du hast dich f'#14'r schnelle Hilfe entschieden und einen Teil deiner Waren verteilt.'~,
'Wegen j'#14'ngster Piraterie-Aktivit'#123'ten wurdest du verpflichtet eine milit'#123'rische Eskorte zu verwenden. Du hast die Standardgeb'#14'hr daf'#14'r gezahlt.'~,
'Es scheint, dass dein Lottoschein gewonnen hat. Der Gewinn wurde auf dein Konto '#14'berwiesen.'~, // 35
' Keine Schiffe mehr. '*~,
'Name:'~,
'Prod:'~,
'Kargo:'~,
'Fracht:'~,
'Preis:'~, // 40
'Speed:'~,
'Tempo:'~,
'L'#123'nge:'~,
'Masse:'~,
'-W'#123'hlen'~,
' m/s'~, // 45
' meter'~,
' tonnen'~,
' Tonnen'~,
' Du hast nicht genug Kredite '*~,
' Du besitzt dieses Schiff bereits. '*~,
'-Alles'~, // 50
Expand Down
32 changes: 16 additions & 16 deletions StarV/DE/strings_utf8.inc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@ strings: array [0..66] of String = (
'N'*'eues Spiel'~,
'V'*'erlassen'~,
'1'*' Navigation'~,
'2'*' Handel Konsole'~,
'3'*' Auftanken Pad'~, // 5
'4'*' Shiffsdepot'~,
'2'*' Handelskonsole'~,
'3'*' Auftanken'~, // 5
'4'*' Schiffsdepot'~,
'Z'*'urück'~,
'Kaufen'~,
'Verkaufen'~,
Expand All @@ -21,32 +21,32 @@ strings: array [0..66] of String = (
'-Bestätigen'~,
'Sta:'~, // 20
'Nav:'~,
'Abstand:'~,
'Entfernung:'~,
'-Navigation'~,
'S'*'-FTL Springe'~,
'Kein xBios, Kein Bilder'*~, // 25
' Drücke irgendeine Taste. '*~,
'S'*'-FTL Sprung'~,
'Keine xBios, Kein Bilder'*~, // 25
' Drücke irgendeine Taste '*~,
' Du hast das Schiff gekauft. '*~,
''~,
'Piraten haben dich attackiert. Du warst mutig und hast gekämpft so lange es gingSie haben dein Leben im Austausch für deine Fracht geschont.'~,
'Piraten haben dich attackiert. Du warst mutig und hast gekämpft bis zum Ende. Sie haben dein Leben im Austausch für deine Fracht verschont.'~,
'Es hat einen Systemfehler gegeben. Die Explosion hat einen Teil deiner Ladung beschädigt.'~, // 30
'Banditen haben dich bestohlen. Du hast dein ganzes Geld verloren.'~,
'Du hast einen Passagier mitgenommen. Er hat dir zusätzliches Geld für ein Transport gegeben.'~,
'Du hast gesehen, dass die Bürger in Not sind. Du hast dich für die Hilfe entschieden und hast einen Teil deiner Waren verteilt.'~,
'Wegen jüngster Aktivitäten der Piraten wurdest du verpflichtet, eine militärische Eskorte zu verwenden. Du hast Standard-Gebühren dafür bezahlt.'~,
'Du hast einen Passagier mitgenommen. Er hat dir zusätzliches Geld für den Transport gegeben.'~,
'Du hast gesehen, dass die Bürger in Not sind. Du hast dich für schnelle Hilfe entschieden und einen Teil deiner Waren verteilt.'~,
'Wegen jüngster Piraterie-Aktivitäten wurdest du verpflichtet eine militärische Eskorte zu verwenden. Du hast die Standardgebühr dafür gezahlt.'~,
'Es scheint, dass dein Lottoschein gewonnen hat. Der Gewinn wurde auf dein Konto überwiesen.'~, // 35
' Keine Schiffe mehr. '*~,
'Name:'~,
'Prod:'~,
'Kargo:'~,
'Fracht:'~,
'Preis:'~, // 40
'Speed:'~,
'Tempo:'~,
'Länge:'~,
'Mas|se:'~,
'Masse:'~,
'-Wählen'~,
' m/s'~, // 45
' meter'~,
' tonnen'~,
' Tonnen'~,
' Du hast nicht genug Kredite '*~,
' Du besitzt dieses Schiff bereits. '*~,
'-Alles'~, // 50
Expand All @@ -60,7 +60,7 @@ strings: array [0..66] of String = (
'A'#245'toren'~,
'QFuel:'~,
' Nicht genug Quantentreibstoff. '*~, //60
' Ihr Schiff muss nicht betankt werden. '*~,
' Ihr Schiff mus|s nicht betankt werden. '*~,
' Ihr Schiff wurde betankt. '*~,
' Nicht genug UEC, um 100% zu tanken. '*~,
'Tanken:'~,
Expand Down
2 changes: 1 addition & 1 deletion StarV/EN/credits.inc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,6 @@
'XXL for xBios support'~,
'Tebe for providing MAD-Pascal help'~,
'Kaz for testing and advise'~,
'Dely for QA testing'~,
'Dely and CharlieChaplin for QA testing'~,
''~
);
Loading

0 comments on commit ed973e3

Please sign in to comment.