Mind Reading Math

[James]

Hey all,

This is a neat little program which will read a number you come make. Obviously the program works better compiled because you cant see the magic behind it all.

$Msg0 = "Number Math Magic"
$Msg1 = "Think of a number between 1-10"
$Msg2 = "Now add 7"
$Msg3 = "Now add 21"
$Msg4 = "Take away 4"
$Msg5 = "Your number is, "
$Msg6 = "Take away the number you started with."

MsgBox(0, $Msg0, $Msg1)
MsgBox(0, $Msg0, $Msg2)
MsgBox(0, $Msg0, $Msg3)
MsgBox(0, $Msg0, $Msg4)
MsgBox(0, $Msg0, $Msg6)
MsgBox(0, $Msg0, $Msg5 & YourNumber())

Func YourNumber()
    $Num1 = 7
    $Num2 = 21
    $Num3 = 4
    
    $Return = $Num1 + $Num2 - $Num3
    Return $Return
EndFunc

I was bored, and I wanted to scare my mum.

This works best when someone doesn't know much about computers. Get some headphones, make them think that the headphones will look in their mind and get the number. If you want get a wire and connect it too their finger

-James

[Achilles]

$Msg0 = "Number Math Magic"
$Msg1 = "Think of a number between 1-10"
$Msg2 = "Now add 7"
$Msg3 = "Now add 21"
$Msg4 = "Take away 4"
$Msg5 = "Your number is, "
$Msg6 = "Take away the number you started with."

MsgBox(0, $Msg0, $Msg1)
MsgBox(0, $Msg0, $Msg2)
MsgBox(0, $Msg0, $Msg3)
MsgBox(0, $Msg0, $Msg4)
MsgBox(0, $Msg0, $Msg6)
MsgBox(0, $Msg0, $Msg5 & YourNumber())

Func YourNumber()
    $Num1 = 7
    $Num2 = 21
    $Num3 = 4
    
    $Return = $Num1 + $Num2 - $Num3
    Return $Return
EndFuncoÝ÷ Ûú®¢×Ç¡×v÷öÚÞjYrëp«mçîËb¢x¬&ë-jw±jjezᣨ¹Æ§Â¸­yÊyØ}êÞÙrjëh×6Dim $Msg[6] = ["Think of a number between 1-10", "Now add 7", "Now add 21", "Take away 4", "Take away the number you started with.", "Your number is "]

For $index = 0 to 4 
    Msgbox(0, "Number Math Magic", $Msg[$index])
Next 

Msgbox(0, "Number Math Magic", $Msg[5] & "24.")

[James]

Thats much easier. Thanks PM

[testingtest]

rofl but your just taking the number you started with away have to be pretty stupid

[James]

Exactly, its simple, but when they cant see it, it looks good.