BASIC

Author Topic: Timer  (Read 1900 times)

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Timer
« on: 2005-Sep-28 »
Da das Programm jetzt durch meine Graphikkarte eingegrenzt wird, wollte ich fragen, wie ich hier einen Timer setzen kann, der auch funktioniert:


X_LOADOBJ "earth.ddd", 1

LOADSPRITE "planet.bmp", 1

LOADSPRITE "mausx.bmp", 2

LET camx = -200

WHILE TRUE

X_MAKE3D 1, 2000, 45

  X_AMBIENT_LT 0, RGB(255,255,255)

  X_SPOT_LT -2, RGB(255,255,255), 0, 0, 0, 0, 0, 0, 180

    X_CAMERA camx, 0, 10, 0, 0, 0

  //X_DRAWAXES -50, 0, 0

  X_SETTEXTURE 1, 0

    X_MIPMAPPING TRUE

    //X_ROTATION

//phi=phi + 0.05

IF mx <= 100 THEN phi = phi - 0.05
IF mx >= 700 THEN phi = phi + 0.05

IF my <= 100 THEN camx = camx + 0.3
IF my >= 500 THEN camx = camx - 0.3


IF b1 = 1 THEN END

IF camx > -150 THEN camx = -150
IF camx < -350 THEN camx = -350


IF phi = 360 THEN phi = 0
IF phi < 0 THEN phi = 360

  //X_SCALING 3, 3, 3
  X_ROTATION phi, 0, 1, 0

//FOG RGB(255,255,255), FALSE, 1/2, 0

  X_DRAWOBJ 1, 0

X_MAKE2D

  MOUSESTATE mx, my, b1, b2

  SPRITE 2, mx, my

  SHOWSCREEN

WEND




Danke! :-)
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

Offline Kitty Hello

  • code monkey
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 10697
  • here on my island the sea says 'hello'
    • View Profile
    • http://www.glbasic.com
Timer
« Reply #1 on: 2005-Sep-29 »
Code: GLBasic [Select]
speed = GETTIMER() / 20

IF mx <= 100 THEN phi = phi - speed*0.5
IF mx >= 700 THEN phi = phi + speed*0.5

IF my <= 100 THEN camx = camx + speed*0.3
IF my >= 500 THEN camx = camx - speed*0.3
Jetzt hängts nicht mehr von der Anzahl der Frames ab, sondern von der Zeit, die ein Frame benötigt.