I think this will be a good place to post this:
CODE:
`SET UP
set display mode 800,600,32
sync on:sync rate 0
set text font "Times New Roman",1
set text size 20
randomize timer()
ink rgb(255,255,255),0
`Var
dim color(4)
dim dial(4)
dim solvedial(4)
color(1)=rgb(255,255,0)
color(2)=rgb(255,0,0)
color(3)=rgb(0,0,255)
color(4)=rgb(128,0,192)
`unlikly but what the heck
flag=1
While flag=1
for n=1 to 4
dial(n)=rnd(9)
solvedial(n)=rnd(9)
next n
`if same then loop
for n=1 to 4
if solvedial(n)<>dial(n) then flag=0
next n
Endwhile
for n=1 to 4
solvenum$=solvenum$+str$(solvedial(n))
next n
` //MAIN LOOP//
DO
gosub Images
gosub Click
gosub Game
if win=1
gosub Win
endif
sync:cls
LOOP
`////
Game:
mx=mousex()
my=mousey()
`check to see if ober a button
mouseover=0
if mx>=40 and mx<=60
for n=1 to 4
if my>=n*40 and my<=(n*40)+20
mouseover=n
endif
next n
endif
if click=1
if mouseover>0
`if click n over button then add to corect dials
x=mouseover
dial(x)=dial(x)+1
if x-1>0 then dial(x-1)=dial(x-1)+1
if x+1<5 then dial(x+1)=dial(x+1)+1
for n=1 to 4
if dial(n)>9 then dial(n)=0
next n
endif
endif
`if all = then win
flag=1
for n=1 to 4
if solvedial(n)<>dial(n) then flag=0
next n
if flag=1 then win=1
return
`////
Images:
ink rgb(255,255,255),0
for n=1 to 4
box 40,n*40,60,(n*40)+20
text 65,n*40, str$(dial(n))
next n
text 60,10, solvenum$
for n=1 to 4
ink color(n),0
box 41,(n*40)+1,59,(n*40)+19
next n
Return
`////
Win:
ink color(rnd(3)+1),0
text 100,100, "YOU HAVE SOLVED THE PUZZLE!!!"
Return
`////
Click:
if mouseclick()=0 then press=0
if click=1 then click=0
if mouseclick()=1 and press=0
press=1
click=1
endif
Return
It's a mini-game copying the "Call of the Dead" lighthouse dial node puzzle. If you want a way to solve it with out guessing alot here is how I figured to do it:
SOLUTION:
The correct numbers from top to bottom are *yellow-2 orange-7 blue-4 purple-6*. *Turning a dial adds one to it and also one to the ones bellow and above*.
Use 0000 for example, but it doesn't matter what it is set on.
Y-0
O-0
B-0
P-0
First turn yellow till it equals the correct number, 2.
Y-2
O-2
B-0
P-0
Next turn blue till orange equals its correct number, 7
Y-2
O-7
B-5
P-5
Then turn purple till it equals its correct number, 6
Y-2
O-7
B-6
P-6
Turn orange till blue equals its correct number, 4
Y-0
O-5
B-4
P-6
And lastly(since turning orange before did not change the difference of yellow and orange) turn yellow till it and orange equal their correct numbers, Y-2 O-7
Y-2
O-7
B-4
P-6
SOLVED!
This will work no matter the starting numbers and finishing ones but 2746 are the official numbers. Use the above code for practice.
If I always made the right decision the first time, I wouldn't have changed my name from razerx.
