Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 12/18/2015 in Posts

  1. Here my 1st game ever. A try to remake of the arcade classical 2D game Asteroids® by Atari (1979). More information about Asteroids® here or here! Play online here Please don't link to file below directly from other websites! Downloads (2263 previously): AUTOITEROIDS v1.019 Build 2016-01-14.7z (use e.g. 7-Zip to extract archive) Only compiled version incl. needed files here: <4shared.com> or <MediaFire.com> LEGAL NOTICE: This game is an unoffical clone of the original Asteroids® game and is not endorsed by the registered trademark and copyright owners Atari Interactive, Inc. Short description: AUTOITEROIDS is a remake of the video arcade game released in 1979 by Atari, Inc. It was one of the most popular and influential games of the Golden Age of Arcade Games. The player controls a spaceship in an asteroid field which is periodically traversed by flying saucers. The object of the game is to shoot and destroy asteroids and saucers while not colliding with either, or being hit by the saucers' counter-fire. Keys: ctrl - shoot, up - thrust, left - turn left, right - turn right, space - hyper jump Game details: game is starting with 3 asteroids every 10.000 points increase of level (among other things amount of asteroids + 1) every 30.000 points extra live biggest asteroid = 20 points medium asteroid = 50 points smallest asteroid = 100 points big alien spaceship = 200 points small alien spaceship = 1000 point Credits: Main code: UEZ Bass UDF: BrettF Bass DLL: www.un4seen.com GDI+ font loader code: Yashied Menu item code: rasim Sound + sound code modifications: Spiff59 Font: ck! [Freaky Fonts] GetKeyboardState code: eukalyptus Atari for the original game concept AutoIt forum for all the help and the source of knowledge Have fun UEZ Change log:
    1 point
  2. Melba, Your guess is right \K is a pretty nice thing. In a SRER all chars mentioned in the pattern before \K are 'protected' indeed A little example : let's say you want to replace the 3rd occurence of 'cat' by 'dog' The first run until 'cat' is found, then the second one, and the third one before the 3rd 'cat' are 'protected' $str = "the first is a cat, the second is a cat, the third is a cat, the fourth is a cat" $res = StringRegExpReplace ($str, '^(?:.*?\Kcat){3}' , 'dog' ) Msgbox(0,"", $res) Gewurtz is pretty good, though my preference goes to the Riesling which is drier (personal taste)
    1 point
  3. Read the help file for _GetIP, it has a built in spam protection in that it won't let you check for your IP in less than 5 minutes, which is why I wrote the script the way I did.
    1 point
  4. Try this version, there's no recursion involved and it doesn't hammer the autoitscript.com site every second. #include <MsgBoxConstants.au3> #include <INet.au3> Global $dData While 1 $dData = _GetIP() If $dData <> -1 Then ; internet connection is working MsgBox($MB_SYSTEMMODAL + $MB_ICONINFORMATION, "YAY!!!", "Internet Connection Back!") EndIf Sleep(301000) ; sleep for 5 minutes (and one second) WEnd
    1 point
  5. Hmmm this does the job too Local $sString = 'A child asked his father, "How were people born?" So his father said, "Adam and Eve made babies, then their babies became adults and made babies, and so on." The child then went to his mother, asked her the same question and she told him, "We were monkeys then we evolved to become like we are now." The child ran back to his father and said, "You lied to me!" His father replied, "No, your mom was talking about her side of the family."' $x = 74 $res = StringRegExpReplace($sString, ".{1," & $x - 1 & "}\K(\s{1,2}|$)", @CRLF) Msgbox(0,"", $res)
    1 point
  6. 1 point
  7. Maybe you can use_WinAPI_IsInternetConnected ?
    1 point
  8. Exit

    FileRead Case sensitive

    If StringRegExp(StringLower($Readtxt), StringLower($username)) Then Edit: Melba23 had the better answer.
    1 point
  9. david1337, Use StringUpper/Lower on both the file content and the user name - or use the case insensitive flag "(?i)" in your RegEx pattern. M23
    1 point
  10. $VAR2 is way beyond the limits of Int-64. To make a comparison like this you have to roll your own function. The following example only works with integers or longer strings only containing digits. #include <MsgBoxConstants.au3> ; for $MB_OK Local $VAR1 = "85" Local $VAR2 = "6752783465324234658465872365523874652345632456732" Msgbox($MB_OK, "", _IsIntGT($VAR1, $VAR2)) Func _IsIntGT($sInt1, $sInt2) ; tests if $sInt1 > $sInt2 If Not (StringIsDigit($sInt1) Or StringIsDigit($sInt2)) Then Return SetError(1) ; integers only $sInt1 = StringRegExpReplace($sInt1, "\A0+", "") ; strip any leading zeros $sInt2 = StringRegExpReplace($sInt2, "\A0+", "") ; ditto Local $iLen1 = StringLen($sInt1), $iLen2 = StringLen($sInt2) ; get the number of digits ; select the appropriate comparison method. Return ($iLen1 = $iLen2) ? StringCompare($sInt1, $sInt2) > 0 : $iLen1 > $iLen2 EndFunc
    1 point
  11. @khidotdn, simply put - no. This forum is not a place where you put in a request and someone barfs up the code for you. You have been given more than enough to begin. How about you begin showing some effort?
    1 point
  12. Problem: Replace If _GUICtrlListView_GetItemSelected($hWndFrom, $iItem) Thenwith If _GUICtrlListView_GetItemSelected($hWndFrom, $iItem) Or _GUICtrlListView_GetItemFocused($hWndFrom, $iItem) Then Also: Look at _GUICtrlListView_RedrawItems
    1 point
  13. CodyBarrett

    TRON (game)

    here is my take on the TRON game, old school. OLD VERSIONS OF TRON Hey guys, i've reqritten (again) the script, cut out the AI (its too difficult to make it work properly without glitches. NEW VERSION OF TRON controls ESC brings back to main screen, exits when on the main screen ENTER is the action button for main screen & pick bike screen P1: up=w down=s left=a right=d P2: up,down,left,right=arrow keys this is the new version, from scratch, UEZ helped with my knowledge of GDI+ all images are required. place them all in the same folder.
    1 point
×
×
  • Create New...