Difference between revisions of "ZACK"

Revision as of 03:48, 5 September 2006

ZACK Programming Language

BACKGROUND (x,y) = value		Set a background tile
BACKGROUND COLLISION from[ .. to]	Test for background collision
BORDER ink				Set Border
BYTE var{ ,var}				Define Byte variable(s)
CLEAR SCREEN byte			Clear the screen
CONSOLE					Output on Console
CONST var = value{ ,var = value}	Define constant(s)
COPY LAYOUT x,y,width,height TO x,y	Copy a section of the Layout
COPY SPRITE n TO n			Copy a Sprite
DEC var					Decrement a variable
DEFINE var = value{ ,var = value}	Define constant(s) (Same as CONST)
DEFINE KEY key				Define a key
DEFINE MAIN TASK number			Define a Main Task
DEFINE MARKER TASK number		Define a Marker Task
DEFINE MOVE TASK number			Define a Move Task
DEFINE DRAW TASK number			Define a Draw Task
DRAW x,y[,pen]				Not implemented (Draw a line)
DRAW TASK number			Execute DRAW Task
ELSE					ELSE statement
ELSE IF expr				ELSE IF statement
ENDIF					End of IF statement
FLASH OBJECT				Flash the current Object
FOR var = start TO end[ STEP step]	For loop statement
GOTO line				GOTO statement
GOTO MARKER marker			Go to Layout Marker
HIDDEN SCREEN				Output on Hidden Screen
IF expr[ GOTO line]			IF or IF .. GOTO statement
INC var					Increment a variable
INK pen, ink				Set the given pen to palette colour
INPUT var[:width]			Assign user input to variable
INSERT HIGH position			Insert a High Score in the table
KILL number				Kill given Object
KILL ALL				Kill all Objects
LOCATE x,y				Position text cursor
MAIN TASK number			Execute MAIN Task
MOVE x,y				Move graphics position
MOVE OBJECT dx,dy[ SCROLL]		Move current Object (include scroll)
MOVE OBJECTS				Execute MOVE Tasks for all Objects
MOVE TASK number			Execute given MOVE Task
NEW OBJECT obj,part,x,y,mt[,dt[,v1..]]	Create a new Object (mt = Move Task, dt=Draw Task)
NEXT					Continue FOR loop
OBJECT COLLISION from[ .. to]		Check for collision with another Object
ORIGIN x,y				Change the output Origin
PAUSE delay[ KEY key]			Pause for given time (or until key pressed)
PLAY FX number				Not implemented (Play given Sound Effect)
PLAY TUNE number			Not implemented (Play given Tune)
PLOT x,y[,pen]				Not implemented (Plot a point)
PRINT [@x,y,]expr[:width]		Print value (at position, with given width)
REPEAT					Repeat loop statement
RESET var{ ,var}			Reset variable(s) to zero
RESET INKS				Reset palette to default???
RETURN					Return from a Task
SCORE var{, var}			Define a Score variable
SCREEN TYPE number			Set the screen format
SCROLL					Scroll the layout (if scrolling on)
SCROLL OFF				Turn automatic scrolling off
SCROLL ON				Turn automatic scrolling on
SHOW BACKGROUND				Show the background
SHOW KEY key				Show the label for the given key
SHOW MINI number			Show given Mini-Sprite at current position
SHOW OBJECT obj,part			Show an Object at current position
SHOW OBJECTS				Show all Objects
SHOW SCREEN				Show the hidden screen
SHOW SHOT number			Show Shot-Sprite at current position
SHOW SPRITE number			Draw a Sprite at the current position
STOP FX					Not implemented (Stop Sound Effect)
STOP TUNE				Not implemented (Stop Tune playing)
STRING var{ ,var}			Define a String variable
SWAP SPRITE number,number		Swap two sprites
UNTIL expr				End of REPEAT..UNTIL loop
VISIBLE SCREEN				Output on the Visible Screen
WEND					End of WHILE loop
WHILE expr				WHILE loop statement
WINDOW x,y,width,height			Define a window for output
WORD var{ ,var}				Define a Word variable

Some of these commands may not be fully implemented.

Below is an example ZACK program:

      WORD mky,dots,w1,w2
      BYTE pills,stage,m,power

      PAUSE 10

      SCREEN TYPE 1
      MAIN TASK 1

      DEFINE MAIN TASK 1

0     stage = 1
      m = 0
1     KILL ALL
      NEW OBJECT 1,28,48,0,0,-2
      INC m
      GOTO MARKER m
      mky = lay_y-184
      COPY LAYOUT 256,mky,32,14 TO 0,mky

      x = 24
      y = 0
      FOR v1 = 0 TO m2
      NEW OBJECT 4,x+24,-16,y,1,2,0,0,1,0,0,0,lay_x+x,lay_y-16
      x = x+2
      y = y+4
      IF y=12
      y = 0
      ENDIF
      NEXT

      MAIN TASK 2
      MAIN TASK 3

      WHILE dots
      HIDDEN SCREEN
      SHOW BACKGROUND
      SHOW OBJECTS
      SHOW SCREEN
      CONSOLE
      MOVE OBJECTS
      COPY SPRITE 15 TO 35
      COPY SPRITE 34 TO 15
      COPY SPRITE 33 TO 34
      COPY SPRITE 32 TO 33
      COPY SPRITE 35 TO 32
      IF INKEY 38
      MAIN TASK 2
      ENDIF
      WEND
      INC stage
      IF m1 GOTO 1
      GOTO 0

      DEFINE MAIN TASK 2

      HIDDEN SCREEN
      CLEAR SCREEN 0
      PRINT @11,0,"PAC ATTACK"
      PRINT @12,2,"Stage"
      PRINT @18,2,stage:2
      v2 = 32
      RESET dots,pills
      FOR w2 = mky TO mky+448 STEP 32
      FOR w1 = 32 TO 280 STEP 8
      v1 = BACKGROUND (w1,w2)
      MOVE w1/8+12,v2
      IF v1=0
      v3 = 1
      ELSE IF v1<15
      v3 = 2
      ELSE IF v1<18
      v3 = v1-12
      ELSE
      v3 = 0
      ENDIF
      SHOW SHOT v3
      IF v1=16
      INC dots
      ELSE IF v1=17
      INC pills
      ENDIF
      NEXT
      v2 = v2+4
      NEXT
      PRINT @10,13,"Dots  :"
      PRINT @17,13,dots:4
      PRINT @10,15,"Pills :"
      PRINT @17,15,pills:4
      SHOW SCREEN
      REPEAT
      UNTIL INKEY 47


      DEFINE MAIN TASK 3

      BYTE c1,c2,i1[5],i2[5]
      DEFINE i1[1]=3,i1[2]=2,i1[4]=6,i1[5]=13
      DEFINE i2[1]=3,i2[2]=2,i2[3]=4,i2[4]=0,i2[5]=13
      CONSOLE

      v2 = 1
      FOR w2 = mky TO mky+448 STEP 32
      v4 = 1
      FOR w1 = 32 TO 280 STEP 8
      v1 = BACKGROUND (w1,w2)
      IF v1=0
      v3 = 1
      ELSE IF v1<15
      v3 = 2
      ELSE IF v1<18
      v3 = v1-12
      ELSE
      v3 = 0
      ENDIF
      c1 = i1[v3]
      c2 = i2[v3]
      PLOT v4,v2,mask[c1]
      PLOT v4,v2+1,mask[c2]
      i1[4] = i1[4] XOR 3
      INC v4
      NEXT
      v2 = v2+2
      NEXT


      DEFINE MOVE TASK 0

      power = 0
      w1 = lay_x+28
      w2 = lay_y+48
      IF NOT ((w1 AND 7) OR (w2 AND 31))
      v6 = BACKGROUND (w1+v1*4,w2+v2*4)
      IF v6<16
      v1 = 0
      v2 = 0
      ENDIF
      ENDIF
      IF (lay_y AND 31)=16
      IF v1<2 AND INKEY 63
      v6 = BACKGROUND (w1+8,w2)
      IF v6>15
      v1 = 2
      v2 = 0
      object = 0
      GOTO 1
      ENDIF
      ELSE IF v1>-2 AND INKEY 71
      v6 = BACKGROUND (w1-1,w2)
      IF v6>15
      v1 = -2
      v2 = 0
      object = 1
      GOTO 1
      ENDIF
      ENDIF
      ENDIF
      IF (lay_x AND 7)=4
      IF v2<8 AND INKEY 22
      v6 = BACKGROUND (w1,w2+32)
      IF v6>15
      v1 = 0
      v2 = 8
      object = 3
      ENDIF
      ELSE IF v2>-8 AND INKEY 19
      v6 = BACKGROUND (w1,w2-32)
      IF v6>15
      v1 = 0
      v2 = -8
      object = 2
      ENDIF
      ENDIF
      ENDIF
1     lay_x = (lay_x+v1) AND 255
      lay_y = lay_y+v2
      IF NOT ((w1 AND 7) OR (w2 AND 31))
      v6 = BACKGROUND (w1,w2)
      IF v6=16 OR v6=17
      IF v6=16
      DEC dots
      ELSE
      power = 1
      ENDIF
      BACKGROUND (w1,w2) = 63
      v4 = w1/8-3
      v5 = ((w2-mky+32) AND &FFE0)/16+1
      PLOT v4,v5,0
      PLOT v4,v5+1,0
      ENDIF
      ENDIF
      IF v1 OR v2
      part = (part+1) MOD 6
      ENDIF
      OBJECT COLLISION 4
      IF hit
      BORDER 26
      ENDIF

      DEFINE MOVE TASK 1

      BYTE a,b,d[4],adx[3],ady[3]
      DEFINE adx[1]=8,adx[3]=-8
      DEFINE ady[0]=-32,ady[2]=32

      IF power
      v3 = 255
      IF object=4
      object = 5
      v1 = -v1
      v2 = -v2
      ENDIF
      ENDIF

      IF v3
      DEC v3
      ELSE
      object = 4
      ENDIF

      IF NOT ((w1 AND 7) OR (w2 AND 31))
      v6 = BACKGROUND (w1+v1*4,w2+v2*4)
      IF v1<>0
      a = BACKGROUND (w1,w2-32)
      b = BACKGROUND (w1,w2+32)
      ELSE
      a = BACKGROUND (w1-8,w2)
      b = BACKGROUND (w1+8,w2)
      ENDIF
      IF v6<16 OR (a>15) OR (b>15)
      a = DIR (1)/2
      IF v3
      a = a XOR 2
      ENDIF
      IF a=(v4 XOR 2)
      d[3] = a
      b = 0
      ELSE
      d[0] = a
      b = 1
      ENDIF
      a = RND AND 3
      IF a=(v4 XOR 2)
      a = (a+1) AND 3
      ENDIF
      FOR v4 = b TO b+2
      d[v4] = a
      a = (a+1) AND 3
      NEXT
      d[4] = a
      a = 0
      GOTO 2
1     INC a
      IF a>4
      PAUSE 100
      ENDIF
2     v4 = d[a]
      v6 = BACKGROUND (w1+adx[v4],w2+ady[v4])
      IF v6<15 OR (v6=15 AND ((v4<>0) OR (RND AND 7))) GOTO 1
      v1 = adx[v4]/4
      v2 = ady[v4]/4
      ENDIF
      ENDIF
      w1 = w1+v1
      w2 = w2+v2

      x = MAX (MIN (w1-lay_x,72),-16)
      y = MAX (MIN (w2-lay_y,160),-64)
      part = (part AND 12)+((part+1) AND 3)

Executioner 09:48, 5 September 2006 (CEST)