| 1 |
james |
26 |
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 |
Parent Directory
| 
Revision Log