Help me fast iniread

[fataly]

ok, i maked this scirpt. its allways choose char1 or world1 . why its not working?

expandcollapse popup

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

$world1 = IniRead("Options.ini","AccountandPassword","world1","")
$world2 = IniRead("Options.ini","AccountandPassword","world2","")
$world3 = IniRead("Options.ini","AccountandPassword","world3","")
$char1 = IniRead("Options.ini","AccountandPassword","char1","")
$char2 = IniRead("Options.ini","AccountandPassword","char2","")
$char3 = IniRead("Options.ini","AccountandPassword","char3","")


If $world1 = IniRead("Options.ini","AccountandPassword","world1","yes") then
world1()

Elseif $world2 = IniRead("Options.ini","AccountandPassword","world2","yes") then
world2()

ElseIf $world3 = IniRead("Options.ini","AccountandPassword","world3","yes") then
world3()

EndIf

If $char1 = IniRead("Options.ini","AccountandPassword","char1","yes") then
char1()
toolTip("Start Hunting", 200,200,"Compeleted")

ElseIf $char2 = IniRead("Options.ini","AccountandPassword","char2","yes") then
char2()
toolTip("Start Hunting", 200,200,"Compeleted")

ElseIf $char2 = IniRead("Options.ini","AccountandPassword","char2","yes") then
char1()
ToolTip("Start Hunting", 200,200,"Compeleted")

EndIf

Func world1()
        Sleep(100)
ToolTip("World 1 Selected.", 10,710,"Joining..")
    Sleep(1000)
    MouseMove(452,399)
MouseDown("left")
MouseUp("left")
Sleep(1000)
MouseMove(516,646)
MouseDown("left")
MouseUp("left")
Sleep(12000)
EndFunc

Func world2()
    ToolTip("World 2 Selected.", 10,710,"Joining..")
        Sleep(1000)
MouseMove(464,418)
MouseDown("left")
MouseUp("left")
        Sleep(1000)
MouseMove(509,659)
MouseDown("left")
MouseUp("left")
sleep(12000)
EndFunc

Func world3()
    ToolTip("World 3 Selected.", 10,710,"Joining..")
sleep(1000)
MouseMove(453,443)
MouseDown("left")
MouseUp("left")
        Sleep(1000)
MouseMove(519,658)
MouseDown("left")
MouseUp("left")
sleep(12000)
EndFunc

Func char1()
    Sleep(100)
ToolTip("Character 1 Selected.", 10,710,"Select character.")
Sleep(2000)
MouseMove(513,594)
Sleep(100)
MouseDown("left")
MouseUp("left")
sleep(2000)
Send("{LEFT}")
Sleep(500)
Send("{enter}")
Sleep(100)
Sleep(15000)
EndFunc

Func char2()
    Sleep(100)
ToolTip("Character 2 Selected.", 445,710,"Select character.")
Sleep(2000)
MouseMove(513,594)
Sleep(100)
MouseDown("left")
MouseUp("left")
sleep(2000)
Send("{enter}")
Sleep(15000)
EndFunc

Func char3()
    Sleep(100)
ToolTip("Character 3 Selected.", 890,710,"Select character.")
Sleep(2000)
MouseMove(513,594)
Sleep(100)
MouseDown("left")
MouseUp("left")
sleep(2000)
Send("{RIGHT}")
Send("{enter}")
Sleep(15000)
EndFunc

there is .ini

---Type these your account and password---

---type "yes" in that world what you want join, and other worlds "no".

---world1 is evengarda

---wolrd2 is gaiahon

---wolrd3 is brumhart

---char1 is first char in right, char2 is second char in midle, char3 is left char and last ---char in archlord char.

[AccountandPassword]

world1=Yes

world2=no

world3=no

char1=no

char2=yes

char3=no

Edited November 13, 2007 by SmOke_N
Added code tags

[fataly]

and .ini file is same folder whit scirpt and its name is writet right.

[PsaltyDS]

Your script reads the .ini file for $World1 and $Char1, then reads the same .ini file again a millisecond later. No surprise it gets the same value and they are equal, so the first lines of the If statements are true.

It's just like doing:

$a = 'yes'
If $a = 'yes' Then MsgBox(64, 'Yes', 'Yes')

Of course the compare will always come out true.

[fataly]

hmm... where i put that $a = 'yes'?

like:

$a = IniRead("Options.ini","AccountandPassword","world1","")

If $a = 'yes' Then

world1()

?

becuase i dont understunts your infos:)))

[PsaltyDS]

hmm... where i put that $a = 'yes'?

like:

$a = IniRead("Options.ini","AccountandPassword","world1","")

If $a = 'yes' Then

world1()

?

becuase i dont understunts your infos:)))

I think you got the right idea. Read the value once, then compare that with whatever you are looking for. Modifying your original:

$world1 = IniRead("Options.ini","AccountandPassword","world1","yes")
; ...
$char1 = IniRead("Options.ini","AccountandPassword","char1","yes")
; ...

If $world1 = "yes" then 
    world1()

; ... ElseIf etc.

EndIf

If $char1 = "yes" then
    char1()
    toolTip("Start Hunting", 200,200,"Compeleted")

; ... ElseIf etc.

EndIf

Note the use of the default value "yes" on the IniRead(). If the key isn't set, you'll get "yes" by default. That seems to be what you were trying to do.

[fataly]

i want use other char and other wolrd, what i need to do?

[dabus]

Read the example for IniReadSection?

[PsaltyDS]

i want use other char and other wolrd, what i need to do?

Let's simplify the demo:

$world1 = IniRead("Options.ini", "AccountandPassword", "world1", "yes")
$world2 = IniRead("Options.ini", "AccountandPassword", "world2", "yes")
$world3 = IniRead("Options.ini", "AccountandPassword", "world3", "yes")

If $world1 = "yes" Then
    MsgBox(64, "Result", "world1()")
ElseIf $world2 = "yes" Then
    MsgBox(64, "Result", "world2()")
ElseIf $world3 = "yes" Then
    MsgBox(64, "Result", "world3()")
EndIf

Here's the Options.ini file:

[AccountandPassword]

world1=no
world2=Yes
world3=no

This demo will pop a MsgBox that says "world2()", because that's the one set to "yes". You can replace the MsgBox() with whatever else you want the script to do, but does this make sense so far?

[fataly]

ty much:D