Sorry your browser is not supported!

repeat : input "Google each result (Y/N)? ",internet$ : until internet$ = "y" or internet$ = "Y" or internet$ = "n" or internet$ = "N"
sync rate 60 : sync on : color backdrop 0 : autocam off : randomize timer()
dim cvalue(7)
for a=1 to 5
make object cube a,3
position object a,-32+rnd(64),-32+rnd(64),-32+rnd(64)
next a
for a=768 to 774 : make object cube a,1 : position object a,-32+rnd(64),-32+rnd(64),-32+rnd(64) : ra=rnd(4)+1 : point object a,object position x(ra),object position y(ra),object position z(ra) : next a
do
if x > targetx : dec x : endif : if y > targety : dec y : endif : if z > targetz : dec z : endif : if x < targetx : inc x : endif : if y < targety : dec y : endif : if z < targetz : dec z : endif
position camera 0,0,0 : rotate camera x*0.1,y*0.1,z*0.1 : move camera -45
if x=targetx and y=targety and z=targetz then targetx = rnd(3600) : targety = rnd(3600) : targetz = rnd(3600)
for a=0 to 6 : move object a+768,0.1 : col = object collision(a+768,0) : if col > 0 and col < 6 : ra=rnd(4)+1 : point object a+768,object position x(ra),object position y(ra),object position z(ra) : dec value,cvalue(a) : cvalue(a)=col : inc value,cvalue(a) : newword$ = chr$(value+65) : if newword$ <> oldword$ : word$ = word$ + chr$(value+65) : endif : oldword$ = chr$(value+65) : endif : next a
text 0,0,str$(value) : text 0,20,chr$(value+65) : text 0,40,word$ : if len(word$)>32 then web$ = "http://www.google.co.uk/search?q="+word$ : word$ = "" : if internet$ = "y" or internet$ = "y" then execute file web$,"","1"
inc syncing : if syncing = 10 then syncing = 0 : sync
loop

repeat : input "Play speed (1-25)?",speed : until speed > 0 and speed < 26
sync rate 60 : sync on : autocam off : color backdrop 0 : randomize timer() : box 0,0,128,128,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0) : box 1,1,127,127,rgb(192,0,0),rgb(192,0,0),rgb(192,0,0),rgb(192,0,0) : box 2,2,126,126,rgb(128,0,0),rgb(128,0,0),rgb(128,0,0),rgb(128,0,0) : box 3,3,125,125,rgb(64,0,0),rgb(64,0,0),rgb(64,0,0),rgb(64,0,0) : box 4,4,124,124,0,0,0,0 : get image 1,0,0,128,128 : cls : dim electron(7,3) : for a=0 to 360 : for b=0 to 90 : dot 64+sin(a)*(sin(b)*64),64+cos(a)*(sin(b)*64),rgb(sin(90-b)*255,sin(90-b)*255,sin(90-b)*255) : next b : next a : get image 2,0,0,128,128 : cls : dim message$(8)
make object sphere 1,50,6,6 : texture object 1,1 : scale object texture 1,6,6
make object sphere 50,-250,50,50 : texture object 50,1 : scale object texture 50,50,25
for a=32 to 40 : make object plain a,3,3 : x=rnd(6)*60 : y=rnd(6)*60 : electron(a-32,0)=x*10 : electron(a-32,1)=y*10 : electron(a-32,2)=rnd(3) : position object a,sin(x)*(sin(y+90)*25),sin(y)*25,cos(x)*(sin(y+90)*25) : texture object a,2 : set object light a,0 : ghost object on a : next a
do
for a=32 to 40
if electron(a-32,2)=0 : inc electron(a-32,0) : electron(a-32,1) = int(electron(a-32,1)/60)*60 : endif : if electron(a-32,2)=1 : dec electron(a-32,0) : electron(a-32,1) = int(electron(a-32,1)/60)*60 : endif : if electron(a-32,2)=2 : inc electron(a-32,1) : electron(a-32,0) = int(electron(a-32,0)/60)*60 : endif : if electron(a-32,2)=3 :  dec electron(a-32,1) : electron(a-32,0) = int(electron(a-32,0)/60)*60 : endif : position object a,sin(electron(a-32,0)*10)*(sin((electron(a-32,1)*10)+90)*25),sin(electron(a-32,1)*10)*25,cos(electron(a-32,0)*10)*(sin((electron(a-32,1)*10)+90)*25) : set object to camera orientation a
x# = wrapvalue(electron(a-32,0)) : y# = wrapvalue(electron(a-32,1)) : text 0,(a-32)*15,str$(x#) + " : " + str$(y#)
if x# = 0 : if y# = 0 : message$(a-32)="0" : electron(a-32,2)=rnd(3) : endif : if y# = 60 : message$(a-32)="1" : electron(a-32,2)=rnd(3) : endif : if y# = 120 : message$(a-32)="2" : electron(a-32,2)=rnd(3) : endif : if y# = 160 : message$(a-32)="3" : electron(a-32,2)=rnd(3) : endif : if y# = 240 : message$(a-32)="4" : electron(a-32,2)=rnd(3) : endif : if y# = 300 : message$(a-32)="5" : electron(a-32,2)=rnd(3) : endif : endif
if x# =60 : if y# = 0 : message$(a-32)="6" : electron(a-32,2)=rnd(3) : endif : if y# = 60 : message$(a-32)="7" : electron(a-32,2)=rnd(3) : endif : if y# = 120 : message$(a-32)="8" : electron(a-32,2)=rnd(3) : endif : if y# = 160 : message$(a-32)="9" : electron(a-32,2)=rnd(3) : endif : if y# = 240 : message$(a-32)="A" : electron(a-32,2)=rnd(3) : endif : if y# = 300 : message$(a-32)="B" : electron(a-32,2)=rnd(3) : endif : endif
if x# =120 : if y# = 0 : message$(a-32)="C" : electron(a-32,2)=rnd(3) : endif : if y# = 60 : message$(a-32)="D" : electron(a-32,2)=rnd(3) : endif : if y# = 120 : message$(a-32)="E" : electron(a-32,2)=rnd(3) : endif : if y# = 160 : message$(a-32)="F" : electron(a-32,2)=rnd(3) : endif : if y# = 240 : message$(a-32)="G" : electron(a-32,2)=rnd(3) : endif : if y# = 300 : message$(a-32)="H" : electron(a-32,2)=rnd(3) : endif : endif
if x# =160 : if y# = 0 : message$(a-32)="I" : electron(a-32,2)=rnd(3) : endif : if y# = 60 : message$(a-32)="J" : electron(a-32,2)=rnd(3) : endif : if y# = 120 : message$(a-32)="K" : electron(a-32,2)=rnd(3) : endif : if y# = 160 : message$(a-32)="L" : electron(a-32,2)=rnd(3) : endif : if y# = 240 : message$(a-32)="M" : electron(a-32,2)=rnd(3) : endif : if y# = 300 : message$(a-32)="N" : electron(a-32,2)=rnd(3) : endif : endif
if x# =240 : if y# = 0 : message$(a-32)="O" : electron(a-32,2)=rnd(3) : endif : if y# = 60 : message$(a-32)="P" : electron(a-32,2)=rnd(3) : endif : if y# = 120 : message$(a-32)="Q" : electron(a-32,2)=rnd(3) : endif : if y# = 160 : message$(a-32)="R" : electron(a-32,2)=rnd(3) : endif : if y# = 240 : message$(a-32)="S" : electron(a-32,2)=rnd(3) : endif : if y# = 300 : message$(a-32)="T" : electron(a-32,2)=rnd(3) : endif : endif
if x# =300 : if y# = 0 : message$(a-32)="U" : electron(a-32,2)=rnd(3) : endif : if y# = 60 : message$(a-32)="V" : electron(a-32,2)=rnd(3) : endif : if y# = 120 : message$(a-32)="W" : electron(a-32,2)=rnd(3) : endif : if y# = 160 : message$(a-32)="X" : electron(a-32,2)=rnd(3) : endif : if y# = 240 : message$(a-32)="Y" : electron(a-32,2)=rnd(3) : endif : if y# = 300 : message$(a-32)="Z" : electron(a-32,2)=rnd(3) : endif : endif
text 310,(a-32)*15,message$(a-32)
next a
scroll object texture 50,0,0.1 : if x > targetx : dec x : endif : if y > targety : dec y : endif : if z > targetz : dec z : endif : if x < targetx : inc x : endif : if y < targety : dec y : endif : if z < targetz : dec z : endif : position camera 0,0,0 : rotate camera x*0.1,y*0.1,z*0.1 : move camera -75 : if x=targetx and y=targety and z=targetz then targetx = rnd(3600) : targety = rnd(3600) : targetz = rnd(3600)
inc synced : if synced = speed : sync : synced = 0 : endif : loop

Rem Project: artificial intel 3
Rem Created: 04/12/2005 00:11:37

Rem ***** Main Source File *****
sync rate 60 : sync on : autocam off : color backdrop 0 : randomize timer() : box 0,0,128,128,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0) : box 1,1,127,127,rgb(192,0,0),rgb(192,0,0),rgb(192,0,0),rgb(192,0,0) : box 2,2,126,126,rgb(128,0,0),rgb(128,0,0),rgb(128,0,0),rgb(128,0,0) : box 3,3,125,125,rgb(64,0,0),rgb(64,0,0),rgb(64,0,0),rgb(64,0,0) : box 4,4,124,124,0,0,0,0 : get image 11,0,0,128,128 : cls : dim electron(7) : for a=0 to 360 : for b=0 to 90 : dot 64+sin(a)*(sin(b)*64),64+cos(a)*(sin(b)*64),rgb(sin(90-b)*255,sin(90-b)*255,sin(90-b)*255) : next b : next a : get image 12,0,0,128,128 : cls : dim message(8)
make matrix 1,128,128,32,32 : prepare matrix texture 1,11,1,1 : for a=0 to 96 : length = rnd(10) : startingx=rnd(30-length)+1 : startingy=rnd(30-length)+1 : if rnd(1)=0 : for x=0 to length : set matrix height 1,startingx+x,startingy,5 : next x : else : for x=0 to length : set matrix height 1,startingx,startingy+x,5 : next x : endif : next a : update matrix 1
for a=0 to 32 : set matrix height 1,a,0,0 : set matrix height 1,a,32,0 : set matrix height 1,0,a,0 : set matrix height 1,32,a,0 : next a : update matrix 1
for a=32 to 39 : make object plain a,3,3 : x=rnd(6)*60 : y=rnd(6)*60 : electron(a-32)=rnd(3) : texture object a,12 : set object light a,0 : ghost object on a
repeat : x = rnd(32) : y = rnd(32) : until get matrix height(1,x,y) > 0 : position object a,x*4,5,y*4 : next a
for a=0 to 7 : load image "symbols\"+str$(a)+".bmp",a+1 : next a
do
inc camangle,1 : position camera 64+sin(camangle*0.1)*96,32,64+cos(camangle*0.1)*96 : point camera 64,0,64
for a=32 to 39 : set object to camera orientation a : oldx# = object position x(a) : oldy# = object position y(a) : oldz# = object position z(a)
if electron(a-32)=0  : position object a,object position x(a)+4,5,object position z(a) : endif :if electron(a-32)=1 : position object a,object position x(a)-4,5,object position z(a) : endif : if electron(a-32)=2 : position object a,object position x(a),5,object position z(a)+4 : endif : if electron(a-32)=3 : position object a,object position x(a),5,object position z(a)-4 : endif
if object position x(a) < 0 : position object a,oldx#,oldy#,oldz# : electron(a-32)=rnd(3) : endif : if object position z(a) < 0 : position object a,oldx#,oldy#,oldz# : electron(a-32)=rnd(3) : endif : if object position x(a) > 128 : position object a,oldx#,oldy#,oldz# : electron(a-32)=rnd(3) : endif : if object position z(a) > 128 : position object a,oldx#,oldy#,oldz# : electron(a-32)=rnd(3) : endif
if get matrix height(1,object position x(a)/4,object position z(a)/4) = 0 : position object a,oldx#,oldy#,oldz# : electron(a-32)=rnd(3) : message(a-32) = (((int((object position x(a)/4)/4)/2)+1) * ((int((object position z(a)/4)/8)/2)+1))-1 : else : if rnd(4)=0 : electron(a-32)=rnd(3) : endif : endif : next a
for a=1 to 8 : paste image a,a*10,32 : paste image message(a)+1,a*10,64 : text 0,a*10+120,str$(message(a)) : next a : sync : loop