Help with mouse password login script

[LimeSeed]

I am making a script that is supposed to assign a password by the user moving a mouse across the gui's surface for 2 seconds. the user can than login by repeating a similar motion that has similar coordinates on the mouse axis. It does this by taking mouse coordinates every 10th of a second for 2 seconds (20 coodinates in total) then stores the x and y's separatly in an ini file. it would than randomly pick numbers from 1-20 and try to match up 5 x coordinates from the login to the user, and 5 y coordinates from the login to the user. here is my script. for some reason it just wont work, and i am asking for advice on how to get it to work! This would be an awesome script to post in the example script section.

expandcollapse popup

#Notrayicon
guicreate("Login", 200, 100)
guisetstate(@SW_SHOW)
$start = guictrlcreatebutton("Start", 145, 5, 50, 40)
$login = guictrlcreatebutton("Login", 145, 50, 50, 40)
$1=1
$s = 0
IniWrite("login.ini", "1", "1", $1)
Iniwrite("login.ini", "1", "2", "2")
While 1
    if $s = 1 Then
    msgbox(0, "Login", "Please Perform an Action in 3 seconds", 1)
    sleep(3000)
    $m1 = mousegetpos()
    sleep(100)
    $m2 = mousegetpos()
        sleep(100)
    $m3 = mousegetpos()
        sleep(100)
    $m4 = mousegetpos()
        sleep(100)
    $m5 = mousegetpos()
        sleep(100)
    $m6 = mousegetpos()
        sleep(100)
    $m7 = mousegetpos()
        sleep(100)
    $m8 = mousegetpos()
        sleep(100)
    $m9 = mousegetpos()
        sleep(100)
    $m10 = mousegetpos()
        sleep(100)
    $m11 = mousegetpos()
        sleep(100)
    $m12 = mousegetpos()
        sleep(100)
    $m13 = mousegetpos()
        sleep(100)
    $m14 = mousegetpos()
        sleep(100)
    $m15 = mousegetpos()    
    sleep(100)
    $m16 = mousegetpos()
        sleep(100)
    $m17 = mousegetpos()
        sleep(100)
    $m18 = mousegetpos()
        sleep(100)
    $m19 = mousegetpos()
        sleep(100)
    $m20 = mousegetpos()
    iniwrite("l.ini", "1", "1", $m1[0])
    iniwrite("l.ini", "1", "2", $m2[0])
    iniwrite("l.ini", "1", "3", $m3[0])
    iniwrite("l.ini", "1", "4", $m4[0])
    iniwrite("l.ini", "1", "5", $m5[0])
    iniwrite("l.ini", "1", "6", $m6[0])
    iniwrite("l.ini", "1", "7", $m7[0])
    iniwrite("l.ini", "1", "8", $m8[0])
    iniwrite("l.ini", "1", "9", $m9[0])
    iniwrite("l.ini", "1", "10", $m10[0])
    iniwrite("l.ini", "1", "11", $m11[0])
    iniwrite("l.ini", "1", "12", $m12[0])
    iniwrite("l.ini", "1", "13", $m13[0])
    iniwrite("l.ini", "1", "14", $m14[0])
    iniwrite("l.ini", "1", "15", $m15[0])
    iniwrite("l.ini", "1", "16", $m16[0])
    iniwrite("l.ini", "1", "17", $m17[0])
    iniwrite("l.ini", "1", "18", $m18[0])
    iniwrite("l.ini", "1", "19", $m19[0])
    iniwrite("l.ini", "1", "20", $m20[0])
    ;_____________________________________________
    iniwrite("l.ini", "2", "1", $m1[1])
    iniwrite("l.ini", "2", "2", $m2[1])
    iniwrite("l.ini", "2", "3", $m3[1])
    iniwrite("l.ini", "2", "4", $m4[1])
    iniwrite("l.ini", "2", "5", $m5[1])
    iniwrite("l.ini", "2", "6", $m6[1])
    iniwrite("l.ini", "2", "7", $m7[1])
    iniwrite("l.ini", "2", "8", $m8[1])
    iniwrite("l.ini", "2", "9", $m9[1])
    iniwrite("l.ini", "2", "10", $m10[1])
    iniwrite("l.ini", "2", "11", $m11[1])
    iniwrite("l.ini", "2", "12", $m12[1])
    iniwrite("l.ini", "2", "13", $m13[1])
    iniwrite("l.ini", "2", "14", $m14[1])
    iniwrite("l.ini", "2", "15", $m15[1])
    iniwrite("l.ini", "2", "16", $m16[1])
    iniwrite("l.ini", "2", "17", $m17[1])
    iniwrite("l.ini", "2", "18", $m18[1])
    iniwrite("l.ini", "2", "19", $m19[1])
    iniwrite("l.ini", "2", "20", $m20[1])
    $s = 0
    msgbox(0, "Login", "End of Sequence")
EndIf

    if $s = 2 Then
            msgbox(0, "login", "Please Perform an Action in 3 seconds", 1)
            
    sleep(3000)
    
    $l1 = mousegetpos()
    sleep(100)
    $l2 = mousegetpos()
        sleep(100)
    $l3 = mousegetpos()
        sleep(100)
    $l4 = mousegetpos()
        sleep(100)
    $l5 = mousegetpos()
        sleep(100)
    $l6 = mousegetpos()
        sleep(100)
    $l7 = mousegetpos()
        sleep(100)
    $l8 = mousegetpos()
        sleep(100)
    $l9 = mousegetpos()
        sleep(100)
    $l10 = mousegetpos()
        sleep(100)
    $l11 = mousegetpos()
        sleep(100)
    $l12 = mousegetpos()
        sleep(100)
    $l13 = mousegetpos()
        sleep(100)
    $l14 = mousegetpos()
        sleep(100)
    $l15 = mousegetpos()    
    sleep(100)
    $l16 = mousegetpos()
        sleep(100)
    $l17 = mousegetpos()
        sleep(100)
    $l18 = mousegetpos()
        sleep(100)
    $l19 = mousegetpos()
        sleep(100)
    $l20 = mousegetpos()
    
    iniwrite("l.ini", "3", "1", $l1[0])
    iniwrite("l.ini", "3", "2", $l2[0])
    iniwrite("l.ini", "3", "3", $l3[0])
    iniwrite("l.ini", "3", "4", $l4[0])
    iniwrite("l.ini", "3", "5", $l5[0])
    iniwrite("l.ini", "3", "6", $l6[0])
    iniwrite("l.ini", "3", "7", $l7[0])
    iniwrite("l.ini", "3", "8", $l8[0])
    iniwrite("l.ini", "3", "9", $l9[0])
    iniwrite("l.ini", "3", "10", $l10[0])
    iniwrite("l.ini", "3", "11", $l11[0])
    iniwrite("l.ini", "3", "12", $l12[0])
    iniwrite("l.ini", "3", "13", $l13[0])
    iniwrite("l.ini", "3", "14", $l14[0])
    iniwrite("l.ini", "3", "15", $l15[0])
    iniwrite("l.ini", "3", "16", $l16[0])
    iniwrite("l.ini", "3", "17", $l17[0])
    iniwrite("l.ini", "3", "18", $l18[0])
    iniwrite("l.ini", "3", "19", $l19[0])
    iniwrite("l.ini", "3", "20", $l20[0])
    ;_____________________________________________
    iniwrite("l.ini", "4", "1", $l1[1])
    iniwrite("l.ini", "4", "2", $l2[1])
    iniwrite("l.ini", "4", "3", $l3[1])
    iniwrite("l.ini", "4", "4", $l4[1])
    iniwrite("l.ini", "4", "5", $l5[1])
    iniwrite("l.ini", "4", "6", $l6[1])
    iniwrite("l.ini", "4", "7", $l7[1])
    iniwrite("l.ini", "4", "8", $l8[1])
    iniwrite("l.ini", "4", "9", $l9[1])
    iniwrite("l.ini", "4", "10", $l10[1])
    iniwrite("l.ini", "4", "11", $l11[1])
    iniwrite("l.ini", "4", "12", $l12[1])
    iniwrite("l.ini", "4", "13", $l13[1])
    iniwrite("l.ini", "4", "14", $l14[1])
    iniwrite("l.ini", "4", "15", $l15[1])
    iniwrite("l.ini", "4", "16", $l16[1])
    iniwrite("l.ini", "4", "17", $l17[1])
    iniwrite("l.ini", "4", "18", $l18[1])
    iniwrite("l.ini", "4", "19", $l19[1])
    iniwrite("l.ini", "4", "20", $l20[1])
    $s = 0
    msgbox(0, "login", "End of Sequence")
    
    progresson("Login", "Processing...")
    progressset(10)
    sleep(150)
    progressset(20)
    sleep(150)
    progressset(30)
    sleep(150)
    progressset(40)
    sleep(150)
    progressset(50)
    sleep(150)
    progressset(60)
    sleep(150)
    progressset(70)
    sleep(150)
    progressset(80)
    sleep(150)
    progressset(90)
    sleep(150)
    progressset(100)
    sleep(150)
    progressoff()
    
    $R1= RANDOM(1, 20, 1)
    $R2= RANDOM(1, 20, 1)
    $R3= RANDOM(1, 20, 1)
    $R4= RANDOM(1, 20, 1)
    $R5= RANDOM(1, 20, 1)
$matchupx1 = iniread("l.ini", "1", $R1, "0")
$matchupx2 = iniread("l.ini", "1", $R2, "0")
$matchupx3 = iniread("l.ini", "1", $R3, "0")
$matchupx4 = iniread("l.ini", "1", $R4, "0")
$matchupx5 = iniread("l.ini", "1", $R5, "0")

$matchupx6 = iniread("l.ini", "3", $R1, "0")
$matchupx7 = iniread("l.ini", "3", $R2, "100000")
$matchupx8 = iniread("l.ini", "3", $R3, "0")
$matchupx9 = iniread("l.ini", "3", $R4, "0")
$matchupx10 = iniread("l.ini", "3", $R5, "0")

$matchupy1 = iniread("l.ini", "2", $R1, "0")
$matchupy2 = iniread("l.ini", "2", $R2, "0")
$matchupy3 = iniread("l.ini", "2", $R3, "0")
$matchupy4 = iniread("l.ini", "2", $R4, "0")
$matchupy5 = iniread("l.ini", "2", $R5, "0")

$matchupy6 = iniread("l.ini", "4", $R1, "0")
$matchupy7 = iniread("l.ini", "4", $R2, "100000")
$matchupy8 = iniread("l.ini", "4", $R3, "0")
$matchupy9 = iniread("l.ini", "4", $R4, "0")
$matchupy10 = iniread("l.ini", "4", $R5, "0")


if (($matchupx1 + $matchupx2 + $matchupx3 + $matchupx4 + $matchupx5) - ($matchupx6 + $matchupx10 + $matchupx10 + $matchupx10 + $matchupx10))-1 <= 100 Then
    msgbox(0, "Login", "X axis confirmed!")
EndIf
if not ($matchupx1 + $matchupx2 + $matchupx3 + $matchupx4 + $matchupx5) - ($matchupx6 + $matchupx10 + $matchupx10 + $matchupx10 + $matchupx10) >=100 Then
    msgbox(0, "Login", "X axis denied!")

EndIf
EndIf
    $msg = guigetmsg()
    
    Select
    case($msg = $start)
        $s = 1
    case($msg = $login)
        if fileexists("l.ini") then
        $s = 2
    EndIf
        if not fileexists("l.ini") then
        msgbox(0, "Login", "Please create a login template", 1)
        EndIf
    Case($msg = -3)
        Exit
    EndSelect
    
WEnd

[covaks]

I'm pretty tired, so I might have messed some things up. I tried to rewrite this my own way. Try it out and see what you think. It doesn't use any files, it's just a quick example. I originally started writing one that recorded mouse coords to file, but after running it a few times, it had some issues, so I just decided to try a different method (I can post it though if you want to see it).

expandcollapse popup

#include <GuiConstants.au3>
#include <Array.au3>
#include <File.au3>

GuiCreate("",200,150)
$hButtonstart = GuiCtrlCreateButton("Start",5,5,60)
$hButtonLogin = GuiCtrlCreateButton("Login",5,40,60)
$hLabel = GuiCtrlCreateLabel("",5,80,100)
GUISetState()

Global $iTolerance = 20
Global $iSnapShot = 100
Global $GestureTime = 5000
Global $sGesture = ""
Global $sLogin = ""


While 1
    $msg = GuiGetMsg()
    
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $hButtonstart
            StartRecording()
        Case $hButtonLogin
            LoginTest()
    EndSwitch
WEnd

Func StartRecording($mode = 0)
    Local $pos1, $pos2, $pos3, $DirectionX, $DirectionY, $start, $sRecord = ""
    
    If $mode = 0 Then $sGesture = ""
    If $mode = 1 Then $sLogin = ""
    
    Msgbox(0,"","Click ok, then make your mouse gesture" & @CRLF & _
                "You will have " & $GestureTime /1000 & " seconds after clicking")

    $start = TimerInit()
    
    Do
        $pos1 = MouseGetPos()
        Sleep($iSnapShot)
        $pos2 = MouseGetPos()
        Sleep($iSnapShot)
        $pos3 = MouseGetPos()
        
        $DirectionX = Int((($pos1[0] - $pos2[0]) + ($pos2[0] - $pos3[0])) /2)
        $DirectionY = Int((($pos1[1] - $pos2[1]) + ($pos2[1] - $pos3[1])) /2)
        
        ConsoleWrite($DirectionX & "," & $DirectionY & @CRLF)
        
        If Abs($DirectionX) < $iTolerance AND Abs($DirectionY) > $iTolerance Then
            If $DirectionY < 0 Then
                GuiCtrlSetData($hLabel,"Down")
                $sRecord &= "Down,"
            Else
                GuiCtrlSetData($hLabel,"Up")
                $sRecord &= "Up,"
            EndIf
        ElseIf Abs($DirectionX) > $iTolerance AND Abs($DirectionY) < $iTolerance Then
            If $DirectionX < 0 Then
                GuiCtrlSetData($hLabel,"Right")
                $sRecord &= "Right,"
            Else
                GuiCtrlSetData($hLabel, "Left")
                $sRecord &= "Left,"
            EndIf
        ElseIf $DirectionX > $iTolerance AND $DirectionY > $iTolerance Then
            GuiCtrlSetData($hLabel,"Up Left")
            $sRecord &= "Up Left,"
        ElseIf $DirectionX < -$iTolerance AND $DirectionY < -$iTolerance Then
            GUICtrlSetData($hLabel,"Down Right")
            $sRecord &= "Down Right,"
        ElseIf $DirectionX > $iTolerance and $DirectionY < -$iTolerance Then
            GUICtrlSetData($hLabel,"Down Left")
            $sRecord &= "Down Left,"
        ElseIf $DirectionX < -$iTolerance And $DirectionY > $iTolerance Then
            GUICtrlSetData($hLabel,"Up Right")
            $sRecord &= "Up Right,"
        EndIf
    Until TimerDiff($start) > $GestureTime
    
    SplashTextOn("","Gesture Recorded",300,50,-1,-1,33,"Arial",16,800)
    Sleep(1000)
    SplashOff()
    CleanupGesture($sRecord, $mode)
    
EndFunc

Func CleanupGesture($str, $mode)
    Local $s, $sTemp, $sCleaned
    
    $s = StringSplit($str,",")
    $sTemp = $s[1]
    For $x = 2 to $s[0]
        ConsoleWrite("Comparing: " & $sTemp & " - " & $s[$x] & @CRLF)
        If $sTemp == $s[$x] Then
        Else
            $sCleaned &= $sTemp & ","
        EndIf
        $sTemp = $s[$x]
    Next
    
    Switch $mode
        Case 0
            $sGesture = $sCleaned
        Case 1
            $sLogin = $sCleaned
    EndSwitch
    
EndFunc


Func LoginTest()
    If $sGesture = "" Then
        msgbox(1,"","You haven't recorded a gesture..")
        Return
    EndIf
    
    StartRecording(1)
    
    If StringCompare($sGesture, $sLogin) = 0 Then
        msgbox(1,"","Gesture password correct!")
    Else
        msgbox(1,"","Sorry, no dice.")
    EndIf
    
EndFunc

[LimeSeed]

Yea, i edited mine, thanks for the rewrite, but i ended up using mine, as i would prefer it to be written to an external file so it could be used after the program is closed, then opened again! yours is much better, but it does not allow file writing, so i think i will use mine:P

expandcollapse popup

#Notrayicon
guicreate("Login", 200, 100)
guisetstate(@SW_SHOW)
$start = guictrlcreatebutton("Start", 145, 5, 50, 40)
$login = guictrlcreatebutton("Login", 145, 50, 50, 40)
$1=1
guisetbkcolor(0xE0FFFF)
if fileexists("l.ini") then
msgbox(0, "login", "Config Loaded!", 1)
EndIf
While 1
    $msg = guigetmsg()
    
    Select
    case($msg = $start)
    $pword = inputbox("Login", "Please Type Admin Password", "", "*")
    if $pword <> "heart" Then
        msgbox(0, "Login", "Sorry you do not have administrative rights.")
        Exit
    EndIf
        
    msgbox(0, "Login", "Please create a mouse pattern when background turns red", 1)
    sleep(3000)
    guisetbkcolor(0xFF0000)
    $m1 = mousegetpos()
    sleep(100)
    $m2 = mousegetpos()
        sleep(100)
    $m3 = mousegetpos()
        sleep(100)
    $m4 = mousegetpos()
        sleep(100)
    $m5 = mousegetpos()
        sleep(100)
    $m6 = mousegetpos()
        sleep(100)
    $m7 = mousegetpos()
        sleep(100)
    $m8 = mousegetpos()
        sleep(100)
    $m9 = mousegetpos()
        sleep(100)
    $m10 = mousegetpos()
        sleep(100)
    $m11 = mousegetpos()
        sleep(100)
    $m12 = mousegetpos()
        sleep(100)
    $m13 = mousegetpos()
        sleep(100)
    $m14 = mousegetpos()
        sleep(100)
    $m15 = mousegetpos()    
    sleep(100)
    $m16 = mousegetpos()
        sleep(100)
    $m17 = mousegetpos()
        sleep(100)
    $m18 = mousegetpos()
        sleep(100)
    $m19 = mousegetpos()
        sleep(100)
    $m20 = mousegetpos()
    iniwrite("l.ini", "1", "1", $m1[0])
    iniwrite("l.ini", "1", "2", $m2[0])
    iniwrite("l.ini", "1", "3", $m3[0])
    iniwrite("l.ini", "1", "4", $m4[0])
    iniwrite("l.ini", "1", "5", $m5[0])
    iniwrite("l.ini", "1", "6", $m6[0])
    iniwrite("l.ini", "1", "7", $m7[0])
    iniwrite("l.ini", "1", "8", $m8[0])
    iniwrite("l.ini", "1", "9", $m9[0])
    iniwrite("l.ini", "1", "10", $m10[0])
    iniwrite("l.ini", "1", "11", $m11[0])
    iniwrite("l.ini", "1", "12", $m12[0])
    iniwrite("l.ini", "1", "13", $m13[0])
    iniwrite("l.ini", "1", "14", $m14[0])
    iniwrite("l.ini", "1", "15", $m15[0])
    iniwrite("l.ini", "1", "16", $m16[0])
    iniwrite("l.ini", "1", "17", $m17[0])
    iniwrite("l.ini", "1", "18", $m18[0])
    iniwrite("l.ini", "1", "19", $m19[0])
    iniwrite("l.ini", "1", "20", $m20[0])
    ;_____________________________________________
    iniwrite("l.ini", "2", "1", $m1[1])
    iniwrite("l.ini", "2", "2", $m2[1])
    iniwrite("l.ini", "2", "3", $m3[1])
    iniwrite("l.ini", "2", "4", $m4[1])
    iniwrite("l.ini", "2", "5", $m5[1])
    iniwrite("l.ini", "2", "6", $m6[1])
    iniwrite("l.ini", "2", "7", $m7[1])
    iniwrite("l.ini", "2", "8", $m8[1])
    iniwrite("l.ini", "2", "9", $m9[1])
    iniwrite("l.ini", "2", "10", $m10[1])
    iniwrite("l.ini", "2", "11", $m11[1])
    iniwrite("l.ini", "2", "12", $m12[1])
    iniwrite("l.ini", "2", "13", $m13[1])
    iniwrite("l.ini", "2", "14", $m14[1])
    iniwrite("l.ini", "2", "15", $m15[1])
    iniwrite("l.ini", "2", "16", $m16[1])
    iniwrite("l.ini", "2", "17", $m17[1])
    iniwrite("l.ini", "2", "18", $m18[1])
    iniwrite("l.ini", "2", "19", $m19[1])
    iniwrite("l.ini", "2", "20", $m20[1])
    msgbox(0, "Login", "End of Sequence")
    guisetbkcolor(0xE0FFFF)
    ;________________________________________________
    
    case($msg = $login)
        if fileexists("l.ini") then
                    msgbox(0, "login", "Please recreate your password", 1)
                if not fileexists("l.ini") then
        msgbox(0, "Login", "Please create a login template.", 1)
    EndIf
    EndIf
    sleep(3000)
    guisetbkcolor(0xFF0000) 
    $l1 = mousegetpos()
    sleep(100)
    $l2 = mousegetpos()
        sleep(100)
    $l3 = mousegetpos()
        sleep(100)
    $l4 = mousegetpos()
        sleep(100)
    $l5 = mousegetpos()
        sleep(100)
    $l6 = mousegetpos()
        sleep(100)
    $l7 = mousegetpos()
        sleep(100)
    $l8 = mousegetpos()
        sleep(100)
    $l9 = mousegetpos()
        sleep(100)
    $l10 = mousegetpos()
        sleep(100)
    $l11 = mousegetpos()
        sleep(100)
    $l12 = mousegetpos()
        sleep(100)
    $l13 = mousegetpos()
        sleep(100)
    $l14 = mousegetpos()
        sleep(100)
    $l15 = mousegetpos()    
    sleep(100)
    $l16 = mousegetpos()
        sleep(100)
    $l17 = mousegetpos()
        sleep(100)
    $l18 = mousegetpos()
        sleep(100)
    $l19 = mousegetpos()
        sleep(100)
    $l20 = mousegetpos()
    
    iniwrite("l.ini", "3", "1", $l1[0])
    iniwrite("l.ini", "3", "2", $l2[0])
    iniwrite("l.ini", "3", "3", $l3[0])
    iniwrite("l.ini", "3", "4", $l4[0])
    iniwrite("l.ini", "3", "5", $l5[0])
    iniwrite("l.ini", "3", "6", $l6[0])
    iniwrite("l.ini", "3", "7", $l7[0])
    iniwrite("l.ini", "3", "8", $l8[0])
    iniwrite("l.ini", "3", "9", $l9[0])
    iniwrite("l.ini", "3", "10", $l10[0])
    iniwrite("l.ini", "3", "11", $l11[0])
    iniwrite("l.ini", "3", "12", $l12[0])
    iniwrite("l.ini", "3", "13", $l13[0])
    iniwrite("l.ini", "3", "14", $l14[0])
    iniwrite("l.ini", "3", "15", $l15[0])
    iniwrite("l.ini", "3", "16", $l16[0])
    iniwrite("l.ini", "3", "17", $l17[0])
    iniwrite("l.ini", "3", "18", $l18[0])
    iniwrite("l.ini", "3", "19", $l19[0])
    iniwrite("l.ini", "3", "20", $l20[0])
    ;_____________________________________________
    iniwrite("l.ini", "4", "1", $l1[1])
    iniwrite("l.ini", "4", "2", $l2[1])
    iniwrite("l.ini", "4", "3", $l3[1])
    iniwrite("l.ini", "4", "4", $l4[1])
    iniwrite("l.ini", "4", "5", $l5[1])
    iniwrite("l.ini", "4", "6", $l6[1])
    iniwrite("l.ini", "4", "7", $l7[1])
    iniwrite("l.ini", "4", "8", $l8[1])
    iniwrite("l.ini", "4", "9", $l9[1])
    iniwrite("l.ini", "4", "10", $l10[1])
    iniwrite("l.ini", "4", "11", $l11[1])
    iniwrite("l.ini", "4", "12", $l12[1])
    iniwrite("l.ini", "4", "13", $l13[1])
    iniwrite("l.ini", "4", "14", $l14[1])
    iniwrite("l.ini", "4", "15", $l15[1])
    iniwrite("l.ini", "4", "16", $l16[1])
    iniwrite("l.ini", "4", "17", $l17[1])
    iniwrite("l.ini", "4", "18", $l18[1])
    iniwrite("l.ini", "4", "19", $l19[1])
    iniwrite("l.ini", "4", "20", $l20[1])
    $s = 0
    msgbox(0, "login", "End of Sequence")
    guisetbkcolor(0xE0FFFF)
    progresson("Login", "Processing...")
    progressset(10)
    sleep(150)
    progressset(20)
    sleep(150)
    progressset(30)
    sleep(150)
    progressset(40)
    sleep(150)
    progressset(50)
    sleep(150)
    progressset(60)
    sleep(150)
    progressset(70)
    sleep(150)
    progressset(80)
    sleep(150)
    progressset(90)
    sleep(150)
    progressset(100)
    sleep(150)
    progressoff()
    
    $R1= RANDOM(1, 20, 1)
    $R2= RANDOM(1, 20, 1)
    $R3= RANDOM(1, 20, 1)
    $R4= RANDOM(1, 20, 1)
    $R5= RANDOM(1, 20, 1)
$matchupx1 = iniread("l.ini", "1", $R1, "0")
$matchupx2 = iniread("l.ini", "1", $R2, "0")
$matchupx3 = iniread("l.ini", "1", $R3, "0")
$matchupx4 = iniread("l.ini", "1", $R4, "0")
$matchupx5 = iniread("l.ini", "1", $R5, "0")

$matchupx6 = iniread("l.ini", "3", $R1, "0")
$matchupx7 = iniread("l.ini", "3", $R2, "100000")
$matchupx8 = iniread("l.ini", "3", $R3, "0")
$matchupx9 = iniread("l.ini", "3", $R4, "0")
$matchupx10 = iniread("l.ini", "3", $R5, "0")

$matchupy1 = iniread("l.ini", "2", $R1, "0")
$matchupy2 = iniread("l.ini", "2", $R2, "0")
$matchupy3 = iniread("l.ini", "2", $R3, "0")
$matchupy4 = iniread("l.ini", "2", $R4, "0")
$matchupy5 = iniread("l.ini", "2", $R5, "0")

$matchupy6 = iniread("l.ini", "4", $R1, "0")
$matchupy7 = iniread("l.ini", "4", $R2, "100000")
$matchupy8 = iniread("l.ini", "4", $R3, "0")
$matchupy9 = iniread("l.ini", "4", $R4, "0")
$matchupy10 = iniread("l.ini", "4", $R5, "0")


if abs(($matchupx1 + $matchupx2 + $matchupx3 + $matchupx4 + $matchupx5) - ($matchupx6 + $matchupx7 + $matchupx8 + $matchupx9 + $matchupx10)) < 90 Then
If abs(($matchupy1 + $matchupy2 + $matchupy3 + $matchupy4 + $matchupy5) - ($matchupy6 + $matchupy7 + $matchupy8 + $matchupy9 + $matchupy10)) < 90 Then
msgbox(0, "Login", "Coordinates Confirmed")
run("cmd.exe")
EndIf
EndIf
if abs(($matchupx1 + $matchupx2 + $matchupx3 + $matchupx4 + $matchupx5) - ($matchupx6 + $matchupx10 + $matchupx10 + $matchupx10 + $matchupx10)) >= 90 Then
if abs(($matchupy1 + $matchupy2 + $matchupy3 + $matchupy4 + $matchupy5) - ($matchupy6 + $matchupy7 + $matchupy8 + $matchupy9 + $matchupy10)) >= 90 Then
    msgbox(0, "Login", "Coordinates Denied!")
EndIf
EndIf
Case($msg = -3)
Exit
EndSelect
    
WEnd

Edited April 30, 2008 by LimeSeed