Jump to content

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

Universalist (7/7)

1

Reputation

  1. Yeah, me too! I am so glad I started checking up on the forums again.
  2. 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
  3. 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.
  4. It bothers me when people bump really old threads...
  5. 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.
  6. 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
  7. 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.
  8. Make it have an adjustable speed.
  9. Or get GIMP for free legally...
  10. 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.
  11. It says I win instantly :/
  12. It works on my computer...
  13. Run your own server. Or of course do what Valik said and pay. EDIT: Why is this topic in the development forum ?
  14. 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
  15. _GUICtrlListViewSetColumnWidth($h_listview, $i_col, $i_width) EDIT: It looks like you need the beta for this UDF
×
×
  • Create New...