Need help on Send ("")

[astokes]

Hello,

I am new at this and i was trying learn it. I found this fishing bot that worked and use AutoIt. the code looked like this

AutoItSetOption("SendKeyDelay", 25) ;

Sleep (30000) ;

$fishing = 1 ;

AutoItSetOption("SendKeyDelay", 25) ;

While $fishing > 0 ;

Send ("/fish{ENTER}") ;

Sleep (18000) ;

Send ("{Enter}") ;

Sleep (20000)

sort()

$fishing = $fishing + 1

WEnd

Func sort()

Send ("{ESCAPE}")

Send ("{ESCAPE}") 

AutoItSetOption("SendKeyDelay", 160).............

I was trying to make one like this but i could not get it to work.... is there a reason why? if u can help or welling to help post or pm me and i will show u what i got thanks.

[Valuater]

its always best to post what you have done

8)

[astokes]

sry this is what i have done..... I know this may be way wrong but this is my first time so go easy on me.

AutoItSetOption("SendKeyDelay", 25) ;Key strokes are slower, harder for Square to detect the macro.

Sleep (30000) ; Start FF

$Skilling = 1 ;Show AU that we are skilling

AutoItSetOption("SendKeyDelay", 25) ;///

While $Skilling > 0 ;Skill forever

sort()

$skilling = $skilling + 1 ;skill

WEnd

Func sort()

Send ("{ENTER}") ;Here we go

Send ("/target <p0>{ENTER}") ;Tagert yourself

Send ("{ENTER}") ;Opens chat

Send ("/ma "Cure"{ENTER}") ;Cast Cure

Sleep (0600) ;Sleep

Send ("{ENTER}") ;Opens chat

Send ("/ma "Cure II"{ENTER}") ;Cast Cure II

Sleep (0600) ;Sleep

Send ("{ENTER}") ;Opens chat

Send ("/ma "Cure III"{ENTER}") ;Cast Cure III

Send ("/heal {ENTER}") ;Recharge mps

Sleep (14000) ;Sleep

EndFunc

ps. not sure how to set the sleep times... like how many sec like for the 14000 i wanted it to =140 sec for rest... i get "Autolt Error""Line 14 (C:/..........)""Send ("/ma "Cure"{ENTER}") ""Send ("/ma ^ERROR""Error: Unknown function name."

Edited August 2, 2005 by astokes

[Valuater]

sleep(1000)

is approx.. 1 second

so

sleep(140000)

is approx 140 seconds

this may not be the best direction... there is no way out of the function call / while loop to "quit"

8)

[Valuater]

look at the quotes

Send ("/ma "Cure II"{ENTER}") ;Cast Cure II

should be like the others

Send ("/ma Cure II {ENTER}") ;Cast Cure II

8)

[astokes]

lol thanks a lot it was just the "".. i dident think i was that close to finshing it. Thanks agian

[Valuater]

ok

what is

"Start FF"

??

8)

[astokes]

oo put that in so if u use full screen on FFXI it gives me time to log in befor it starts. FF=FFXI

[Valuater]

Autoit... means automate it

why not put the FFXI in the script??

8)

[astokes]

ok i will add that. i just put FF for no reason. i am editing it i will post the full thing when its done.

the only thing is that the Send ("/ma "Cure III") needs the " becuse if u just type Send ("/ma Cure III") it will just cast cure I. I am going to bed i will work on it more tomrrow

Edited August 2, 2005 by astokes

[Valuater]

You may want to work with this

expandcollapse popup

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused, $skilling
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("F1", "Chat_1")  
HotKeySet("F2", "Chat_2") 


Run(@ProgramFilesDir & "\FFX\Firefox.exe");*** YOU PUT INFO HERE
WinWaitActive("")
sleep(2000)
send("username"); HERE
sleep(1000)
Send("{TAB}")
sleep(1000)
send("password");HERE TOO
sleep(1000)
send("{ENTER}")


;;;; Body of program would go here;;;;
While 1
    $skilling = $skilling + 1;skill 
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func Chat_1()
    Send ("{ENTER}");Opens chat
    Send ("/ma Cure {ENTER}");Cast Cure
EndFunc

Func Chat_2()
    Send ("{ENTER}");Opens chat
    Send ("/ma Cure II {ENTER}");Cast Cure II
EndFunc

Look at this tomarrow

8)

Edited August 2, 2005 by Valuater

[astokes]

This is what i got so far i finshed this one befor i seen your post.

Sleep (2000) ; Start FFXI set sleep to 2000 if useing windower. use sleep 600000 for full

screen.

$Skilling = 1 ;Show AU that we are skilling

While $Skilling > 0 ;Skill forever

Send ("/target <p0>{ENTER}") ;Tagert yourself

Sleep (3000) ;Sleep

sort()

$skilling = $skilling + 1 ;skill

WEnd

Func sort()

Send ("/ma Cure");Cast Cure

Sleep (1000) ;Sleep befor

Send ("{Enter}") ;Enter cure

Sleep (3000) ;Sleep

Send ("/heal{ENTER}") ;Recharge mps

Sleep (10000) ;Sleep-if your mps are set sleep to..mps100=80000 200mps=140000 300mps=2200000

400mps=3000000 but this is not 100% on time.

Send ("/heal{ENTER}") ;get up form recharge

Sleep (1000)

EndFunc

I still can get Cure II or Cure III to work becuse its needs the "" about the "Cure II". But i have one question i can use Cure 25 times becuse i need to recharge my mps. is there away to use cure part of the code to make it go 25 times befor going to to the heal part? i know i can copy and past it 25 times but thats take up a lot j/w.

[HardCopy]

This is what i got so far i finshed this one befor i seen your post.

I still can get Cure II or Cure III to work becuse its needs the "" about the "Cure II".  But i have one question i can use Cure 25 times becuse i need to recharge my mps. is there away to use cure part of the code to make it go 25 times befor going to to the heal part?  i know i can copy and past it 25 times but thats take up a lot j/w.

<{POST_SNAPBACK}>

Send(' /ma "Cure II" ')

use single ' quote around the double quotes.

HTH

Hardcopy

[astokes]

Send(' /ma "Cure II" ')

use single ' quote around the double quotes.

HTH

Hardcopy

<{POST_SNAPBACK}>

hah thanks i will try it when i log in....i think playonline is down i cant log in right now.

Thanks for all the hlep guys

[astokes]

Ok this is my finshed healking skill bot i may add stuff later but it works find for me for now.

Sleep (2000) ; Start FFXI set sleep to 2000 if useing

windower. use sleep 600000=60sec for full screen.

$Skilling = 1 ;Show AU that we are skilling

While $Skilling > 0 ;Skill forever

Send ("/target <p0>{ENTER}") ;Tagert yourself

Sleep (3000) ;Sleep

sort()

$skilling = $skilling + 1 ;skill

WEnd

Func sort() ;run1

Sleep (3000) ;Sleep

Send ("/ma Cure");Cast Cure

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure II"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure III"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000) ;Sleep run2

Send ("/ma Cure");Cast Cure

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure II"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure III"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000) ;Sleep run3

Send ("/ma Cure");Cast Cure

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure II"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (5000)

Send ('/ma "Cure"')

Sleep (1000) ;Sleep befor enter

Send ("{Enter}") ;Enter cure

Sleep (6000) ;Sleep

Send ("/heal{ENTER}") ;Recharge mps

Sleep (135000) ;Sleep-if your mps are set sleep

to.1sec=1000.mps100=80000 200mps=140000 300mps=2200000

400mps=3000000 but this is not 100% on time.

Send ("/heal{ENTER}") ;get up form recharge

Sleep (10000)

EndFunc

Thanks again for the help.