Sign in to follow this  
Followers 0
spyrorocks

MindReader

9 posts in this topic

#1 ·  Posted (edited)

MindReader

v1.1

mindreaderv1.1.au3

OK, after a few hours of work, MindReader v1.0 is done. works perfectly.

There are instructions on how to use it when you start it. IT ACTUALLY WORKS.

Enjoy!

---Old Version(s)----

Original 1.0 - mindreader.au3

Edited by spyrorocks

Share this post


Link to post
Share on other sites



I know how it works but I won't tell. :whistle: Good implementation of this popular "trick".


My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

spoiler:

you choose a number with two digits: if your digits are x and y the number is: 10*x + y. if u subtract the checksum (x+y) from the original number u have: 10*x + y - (x+y) = 9*x. so regardless of the number you choose the result will always be a multiple of 9. the script gives those numbers the same color.

Edited by tmo

Share this post


Link to post
Share on other sites

Cute!!!

Played with it a little

;Mindreader by spyrorocks
#include <GUIConstants.au3>
Global $wait = 10, $Guessme
Global $color = StringSplit("0XFFFFFF,0x00FF00,0xFF0000,0x0000FF,0xF0F000,0xCCCCCC,0x99FF00,0xFF9900,0x0FF0F0,0xFF66CC,0xCC33CC,0x669900", ",")
$Form1 = GUICreate("MindReader - By Spyrorocks", 529, 411, 209, 149)
$Group1 = GUICtrlCreateGroup("Numbers/Colors", 168, 80, 353, 321)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Your Color", 8, 80, 153, 153)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$dispcolor = GUICtrlCreateLabel("", 35, 110, 100, 100)
$doit = GUICtrlCreateButton("Read My Mind!", 32, 248, 107, 41, 0)
$newcolors = GUICtrlCreateButton("Refresh Colors", 32, 290, 107, 26, 0)
$Edit1 = GUICtrlCreateEdit("", 8, 0, 513, 81, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, StringFormat("MindReader Instructions\r\n\r\n1. Pick a 2 digit number (Such as 47)\r\n\r\n2. Add both of the digits togeather (Example: If you had 47, add 4 + 7 to get 11)\r\n\r\n3. Subtract what you got for adding the digits togeather from your origanal number.\r\n\r\nFocus on the color behind your new number, and click " & Chr(34) & "Read My Mind!" & Chr(34) & ""))
GUISetState(@SW_SHOW)

CreateTables()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $newcolors
            deletetables()
            CreateTables()
        Case $doit
            ShowIt()
    EndSwitch
WEnd

Func CreateTables()
    b_disable()
    $xpos = 470
    $ypos = 0
    $count = 0
    $slide = 22
    $thecolor = $color[(Random(1, 11, 1))]

    For $i = 0 To 99
        Assign("num_" & $i, GUICtrlCreateLabel($i, $xpos - $slide, Execute("(368) - (" & ($i - $ypos) & " * 17)"), 26, 17, $SS_CENTER), 2)
        If StringInStr(String($i / 9), ".") Then
            GUICtrlSetBkColor(-1, $color[(Random(1, 11, 1))])
        Else
            GUICtrlSetBkColor(-1, $thecolor)
        EndIf
        Sleep($wait)
        $count += 1
        If $count = 16 Then
            $xpos -= 35
            $ypos += 16
            If $i >= 95 Then $ypos -= 12 
            $count = 0
        EndIf
    Next
    $Guessme = $thecolor
    GUICtrlSetState($doit, $GUI_ENABLE)
    GUICtrlSetState($newcolors, $GUI_ENABLE)
EndFunc   ;==>CreateTables

Func deletetables()
    b_disable()
    GUICtrlDelete($dispcolor)
    For $i = 0 To 100
        GUICtrlDelete(Eval("num_" & $i))
        Sleep($wait)
    Next
EndFunc   ;==>deletetables

Func ShowIt()
    b_disable()
    GUICtrlDelete($dispcolor)
    Global $dispcolor = GUICtrlCreateLabel("", 35, 110, 100, 100)

    ;Little bit of show

    For $i = 94 To 114
        GUICtrlSetBkColor(-1, $color[(Random(1, 11, 1))])
        Sleep($i * 2)
    Next
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_DEFAULT)
    For $i = 0 To 5
        Sleep(100)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_DEFAULT)
        Sleep(100)
        GUICtrlSetBkColor(-1, $Guessme)
    Next
    GUICtrlSetState($newcolors, $GUI_ENABLE)
    GUICtrlSetState($doit, $GUI_DISABLE)
EndFunc   ;==>ShowIt

Func onautoitexit()
    deletetables()
    Exit
EndFunc   ;==>onautoitexit

Func b_disable()
    GUICtrlSetState($doit, $GUI_DISABLE)
    GUICtrlSetState($newcolors, $GUI_DISABLE)
EndFunc   ;==>b_disable

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Wow! Nice trick spyrorocks... :whistle:


AUTOIT[sup] I'm lovin' it![/sup]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0