Hi,
This is a project that's based on a test I read about some time ago. Basically, the program picks a random number of One or Zero. Then the program divides how many ones and how many zeros have been chosen with the total amount of times one of those numbers has been picked.
Here is the source code if you're interested. You might need DBPro to run it:
Rem Project: Mind Control Project
Rem Created: 1/24/2006 12:36:40 PM
Rem ***** Main Source File *****
sync on : sync rate 30 : set window size 600,450
start:
randomize timer()
do
cls 0
center text screen width()/2,100, "This is a game that reads your mind."
center text screen width()/2,115,"If you focus your thoughts on a number, One or Zero,"
center text screen width()/2,130,"then that number will be randomly picked more times."
if 1 = textButton("Click Here To Try It", screen width()/2, 350, RGB(255,255,255), RGB(255,0,0), RGB(0,0,255))
goto game
endif
if 1 = textButton("Exit Game", screen width()/2, 375, RGB(255,255,255), RGB(255,0,0), RGB(0,0,255))
end
endif
if spacekey() = 1 THEN end
takePicture("p",1)
sync
loop
game:
randomNum = 0
counter# = 0
zeroCounter# = 0
onesCounter# = 0
do
cls 0
counter# = counter# + 1
randomNum = rnd(1)
`text 0,0,str$(randomNum)
`text 0,15,str$(8.0/10.0)
center text screen width()/2,50, "The total count is: "+str$(counter#)
if randomNum = 1 THEN onesCounter# = onesCounter# + 1
if randomNum = 0 THEN zeroCounter# = zeroCounter# + 1
onesStats# = (onesCounter#/counter#)*100
zeroStats# = (zeroCounter#/counter#)*100
center text 200,100, "One"
center text 400,100, "Zero"
center text 200,125, "%"+str$(int(onesStats#))
center text 400,125, "%"+str$(int(zeroStats#)+1)
if 1 = textButton("Exit To Menu", screen width()/2, 400, RGB(255,255,255), RGB(255,0,0), RGB(0,0,255))
goto start
endif
takePicture("p",1)
sync
loop
function takePicture(keyStr$,imageNum)
if inkey$() = keyStr$
get image imageNum, 0,0,screen width(),screen height()
do
inc fileNumVar
newStringVar$ = "Picture"+str$(fileNumVar)+".jpg"
if file exist(newStringVar$) = 0
save image newStringVar$,imageNum
exit
endif
loop
delete image imageNum
endif
endfunction
function textButton(string$, xPos, yPos, textColor, overColor, hitColor)
width = text width(string$)/2
height = text height(string$)/2
if mousey() < yPos+(height*2) AND mousey() > yPos AND mousex() < xPos+width AND mousex() > xPos-width
ink textColor, overColor
set text opaque
returnValue = 0
if mouseclick() = 1
ink textColor, hitColor
set text opaque
returnValue = 1
endif
else
set text transparent
returnValue = 0
endif
center text xPos, yPos, string$
set text transparent
ink textColor, 0
endfunction returnValue
Here are some screen shots. It is a very simple program that doesn't even require any media.
Now, the books that I've read said that people can actually change the outcome of a random situation, such as flipping a coin, by simply thinking about it. The books usually said that it takes a large group of people focusing on a single outcome to effect any sort of change. So if you know anybody who's willing to try, then get a group together and report the findings.
I'm interested to know the results. I've also created a Flash MX game that'll be appearing on my website soon.
Thanks!
[p.s.: if you want to take an in game picture, then just press the 'p' button]
www.fishbrosentertainment.com
