0 Members and 4 Guests are viewing this topic.
:.Setup Code:DiagnosticOff:0→L:fnInt(I,6):.QuitCode:LnReg:Return:.To Play Music that is pointed to:Ptr→L:.To Stop All Music:0→L:.To see if any music is currently playing:If L:.Music Loader/Player:Lbl I:!If L:1→C:Return:End:ReturnIf C-1→C:If {L+1}:Freq({L},2000):{L+2→L-1}→C:Else:0→L:End:Return:.Music Data should be in this form:Data(note1,time1,note2,time2,...,lastenote,0)→GDB1
StoreGDBStorePicFor(Z,0,63)Copy(Z*12+L3,L6+756-(Z*12),12)EndDispGraph
QuoteStoreGDBStorePicFor(Z,0,63)Copy(Z*12+L3,L6+756-(Z*12),12)EndDispGraphThis inverts the screen content, like they wanted to do in this topic: http://ourl.ca/6348 . However, it poses no compatibility issues between each calc hardwares. Screenshot below (added Repeat getkey(15):End inside the code).
StoreGDBFor(Z,0,31)Exch(Z*12+L6,L6+756-(Z*12),12)EndDispGraph
o.O? Really?Are you sure you are typing the program right?Btw if by suspicious you mean that I am trying to crash people calcs, I do not understand why you think I would do this, considering I have been doing calc stuff for 9 years, got 7 programs featured on ticalc.org and am not the person to make junk programs.If it still fails after double-checking, could you add the following after the DispGraph?Repeat Getkey(15)EndEDIT: Btw don't use SourceCoder to copy this. I did not copy the code with it, but by hand
[AAAAAAAAAAAAAAFF->Pic1 .your sprite!Pt-On(0,0,Pic1For(Y,0,7For(X,0,7If pxl-Test(X,YPxl-On(Y+9,7-XEnd:End:EndDispGraph
[0102040810204080->Pic1 . your sprite data.Pt-On(0,0,Pic1For(A,0,3Exch(Pic1+A,Pic1+8-A,1EndPt-On(9,0,Pic1DispGraph
.YYYEAHHH[4875038562839462->Pic1 . This data doesn't matter, cause this routine will rotate any sprite (:ClrDrawFor(A,0,7{Pic1+A}->TFor(B,0,1If BT^16->DElseT/16->DEndIf D>7e^(A)->C+{4*B->E+L1}->{E+L1}EndIf D>3 and (D<8) or (D>11)C+{E+L1+1}->{E+L1+1}EndIf D!=1 and (D!=4) and (D!=5) and (D!=8) and (D!=9) and (D!=12) and (D!=13) and (D!=0)C+{E+L1+2}->{E+L1+2}EndIf D^2C+{E+L1+3}->{E+L1+3}EndEndEnd
.Uncompressed (24 bytes. each pair is a byte.)[010101010101[010303000001[010200000201[010101010101.Compressed (8 bytes. each pair is a byte.)[7123202112201271->GDB1
Zeroes(8)[FFFFFFFFFFFFFFFF->Pic1 .Your tiles[0102030405060708[0123456789ABCDEF0->X->YFor(A,0,7 .7 is the number of bytes your compressed map is, minus one.For(W,1,{GDB1+A}->Z/16 .GDB1 is where the map is housedPt-On(8*X,8*Y,Z^16-1*8+Pic1Z^16->{6*Y+X+L1} .L1 will house the uncompressed map. 6 is used as the width of the map.!If X+1->X^6 . again, 6 is the width of the uncompressed map.0->X:Y+1->YEndEndEnd