� > MakeSprite

ț "Spritelib"

� 12:�
(	�init
2�makesprite
<�
F
P��makesprite
Z� x,y,r,col
dx=500:y=500:r=50
n� draw sprite
x� col = 1 � 7
�	� col
�ȏ Ȑ x,y,r-(5*(col-1))
�	� col
�� Grab sprite
�=� sbox(4):sbox(1)=x-r:sbox(2)=y-r:sbox(3)=x+r:sbox(4)=y+r
��get_sprite("ball",sbox())
�� Mask sprite
��mask_sprite("ball",0)
�� Create background sprite
��drawbackground
�*SCREENSAVE SCREEN
��savespritefile("demo")
��




��init

�init_screen

"� 8,24,24,24

,� 9,48,48,48

6� 10,72,72,72

@� 11,96,96,96

J� 12,120,120,120

T� 13,144,144,144

^� 14,168,168,168

h� 15,192,192,192

r�init_sprites("",20)

|�

�

���drawbackground

�� gcol,x

�� x=0 � 1276 � 4

�gcol=�(8)+7

�
� gcol

�ȓ Ȑ x,0,x+3,1023

�� x

��
�

00000000  0d 00 0a 12 f4 20 3e 20  4d 61 6b 65 53 70 72 69  |..... > MakeSpri|
00000010  74 65 0d 00 14 04 0d 00  1e 12 c8 9b 20 22 53 70  |te.......... "Sp|
00000020  72 69 74 65 6c 69 62 22  0d 00 1f 0a eb 20 31 32  |ritelib"..... 12|
00000030  3a 87 0d 00 28 09 f2 69  6e 69 74 0d 00 32 0f f2  |:...(..init..2..|
00000040  6d 61 6b 65 73 70 72 69  74 65 0d 00 3c 05 e0 0d  |makesprite..<...|
00000050  00 46 04 0d 00 50 10 dd  f2 6d 61 6b 65 73 70 72  |.F...P...makespr|
00000060  69 74 65 0d 00 5a 0f ea  20 78 2c 79 2c 72 2c 63  |ite..Z.. x,y,r,c|
00000070  6f 6c 0d 00 64 14 78 3d  35 30 30 3a 79 3d 35 30  |ol..d.x=500:y=50|
00000080  30 3a 72 3d 35 30 0d 00  6e 11 f4 20 64 72 61 77  |0:r=50..n.. draw|
00000090  20 73 70 72 69 74 65 0d  00 78 11 e3 20 63 6f 6c  | sprite..x.. col|
000000a0  20 3d 20 31 20 b8 20 37  0d 00 82 09 e6 20 63 6f  | = 1 . 7..... co|
000000b0  6c 0d 00 8c 1b c8 8f 20  c8 90 20 78 2c 79 2c 72  |l...... .. x,y,r|
000000c0  2d 28 35 2a 28 63 6f 6c  2d 31 29 29 0d 00 96 09  |-(5*(col-1))....|
000000d0  ed 20 63 6f 6c 0d 00 a0  11 f4 20 47 72 61 62 20  |. col..... Grab |
000000e0  73 70 72 69 74 65 0d 00  aa 3d de 20 73 62 6f 78  |sprite...=. sbox|
000000f0  28 34 29 3a 73 62 6f 78  28 31 29 3d 78 2d 72 3a  |(4):sbox(1)=x-r:|
00000100  73 62 6f 78 28 32 29 3d  79 2d 72 3a 73 62 6f 78  |sbox(2)=y-r:sbox|
00000110  28 33 29 3d 78 2b 72 3a  73 62 6f 78 28 34 29 3d  |(3)=x+r:sbox(4)=|
00000120  79 2b 72 0d 00 b4 1e f2  67 65 74 5f 73 70 72 69  |y+r.....get_spri|
00000130  74 65 28 22 62 61 6c 6c  22 2c 73 62 6f 78 28 29  |te("ball",sbox()|
00000140  29 0d 00 be 11 f4 20 4d  61 73 6b 20 73 70 72 69  |)..... Mask spri|
00000150  74 65 0d 00 c8 1a f2 6d  61 73 6b 5f 73 70 72 69  |te.....mask_spri|
00000160  74 65 28 22 62 61 6c 6c  22 2c 30 29 0d 00 d2 1e  |te("ball",0)....|
00000170  f4 20 43 72 65 61 74 65  20 62 61 63 6b 67 72 6f  |. Create backgro|
00000180  75 6e 64 20 73 70 72 69  74 65 0d 00 dc 13 f2 64  |und sprite.....d|
00000190  72 61 77 62 61 63 6b 67  72 6f 75 6e 64 0d 00 e6  |rawbackground...|
000001a0  16 2a 53 43 52 45 45 4e  53 41 56 45 20 53 43 52  |.*SCREENSAVE SCR|
000001b0  45 45 4e 0d 00 f0 1b f2  73 61 76 65 73 70 72 69  |EEN.....savespri|
000001c0  74 65 66 69 6c 65 28 22  64 65 6d 6f 22 29 0d 00  |tefile("demo")..|
000001d0  fa 05 e1 0d 01 04 04 0d  01 0e 0a dd f2 69 6e 69  |.............ini|
000001e0  74 0d 01 18 10 f2 69 6e  69 74 5f 73 63 72 65 65  |t.....init_scree|
000001f0  6e 0d 01 22 10 fb 20 38  2c 32 34 2c 32 34 2c 32  |n..".. 8,24,24,2|
00000200  34 0d 01 2c 10 fb 20 39  2c 34 38 2c 34 38 2c 34  |4..,.. 9,48,48,4|
00000210  38 0d 01 36 11 fb 20 31  30 2c 37 32 2c 37 32 2c  |8..6.. 10,72,72,|
00000220  37 32 0d 01 40 11 fb 20  31 31 2c 39 36 2c 39 36  |72..@.. 11,96,96|
00000230  2c 39 36 0d 01 4a 14 fb  20 31 32 2c 31 32 30 2c  |,96..J.. 12,120,|
00000240  31 32 30 2c 31 32 30 0d  01 54 14 fb 20 31 33 2c  |120,120..T.. 13,|
00000250  31 34 34 2c 31 34 34 2c  31 34 34 0d 01 5e 14 fb  |144,144,144..^..|
00000260  20 31 34 2c 31 36 38 2c  31 36 38 2c 31 36 38 0d  | 14,168,168,168.|
00000270  01 68 14 fb 20 31 35 2c  31 39 32 2c 31 39 32 2c  |.h.. 15,192,192,|
00000280  31 39 32 0d 01 72 18 f2  69 6e 69 74 5f 73 70 72  |192..r..init_spr|
00000290  69 74 65 73 28 22 22 2c  32 30 29 0d 01 7c 05 e1  |ites("",20)..|..|
000002a0  0d 01 86 04 0d 01 b8 14  dd f2 64 72 61 77 62 61  |..........drawba|
000002b0  63 6b 67 72 6f 75 6e 64  0d 01 c2 0c ea 20 67 63  |ckground..... gc|
000002c0  6f 6c 2c 78 0d 01 cc 14  e3 20 78 3d 30 20 b8 20  |ol,x..... x=0 . |
000002d0  31 32 37 36 20 88 20 34  0d 01 d6 0f 67 63 6f 6c  |1276 . 4....gcol|
000002e0  3d b3 28 38 29 2b 37 0d  01 e0 0a e6 20 67 63 6f  |=.(8)+7..... gco|
000002f0  6c 0d 01 ea 16 c8 93 20  c8 90 20 78 2c 30 2c 78  |l...... .. x,0,x|
00000300  2b 33 2c 31 30 32 33 0d  01 f4 07 ed 20 78 0d 01  |+3,1023..... x..|
00000310  fe 05 e1 0d ff                                    |.....|
00000315