Sign in to follow this  
Followers 0
Scrippter

Auto Talk_Tales of Pirates

8 posts in this topic

Here is the script i wrote to say auto text, What i need help with is a hotkey that allows you to change what $answer is. I wanting F12, if anyone knows a way to do this, i would be grateful. I want it to exit (close) when F11 is pressed. Thanks Guys/Gals.

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Tales of Pirates - Paradise Found","")
If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","")
WinWaitActive("Tales of Pirates - Paradise Found","")
; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

For $i = 0 to 100 step 1
    sleep(20) ; wait time.
    ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent.
sleep(500) ; wait a half of a second.
ProgressOff() ; close the progress meter.

$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _
    -1, -1, 0, 0)

While 1
       
 Send($answer1) ;~ Says text put in inputbox
 sleep(20)
 send("{enter}")
 Sleep(8500)
 WEnd

Share this post


Link to post
Share on other sites



I think i figured it out, take a look:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icons\Computer.ico
#AutoIt3Wrapper_outfile=..\Desktop\Auto_text.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Tales of Pirates - Paradise Found","")
If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","")
WinWaitActive("Tales of Pirates - Paradise Found","")
; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

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

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{END}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d

For $i = 0 to 100 step 1
    sleep(20) ; wait time.
    ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent.
sleep(500) ; wait a half of a second.
ProgressOff() ; close the progress meter.

;~ Input Box for answer to Question
$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _
    -1, -1, 0, 0)

While 1
       
 Send($answer1) ;~ Says text put in inputbox
 sleep(20)
 send("{enter}")
 Sleep(8500)
 WEnd

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

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","Super Secret Message.")
EndFunc

Share this post


Link to post
Share on other sites

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icons\Computer.ico
#AutoIt3Wrapper_outfile=..\Desktop\Auto_text.exe
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Tales of Pirates - Paradise Found","")
If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","")
WinWaitActive("Tales of Pirates - Paradise Found","")
; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

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

HotKeySet("{f12}", "_ChangeAnswer")

For $i = 0 to 100 step 1
    sleep(20); wait time.
    ProgressSet( $i, $i & " %"); set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete"); when the loop is complete, set the progress meter to 100 percent.
sleep(500); wait a half of a second.
ProgressOff(); close the progress meter.

;~ Input Box for answer to Question
$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _
    -1, -1, 0, 0)

While 1
      
 Send($answer1);~ Says text put in inputbox
 sleep(20)
 send("{enter}")
 Sleep(8500)
 WEnd

Func _ChangeAnswer()
$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", -1, -1, 0, 0)
EndFunc

that shouls do it


Click here for the best AutoIt help possible.Currently Working on: Autoit RAT

Share this post


Link to post
Share on other sites

I added some sounds, now if i can figure out a way to make it when Home is pressed, and you can change the $answer.

SoundPlay(@WindowsDir & "\media\tada.wav",1)
;~Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{END}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d

; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

For $i = 0 to 100 step 1
    sleep(20) ; wait time.
    ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent.
sleep(500) ; wait a half of a second.
ProgressOff() ; close the progress meter.


MsgBox(48, "Control Auto_Texter:", "To Close Press END. To Pause Press PAUSE/BREAK.")
;~ Input Box for answer to Question
$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _
    -1, -1, 0, 0)

While 1
       
 Send($answer1) ;~ Says text put in inputbox
 sleep(20)
 send("{enter}")
 Sleep(8500)
 WEnd

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "You Paused Me"',0,0)
        SoundPlay(@WindowsDir & "\media\notify.wav",1)
        WEnd
    ToolTip("")
EndFunc

Func Terminate()
    SoundPlay(@WindowsDir & "\media\chimes.wav",1)
    
    Exit 0
EndFunc

Func ShowMessage()
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    
    MsgBox(4096,"","A Venluckey Production.")
EndFunc

Share this post


Link to post
Share on other sites

Thanks man, That worked

Here it is completed!

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Tales of Pirates - Paradise Found","")
If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","")
WinWaitActive("Tales of Pirates - Paradise Found","")

SoundPlay(@WindowsDir & "\media\tada.wav",1)
;~Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{END}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d
HotKeySet("{HOME}", "_ChangeAnswer")
; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

For $i = 0 to 100 step 1
    sleep(20) ; wait time.
    ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent.
sleep(500) ; wait a half of a second.
ProgressOff() ; close the progress meter.


MsgBox(48, "Control Auto_Texter:", "To Close Press END. To Pause Press PAUSE/BREAK.")
;~ Input Box for answer to Question
$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _
    -1, -1, 0, 0)

While 1
       
 Send($answer1) ;~ Says text put in inputbox
 sleep(20)
 send("{enter}")
 Sleep(8500)
 WEnd
Func _ChangeAnswer()
$answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", -1, -1, 0, 0)
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "You Paused Me"',0,0)
        SoundPlay(@WindowsDir & "\media\notify.wav",1)
        WEnd
    ToolTip("")
EndFunc

Func Terminate()
    SoundPlay(@WindowsDir & "\media\chimes.wav",1)
    
    Exit 0
EndFunc

Func ShowMessage()
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    
    MsgBox(4096,"","A Venluckey Production.")
EndFunc

Share this post


Link to post
Share on other sites

Now moved on to an Auto pickup Bot!

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

I think I got it! Wow after learning that first one, this one when faster.

Look it over and tell me what you think.

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Tales of Pirates - Paradise Found","")
If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","")
WinWaitActive("Tales of Pirates - Paradise Found","")

SoundPlay(@WindowsDir & "\media\tada.wav",1)
; creates a progress meter with comments.
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{END}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d
; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

For $i = 0 to 100 step 1
    sleep(20) ; wait time.
    ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent.
sleep(500) ; wait a half of a second.
ProgressOff() ; close the progress meter.

while 1
Send("^a")
sleep(500)
Send("^a")
WEnd
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "You Paused Me"',0,0)
        SoundPlay(@WindowsDir & "\media\notify.wav",1)
        WEnd
    ToolTip("")
EndFunc

Func Terminate()
    SoundPlay(@WindowsDir & "\media\chimes.wav",1)
    
    Exit 0
EndFunc

Func ShowMessage()
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    
    MsgBox(4096,"","A Venluckey Production.")
EndFunc
Edited by Scrippter

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

Hello everyone as you can see I am quite new and very interested on how all this works and perhaps maybe even would be able to add to a wonderful bot for TOP. First question is going to sound probably incredibly stupid but how the hell do I use this program?? I just downloaded it and I don't even know where to begin or even where to input the code that is supplied here!!! I want to learn so if you can, a dumbed down detailed explanation would be best, then I can try to take it from there. Regards JinX

Edited by JinXt3r

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