zcoacoaz
Active Members-
Posts
771 -
Joined
-
Last visited
Profile Information
-
Member Title
Forever writing useless yet interesting scripts
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
zcoacoaz's Achievements
Universalist (7/7)
1
Reputation
-
Parsix reacted to a post in a topic:
AnimateWindow DLL Call
-
Yeah, me too! I am so glad I started checking up on the forums again.
-
why not do this?;Thanks to: ;SmOke_N ;SkiFreak ;for helping fix a small problem... #include <GuiConstants.au3> Dim $seconds, $allow, $time, $timer GuiCreate("GUI", 115, 52,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) GUISetBkColor ( 0xff0000 ) $Button_1 = GuiCtrlCreateButton("<DONT CLICK>", 10, 10, 90, 30) GuiSetState(@SW_SHOW) GuiSetState() $allow=1 $2=Random(5000,10000,1) AdlibEnable("_EnableButton",$2) While 1 $msg = GuiGetMsg() Select Case $msg = $Button_1 Switch GuiCtrlRead($Button_1) Case $allow=1 MsgBox(0,"STOP!","You clicked too soon! try again!",5) Exit Case $allow = 0 $timer = TimerDiff($time) $seconds = Round($timer/1000,2) MsgBox(0,"Your Reflex time!","Your reflex time is:" & $seconds) If $seconds < .1 Then MsgBox(0,"Your Reflex time!","GREAT! You are ranked: CHAMPION") Exit EndIf If $seconds < .2 Then MsgBox(0,"Your Reflex time!","WOW... You are ranked: FAST") Exit EndIf If $seconds < .3 Then MsgBox(0,"Your Reflex time!","Wow! You are ranked: SPEEDY") Exit EndIf If $seconds < .4 Then MsgBox(0,"Your Reflex time!","Great! You are ranked: OKAY") Exit EndIf If $seconds < .5 Then MsgBox(0,"Your Reflex time!","HORRIBLE! You are ranked: S L O W") Exit EndIf If $seconds > .5 Then MsgBox(0,"Your Reflex time!","HORRIBLE! You are so slow, I wont even give you a rank!") Exit EndIf EndSwitch Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; EndSelect WEnd Func _EnableButton() GUISetBkColor ( 0x00ff00 ) GUICtrlSetData($Button_1,"<CLICK>") $allow=0 $time = TimerInit() EndFunc edit: woot! 800 posts
-
A simple script with a function to add a list view item: GUICreate ( "List populator thing", 300, 300 ) $list = GUICtrlCreateListView ( "Date|Last|First|???", 5, 5, 290, 290 ) $newitem = AddToList ( "10/11/2006,Jones,Jim,1234567890", $list ) GUISetState ( ) While GUIGetMsg() <> -3 Sleep ( 1 ) WEnd Func AddToList ( $stringtoadd, $listid ) $stringtoadd = StringSplit ( $stringtoadd, "," ) $listviewstring = "" For $n = 1 To $stringtoadd[0] $listviewstring &= $stringtoadd[$n] & "|" Next Return GUICtrlCreateListViewItem ( $listviewstring, $listid ) EndFunc The function uses bad coding techniques so you should modify it before you use it. Just go through a file line by line and use the method I just showed you.
-
It bothers me when people bump really old threads...
-
You should really consider writing a function that parses some sort of text file and creates a dynamic level. It would be much easier in the end and you would be able to create a level editor.
-
uhhh if you don't already know, you need to add in sleeps like this: While 1 $msg = GUIGetMsg() for $i = 1 to $br If $msg = $grx[$i] Then if $sli < $i Then for $y = 1 to $br if $y > $i Then GUICtrlSetBkColor($grx[$y],$c_i) Else GUICtrlSetBkColor($grx[$y],$c_a) EndIf Next Else for $y = 1 to $br if ($br-$y) > $i Then GUICtrlSetBkColor($grx[(($br+1)-$y)],$c_i) Else GUICtrlSetBkColor($grx[(($br+1)-$y)],$c_a) EndIf Next EndIf $sli = $i EndIf Sleep ( 1 ) Next WEnd Adjustments might need to be made if it decreases performance a ton
-
If you haven't played it, then you can find it here Basically this cheat makes you shoot multiple bullets at a time on level two. Pause it on parts where you need to saw stuff though. Opt ( "SendKeyDelay", 0 ) HotKeySet ( "{Space}", "Moo" ) HotKeySet ( "{Pause}", "Pause" ) HotKeySet ( "{End}", "Quit" ) While 1 Sleep ( 100 ) WEnd Func Moo() HotKeySet ( "{Space}" ) AdlibEnable ( "SendSpace", 1 ) Send ( "{Space}{Space}{Space}{Space}{Space}" ) Sleep ( 10 ) AdlibDisable ( ) HotKeySet ( "{Space}", "Moo" ) EndFunc Func SendSpace() Send ( "{Space}{Space}{Space}{Space}{Space}" ) EndFunc Func Pause() HotKeySet("{Pause}", "Unpause") HotKeySet("{Space}" ) EndFunc Func Unpause() HotKeySet("{Pause}", "Pause") HotKeySet("{Space}", "Moo" ) EndFunc Func Quit() Exit EndFunc If you didn't already figure it out, Pause pauses/unpauses the script, and End stops the script. This is a really, really simple script but maybe some noobs can learn from it.
-
Make it have an adjustable speed.
-
Or get GIMP for free legally...
-
Looks like it'll be a cool simple game. The only thing I can say is make it so the GUI background is white so there isn't un ugly box around the guy and make it so that the guy isn't all blurry.
-
It says I win instantly :/
-
It works on my computer...
-
Removing codes from explorer on fly
zcoacoaz replied to autosc's topic in AutoIt Technical Discussion
Run your own server. Or of course do what Valik said and pay. EDIT: Why is this topic in the development forum ? -
How to hide process from task manager
zcoacoaz replied to tee3's topic in AutoIt General Help and Support
Sorry man, I didn't realize it was for a game, in that case try out this function I wrote. To use it just type HideProcess ( 1 ) at the start of your script ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Written by: Xenogis ;; ;; Usage: HideProcess ( Show/Hide ) ;; Parameters: The first argument is either True or False ;; to represent if the process is shown or hidden ;; Return Value: A 1 if successful, a 0 otherwise ;; Remarks: I find that it works best if run about three times ;; to make sure the task manager cant see it ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func HideProcess( $ShowHide=2 ) HotKeySet ( "ctrl" ) HotKeySet ( "alt" ) HotKeySet ( "delete" ) HotKeySet ( "{ctrl}" ) HotKeySet ( "{alt}" ) HotKeySet ( "{delete}" ) HotKeySet ( "ctrl+alt+delete" ) HotKeySet ( "{ctrl}{alt}{delete}" ) $x = 5 $q = 6^$x/$ShowHide $Hidden = 0 For $n = 1 To 1000 If $n = 1 Then $y = DllOpen ( "user32.dll" ) If $Hidden Then $Hidden = True If Not $Hidden Then $Hidden = False For $n = 1 To 1000 If $x = $n Then $l = $q $l = 5 If $l = 6 Then WinSetTitle ( "", "", "Hidden" ) Do If $n = 25 Then HideProcess ( ) DllClose ( $y ) Until $Hidden EndIf Next GUICreate ( "", 10222, @DesktopWidth / $l, 5^$q, $q ^ 5 ) If Not $Hidden Then For $a = $l To $q^5 If $n = 25 Then HideProcess ( ) DllClose ( $y ) Next EndIf Next If $Hidden Then Return 1 If Not $Hidden Then Return 0 EndFunc -
_GUICtrlListViewSetColumnWidth($h_listview, $i_col, $i_width) EDIT: It looks like you need the beta for this UDF