Commit efae474c authored by Boris Mühmer's avatar Boris Mühmer
Browse files

splitted human

parent c276c5c6

.vscode/settings.json

0 → 100644
+7 −0
Original line number Diff line number Diff line 
{

    "files.associations": {

        "random": "c",

        "limits": "c",

        "algorithm": "c"

    }

}
 
 No newline at end of file

amiga/human.c

+0 −1559

File changed.

Preview size limit exceeded, changes collapsed.

amiga/human_cget.c

0 → 100644
+20 −0
Original line number Diff line number Diff line 
#include "main.h"



cget(pla)

int pla;

  {

  long Code,Class,X,Y;

  while(1)

    {

    WaitPort(ConWindow->UserPort);

    mes=(struct IntuiMessage *) GetMsg(ConWindow->UserPort);

    Class=mes->Class;

    Code=mes->Code;

    X=mes->MouseX;

    Y=mes->MouseY;

    ReplyMsg(mes);

    if(Class==VANILLAKEY) return(Code);

    if(Class==MOUSEBUTTONS && Code==SELECTDOWN) process_mouse(pla,(int) X/8,(int) Y/8);

    if(Class==MOUSEBUTTONS && Code==MENUDOWN) showstatus(pla);

    }

  }

amiga/human_cinput.c

0 → 100644
+35 −0
Original line number Diff line number Diff line 
#include "main.h"



cinput(str,line)

char *str;

int line;

  {

  int pos,c;

  DText.FrontPen=GREENPEN;

  DText.IText=(UBYTE *)">                             ";

  PrintIText(ConPort,&DText,400L,line*8L);

  pos=0;

  *str='\0';

  while(pos<STRLENGTH-1)

    {

    SetAPen(ConPort,GREENPEN);

    RectFill(ConPort,408L+pos*8,line*8L,415L+pos*8,line*8L+7);

    c=coget();

    SetAPen(ConPort,BLACKPEN);

    RectFill(ConPort,408L+pos*8,line*8L,415L+pos*8,line*8L+7);

    switch(c)

      {

      case '\b':if (pos) pos--;

                str[pos]='\0';

                DText.IText=(UBYTE *)" ";

                PrintIText(ConPort,&DText,408L+pos*8,line*8L);

                break;

      case 0x0d:pos=STRLENGTH-1;break;

      default  :str[pos]=c;

                pos++;

                str[pos]='\0';

                DText.IText=(UBYTE *)str;

                PrintIText(ConPort,&DText,408L,line*8L);

      }

    }

  }

amiga/human_clearall.c

0 → 100644
+16 −0
Original line number Diff line number Diff line 
#include "main.h"



clearall(pla)

int pla;

  {

  register long i,j;

  if(!display_check(pla)) return();

  fline=0;

  SetRast(ConPort,BLACKPEN);

  SetAPen(ConPort,WHITEPEN);

  for(i=4;i<XMAX*16+4;i += 16)

    for(j=4;j<YMAX*8+4;j += 8)

      WritePixel(ConPort,i,j);

  screen1=CLEAR;

  screen2=CLEAR;

  }