Jump to content
Sign in to follow this  
AlphaWolf

Create

Recommended Posts

AlphaWolf

Could you please help me;

ive made this installer, it needs to make a \"allthedirectories"\sound\quake\female , but if \quake is not made, do i have to create \quake before \quake\female,or can it make them at the same time?

jhere 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 know the $progress doesn't make sense,its just not finished that bit yer,thats the last of my wories muttley

Thanks

Joe


Share this post


Link to post
Share on other sites
Cha0sBG

Try It Now

#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\quake\"
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!")

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  

×