Jump to content
Sign in to follow this  
AlphaWolf

Installer

Recommended Posts

AlphaWolf

Hi,i have been making this installer,and thought that the loading bar would work,but i cant seem to get it to work, at all,ive got all the things included (i think).

Anyway, heres 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 there, this will install aThe 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\"
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
;Install
$progressbar1 = GUICtrlCreateProgress (10,50,190,20)
$p = 0
$install = GUICtrlCreateProgress ( 20, 20 , 360 , 20)
GUISetState ()
$msg = GUIGetMsg()
GUICtrlSetData ($install, $p)
FileInstall ( "I:\File Pack\aim_ag_texture_arena.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture_arena.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture_mix.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture_mix.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture1695.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture1695.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture2.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture2.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture_city_advanced.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ag_texture_city_advanced.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ak-colt_war.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\aim_ak-colt_war.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\scoutzknivez_texture.bsp", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
FileInstall ( "I:\File Pack\scoutzknivez_texture.nav", $fdir, 1)
$p = $p + 7.6923076923076923076923076923077
;Done
$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
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $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 Sound Files Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
;Install
$p = 0
$install = GUICtrlCreateProgress ( 20, 20 , 360 , 20)
GUISetState ()
$msg = GUIGetMsg()
GUICtrlSetData ($install, $p)
FileInstall ( "I:\File Pack\sounds\headshot.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\boomheadshot.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\dominating.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\firstblood.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\godlike.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\holyshit.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\humiliation.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\killingspree.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\ludicrouskill.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\monsterkill.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\perfect.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\play.wav", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\prepare.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\rampage.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\sniperheadshotnew.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\teamkiller.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\ultrakill.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\unstoppable.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\wickedsick.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
FileInstall ( "I:\File Pack\sounds\suicide.mp3", $fdir, 1)
$p = $p + 5.2631578947368421052631578947368
;Done
$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
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $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 Female Sound Files Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
;Install
$p = 0
$install = GUICtrlCreateProgress ( 20, 20 , 360 , 20)
GUISetState ()
$msg = GUIGetMsg()
GUICtrlSetData ($install, $p)
FileInstall ( "I:\File Pack\sounds\female\headshot.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\dominating.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\firstblood.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\godlike.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\holyshit.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\humiliation.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\killingspree.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\monsterkill.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\prepare.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\rampage.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\ultrakill.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\unstoppable.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
FileInstall ( "I:\File Pack\sounds\female\wickedsick.mp3", $fdir, 1)
$p = $p + 7.1428571428571428571428571428571
;Done
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

of course,replace the files with your own,but also,how may i do a,instead of directory not found,but if say /steam/counter-strike/ is there,and option to make the folder "/sound/quake.." ?

thanks in advanced

Joe


Share this post


Link to post
Share on other sites
d3mon

Try this:

GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()

FileInstall("source","dest")
GUICtrlSetData($progress,1*50) ;First file=1 for have percent you divide files per 100 so 2files=50
GUICtrlSetData($File,"File : File1")
FileInstall("source","dest")
GUICtrlSetData($progress,2*50)
GUICtrlSetData($File,"File : File2")

While 1
sleep(10) ;sleep little for not use processor
WEnd

No-life of autoit...what could be better ?LAST SCRIPTS WITH AUTO-IT : CLICK HERE

Share this post


Link to post
Share on other sites
d3mon

For create sound quake folder :

DirCreate("I:\File Pack\sounds\quake")

No-life of autoit...what could be better ?LAST SCRIPTS WITH AUTO-IT : CLICK HERE

Share this post


Link to post
Share on other sites
AlphaWolf

Thanks

this is my current code,but it hanges for a long time(i just keep canceling it,it anoys me)

#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 there, this will install aThe 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\"
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,1*50);First file=1 for have percent you divide files per 100 so 2files=50
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:/File Pack/aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,1*100)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
While 1
sleep(1000);sleep little for not use processor
WEnd
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

I would really appreciate any help muttley

Thanks

Joe


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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.