/[james]/archive/createj/CreateJ/Basic/Create
ViewVC logotype

Contents of /archive/createj/CreateJ/Basic/Create

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (show annotations) (download)
Thu Mar 13 17:23:07 2003 UTC (21 years, 7 months ago) by james
File size: 3961 byte(s)
Initial import.

1 REM > CreateJCode:Create
2
3 DEF PROCCreate(Path$)
4 LOCAL Name$, Sprt$
5 LOCAL Temp%, Spr1%, Spr2%
6
7 REMLOCAL ERROR
8 REMON ERROR LOCAL RESTORE ERROR: PROCCreate_Error
9
10 Name$ = FNWimp_GetLeaf(Path$)
11
12 SYS"OS_CLI", "CDir " + Path$
13 SYS"OS_CLI", "Copy " + Task_Path$ + "Base " + Path$ + ".!" + Name$ + " A~C~DFL~N~P~QR~S~T~V"
14 SYS"OS_CLI", "CDir " + Path$ + "." + Name$
15 SYS"OS_CLI", "CDir " + Path$ + "." + Name$ + ".Basic"
16
17 PROCWimp_LoadFile(Task_Path$ + "Files.!Sprites", 1, "Sprites")
18 PROCWimp_LoadFile(Task_Path$ + "Files.!Sprites22", 1, "Sprites22")
19 Spr1% = FNHeap_Find(1, "Sprites")
20 Spr2% = FNHeap_Find(1, "Sprites22")
21 Sprt$ = "!" + FNString_Lower(LEFT$(Name$, 11))
22 $(Spr1% + 4 + &10) = Sprt$
23 $(Spr2% + 4 + &10) = Sprt$
24 Spr1%?(4 + &10 + LENSprt$) = 0
25 Spr2%?(4 + &10 + LENSprt$) = 0
26 SYS"OS_File", 10, Path$ + ".!" + Name$ + ".!Sprites", &FF9,, Spr1% + 4, Spr1% + !Spr1% + 4
27 SYS"OS_File", 10, Path$ + ".!" + Name$ + ".!Sprites22", &FF9,, Spr2% + 4, Spr2% + !Spr2% + 4
28 PROCHeap_Lose(1, "Sprites")
29 PROCHeap_Lose(1, "Sprites22")
30
31 Type$ = "Obey"
32 PROCCopy(Task_Path$ + "Files.!Run", Path$ + ".!" + Name$ + ".!Run")
33 PROCCopy(Task_Path$ + "Files.!Run2", Path$ + "." + Name$ + ".!Run")
34 PROCCopy(Task_Path$ + "Files.LinkCrunch", Path$ + "." + Name$ +".LinkCrunch")
35
36 Type$ = "Text"
37 PROCCopy(Task_Path$+"Files.Menus", Path$ + ".!" +Name$+".Resources.UK.Menus")
38
39 Type$ = "BASIC"
40 PROCBasic(Task_Path$ + "Files.!Main", Path$ + "." + Name$ + ".!Main")
41 PROCBasic(Task_Path$+"Files.Basic.Click",Path$ + "." + Name$ +".Basic.Click")
42 PROCBasic(Task_Path$+"Files.Basic.Init", Path$ + "." + Name$ + ".Basic.Init")
43 PROCBasic(Task_Path$+"Files.Basic.Menu", Path$ + "." + Name$ + ".Basic.Menu")
44 PROCBasic(Task_Path$+"Files.Basic.Quit", Path$ + "." + Name$ + ".Basic.Quit")
45
46 ENDPROC
47
48 REM �������������������������������������������������������������������������
49
50 DEF PROCCreate_Error
51 PROCHeap_Lose(1, "*")
52 Erro_ERL% = ERL
53 Erro_REPORT$ = REPORT$
54 Erro_ERR% = Erro_Warn%
55 ERROR Erro_Warn%, REPORT$
56 ENDPROC
57
58 REM �������������������������������������������������������������������������
59
60 DEF PROCCopy(Fil1$, Fil2$)
61 LOCAL Fil1%, Fil2%, Byte%, Byt1%, Byt2%, Loop%
62
63 Fil1% = OPENIN(Fil1$)
64 Fil2% = OPENOUT(Fil2$)
65
66 REMLOCAL ERROR
67 REMON ERROR LOCAL RESTORE ERROR: PROCCopy_Error
68
69 WHILE NOT EOF#Fil1%
70 Byte% = BGET#Fil1%
71 IF Byte% = ASC"{" THEN
72 Byt1% = BGET#Fil1%
73 Byt2% = BGET#Fil1%
74 IF (Byt1% = ASC"!") AND (Byt2% = ASC"}") THEN
75 FOR Loop% = 1 TO LENName$
76 BPUT#Fil2%, ASC(MID$(Name$, Loop%, 1))
77 NEXT
78 ELSE
79 BPUT#Fil2%, Byte%
80 BPUT#Fil2%, Byt1%
81 BPUT#Fil2%, Byt2%
82 ENDIF
83 ELSE
84 BPUT#Fil2%, Byte%
85 ENDIF
86 ENDWHILE
87
88 REMRESTORE ERROR
89
90 CLOSE#Fil1%
91 CLOSE#Fil2%
92 SYS"OS_CLI", "SetType " + Fil2$ + " " + Type$
93 ENDPROC
94
95 REM �������������������������������������������������������������������������
96
97 DEF PROCCopy_Error
98 CLOSE#Fil1%
99 CLOSE#Fil2%
100 Erro_ERL% = ERL
101 Erro_REPORT$ = REPORT$
102 Erro_ERR% = Erro_Warn%
103 ERROR Erro_Warn%, REPORT$
104 ENDPROC
105
106 REM �������������������������������������������������������������������������
107
108 DEF PROCBasic(Fil1$, Fil2$)
109 LOCAL Fil1%, Fil2%, Byte%, Byt1%, Byt2%
110
111 Fil1% = OPENIN(Fil1$)
112 Fil2% = OPENOUT(Fil2$)
113
114 REMLOCAL ERROR
115 REMON ERROR LOCAL RESTORE ERROR: PROCCopy_Error
116
117 Byte% = BGET#Fil1% :REM &D
118 BPUT#Fil2%, Byte%
119 Byte% = BGET#Fil1% :REM line 1
120 WHILE Byte% <> &FF
121 BPUT#Fil2%, Byte%
122 Byte% = BGET#Fil1% :REM line 2
123 BPUT#Fil2%, Byte%
124 Byte% = BGET#Fil1% :REM length
125 Line$ = ""
126 Byte% = BGET#Fil1%
127 WHILE Byte% <> &D
128 IF Byte% = ASC"{" THEN
129 Byt1% = BGET#Fil1%
130 Byt2% = BGET#Fil1%
131 IF (Byt1% = ASC"!") AND (Byt2% = ASC"}") THEN
132 Line$ += Name$
133 ENDIF
134 ELSE
135 Line$ += CHR$(Byte%)
136 ENDIF
137 Byte% = BGET#Fil1%
138 ENDWHILE
139 BPUT#Fil2%, LENLine$ + 4
140 BPUT#Fil2%, Line$;
141 BPUT#Fil2%, Byte%
142 Byte% = BGET#Fil1% :REM line 1
143 ENDWHILE
144 BPUT#Fil2%, Byte%
145
146 REMRESTORE ERROR
147
148 CLOSE#Fil1%
149 CLOSE#Fil2%
150 SYS"OS_CLI", "SetType " + Fil2$ + " " + Type$
151 ENDPROC

  ViewVC Help
Powered by ViewVC 1.1.26