Jump to content

Random Pick

evilelf

By evilelf,
in AutoIt General Help and Support

 Share

Recommended Posts

evilelf Polymath

evilelf

Posted
Posted

I am trying to get my little scrip to run a other AutoIT scrip when it gets to a spot on the game.

I am going to have 3 Scrips it can random pick from.

one will be for it to go left. "Path"

one will be were it will go and die. " Path "

and

one will be going to the right. / " Path "

------

I Thought some one had this posted but cant find this.

I thought maybe u all can give me a little hand.

How would i get my AutoIt to play a new Scrip but pick one out of 3 random.

$random = FileOpen( "C:\Documents and Settings\******_Owner\Desktop\***** B*t", 0 )

Thats all i know but it will not open more then 2 files and this one just will not run.

Link to comment
Share on other sites
PsaltyDS Universalist

PsaltyDS

Posted
Posted

I am trying to get my little scrip to run a other AutoIT scrip when it gets to a spot on the game.

I am going to have 3 Scrips it can random pick from.

one will be for it to go left. "Path"

one will be were it will go and die. " Path "

and one will be going to the right. / " Path "

------

I Thought some one had this posted but cant find this.

I thought maybe u all can give me a little hand.

$random = FileOpen( "C:\Documents and Settings\******_Owner\Desktop\***** B*t", 0 )

Thats all i know but it will not open more then 2 files and this one just will not run.

This is what reading that post made me think of:

You are in a maze of twisty passages, all alike...
>N
You are in a maze of twisty passages, all alike...
>S
You are in a maze of twisty passages, all alike...
>E
You are in a maze of twisty passages, all alike...
>W
You are in a maze of twisty passages, all alike...
>

:)

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law
Link to comment
Share on other sites
AzKay Universalist

AzKay

Posted
Posted (edited) 

_Random(Random(1, 3, 1))

Func _Random($Number)
     Select
          Case $Number = 1
                  ;Script here
          Case $Number = 2
                  ;Or here
          Case $Number = 3
                  ;Or here
          EndSelect
EndFunc

Edited by AzKay
# MY LOVE FOR YOU... IS LIKE A TRUCK- #
Link to comment
Share on other sites
evilelf Polymath

evilelf

Posted
  • Author
Posted 

_Random(Random(1, 3, 1))

Func _Random($Number)
     Select
          Case $Number = 1
                  ;Script here
          Case $Number = 2
                  ;Or here
          Case $Number = 3
                  ;Or here
          EndSelect
EndFunc
Thank You AzKay Seeing that U posted Info.
Link to comment
Share on other sites
evilelf Polymath

evilelf

Posted
  • Author
Posted

This is what i got. But it Just Stops at this spot.

Will not load up my text. note pad.

I am going to Open up other AutoIt random and then close at the end so it look likw this. 

_Random(Random(1,3,1))
      
Func _Random($Number)
     Select
          Case $Number = 1
               FileOpen( "C:\Documents and Settings\Compaq_Owner\Desktop\125", 0 )   ;Script here
          Case $Number = 2
                 FileOpen( "C:\Documents and Settings\Compaq_Owner\Desktop\1256", 0 ) ;Or here
          Case $Number = 3
                  ;Or here
      EndSelect
      EndFuncoÝ÷ ئ§Ú¥éî¦az°.-­©Ý¢f§vØ^Éh±æ­¶ÚIÊâ¦Ê"¶Z(ÉbëaÆ®¶­sbb33c¶æFÆRÒfÆT÷Và¢õ&æFöÒ&æFöÒÃ2à ¤gVæ2õ&æFöÒb33c´çVÖ&W" 6VÆV7@¢66Rb33c´çVÖ&W"Ò¢b33c¶æFÆRgV÷C´3¢b3#´Fö7VÖVçG2æB6WGFæw2b3#´6ö×ô÷væW"b3#´FW6·F÷b3#³#RgV÷C²Âµ67&BW&P¢66Rb33c´çVÖ&W"Ò  b33c¶æFÆRgV÷C´3¢b3#´Fö7VÖVçG2æB6WGFæw2b3#´6ö×ô÷væW"b3#´FW6·F÷b3#³#SbgV÷C²Â´÷"W&P¢66Rb33c´çVÖ&W"Ò0¢´÷"W&P  VæE6VÆV7@¢VæDgVæ0¤fÆT6Æ÷6Rb33c¶æFÆR
Link to comment
Share on other sites
ConsultingJoe Universalist

ConsultingJoe

Posted
Posted

and if you want to have it run scripts from your script use this with the run command:

AutoIt3.exe /AutoIt3ExecuteScript script.au3

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites
PsaltyDS Universalist

PsaltyDS

Posted
Posted

Its not running notepad because your syntax is incorrect.

$handle = FileOpen

I'm guessing $handle is the file you want opened?

FileOpen ( "filename", mode )

FileOpen("notepad.exe", 1)

1 is Write mode, 0 is read mode.

Umm... No. :)

This would be correct:

$filename = "C:\Documents and Settings\Compaq_Owner\Desktop\125"
$handle = FileOpen($filename, 0)oÝ÷ Ù8^~éܶ*')^:§­ën®{©Ýëh¶WèZÙ^²Ú+yاÓ~¡jweyƧmë¬yا²×víçâéÚçè­û­º·«y§h¯
âµè¶¦¡×°jÉ÷öÝ(¥êÚ¶*'°ò¢ë¬{Mú~)^©z÷«Êئ{*.q©e~ÞÅ©©ábå«×w­çâçâì"VÞ¢§yÖ§uÉh±ç^½êò¶)RȧØ^©Ýæ¥,¶W­¢ËZÊ^·­Áç§Â¸­zÉ)ඬr¸©µö¬µêÚÙ^²Çb²Ka­«!xéèµêZuÊ&©Ýʬ0¢é]¢§iø¥yú+¸­x"Ø^rêëz{]·¶òq©eyÙèµêZuì^kº{az趦^¥§^Åäè®éç¢×©iÖ§v¯z+h¥éÚ~)^jëh×6Run("notepad.exe " & $filename)

You can't use a handle with the notepad.exe command line, so do FileClose($handle) first, then run notepad with $filename.

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law
Link to comment
Share on other sites
evilelf Polymath

evilelf

Posted
  • Author
Posted

O thnx man I love u all.

Well i am going to show u what i got as right now.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;    Author:Evil_Elf ;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;  Farming BOT     ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 
;================================================================> Dont Edit this File Less Told to do so.
; %^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
; %^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
;=================================================> The Start...
#include <GUIConstants.au3>
#include <File.au3>
HotKeySet("{ESC}", "Terminate")

Func Terminate()
Exit 0
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MsgBox(4096, "!!UnderStand!!", "First off I like to say Thanks For Downloaden MY Elona Reach Bot. Report all Bugs. Evil_Elf_mike@hotmail.com. Also U Understand u cant Blame Me for the Loss of a account. This will last for 10 secs.", 10)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Account = InputBox("Account", "Type Your Account Name.", "" , "", _
    -1, -1, 0, 0) 
$password = InputBox("PassWord", "Type Your Accounts PassWord.", "" , "", _
    -1, -1, 0, 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 Run("D:\Guild Wars\GW.EXE") 
WinWaitActive("Guild Wars")
Sleep(7000)
MouseClick( "left" , 264, 220 , 1 )
Send($Account)
Send("{TAB}")
Send($password)
MouseClick( "left" , 340, 232 , 1 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  $handle = FileOpen
      _Random(Random(1,3,1))
       
Func _Random($Number)
     Select
          Case $Number = 1
               $handle( "C:\Documents and Settings\Compaq_Owner\Desktop\125", 0 )   ;Script here
          Case $Number = 2
               $handle( "C:\Documents and Settings\Compaq_Owner\Desktop\1256", 0 ) ;Or here
          Case $Number = 3
                  ;Or here
                  
      EndSelect
  EndFunc
FileClose($handle)

BUt the Lower Part would be edit liek u all said.

Link to comment
Share on other sites
CoderDunn Universalist

CoderDunn

Posted
Posted (edited)

It sounds like to me you want to "run" the scripts. To do that it would be like:

_Random(Random(1,3,1))
       
Func _Random($Number)
     Select
          Case $Number = 1
             $RUN_PID = Run(@AutoItExe & " /AutoIt3ExecuteScript ""PATH\SCRIPT1.au3""")
          Case $Number = 2
             $RUN_PID =  Run(@AutoItExe & " /AutoIt3ExecuteScript ""PATH\SCRIPT2.au3""")
          Case $Number = 3
             $RUN_PID =  Run(@AutoItExe & " /AutoIt3ExecuteScript ""PATH\SCRIPT3.au3""") 
    EndSelect
EndFunc

Hallman

Edited by Hallman
Link to comment
Share on other sites
jvanegmond Universalist

jvanegmond

Posted
Posted (edited) 
_Random(Random(1,3,1))
       
Func _Random($Number)
     Select
          Case $Number = 1
             $RUN_PID = Run(@AutoItExe & " /AutoIt3ExecuteScript ""PATH\SCRIPT1.au3""")
          Case $Number = 2
             $RUN_PID =  Run(@AutoItExe & " /AutoIt3ExecuteScript ""PATH\SCRIPT2.au3""")
          Case $Number = 3
             $RUN_PID =  Run(@AutoItExe & " /AutoIt3ExecuteScript ""PATH\SCRIPT3.au3""") 
    EndSelect
EndFunc
oÝ÷ Øv¥f§þ«¨µæ®¶­sbb33cµ%TåõBÒ'VâWFôDWRfײb33²ôWFôC4WV7WFU67&BgV÷CµDb3#µ45$Bb33²f×µ&æFöÒÃ2Ãfײb33²æS2gV÷C²b33²
:)
Edited by Manadar

github.com/jvanegmond

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...