0 Members and 3 Guests are viewing this topic.
Added: major optimizations (thanks go to squidgetx )conveyor belt tileswater tileslevel editor GUI change. Now, press alpha to select tiles.bottom row is editableincluded is a format fixer to add the bottom row to the appvar
"appvTIOLVL00"?Str1L+48?{Str1+7}.L is level #GetCalc(Str1)->D.D is pointer
Tio 5.Added: major optimizations (thanks go to squidgetx )conveyor belt tileswater tileslevel editor GUI change. Now, press alpha to select tiles.bottom row is editableincluded is a format fixer to add the bottom row to the appvarimportant: STIO5E is needed to compile as well as STIO5.TIOLVLFX is source code.Weird...it'll only accept up to three attachments Screenshots in the next post.
Y/4*24+(X/4)+L1->GY/4*24+(X+3/4)+L1->F
:.DTILEMPR:[F0F0F0F000000000]→Pic0N:[A0A0505000000000]→Pic1J:[6040206000000000]→Pic1S:[6040604000000000]→Pic1F:[9000009000000000]→Pic1R:[A050A05000000000]→Pic1D:[000C030000000000]→Pic1W:DiagnosticOff:"vTIOLVL"→Str1:GetCalc(Str1)→P:Return!If P:conj(P,L1,384:0→N→O→I→J-1→E:.I and J are coordinates of top left corner:.N and O are tile offsets::ClrDraw:.draw init image:For(Y,0,15:Y*4→T:For(X,0,23:X*4→S:E+1→E:sub(DRW:End:End:DispGraph:Repeat getKey(15):Repeat getKey(0):End:If getKey(54):ClrHome:.display stuff:Disp "random info",i,"I",I►Dec," J",J►Dec,i,"N",N►Dec," O",O►Dec:While getKey(54):Pause 10:End:End::If getKey(1) xor (getKey(4)):.vert movement:O+getKey(4)-getKey(1)→O:If O>>3:J-1→J:O-4→O:End:If O<<0:J+1→J:O+4→O:End:If getKey(4):.up:Vertical +:For(A,0,23:A*4-N→S:0-O→T:J*24+I+A→E:sub(DRW:End:End:If getKey(1):.down:Vertical -:For(A,0,23:A*4-N→S:64-O→T:J*24+I+A+360→E:sub(DRW:End:End:End::If getKey(2) xor (getKey(3)):.horiz movement:N+getKey(2)-getKey(3)→N:If N>>3:I-1→I:N-4→N:End:If N<<0:I+1→I:N+4→N:End:If getKey(2):.left:Horizontal +:For(A,0,15:0-N→S:A*4-O→T:J*24+I+(A*24)→E:sub(DRW:End:End::If getKey(3):.right:Horizontal -:For(A,0,15:96-N→S:A*4-O→T:J*24+I+(A+1*24)→E:sub(DRW:End:End::End:DispGraph:End:::Lbl DRW:Pt-On(S,T,Pic0N:Pt-Change(S,T,Pic0N:.pt-on stuff:!If {L1+E}-1:Pt-On(S,T,Pic0N:Else!If {L1+E}-2:Pt-On(S,T,Pic1J:Else!If {L1+E}-3:Pt-On(S,T,Pic1S:Else!If {L1+E}-4:Pt-On(S,T,Pic1F:Else!If {L1+E}-5:Pt-On(S,T,Pic1R:Else!If {L1+E}-6:Pt-On(S,T,Pic1D:Else!If {L1+E}-7:Pt-On(S,T,Pic1W:End:.Return