Jump to content

Auto Talk_Tales of Pirates

Scrippter

By Scrippter,
in AutoIt General Help and Support

 Share

Recommended Posts

Scrippter Seeker

Scrippter

Posted
Posted

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
Link to comment
Share on other sites
Scrippter Seeker

Scrippter

Posted
  • Author
Posted

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
Link to comment
Share on other sites
Marlo Universalist

Marlo

Posted
Posted 

#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
Link to comment
Share on other sites
Scrippter Seeker

Scrippter

Posted
  • Author
Posted

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
Link to comment
Share on other sites
Scrippter Seeker

Scrippter

Posted
  • Author
Posted

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
Link to comment
Share on other sites
Scrippter Seeker

Scrippter

Posted
  • Author
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
Link to comment
Share on other sites
  • 3 months later...
JinXt3r Seeker

JinXt3r

Posted
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
Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...