Jump to content
Sign in to follow this  
AlphaWolf

Random Error?

Recommended Posts

AlphaWolf

When i try to make a directory, it either doesnt make it at all,no error message,or i get:

>"I:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Joe Duffy\Desktop\Installer2.au3"

C:\Documents and Settings\Joe Duffy\Desktop\Installer2.au3 (56) : ==> Error in expression.:

DirCreate($drcrt"\quake\")

DirCreate(^ ERROR

>Exit code: 1 Time: 3.094

Here is the code:

#include <GUIConstants.au3>
#include "Misc.au3"
if _Singleton("Installer",1) = 0 Then
    Msgbox(0,"Warning","An occurence of This is already running")
    Exit
EndIf
Msgbox(65,"Hells Army Installer http:\\www.pspwzrd.com\HellsArmy","Hello, this will install The Hells Army Server Files For Your Use. Press ok to continue.")
$sloc = RegRead("HKEY_CURRENT_USER\Software\Valve\Steam", "SteamPath")
If @error == 1 Then
msgbox(48,"Steam not found.", "Error 8, Steam Directory was not Found.")
Exit
EndIf
If @error == 2 Then
msgbox(48,"Steam not found.", "Error 12, Steam Registration was not Found.")
Exit
EndIf
If @error == 3 Then
msgbox(48,"Connection Failed.", "Error 16, Unable to remote connect to the registry.")
Exit
EndIf
If @error == -1 Then
msgbox(48,"Error!", "Error 20, Unable to open requested value.")
Exit
EndIf
$id = InputBox("Enter steamId", "Please Enter your steam id.")
If @error == 1 Then
msgbox(48,"Need Id!", "Steam Id is needed to Find the Directory. Installer will now close.")
Exit
EndIf
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\maps\"
$drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\"
DirGetSize ( $fdir , 2)
If @error == 1 Then
msgbox(48,"Steam Id not found.", "Steam Id does not Exist on this computer. Make sure you entered it correctly. Installer will now close.")
Exit
EndIf
$bdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\"
$r = Msgbox(65,"Ready to Install", "Directory For Maps Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()
FileInstall("I:File Pack\aim_ag_texture2.bsp",$fdir)
GUICtrlSetData($progress,33.3)
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:\File Pack\aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,66.6)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
DirCreate($drcrt"\quake\")
FileInstall("I:\File Pack\sounds\headshot.mp3",$drcrt)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
FileInstall("I:\File Pack\ReadMe.txt",$fdir)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

i have tried :

$drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\quake\" instead of $drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\"

what you can see

DirCreate($drcrt) with $drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\quake\"

ans alsorts of combos,its either the error,or it just doesnt do a thing :)

Please try to help me,i really want o do this muttley

Thanks

Joe


Share this post


Link to post
Share on other sites
Cha0sBG

umm just try removing the " \ " at the end that shit made me look 30 mins what's wrong at 1 of my programs :S


Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

Share this post


Link to post
Share on other sites
AlphaWolf

I now have it working,i think it used your help, i dont know,it just randomly started to work muttley

heres the code if anyone else would like it:

#include <GUIConstants.au3>
#include "Misc.au3"
if _Singleton("Installer",1) = 0 Then
    Msgbox(0,"Warning","An occurence of This is already running")
    Exit
EndIf
Msgbox(65,"Hells Army Installer http:\\www.pspwzrd.com\HellsArmy","Hello, this will install The Hells Army Server Files For Your Use. Press ok to continue.")
$sloc = RegRead("HKEY_CURRENT_USER\Software\Valve\Steam", "SteamPath")
If @error == 1 Then
msgbox(48,"Steam not found.", "Error 8, Steam Directory was not Found.")
Exit
EndIf
If @error == 2 Then
msgbox(48,"Steam not found.", "Error 12, Steam Registration was not Found.")
Exit
EndIf
If @error == 3 Then
msgbox(48,"Connection Failed.", "Error 16, Unable to remote connect to the registry.")
Exit
EndIf
If @error == -1 Then
msgbox(48,"Error!", "Error 20, Unable to open requested value.")
Exit
EndIf
$id = InputBox("Enter steamId", "Please Enter your steam id.")
If @error == 1 Then
msgbox(48,"Need Id!", "Steam Id is needed to Find the Directory. Installer will now close.")
Exit
EndIf
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\maps\"
$fdrcrt = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\sound\quake\female"
DirGetSize ( $fdir , 2)
If @error == 1 Then
msgbox(48,"Steam Id not found.", "Steam Id does not Exist on this computer. Make sure you entered it correctly. Installer will now close.")
Exit
EndIf
$bdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\"
$r = Msgbox(65,"Ready to Install", "Directory For Maps Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()
FileInstall("I:File Pack\aim_ag_texture2.bsp",$fdir)
GUICtrlSetData($progress,33.3)
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:\File Pack\aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,66.6)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
DirCreate($fdrcrt)
FileInstall("I:\File Pack\ReadMe.txt",$fdir)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

Thanks for the help, hope this will help someone else :)

Joe


Share this post


Link to post
Share on other sites
Cha0sBG

yep you used my example now :( removed the " \ " at the end so now the compiler whount give error good job but use

AutoIt Code tags it's better muttley here look :)

#include <GUIConstants.au3>
#include "Misc.au3"
if _Singleton("Installer",1) = 0 Then
    Msgbox(0,"Warning","An occurence of This is already running")
    Exit
EndIf
Msgbox(65,"Hells Army Installer http:\\www.pspwzrd.com\HellsArmy","Hello, this will install The Hells Army Server Files For Your Use. Press ok to continue.")
$sloc = RegRead("HKEY_CURRENT_USER\Software\Valve\Steam", "SteamPath")
If @error == 1 Then
msgbox(48,"Steam not found.", "Error 8, Steam Directory was not Found.")
Exit
EndIf
If @error == 2 Then
msgbox(48,"Steam not found.", "Error 12, Steam Registration was not Found.")
Exit
EndIf
If @error == 3 Then
msgbox(48,"Connection Failed.", "Error 16, Unable to remote connect to the registry.")
Exit
EndIf
If @error == -1 Then
msgbox(48,"Error!", "Error 20, Unable to open requested value.")
Exit
EndIf
$id = InputBox("Enter steamId", "Please Enter your steam id.")
If @error == 1 Then
msgbox(48,"Need Id!", "Steam Id is needed to Find the Directory. Installer will now close.")
Exit
EndIf
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\maps\"
$fdrcrt = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\sound\quake\female"
DirGetSize ( $fdir , 2)
If @error == 1 Then
msgbox(48,"Steam Id not found.", "Steam Id does not Exist on this computer. Make sure you entered it correctly. Installer will now close.")
Exit
EndIf
$bdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\"
$r = Msgbox(65,"Ready to Install", "Directory For Maps Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()
FileInstall("I:File Pack\aim_ag_texture2.bsp",$fdir)
GUICtrlSetData($progress,33.3)
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:\File Pack\aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,66.6)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
DirCreate($fdrcrt)
FileInstall("I:\File Pack\ReadMe.txt",$fdir)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")
Edited by Cha0sBG

Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ¹ There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread.

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  

×