� Hive sprites converter
�
G� Converts all sprites in <Hive$Dir>.^.Originals to Popcorn sprites
(� in <Hive$Dir>.Graphics
2:
<� � �:�" at line ";�:�
F:
P?max%=512:� Change this if there are huge numbers of sprites
Z:
d� sprite$(max%)
xnext_spr%=0
�&in_path$="<Hive$Dir>.^.Originals."
�$out_path$="<Hive$Dir>.Graphics."
�:
�� b% 256
�:
��build_list(in_path$,"")
�4�"Copy "+�in_path$)+" "+�out_path$)+" ~C~D~FT~V"
�!o%=�("<Wimp$ScrapDir>.RunMe")
�� s%=0 � next_spr%-1
�Q  ș "OS_File",17,out_path$+sprite$(s%) � ,,load%,exec%:b%!0=load%:b%!4=exec%
�x  � �(�exists(out_path$+sprite$(s%))) � �#o%,"<MakePop$Dir>.MakePop "+in_path$+sprite$(s%)+" "+out_path$+sprite$(s%)
��
�'�#o%,"Delete <Wimp$ScrapDir>.RunMe"
��#o%
�)�"SetType <Wimp$ScrapDir>.RunMe Obey"

[�"TaskWindow ""<Wimp$ScrapDir>.RunMe"" -name ""Sprite processor"" -wimpslot 512k -quit"

:

�

":

,��build_list(path$,dir$)

6'� scan$,append$,next%,o_next%,read%

@N  � dir$="" � scan$=�path$):append$="" � scan$=path$+dir$:append$=dir$+"."

J  next%=0:�

T?    ș "OS_GBPB",12,scan$,b%,1,next%,256,0 � ,,,read%,next%

^!    � b%!20=&FF9 � read%<>0 �

h.      sprite$(next_spr%)=append$+�z(b%+24)

r      next_spr%+=1

|%      �PRINT sprite$(next_spr%-1)

�	    �

�C    � b%!16=2 � read%<>0 � �build_list(path$,append$+�z(b%+24))

�  � read%=0

��

�:

�3ݤz(p%):s$="":ȕ ?p%>=32:s$+=�(?p%):p%+=1:�:=s$

�:

�Kݤexists(file$):� t%:ș "OS_File",23,file$ � ,,,,,,t%:� t%=-1 � =� � =�
�

00000000  0d 00 0a 1c f4 20 48 69  76 65 20 73 70 72 69 74  |..... Hive sprit|
00000010  65 73 20 63 6f 6e 76 65  72 74 65 72 0d 00 14 05  |es converter....|
00000020  f4 0d 00 1e 47 f4 20 43  6f 6e 76 65 72 74 73 20  |....G. Converts |
00000030  61 6c 6c 20 73 70 72 69  74 65 73 20 69 6e 20 3c  |all sprites in <|
00000040  48 69 76 65 24 44 69 72  3e 2e 5e 2e 4f 72 69 67  |Hive$Dir>.^.Orig|
00000050  69 6e 61 6c 73 20 74 6f  20 50 6f 70 63 6f 72 6e  |inals to Popcorn|
00000060  20 73 70 72 69 74 65 73  0d 00 28 1c f4 20 69 6e  | sprites..(.. in|
00000070  20 3c 48 69 76 65 24 44  69 72 3e 2e 47 72 61 70  | <Hive$Dir>.Grap|
00000080  68 69 63 73 0d 00 32 05  3a 0d 00 3c 1a ee 20 85  |hics..2.:..<.. .|
00000090  20 f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  | .:." at line ";|
000000a0  9e 3a e0 0d 00 46 05 3a  0d 00 50 3f 6d 61 78 25  |.:...F.:..P?max%|
000000b0  3d 35 31 32 3a f4 20 43  68 61 6e 67 65 20 74 68  |=512:. Change th|
000000c0  69 73 20 69 66 20 74 68  65 72 65 20 61 72 65 20  |is if there are |
000000d0  68 75 67 65 20 6e 75 6d  62 65 72 73 20 6f 66 20  |huge numbers of |
000000e0  73 70 72 69 74 65 73 0d  00 5a 05 3a 0d 00 64 13  |sprites..Z.:..d.|
000000f0  de 20 73 70 72 69 74 65  24 28 6d 61 78 25 29 0d  |. sprite$(max%).|
00000100  00 78 0f 6e 65 78 74 5f  73 70 72 25 3d 30 0d 00  |.x.next_spr%=0..|
00000110  82 26 69 6e 5f 70 61 74  68 24 3d 22 3c 48 69 76  |.&in_path$="<Hiv|
00000120  65 24 44 69 72 3e 2e 5e  2e 4f 72 69 67 69 6e 61  |e$Dir>.^.Origina|
00000130  6c 73 2e 22 0d 00 8c 24  6f 75 74 5f 70 61 74 68  |ls."...$out_path|
00000140  24 3d 22 3c 48 69 76 65  24 44 69 72 3e 2e 47 72  |$="<Hive$Dir>.Gr|
00000150  61 70 68 69 63 73 2e 22  0d 00 96 05 3a 0d 00 a0  |aphics."....:...|
00000160  0c de 20 62 25 20 32 35  36 0d 00 aa 05 3a 0d 00  |.. b% 256....:..|
00000170  b4 1c f2 62 75 69 6c 64  5f 6c 69 73 74 28 69 6e  |...build_list(in|
00000180  5f 70 61 74 68 24 2c 22  22 29 0d 00 be 34 ff 22  |_path$,"")...4."|
00000190  43 6f 70 79 20 22 2b c0  69 6e 5f 70 61 74 68 24  |Copy "+.in_path$|
000001a0  29 2b 22 20 22 2b c0 6f  75 74 5f 70 61 74 68 24  |)+" "+.out_path$|
000001b0  29 2b 22 20 7e 43 7e 44  7e 46 54 7e 56 22 0d 00  |)+" ~C~D~FT~V"..|
000001c0  c8 21 6f 25 3d ae 28 22  3c 57 69 6d 70 24 53 63  |.!o%=.("<Wimp$Sc|
000001d0  72 61 70 44 69 72 3e 2e  52 75 6e 4d 65 22 29 0d  |rapDir>.RunMe").|
000001e0  00 d2 18 e3 20 73 25 3d  30 20 b8 20 6e 65 78 74  |.... s%=0 . next|
000001f0  5f 73 70 72 25 2d 31 0d  00 d3 51 20 20 c8 99 20  |_spr%-1...Q  .. |
00000200  22 4f 53 5f 46 69 6c 65  22 2c 31 37 2c 6f 75 74  |"OS_File",17,out|
00000210  5f 70 61 74 68 24 2b 73  70 72 69 74 65 24 28 73  |_path$+sprite$(s|
00000220  25 29 20 b8 20 2c 2c 6c  6f 61 64 25 2c 65 78 65  |%) . ,,load%,exe|
00000230  63 25 3a 62 25 21 30 3d  6c 6f 61 64 25 3a 62 25  |c%:b%!0=load%:b%|
00000240  21 34 3d 65 78 65 63 25  0d 00 d5 78 20 20 e7 20  |!4=exec%...x  . |
00000250  ac 28 a4 65 78 69 73 74  73 28 6f 75 74 5f 70 61  |.(.exists(out_pa|
00000260  74 68 24 2b 73 70 72 69  74 65 24 28 73 25 29 29  |th$+sprite$(s%))|
00000270  29 20 8c 20 d5 23 6f 25  2c 22 3c 4d 61 6b 65 50  |) . .#o%,"<MakeP|
00000280  6f 70 24 44 69 72 3e 2e  4d 61 6b 65 50 6f 70 20  |op$Dir>.MakePop |
00000290  22 2b 69 6e 5f 70 61 74  68 24 2b 73 70 72 69 74  |"+in_path$+sprit|
000002a0  65 24 28 73 25 29 2b 22  20 22 2b 6f 75 74 5f 70  |e$(s%)+" "+out_p|
000002b0  61 74 68 24 2b 73 70 72  69 74 65 24 28 73 25 29  |ath$+sprite$(s%)|
000002c0  0d 00 e6 05 ed 0d 00 e7  27 d5 23 6f 25 2c 22 44  |........'.#o%,"D|
000002d0  65 6c 65 74 65 20 3c 57  69 6d 70 24 53 63 72 61  |elete <Wimp$Scra|
000002e0  70 44 69 72 3e 2e 52 75  6e 4d 65 22 0d 00 f0 08  |pDir>.RunMe"....|
000002f0  d9 23 6f 25 0d 00 fa 29  ff 22 53 65 74 54 79 70  |.#o%...)."SetTyp|
00000300  65 20 3c 57 69 6d 70 24  53 63 72 61 70 44 69 72  |e <Wimp$ScrapDir|
00000310  3e 2e 52 75 6e 4d 65 20  4f 62 65 79 22 0d 01 04  |>.RunMe Obey"...|
00000320  5b ff 22 54 61 73 6b 57  69 6e 64 6f 77 20 22 22  |[."TaskWindow ""|
00000330  3c 57 69 6d 70 24 53 63  72 61 70 44 69 72 3e 2e  |<Wimp$ScrapDir>.|
00000340  52 75 6e 4d 65 22 22 20  2d 6e 61 6d 65 20 22 22  |RunMe"" -name ""|
00000350  53 70 72 69 74 65 20 70  72 6f 63 65 73 73 6f 72  |Sprite processor|
00000360  22 22 20 2d 77 69 6d 70  73 6c 6f 74 20 35 31 32  |"" -wimpslot 512|
00000370  6b 20 2d 71 75 69 74 22  0d 01 0e 05 3a 0d 01 18  |k -quit"....:...|
00000380  05 e0 0d 01 22 05 3a 0d  01 2c 1c dd f2 62 75 69  |....".:..,...bui|
00000390  6c 64 5f 6c 69 73 74 28  70 61 74 68 24 2c 64 69  |ld_list(path$,di|
000003a0  72 24 29 0d 01 36 27 ea  20 73 63 61 6e 24 2c 61  |r$)..6'. scan$,a|
000003b0  70 70 65 6e 64 24 2c 6e  65 78 74 25 2c 6f 5f 6e  |ppend$,next%,o_n|
000003c0  65 78 74 25 2c 72 65 61  64 25 0d 01 40 4e 20 20  |ext%,read%..@N  |
000003d0  e7 20 64 69 72 24 3d 22  22 20 8c 20 73 63 61 6e  |. dir$="" . scan|
000003e0  24 3d c0 70 61 74 68 24  29 3a 61 70 70 65 6e 64  |$=.path$):append|
000003f0  24 3d 22 22 20 8b 20 73  63 61 6e 24 3d 70 61 74  |$="" . scan$=pat|
00000400  68 24 2b 64 69 72 24 3a  61 70 70 65 6e 64 24 3d  |h$+dir$:append$=|
00000410  64 69 72 24 2b 22 2e 22  0d 01 4a 0f 20 20 6e 65  |dir$+"."..J.  ne|
00000420  78 74 25 3d 30 3a f5 0d  01 54 3f 20 20 20 20 c8  |xt%=0:...T?    .|
00000430  99 20 22 4f 53 5f 47 42  50 42 22 2c 31 32 2c 73  |. "OS_GBPB",12,s|
00000440  63 61 6e 24 2c 62 25 2c  31 2c 6e 65 78 74 25 2c  |can$,b%,1,next%,|
00000450  32 35 36 2c 30 20 b8 20  2c 2c 2c 72 65 61 64 25  |256,0 . ,,,read%|
00000460  2c 6e 65 78 74 25 0d 01  5e 21 20 20 20 20 e7 20  |,next%..^!    . |
00000470  62 25 21 32 30 3d 26 46  46 39 20 80 20 72 65 61  |b%!20=&FF9 . rea|
00000480  64 25 3c 3e 30 20 8c 0d  01 68 2e 20 20 20 20 20  |d%<>0 ...h.     |
00000490  20 73 70 72 69 74 65 24  28 6e 65 78 74 5f 73 70  | sprite$(next_sp|
000004a0  72 25 29 3d 61 70 70 65  6e 64 24 2b a4 7a 28 62  |r%)=append$+.z(b|
000004b0  25 2b 32 34 29 0d 01 72  16 20 20 20 20 20 20 6e  |%+24)..r.      n|
000004c0  65 78 74 5f 73 70 72 25  2b 3d 31 0d 01 7c 25 20  |ext_spr%+=1..|% |
000004d0  20 20 20 20 20 f4 50 52  49 4e 54 20 73 70 72 69  |     .PRINT spri|
000004e0  74 65 24 28 6e 65 78 74  5f 73 70 72 25 2d 31 29  |te$(next_spr%-1)|
000004f0  0d 01 86 09 20 20 20 20  cd 0d 01 90 43 20 20 20  |....    ....C   |
00000500  20 e7 20 62 25 21 31 36  3d 32 20 80 20 72 65 61  | . b%!16=2 . rea|
00000510  64 25 3c 3e 30 20 8c 20  f2 62 75 69 6c 64 5f 6c  |d%<>0 . .build_l|
00000520  69 73 74 28 70 61 74 68  24 2c 61 70 70 65 6e 64  |ist(path$,append|
00000530  24 2b a4 7a 28 62 25 2b  32 34 29 29 0d 01 9a 0f  |$+.z(b%+24))....|
00000540  20 20 fd 20 72 65 61 64  25 3d 30 0d 01 a4 05 e1  |  . read%=0.....|
00000550  0d 01 ae 05 3a 0d 01 b8  33 dd a4 7a 28 70 25 29  |....:...3..z(p%)|
00000560  3a 73 24 3d 22 22 3a c8  95 20 3f 70 25 3e 3d 33  |:s$="":.. ?p%>=3|
00000570  32 3a 73 24 2b 3d bd 28  3f 70 25 29 3a 70 25 2b  |2:s$+=.(?p%):p%+|
00000580  3d 31 3a ce 3a 3d 73 24  0d 01 c8 05 3a 0d 01 c9  |=1:.:=s$....:...|
00000590  4b dd a4 65 78 69 73 74  73 28 66 69 6c 65 24 29  |K..exists(file$)|
000005a0  3a ea 20 74 25 3a c8 99  20 22 4f 53 5f 46 69 6c  |:. t%:.. "OS_Fil|
000005b0  65 22 2c 32 33 2c 66 69  6c 65 24 20 b8 20 2c 2c  |e",23,file$ . ,,|
000005c0  2c 2c 2c 2c 74 25 3a e7  20 74 25 3d 2d 31 20 8c  |,,,,t%:. t%=-1 .|
000005d0  20 3d a3 20 8b 20 3d b9  0d ff                    | =. . =...|
000005da