Sprites y gráficos sobre el compañero Micromite (10 / 13 paso)

Paso 10: Resumen de subrutinas de Sprite

Aquí está un resumen de las rutinas de sub que hemos utilizado para mostrar, animar y mover sprites:

SUB LoadSpr sprite, gráfico, x, y, espejo, paleta I2C WRITE PC, 0, 1, 8, 202, sprite, gráfico, x, y, espejo, sprite de END SUB Sub HideSpr paleta I2C escribir y h42, 0, 5, 1, 202, sprite, 0, 0 End Sub SUB LoadSpr sprite,graphic,x,y,mirror,palette I2C WRITE PC,0,8,1,202,sprite,graphic,x,y,mirror,palette END SUB Sub HideSpr sprite I2C WRITE &h42,0,5,1,202,sprite,0,0 End Sub Sub Animate sprite,start,end,delay I2C WRITE PC,0,6,1,219,sprite,start,end,delay End Sub Sub MoveSpeed sprite,xdelay,ydelay,xinc,yinc I2C Write PC,0,7,1,220,sprite,xdelay,ydelay,xinc,yinc End Sub SUB LoadResource file$,cmd I2C WRITE PC,0,2,1,230 'Clear the I2C registers FOR X = 1 TO LEN(file$) 'Send filename I2C WRITE PC,0,2,x+1,ASC(MID$(file$,x,1)) : NEXT X I2C WRITE PC,0,2,1,cmd 'Initate Load 180 or 181 a$ ="": DO WHILE a$ <> "*" : a$=INKEY$ : LOOP : PAUSE 1000 END SUB