xiyouji.c

一个C实现的模拟机 框架 已经有存档 和读挡的功能

#include<io.h>
#include<stdio.h>
#include<dos.h>
#include<string.h>
#include<math.h>
#include<stdio.h>
#include<bios.h>
#include<mem.h>
#include<fcntl.h>
#include<stdlib.h>
#include<conio.h>
#define VGA256 0x13
#define TEXT_MODE 0x03
#define SCREEN_WIDTH 320
#define SCREEN_HEIGHT 200

int color=YELLOW;
unsigned char far *video_buffer=(char far *)0xA0000000L;


void Set_Video_Mode(int mode)
{
	union REGS inregs,outregs;
	inregs.h.ah=0;
	inregs.h.al=(unsigned char)mode;
	int86(0x10,&inregs,&outregs);
}


int test(unsigned int a,int k)
{
a<<=(k-1);
if(a&0x80)
return (1);
else
return (0);
}

void hz24_k(int X,int Y,char *zw,int c)
{
   register unsigned int n=0;

   while(n!=strlen(zw))
   {

   register unsigned int i=0,j=0,l=0;
   register unsigned long xx=0;
   register unsigned long yy=0;
   register unsigned long num=0;
   FILE *fp;
   char *wm;
	if((zw[n]&0x80)==0)
	{
		if(zw[n]==' ')
		{
			X=X+24;
			n++;
		}
		else
		{
			fp=fopen("hzk24t","rb+");
			if(fp==NULL)
			{
				exit(0);
			}
		num=188+zw[n]-33;
		fseek(fp,(72)*num,0);
		fread(wm,72,1,fp);
		fclose(fp);
		for(i=0;i<24;i++)
		{
		      for(j=0;j<3;j++)
			 {for(l=1;l<=8;l++)
			  if(test(wm[i*3+j],l)==1)
			   {
			   video_buffer[(X+i)+(Y+j*8+l-1)*320]=c;
			}
			 }
		}
	 n+=1;}
	 }else{
		 fp=fopen("hzk24k","rb+");
		 if(fp==NULL){exit(0);}
		 zw[n]=zw[n]-0xa0-15;
		 zw[n+1]=zw[n+1]-0xa0;
		 num=(zw[n]-1)*94+(zw[n+1]-1);
		 fseek(fp,(72)*num,0);
		 fread(wm,72,1,fp);
		 fclose(fp);
		  for(i=0;i<24;i++)
		   {
		      for(j=0;j<3;j++)
			 {for(l=1;l<=8;l++)
			  if(test(wm[i*3+j],l)==1)
			   {
			   video_buffer[(X+i)+(Y+j*8+l-1)*320]=c;
			}
			 }

		    }
n+=2;}
X=X+25;
}
}


char *fread_char_seek(char flag,char *file,int num,int seek,char end)
{
	int i,j=0,k=0;
	char *buf;
	FILE *stream;
	if ((stream = fopen(file, "r+b")) == NULL)
	{
		fprintf(stderr, "Cannot open output file.\n");
		return 1;
	}
	fseek(stream,seek,SEEK_SET);
	for(i=0;!feof(stream);i++)
	{
		fread(buf,1, 1, stream);
		if(buf[0]==end)
		{
			buf[1]='\x0';
			fclose(stream);
			return(buf);
		}

		if(buf[0]==flag)
		{
			j++;
			if(j==num)
			{
				fseek(stream, seek+k, SEEK_SET);
				fread(buf,i-k,1,stream);
				buf[i-k]='\x0';
				fclose(stream);
				return(buf);
			}
			k=i+1;
		}
	}
}

void Fill_Screen(int value)
{
_fmemset(video_buffer,(char)value,SCREEN_WIDTH*SCREEN_HEIGHT+1);
}


void main(void)
{
	char flag,end;
	char *file;
	int num,seek;
	char *answer;
	flag=';';
	end='=';
	file="xiyouji.dat";
	Set_Video_Mode(VGA256);
	randomize();
	seek=random(3)*112;
		for(num=1;answer[0]!=end;num++)
		{
			answer=fread_char_seek(flag,file,num,seek,end);
			if(answer[0]!=end)
			{
					hz24_k(1,1,answer,color);
					getch();
					Fill_Screen(0);
			}
		}
	Set_Video_Mode(TEXT_MODE);

}