Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

DarkBASIC Professional Discussion / Monalisa conversion .quick n dirty

Author
Message
Hannibal
16
Years of Service
User Offline
Joined: 5th Mar 2007
Location:
Posted: 27th Jan 2024 01:43

dim dat(63)

for t=0 to 63
read w
dat(t)=w
next t

`SmileBASIC
remstart
DIM C[5]C[1]=-7543C[2]=-1466811C[3]=-5940736 S=32456<<16FOR P=-63TO . W=ASC("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"[-P])S=W+(S>>16<<16)C[4]=127AND W
C[0]=W>>8
FOR L=0 TO 31-P*32O=S
S=S<<1
IF O<0THEN S=79764919 XOR S=130 AND S
T=D*2AND 4C[T]=127AND C[T]-(D>>6)+1GPSET C[4],C[0]+144,C[3AND P]NEXT
NEXT
remend
`````````````````````````````````


DIM C(5)
C(1)=-7543 : C(2)=-1466811 : C(3)=-5940736
S=32456<<16
FOR P=-63 TO 0

pp=abs(p)
w=dat(pp)
`read w-p
S=W+(S>>16<<16)
C(4)=127 AND W
C(0)=W>>8
FOR L=0 TO 31-P*32=S
S=S<<1:IF O<0 THEN S=79764919 ~~ S=130 AND S
T=D*2 AND 4 :C(T)=127 AND C(T)-(D>>6)+1
`GPSET C(4),C[0]+144,
ink C(3 AND P) and 0xffff00
box C(4),C(0)+144,c(4)+1,c(0)+145 `,C(3 AND P)

NEXT L
NEXT P
`The string of "x"s had some invalid unicode characters, so I'm not able to post it here. Here are the character codes in decimal (just the BRUSH array in reverse)

boom:
data 8505, 11193, 11332, 40503, 9639, 38606, 12590, 44957, 49275, 9103, 45629, 7700, 44387, 16047, 36156, 21056, 32967, 44146, 47330, 6263, 59670, 16059, 2569, 1043, 21292, 45297, 10516, 35478, 45332, 45634, 21547, 54321, 12369, 54650, 3453, 32252, 41772, 10669, 2137, 35575, 41799, 37027, 38901, 57113, 9942,
data 15633, 8348, 8339, 40146, 53425, 640, 28853, 45146, 47166, 37752, 3773, 6923, 35473, 62875, 3644, 1835, 12187, 14270, 778
ink 0
box 0,280,555,400
do
sync
loop

`````````````````````````````````````
Hannibal
16
Years of Service
User Offline
Joined: 5th Mar 2007
Location:
Posted: 30th Jan 2024 23:49


dim dat(63)

for t=0 to 63
read w
dat(t)=w
next t

`SmileBASIC
remstart
DIM C[5]C[1]=-7543C[2]=-1466811C[3]=-5940736 S=32456<<16FOR P=-63TO . W=ASC("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"[-P])S=W+(S>>16<<16)C[4]=127AND W
C[0]=W>>8
FOR L=0 TO 31-P*32O=S
S=S<<1
IF O<0 THEN S=79764919 XOR S=130 AND S
T=D*2AND 4C[T]=127AND C[T]-(D>>6)+1GPSET C[4],C[0]+144,C[3AND P]NEXT
NEXT
remend
`````````````````````````````````


DIM C(5)
C(1)=-7543 : C(2)=-1466811 : C(3)=-5940736
S=32456<<16
FOR P=-63 TO 0

pp=abs(p)
w=dat(pp)
`read w-p
S=W+(S>>16<<16)
C(4)=127 AND W
C(0)=W>>8
FOR L=0 TO 31-P*32:o=S
S=S<<1:IF O<0 THEN S=79764919 ~~ S=130 AND S
T=D*2 AND 4 :C(T)=127 AND C(T)-(D>>6)+1
`GPSET C(4),C[0]+144,
ink C(3 AND P) and 0xffff00
box C(4),C(0)+144,c(4)+1,c(0)+145 `,C(3 AND P)

NEXT L
NEXT P
`The string of "x"s had some invalid unicode characters, so I'm not able to post it here. Here are the character codes in decimal (just the BRUSH array in reverse)

boom:
data 8505, 11193, 11332, 40503, 9639, 38606, 12590, 44957, 49275, 9103, 45629, 7700, 44387, 16047, 36156, 21056, 32967, 44146, 47330, 6263, 59670, 16059, 2569, 1043, 21292, 45297, 10516, 35478, 45332, 45634, 21547, 54321, 12369, 54650, 3453, 32252, 41772, 10669, 2137, 35575, 41799, 37027, 38901, 57113, 9942,
data 15633, 8348, 8339, 40146, 53425, 640, 28853, 45146, 47166, 37752, 3773, 6923, 35473, 62875, 3644, 1835, 12187, 14270, 778
ink 0
box 0,280,555,400
do
sync
loop

`````````````````````````````````````
Hannibal
16
Years of Service
User Offline
Joined: 5th Mar 2007
Location:
Posted: 31st Jan 2024 00:03
dim dat(63)

for t=0 to 63
read w
dat(t)=w
next t

`SmileBASIC
remstart
DIM C[5]C[1]=-7543C[2]=-1466811C[3]=-5940736 S=32456<<16FOR P=-63TO . W=ASC("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"[-P])S=W+(S>>16<<16)C[4]=127AND W
C[0]=W>>8
FOR L=0 TO 31-P*32O=S
S=S<<1
IF O<0 THEN S=79764919 XOR S=130 AND S
T=D*2AND 4C[T]=127AND C[T]-(D>>6)+1GPSET C[4],C[0]+144,C[3AND P]NEXT
NEXT
remend
`````````````````````````````````


DIM C(5)
C(1)=-7543 : C(2)=-1466811 : C(3)=-5940736
S=32456<<16
FOR P=-63 TO 0

pp=abs(p)
w=dat(pp)
`read w-p
S=W+(S>>16<<16)
C(4)=127 AND W
C(0)=W>>8
FOR L=0 TO 31-P*32 : o =S
S=S<<1:IF O<0 THEN S=79764919 ~~ S : D=130 AND S
T=D*2 AND 4 : C(T)=127 AND C(T)-(D>>6)+1
`GPSET C(4),C[0]+144,
ink C(3 AND P) and 0xffff00
box C(4),C(0)+144,c(4)+1,c(0)+145 `,C(3 AND P)

NEXT L
NEXT P
`The string of "x"s had some invalid unicode characters, so I'm not able to post it here. Here are the character codes in decimal (just the BRUSH array in reverse)

boom:
data 8505, 11193, 11332, 40503, 9639, 38606, 12590, 44957, 49275, 9103, 45629, 7700, 44387, 16047, 36156, 21056, 32967, 44146, 47330, 6263, 59670, 16059, 2569, 1043, 21292, 45297, 10516, 35478, 45332, 45634, 21547, 54321, 12369, 54650, 3453, 32252, 41772, 10669, 2137, 35575, 41799, 37027, 38901, 57113, 9942,
data 15633, 8348, 8339, 40146, 53425, 640, 28853, 45146, 47166, 37752, 3773, 6923, 35473, 62875, 3644, 1835, 12187, 14270, 778
ink 0
box 0,280,555,400
do
sync
loop

`````````````````````````````````````

Login to post a reply

Server time is: 2024-02-24 06:14:04
Your offset time is: 2024-02-24 06:14:04