mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
194 lines
3.4 KiB
C
194 lines
3.4 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
|
|
#include "tfv_zp.h"
|
|
|
|
#include "tfv_sprites.h"
|
|
|
|
#include "gr-sim.h"
|
|
|
|
static int letter_index=0,letter_x=39,letter_y=1,destination=15;
|
|
|
|
|
|
static unsigned char string[]= {
|
|
"T A L B O T" "\x80"
|
|
"\x2\xE" "F A N T A S Y" "\x80"
|
|
"\x3\x10" "S E V E N" "\x80"
|
|
"\x1\xF" " " "\x80"
|
|
"\x2\xE" " " "\x80"
|
|
"\x3\x10" " " "\x80"
|
|
"\x1\x13" "BY" "\x80"
|
|
"\x3\xE" "VINCE WEAVER" "\x80"
|
|
"\x1\x13" " " "\x80"
|
|
"\x3\xE" " " "\x80"
|
|
"\x1\x10" "MUSIC BY" "\x80"
|
|
"\x3\xC" "HIROKAZU TANAKA" "\x80"
|
|
"\x1\x10" " " "\x80"
|
|
"\x3\xC" " " "\x80"
|
|
"\x2\xD" "CYCLE COUNTING" "\x80"
|
|
"\x3\x10" "IS HARD!" "\xff"
|
|
};
|
|
|
|
static void letter_slide(void) {
|
|
|
|
|
|
char out[BUFSIZ];
|
|
unsigned char ch;
|
|
|
|
ch=string[letter_index];
|
|
if (ch==0xff) return;
|
|
|
|
if (ch==0x80) {
|
|
letter_index++;
|
|
letter_y=string[letter_index];
|
|
letter_index++;
|
|
destination=string[letter_index];
|
|
letter_index++;
|
|
return;
|
|
}
|
|
|
|
vtab(letter_y+1);
|
|
htab(letter_x+1);
|
|
move_cursor();
|
|
out[0]=' '; out[1]=0;
|
|
print(out);
|
|
|
|
letter_x--;
|
|
vtab(letter_y+1);
|
|
htab(letter_x+1);
|
|
move_cursor();
|
|
out[0]=ch; out[1]=0;
|
|
print(out);
|
|
|
|
if (letter_x==destination) {
|
|
letter_index++;
|
|
destination++;
|
|
letter_x=39;
|
|
}
|
|
|
|
}
|
|
|
|
int credits(void) {
|
|
|
|
int yy,ch;
|
|
int i,fd;
|
|
|
|
grsim_init();
|
|
|
|
/* Text first */
|
|
text();
|
|
home();
|
|
|
|
ram[DISP_PAGE]=0x0;
|
|
ram[DRAW_PAGE]=0x0;
|
|
vtab(1); htab(1); move_cursor();
|
|
print(" * . ");
|
|
vtab(2); htab(1); move_cursor();
|
|
print(" * . . ");
|
|
vtab(3); htab(1); move_cursor();
|
|
print(" * ");
|
|
vtab(4); htab(1); move_cursor();
|
|
print(" * ");
|
|
vtab(5); htab(1); move_cursor();
|
|
print(" . . . ");
|
|
vtab(6); htab(1); move_cursor();
|
|
print(" . ");
|
|
|
|
/* draw the moon */
|
|
vtab(1); htab(4); move_cursor(); print_inverse(" ");
|
|
vtab(2); htab(3); move_cursor(); print_inverse(" ");
|
|
vtab(3); htab(3); move_cursor(); print_inverse(" ");
|
|
vtab(4); htab(4); move_cursor(); print_inverse(" ");
|
|
|
|
|
|
/* gr part */
|
|
soft_switch(LORES); // LDA SW.LORES
|
|
soft_switch(TXTCLR); // LDA TXTCLR
|
|
soft_switch(MIXCLR);
|
|
|
|
color_equals(4);
|
|
for(i=28;i<48;i++) {
|
|
basic_hlin(0,39,i);
|
|
}
|
|
|
|
hgr();
|
|
|
|
/* Put horizontal lines on screen */
|
|
for(yy=64;yy<128;yy++) {
|
|
hcolor_equals(1);
|
|
hplot(0,yy);
|
|
hplot_to(279,yy);
|
|
}
|
|
|
|
fd=open("KATC.BIN",O_RDONLY);
|
|
if (fd<0) {
|
|
printf("Error opening!\n");
|
|
return -1;
|
|
}
|
|
read(fd,&ram[0x2000],0x2000);
|
|
close(fd);
|
|
|
|
set_plaid();
|
|
|
|
int frame=0;
|
|
int tree1_x=28,tree1_y=28;
|
|
int tree2_x=37,tree2_y=30;
|
|
|
|
grsim_put_sprite_page(PAGE0,
|
|
bird_rider_stand_right,
|
|
17,30);
|
|
|
|
while(1) {
|
|
grsim_update();
|
|
|
|
color_equals(4);
|
|
for(i=28;i<48;i++) {
|
|
basic_hlin(0,39,i);
|
|
}
|
|
grsim_put_sprite_page(PAGE0,
|
|
small_tree,
|
|
tree1_x,tree1_y);
|
|
grsim_put_sprite_page(PAGE0,
|
|
big_tree,
|
|
tree2_x,tree2_y);
|
|
|
|
if (frame%8>4) {
|
|
grsim_put_sprite_page(PAGE0,
|
|
bird_rider_stand_right,
|
|
17,30);
|
|
}
|
|
else {
|
|
grsim_put_sprite_page(PAGE0,
|
|
bird_rider_walk_right,
|
|
17,30);
|
|
}
|
|
|
|
ch=grsim_input();
|
|
|
|
if (ch) break;
|
|
|
|
usleep(16000);
|
|
frame++;
|
|
if (frame>31) frame=0;
|
|
|
|
if (frame%4==0) {
|
|
tree2_x--;
|
|
if (tree2_x<0) tree2_x=37;
|
|
}
|
|
|
|
if (frame%16==0) {
|
|
tree1_x--;
|
|
if (tree1_x<0) tree1_x=37;
|
|
}
|
|
|
|
letter_slide();
|
|
|
|
}
|
|
|
|
clear_plaid();
|
|
|
|
return 0;
|
|
}
|