Jump to content

Cs 1.6 Buyscript Manager


Daniel W.
 Share

Recommended Posts

Hi,

this is my first real programm.

You need to Compile it before you start it.

First you choose on which Key you want to bind something ( F1-F12 and Numblock) and then the weapons etc. you want to bind on...

At the moment it is on german but tomorrow i will upload an english version

Here is the code:

#include <GUIConstants.au3>

$anfang = FileReadLine( @ScriptDir & "\userconfig.cfg", 1)
If $anfang = "" Then
    FileWrite( @ScriptDir & "\userconfig.cfg", "///////////////" & @CRLF & "// Buyscript //" & @CRLF & "///////////////" & @CRLF)
EndIf

GUICreate("Buyscript", 320, 190)

GUICtrlCreateLabel("Choose the button on which you want to bind something!",10, 10)

$F1 = GUICtrlCreateCheckbox("F1", 10, 30)
$F2 = GUICtrlCreateCheckbox("F2", 10, 50)
$F3 = GUICtrlCreateCheckbox("F3", 10, 70)
$F4 = GUICtrlCreateCheckbox("F4", 10, 90)
$F5 = GUICtrlCreateCheckbox("F5", 10, 110)
$F6 = GUICtrlCreateCheckbox("F6", 10, 130)
$F7 = GUICtrlCreateCheckbox("F7", 10, 150)
$F8 = GUICtrlCreateCheckbox("F8", 50, 30)
$F9 = GUICtrlCreateCheckbox("F9", 50, 50)
$F10 = GUICtrlCreateCheckbox("F10", 50, 70)
$F11 =  GUICtrlCreateCheckbox("F11", 50, 90)
$F12 =  GUICtrlCreateCheckbox("F12", 50, 110)

$NB0 =  GUICtrlCreateCheckbox("0", 90, 30)
$NB1 =  GUICtrlCreateCheckbox("1", 90, 50)
$NB2 =  GUICtrlCreateCheckbox("2", 90, 70)
$NB3 =  GUICtrlCreateCheckbox("3", 90, 90)
$NB4 =  GUICtrlCreateCheckbox("4", 90, 110)
$NB5 =  GUICtrlCreateCheckbox("5", 90, 130)
$NB6 =  GUICtrlCreateCheckbox("6", 90, 150)
$NB7 =  GUICtrlCreateCheckbox("7", 130, 30)
$NB8 =  GUICtrlCreateCheckbox("8", 130, 50)
$NB9 =  GUICtrlCreateCheckbox("9", 130, 70)

$NBSLASH =  GUICtrlCreateCheckbox("Slash", 170, 30)
$NBSTERN =  GUICtrlCreateCheckbox("Star", 170, 50)
$NBMINUS =  GUICtrlCreateCheckbox("Minus", 170, 70)
$NBPLUS =  GUICtrlCreateCheckbox("Plus", 170, 90)
$NBENTER =  GUICtrlCreateCheckbox("Enter", 170, 110)
$NBKOMMA =  GUICtrlCreateCheckbox("Dot", 170, 130)

GUISetState()

While 1
    $msg = GUIGetMsg()
    $i = 1
    Select
        Case $msg = $F1
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F1")
            weapon()
        Case $msg = $F2
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F2")
            weapon()
        Case $msg = $F3
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F3")
            weapon()
        Case $msg = $F4
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F4")
            weapon()
        Case $msg = $F5
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F5")
            weapon()
        Case $msg = $F6
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F6")
            weapon()
        Case $msg = $F7
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F7")
            weapon()
        Case $msg = $F8
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F8")
            weapon()
        Case $msg = $F9
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F9")
            weapon()
        Case $msg = $F10
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F10")
            weapon()
        Case $msg = $F11
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F11")
            weapon()
        Case $msg = $F12
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind F12")
            weapon()
        Case $msg = $NB0
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_INS")
            weapon()
        Case $msg = $NB1
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_END")
            weapon()
        Case $msg = $NB2
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_DOWNARROW")
            weapon()
        Case $msg = $NB3
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_PGDN")
            weapon()
        Case $msg = $NB4
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_LEFTARROW")
            weapon()
        Case $msg = $NB5
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_5")
            weapon()
        Case $msg = $NB6
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_RIGHTARROW")
            weapon()
        Case $msg = $NB7
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_HOME")
            weapon()
        Case $msg = $NB8
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_UPARROW")
            weapon()
        Case $msg = $NB9
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_PGUP")
            weapon()
        Case $msg = $NBKOMMA
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_DEL")
            weapon()
        Case $msg = $NBENTER
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_ENTER")
            weapon()
        Case $msg = $NBMINUS
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_MINUS")
            weapon()
        Case $msg = $NBPLUS
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_PLUS")
            weapon()
        Case $msg = $NBSLASH
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind KP_SLASH")
            weapon()
        Case $msg = $NBSTERN
            FileWrite( @ScriptDir & "\userconfig.cfg", @CRLF & "bind *")
            weapon()
        Case $msg = $GUI_EVENT_CLOSE
            ProcessClose("buyscript.exe")   
        EndSelect
WEnd

Func weapon()
    
GUICreate("Buyscript", 550, 250)

;Pistols
GUICtrlCreateGroup("Pistols", 5, 10, 80, 150)
$glock = GUICtrlCreateRadio("Glock", 10, 30)
$usp = GUICtrlCreateRadio("Usp", 10, 50)
$p228 = GUICtrlCreateRadio("P228", 10, 70)
$deagle = GUICtrlCreateRadio("Deagle", 10, 90)
$dual = GUICtrlCreateRadio("Duals", 10, 110)
$fiveseven = GUICtrlCreateRadio("FiveSeven", 10, 130)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;Shotguns
GUICtrlCreateGroup("Pumpguns", 95, 10, 80, 70)
$m3 = GUICtrlCreateRadio("M3", 100, 30)
$xm1014 =  GUICtrlCreateRadio("xm1014", 100, 50)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;Machine Guns
GUICtrlCreateGroup("Machine Guns", 185, 10, 80, 130)
$mac10 = GUICtrlCreateCheckbox("Mac10", 190, 30)
$tmp = GUICtrlCreateCheckbox("TMP", 190, 50)
$mp5 = GUICtrlCreateCheckbox("MP5", 190, 70)
$ump = GUICtrlCreateCheckbox("UMP", 190, 90)
$p90 = GUICtrlCreateCheckbox("P90", 190, 110)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;Rifles
GUICtrlCreateGroup("Rifles", 275, 10, 80, 230)
$famas = GUICtrlCreateCheckbox("Famas", 280, 30)
$galil = GUICtrlCreateCheckbox("Galil", 280, 50)
$scout = GUICtrlCreateCheckbox("Scout", 280, 70)
$ak47 = GUICtrlCreateCheckbox("AK", 280, 90)
$m4a1 = GUICtrlCreateCheckbox("M4A1", 280, 110)
$bullpup = GUICtrlCreateCheckbox("Bullpup", 280, 130)
$sg550 = GUICtrlCreateCheckbox("SG550", 280, 150)
$awp = GUICtrlCreateCheckbox("AWM", 280, 170)
$g3sg1 = GUICtrlCreateCheckbox("G3SG1", 280, 190)
$d3au1 = GUICtrlCreateCheckbox("D3AU1", 280, 210)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;Para
GUICtrlCreateGroup("Para", 365, 10, 80, 50)
$para = GUICtrlCreateCheckbox("Para", 370, 30)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;Equipment
GUICtrlCreateGroup("Equipment", 455, 10, 80, 210)
$prim = GUICtrlCreateCheckbox("PrimAmmo", 460, 30)
$sec = GUICtrlCreateCheckbox("SecAmmo", 460, 50)
$defuser = GUICtrlCreateCheckbox("Defusekit", 460, 70)
$vest = GUICtrlCreateCheckbox("Weste", 460, 90)
$vesthelm = GUICtrlCreateCheckbox("Westhelm", 460, 90)
$flash = GUICtrlCreateCheckbox("Flash", 460, 110)
$he = GUICtrlCreateCheckbox("HE", 460, 130)
$smoke = GUICtrlCreateCheckbox("Smoke", 460, 150)
$nightvision = GUICtrlCreateCheckbox("Nightvision", 460, 170)
$shield = GUICtrlCreateCheckbox("Shield", 460, 190)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
;Pistols
        Case $msg = $glock
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";glock")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""glock")
            EndIf
        Case $msg = $usp
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";usp")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""usp")
            EndIf       
        Case $msg = $p228
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";p228")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""p228")
            EndIf
        Case $msg = $deagle
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";deagle")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""deagle")
            EndIf           
        Case $msg = $dual
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";elites")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""elites")
            EndIf       
        Case $msg = $fiveseven
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";fiveseven")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""fiveseven")
            EndIf   
;Shotguns
        Case $msg = $m3
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";m3")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""m3")
            EndIf
        Case $msg = $xm1014
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";xm1014")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""xm1014")
            EndIf
;Machine Guns
        Case $msg = $mac10
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";mac10")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""mac10")
            EndIf           
        Case $msg = $tmp
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";tmp")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""tmp")
            EndIf
        Case $msg = $mp5
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";mp5")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""mp5")
            EndIf
        Case $msg = $ump
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";ump45")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""ump45")
            EndIf
        Case $msg = $p90
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";p90")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""p90")
            EndIf
;Rifles
        Case $msg = $famas
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";famas")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""famas")
            EndIf           
        Case $msg = $galil
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";defender")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""defender")
            EndIf
        Case $msg = $scout
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";scout")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""scout")
            EndIf           
        Case $msg = $ak47
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";ak47")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""ak47")
            EndIf           
        Case $msg = $m4a1
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";m4a1")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""m4a1")
            EndIf           
        Case $msg = $bullpup
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";aug")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""aug")
            EndIf
        Case $msg = $sg550
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";sg552")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""sg552")
            EndIf           
        Case $msg = $awp
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";awp")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""awp")
            EndIf           
        Case $msg = $g3sg1
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";g3sg1")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""g3sg1")
            EndIf           
        Case $msg = $d3au1
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";d3au1")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""d3au1")
            EndIf   
;Para
        Case $msg = $para
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";m249")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""m249")
            EndIf           
;Equipment
        Case $msg = $prim
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";primammo")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""primammo")
            EndIf
        Case $msg = $sec
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";secammo")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""secammo")
            EndIf
        Case $msg = $defuser
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";defuser")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""defuser")
            EndIf
        Case $msg = $vest
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";vest")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""vest")
            EndIf
        Case $msg = $vesthelm
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";vesthelm")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""vesthelm")
            EndIf
        Case $msg = $flash
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";flash")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""flash")
            EndIf
        Case $msg = $he
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";hegren")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""hegren")
            EndIf
        Case $msg = $smoke
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";sgren")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""sgren")
            EndIf
        Case $msg = $nightvision
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";nvgs")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""nvgs")
            EndIf
        Case $msg = $shield
            If FileReadLine("C:\asdf.txt", 1) <> "" Then
                FileWrite( @ScriptDir & "\userconfig.cfg", ";shield")
            Else
                FileWrite("C:\asdf.txt", "x")
                FileWrite( @ScriptDir & "\userconfig.cfg", " ""shield")
            EndIf
        Case $msg = $GUI_EVENT_CLOSE
            FileDelete("C:\asdf.txt")
            FileWrite( @ScriptDir & "\userconfig.cfg", """ ") 
            ProcessClose("buyscript.exe")
    EndSelect
WEnd
EndFunc

If you got ideas to improve

Tell me :think:

Edited by Daniel W.

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

Hi,

I don't play the game, but I thought there are already shortcuts in the game for that. :think:

So long,

Mega

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Link to comment
Share on other sites

What do you mean with shortcuts?

Buyscript means that when you hit the Key F1 for example you get a primary weapon , a new pistol , munition, grenades , vest etc. with just one keypress and not more..

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

what the helll^^

nice script but tooooooooooooooooooooooooooooo much code..^^

i think i will release my script0r here^^

its a scripting programm(editor) for counter-strike :think:

Edited by Busti
My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity
Link to comment
Share on other sites

Yes much code but it's my first programm and i dont know how to make it without that much code...

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

Yes much code but it's my first programm and i dont know how to make it without that much code...

use combo box!

Case $msg = $GUI_EVENT_CLOSE

ProcessClose("start.exe")

processclose("start.exe") ~~ exit

^^

Edited by Busti
My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity
Link to comment
Share on other sites

why do I get an error for run( @ScriptDir & "\buyscript" )

its right but i get an error>?

[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

run( @ScriptDir & "\buyscript.exe" )

?

yeah he has two scripts. for some reason the run command doesn't run it. I don't think it is his script tho? I don;t know what it is

[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

You could bind the keys in-game for multiple buying.

If you need m4a1, deagle, kevlar, vest, defuser with one key, then all you have to do is type in following in console:

bind "F1" "m4a1; deagle; vest; helmvest; defuser"

But since this is your first program...welcome to the community, hope to see more of your programs :think:

I believe we should all pay our tax with a smile. I tried - but they wanted cash!

Link to comment
Share on other sites

hello,

last days i got no inet so here is a new version.

if there are wrong english sentences then tell me...

I am working on an update now to make it not possible to bind 2 or more pistols on one key

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

hello,

last days i got no inet so here is a new version.

if there are wrong english sentences then tell me...

I am working on an update now to make it not possible to bind 2 or more pistols on one key

hi daniel, i said somethink about a gui with combos, see my release of script0r, under tools - buymenumaker you will see what i meant^^

ive done this long time ago, veryvery old prj. of me now i started using it again! now its growing better and better :think: if you want some help oder some testers im there !

My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity
Link to comment
Share on other sites

Ok thanks

busti are you german? maybe you know me / i know you from another forum

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

You can'use the Alt 1-9 Keys in CS but its not much used because 1-9 is used for Slots and alt is just like ctrl ...

Edited by Daniel W.

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

  • 6 years later...

Did you seriously just respond to a 6 year old thread with that? I certainly hope the rest of your time here is spent in better pursuits than insulting people that will NEVER READ IT.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

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

  • Recently Browsing   0 members

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