[Source] Strzelaj do lewactwa only gui

[IeMaster]

Chciałem sie pochwalić

Gierka napisana uzywajac tylko elementow gui :biggrin:
Sterowanie:

spacja, strzałki
Exeka:
https://docs.google.com/file/d/0B6PmNu04pVKRam9jdm5YZ3JjY2s/edit?usp=sharing
skan:
https://www.virustotal.com/pl/file/9b796aa10228fb286a26127883ba96ddfa2ca6cf523ecf93fce45a9ab4a90f0c/analysis/1379449321/

 

 

 

https://www.youtube.com/watch?v=KYjGXgaT2uA

 
; Game by IeMaster
 
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <ButtonConstants.au3>

#include <WindowsConstants.au3>
Func  cls()
   Exit
EndFunc


Opt("GUIOnEventMode", 1)
$score = 0

    
 
$hMainGui = GUICreate("P", 800, 600,-1,-1,-1,  $WS_EX_TRANSPARENT)
$scoreLabel = GUICtrlCreateLabel("Score: 0",650,570,200)
GUICtrlSetColor($scoreLabel, 0x00ffb3)
GUICtrlSetFont(-1,15)
$go = GUICtrlCreateLabel("GAME OVER!",1000,1000, 1000,200)
GUICtrlSetColor(-1, 0xcba4b3)
GUICtrlSetFont(-1,70)

GUISetOnEvent($GUI_EVENT_CLOSE, "cls")
GUISetBkColor(0)

$player  = GUICtrlCreateButton("",100,500,50,30,$BS_BITMAP)
GUICtrlSetBkColor($player,0xFFFFFF)
;GUICtrlSetImage(-1, "G:\AutoIt\SciTE\KNP.bmp")

;

GUICtrlSetColor($hMainGui,0xFFFFFF)

$lose = 0
Global $playerX=100, $playerY=500
Global $playermovespeed=10
Global $aliens[1000][3]
Global $aliensSpeed=4, $alieniterator=0

Global $bulletsN=20
Global $bullets[1000][3]
Global $bulletsspeed=10,     $bulletsiterator=0, $shotDelay = 200


; bullets[x][0] = HANDLE
; bullets[x][1] = x
; bullets[x][2] = y
;same for aliens

for $i=0 to 999 step 1
   $aliens[$i][0] = GUICtrlCreateButton("SLD",1000,1000, 30,20)
   GUICtrlSetBkColor( $aliens[$i][0],0x00ff00)
   $aliens[$i][1] = 1000
   $aliens[$i][2] = 1000
Next

   

for $i=0 to $bulletsN Step 1
   $bullets[$i][0] = GUICtrlCreateLabel("|",1000,1000,2,10)
   GUICtrlSetColor($bullets[$i][0],0x50f1ff)
   $bullets[$i][1] = 1000 ; just out of screen
   $bullets[$i][2] = 1000 ; as above
Next



 GUISetState(@SW_SHOW)
 

 Func playermove()
if _IsPressed(25) Then
   $playerX-= $playermovespeed ; move left
ElseIf _IsPressed(26) Then
   $playerY-= $playermovespeed ; move up
ElseIf _IsPressed(27) Then
   $playerX+= $playermovespeed
ElseIf _IsPressed(28) Then
   $playerY+= $playermovespeed
EndIf
EndFunc
 
 
 Func isonscreen($x, $y)
    if($x < -10 or $x >800 or $y <-10 or $y > 600) Then
       return False
    EndIf
    return True
 EndFunc
 
 Func bulletsfly()
    for $i = 0 to $bulletsN step 1
       if isonscreen($bullets[$i][1], $bullets[$i][2]) Then
          $bullets[$i][2]-=$bulletsspeed
          GUICtrlSetPos($bullets[$i][0], $bullets[$i][1], $bullets[$i][2])
          EndIf
    Next    
EndFunc

Func Inc(ByRef $a, $max)
       if($a = $max) Then
          $a = 0
       Else
          $a += 1
       EndIf
EndFunc
   
func aliensmove()
for $i=0 to 100 step 1

 if isonscreen($aliens[$i][1], $aliens[$i][2]) Then
      if($aliens[$i][2] >= 600) Then $lose = 1
      $aliens[$i][2]+=$aliensSpeed
      GUICtrlSetPos($aliens[$i][0], $aliens[$i][1],$aliens[$i][2])
   EndIf
Next
EndFunc

func alienkoliz()
for $i =0 to 30
   if (not isonscreen($aliens[$i][1], $aliens[$i][2])) Then ContinueLoop
for $j = 0 to $bulletsN step 1
       if isonscreen($bullets[$j][1], $bullets[$j][2]) Then
         if($bullets[$j][1] >= $aliens[$i][1] and $bullets[$j][1] < ($aliens[$i][1]+30) and $bullets[$j][2] < ($aliens[$i][2]+20)) Then ;jezeli sie zderzylo
         $aliens[$i][1] =1000 ; to wypierdalamy w kosmos
         $aliens[$i][2] =1000 ;doslownie
         $bullets[$j][1] = 1000 ;pocisk tez
         $bullets[$j][2] = 1000
         GUICtrlSetPos($aliens[$i][0], $aliens[$i][1],$aliens[$i][2])
         GUICtrlSetPos( $bullets[$j][0] ,  $bullets[$j][1] , $bullets[$j][2] )
         $score += 1337
         EndIf
       EndIf
    Next  
 Next
 EndFunc


    



 $lastTime = TimerInit()

$lastTimebullets = TimerInit()
$x = TimerInit()

$poziomtrudnosci = 20; mniejsza liczba tym trudniej

While not $lose

    if TimerDiff($lastTime)<30 Then ContinueLoop ; ~30 fps

  if _IsPressed(20) and TimerDiff($lastTimebullets) >= $shotDelay Then ;space
      $bullets[$bulletsiterator][1] = $playerX+20 ; place bullet on the screen so bullets fly func will start move it up
      $bullets[$bulletsiterator][2] = $playerY-10 ;(until they are again out of screen)
      GuiCtrlSetPos($bullets[$bulletsiterator][0],$bullets[$bulletsiterator][1], $bullets[$bulletsiterator][2])
      Inc($bulletsiterator, $bulletsN)
      $lastTimebullets = TimerInit()
EndIf
   if Random(0,$poziomtrudnosci,1) = $poziomtrudnosci Then
      $aliens[$alieniterator][2] = 0
      $aliens[$alieniterator][1] = Random(1,600)
      Inc($alieniterator,30)
   EndIf
   alienkoliz()
   aliensmove()
   bulletsfly()
   playermove()
   GUICtrlSetPos($player,$playerX, $playerY)
   $lastTime = TimerInit()
   GUICtrlSetData($scoreLabel, "Score: " & $score)
WEnd

while Sleep(1)
   GUICtrlSetPos($go, 50, 250)
   wend

[IeMaster]

WAFFEN CASH CASH,

ZA WOLNY RYNEK PRZELEWAM DZIS KREW ! o/

 

-----------------

 

refresh, jakies komentarze ?

[DeadWalker]

SŁABE !

BRAKUJE KRWI, MORDORU, FLAKÓW ! LEWAKÓW MASAKROWAĆ o/ o/ !!!

[IeMaster]

o/ o/

 

SOCJALISCI TO SCIERWO KTORE TRZEBA WYELIMINOWAC

 

"wiele osób żyje w przeświadczeniu,

że im sie należy,

po prostu zasadniczo

mimo iz żyją z pieniędzy zabranych

tym co zapieprzali na wszystko niewolniczo,

władza wytworzyla te siec uzaleznionych od samych siebie i w siec ta wplatanych by nikt nie próbował tyranii obalić

BYSMY SIE OKRADALI DO SMIERCI USRANEJ"

 

[DeadWalker]

KARABIN W DŁOŃ, SZYKUJMY SIĘ DO ATAKU NA LEWACKIE ŚMIECIE !