58 lines
690 B
Plaintext
Executable File
58 lines
690 B
Plaintext
Executable File
'ProgramMode:RUN
|
|
'FOPQRTUVZ
|
|
'TEMP A~E
|
|
'GENERATE WORLD
|
|
'SETTINGS
|
|
'CHUNK SIZE
|
|
21->W
|
|
7->H
|
|
'WORLD SIZE
|
|
7->K
|
|
21->L
|
|
'PLAYER POS
|
|
11->X
|
|
4->Y
|
|
'MAX ITEM ID
|
|
26->I
|
|
'INVENTORY
|
|
I->Dim List1
|
|
'NUMBER OF ITEMS PER CELL
|
|
7->J
|
|
{KWH/J,L->Dim Mat A
|
|
" #%$!%&):?[]_{|}~_#E590__#E591__#E592__#E593__#E599__#E59A__#E59B__#E59C__#E59D_"->Str 9
|
|
'BUILD BORDERS
|
|
KL->S
|
|
1->M~N
|
|
1
|
|
Prog "~SF"
|
|
Prog "~SS"
|
|
K->M
|
|
3
|
|
Prog "~SF"
|
|
Prog "~SS"
|
|
L->N
|
|
5
|
|
Prog "~SF"
|
|
Prog "~SS"
|
|
1->M
|
|
7
|
|
Prog "~SF"
|
|
Prog "~SS"
|
|
For 1->N To L Step L-1
|
|
6
|
|
N=1=>2
|
|
Prog "~SF"
|
|
For 2->M To K-1
|
|
Prog "~SS"
|
|
Next
|
|
Next
|
|
For 1->M To K Step K-1
|
|
4
|
|
M=1=>8
|
|
Prog "~SF"
|
|
For 2->N To L-1
|
|
Prog "~SS"
|
|
Next
|
|
Next
|
|
1->M~N
|
|
Prog "~SM" |