Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
TYPE weapon
weapon1x // x und y position waffe1
weapon1y
weapon2x // x und y position waffe2
weapon2y
ENDTYPE
GLOBAL weapons[] AS weapon
WHILE TRUE
drawthescreen()
player()
fortheshot()
mouse()
WEND
END
FUNCTION fortheshot:
IF SPRCOLL (4, playerx, playery, 5, 300, 400) Kollision mit Waffensymbol 1
waffe=1
ENDIF
IF SPRCOLL (4, playerx, playery, 7, 200, 200) Kollision mit Waffensymbol 2
waffe=2
ENDIF
IF KEY(29) AND waffe=1
LOCAL shot AS weapon
shot.weapon1x = playerx
shot.weapon1y = playery
delay = GETTIMERALL() + 500
DIMPUSH weapons[], shot
ENDIF
IF KEY(29) AND waffe=2
LOCAL shot AS weapon
shot.weapon2x = playerx
shot.weapon2y = playery
delay = GETTIMERALL() + 500
DIMPUSH weapons[], shot
ENDIF
ENDFUNCTION
FUNCTION drawthescreen:
FOR x = 0 TO 9
FOR y = 0 TO 9
DRAWSPRITE 1, x*64, y*64
NEXT
NEXT
DRAWANIM 4, pldir, playerx, playery
PRINT "<=", mx, my
DRAWSPRITE 5, 300, 400 // Item Waffe 1
DRAWSPRITE 7, 200, 200 // Item Waffe 2
FOREACH shot IN weapons[] // Schuss1 // Violett
DEC shot.weapon1y, 5
DRAWSPRITE 6, shot.weapon1x, shot.weapon1y
NEXT
FOREACH shot IN weapons[] // Schuss2 // grau
DEC shot.weapon2y, 5
DRAWSPRITE 3, shot.weapon2x, shot.weapon2y
NEXT
SHOWSCREEN
ENDFUNCTION// --------------------------------- //
// Project: isogame
// Start: Thursday, April 05, 2007
// IDE Version: 4.142
LOADSPRITE "boden.png",1 // Load Isosprite
DIM tile[20][20] // Set Array tile taucht hier nirgends mehr auf, alles andere ist soweit klar. Danke schonmal
WHILE TRUE
//-----Set Locals----------
w=72 // Tile width
h=36 // Tile hight
w2=w/2 // Half Tile width
h2=h/2 // Half Tile hight
//-------------------------
FOR x = 0 TO 19
FOR y = 0 TO 19
xpos = w2*(x-y)-w2 // calculate xpos
ypos = h2*(x+y) // calculate ypos
SPRITE 1,xpos-ScrollX,ypos-ScrollY // Draw sprite
NEXT
NEXT
//--------Scroll-----------------------
IF KEY(200) THEN ScrollY = ScrollY -3
IF KEY(208) THEN ScrollY = ScrollY +3
IF KEY(203) THEN ScrollX = ScrollX -3
IF KEY(205) THEN ScrollX = ScrollX +3
//---------------------------------------
SHOWSCREEN
WEND
END