Author Topic: GdiPlus last chance (Read 7873 times)

Peter · « **on:** March 16, 2013, 01:33:29 AM »

Deleted

JRS · « **Reply #1 on:** March 16, 2013, 06:46:53 AM »

Hi Peter,

Your GDIPlus include file looks very much like sw.inc. Would it be worth converting the SB SokoMouse game to GDIPlus or is this a one time experiment and there will be no further updates to this library?

John

JRS · « **Reply #2 on:** March 16, 2013, 07:37:27 AM »

I will wait until you give the green light.

Thanks!

JRS · « **Reply #3 on:** March 16, 2013, 10:58:20 AM »

Quote

Sadly, we cannot use GdiPlus for games, is too slow.

Why am I not surprised?

Thanks for posting this game. I will convert it to SB. Maybe more Basic programmers will use ScriptBasic if they can easily create simple games.

BTW: Do you have any more level maps for SokoMouse beyond the 9 that were provided?

JRS · « **Reply #4 on:** March 16, 2013, 11:13:59 AM »

My error. There are 30 maps. Sorry.

JRS · « **Reply #5 on:** March 16, 2013, 09:29:49 PM »

Here is your Bird Shooter game running in ScriptBasic.

@Peter: Other than trying to dodge the turds, how does the plane fight back (shoot, ...) You have a couple lines of code that checks for the Key() to be two different values at the same time.

Code: OxygenBasic

INCLUDE "sw.inc"
 
 
'        ************* 
FUNCTION CircleCollide(x1, y1, r1, x2, y2, r2)
'        *************
  IF SQR((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2)) <  r1 + r2 THEN
    CircleCollide = 1
  END IF
END FUNCTION
 
'   ******
SUB Timer1
'   ******
  dv = dv + 0.1
  IF dv >= 1 THEN
    dv = 0
    zFrame = zFrame + 1
    IF zFrame = 8 THEN zFrame = 0
  END IF
END SUB
 
'   ******
SUB Timer2
'   ******
  jv = jv + 1
  IF jv = 50 THEN
    jv = 0
    jx = jx + 1
    IF jx = 21 THEN jx = 0
  END IF
END SUB
 
'   ******
SUB Timer3
'   ******
  Drop = SW_Rnd(0,40)
END SUB
 
'   ******
SUB Timer4
'   ******
  IF Ok = 1 THEN EXIT SUB
  za += .2
  IF za >= 5 THEN
    za = 0
    count = count - 1
    IF count <= 0 THEN count = 0
  END IF
END SUB
 
'   *********
SUB SetExplos(xx, yy, ii)
'   *********
  FOR iDx = 0 TO 39
    IF yBum[iDx] = 0 THEN
      xBum[iDx] = xx
      yBum[iDx] = yy
      iBum[iDx] = ii
      EXIT SUB
    END IF
  NEXT
END SUB
 
'   **********
SUB ShowExplos
'   **********
  FOR iDx = 0 TO 39
  IF iBum[iDx] = 1 THEN
    SW_DrawTile bmap, xBum[iDx], yBum[iDx], 64, 64, zBum[iDx], 1
    vBum[iDx] = vBum[iDx] + 0.1
    IF vBum[iDx] >= 1 THEN
      vBum[iDx] = 0
      zBum[iDx] = zBum[iDx] + 1
    END IF
    IF zBum[iDx] = 8 THEN
      zBum[iDx] = 0
      yBum[iDx] = 0
      iBum[iDx] = 0
      vBum[iDx] = 0
    END IF
  END IF
  NEXT
END SUB
 
'   *********
SUB SetRocket(xx, yy)
'   *********
  FOR iAx = 0 TO 39
  IF yRok[iAx] = 0 THEN
    xRok[iAx] = xx
    yRok[iAx] = yy
    rRok[iAx] = 1
    EXIT SUB
  END IF
  NEXT
END SUB
 
'   **********
SUB ScanRocket
'   **********
  FOR iAx = 0 TO 39
  IF rRok[iAx] = 1 AND yRok[iAx] <= -32 THEN
    rRok[iAx] = 0
    yRok[iAx] = 0
  END IF
  NEXT
END SUB
 
'   **********
SUB ShowRocket
'   **********
  FOR iAx = 0 TO 39
  IF rRok[iAx] = 1 THEN
    SW_DrawTile bmap, xRok[iAx], yRok[iAx], 64, 64, zFrame, 0
    yRok[iAx] = yRok[iAx] - 4
    IF yRok[iAx] = 400 THEN zRak = 0
  END IF
  NEXT
END SUB
 
'   **********
SUB ScanRakete
'   **********
  IF rRak = 5 THEN EXIT SUB
  IF SW_Key(32) AND SW_Key(39) AND zRak = 0 THEN
    SetRocket(xRak, yRak)
    rRak = 1
    zRak = 1
    SW_PlayWav w1
  ELSE IF SW_Key(32) AND SW_Key(37) AND zRak = 0 THEN
    SetRocket(xRak, yRak)
    rRak = 2
    zRak =1
    SW_PlayWav w1
  ELSE IF SW_Key(32) AND zRak = 0 THEN
    SetRocket(xRak, yRak)
    zRak = 1
    SW_PlayWav w1
  ELSE IF SW_Key(39) AND xRak < 736 THEN
    rRak = 1
  ELSE IF SW_Key(37) AND xRak > 0 THEN
    rRak = 2
  ELSE
    rRak = 0
  END IF
END SUB
 
'   **********
SUB ShowRakete
'   **********
  IF rRak = 0 THEN
    SW_DrawTile bmap, xRak, yRak, 64, 64, zFrame, 4
  ELSE IF rRak = 1 THEN
    SW_DrawTile bmap, xRak, yRak, 64, 64, zFrame, 4
    xRak = xRak + 1
  ELSE IF rRak = 2 THEN
    SW_DrawTile bmap, xRak, yRak, 64, 64, zFrame, 4
    xRak = xRak - 1
  END IF
END SUB
 
'   ***************
SUB RocketCollision
'   ***************
  FOR iBx = 0 TO uz
    FOR iCx = 0 TO 39
      IF rRok[iCx] > 0 AND rUfo[iBx] > 0 THEN
        IF CircleCollide(xRok[iCx] + 32, yRok[iCx] + 32, 16, xUfo[iBx] + 32, yUfo[iBx] + 32, 16) = 1 THEN
          SetExplos(xUfo[iBx], yUfo[iBx], 1)
          rRok[iCx] = 0
          yRok[iCx] = 0
          rUfo[iBx] = 0
          yUfo[iBx] = 0
          SW_PlayWav w2
          sc = sc + 25
          EXIT SUB
        END IF
      END IF
    NEXT
  NEXT
END SUB
 
'   ***************
SUB RaketeCollision
'   ***************
  IF Ok = 1 THEN EXIT SUB
  FOR iAx = 0 TO 40
    IF yMeg[iAx] > 0 THEN
      IF CircleCollide(xRak, yRak, 16, xMeg[iAx], yMeg[iAx], 16) = 1 THEN
        SetExplos(xRak, yRak, 1)
        rRak = 5
        Ok = 1
        SW_PlayWav w3
        EXIT SUB
      END IF
    END IF
  NEXT
END SUB
 
'   *******
SUB SetUfos
'   *******
  FOR iAx = 0 TO uz
    xUfo[iAx] = SW_Rnd(16,736)
    yUfo[iAx] = SW_Rnd(16,300)
    rUfo[iAx] = SW_Rnd(1,4)
    zUfo[iAx] = 0
    nUfo[iAX] = 0
  NEXT
END SUB
 
'   ********
SUB ScanUfos
'   ********
  FOR iBx = 0 TO uz
    IF rUfo[iBx] = 1 AND xUfo[iBx] >= 736 THEN
      rUfo[iBx] = 2
    ELSE IF rUfo[iBx] = 2 AND xUfo[iBx] <= 0 THEN
      rUfo[iBx] = 1
    ELSE IF rUfo[iBx] = 3 AND yUfo[iBx] <= 0 THEN
      rUfo[iBx] = 4
    ELSE IF rUfo[iBx] = 4 AND yUfo[iBx] >= 350 THEN
      rUfo[iBx] = 3
    ELSE IF jx = 5 AND rUfo[iBx] = 4 THEN
      rUfo[iBx] = SW_Rnd(1,4)
    ELSE IF jx = 10 AND rUfo[iBx] = 3 THEN
      rUfo[iBx] = SW_Rnd(1,4)
    ELSE IF jx = 15 AND rUfo[iBx] = 2 THEN
      rUfo[iBx] = SW_Rnd(1,4)
    ELSE IF jx = 20 AND rUfo[iBx] = 1 THEN
      rUfo[iBx] = SW_Rnd(1,4)
    END IF
  NEXT
END SUB
 
'   ********
SUB ShowUfos
'   ********
  FOR iBx = 0 TO uz
    IF rUfo[iBx] = 1 THEN
      SW_DrawTile bmap, xUfo[iBx], yUfo[iBx], 64, 64, zFrame, 2
      xUfo[iBx] = xUfo[iBx] + 1
    ELSE IF rUfo[iBx] = 2 THEN
      SW_DrawTile bmap, xUfo[iBx], yUfo[iBx], 64, 64, zFrame, 2
      xUfo[iBx] = xUfo[iBx] - 1
    ELSE IF rUfo[iBx] = 3 THEN
      SW_DrawTile bmap, xUfo[iBx], yUfo[iBx], 64, 64, zFrame, 2
      yUfo[iBx] = yUfo[iBx] - 1
    ELSE IF rUfo[iBx] = 4 THEN
      SW_DrawTile bmap, xUfo[iBx], yUfo[iBx], 64, 64, zFrame, 2
      yUfo[iBx] = yUfo[iBx] + 1
    END IF
  NEXT
END SUB
 
'   *******
SUB SetData
'   *******
  xRak = 384
  yRak = 536
  rRak = 0
  za = 0
  uz = 40
  sc = 0
  Ok = 0
  zFrame = 0
  count = 300
  SetUfos
  FOR iBx = 0 TO 40
    yMeg[iBx] = 0
    xMeg[iBx] = 0
  NEXT
END SUB
 
'   ********
SUB TestUfos
'   ********
  FOR iAx = 0 TO 40
    IF yUfo[iAx] > 0 OR Ok = 1 THEN EXIT SUB
  NEXT
  Ok = 1
  sc += count
END SUB
 
'   ************
SUB ScanUfoBombs
'   ************
  FOR iAx = 0 TO drop STEP 2
    IF rUfo[iAx] > 0 THEN
      IF yMeg[iAx] = 0 THEN
        xMeg[iAx] = xUfo[iAx]
        yMeg[iAx] = yUfo[iAx] + 32
      END IF
    END IF
  NEXT
END SUB
 
'   ********
SUB UfoBombs
'   ********
  FOR iDx = 0 TO 40
    IF yMeg[iDx] > 0 THEN
      IF iDx < 20 THEN
        SW_DrawTile bmap, xMeg[iDx], yMeg[iDx], 64, 64, zFrame, 3
      ELSE IF iDx >= 20 THEN
        SW_DrawTile bmap, xMeg[iDx], yMeg[iDx], 64, 64, zFrame, 3
      END IF
      yMeg[iDx] = yMeg[iDx] + 1
      IF yMeg[iDx] >= 600 THEN yMeg[iDx] = 0
    END IF
  NEXT
END SUB
 
' *******
'  MAIN *
' *******  
 
SW_Window 800, 600, 1
SW_SetFPS 60
SW_SetFont 28, 48, 0, ""
bmap = SW_LoadTile("bmp/bitmap.bmp", 8, 5)
w1 = "bmp/shoot.wav"
w2 = "bmp/explo.wav"
w3 = "bmp/xship.wav"
SW_ShowMouse 0
SetData
 
WHILE SW_Key(27) = 0
  SW_Cls 0
  SW_SetCaption "Frames " & SW_ShowFPS()
  IF Ok = 1 THEN
    SW_SetText 460, 0, "SCORE " & sc, SW_RGB(255,255,255)
  ELSE IF Ok = 0 THEN
    SW_SetText 460, 0, "SCORE " & sc, SW_RGB(255,255,255)
  END IF
  ScanUfos
  ShowUfos
  ScanRocket
  ShowRocket
  ScanRakete
  ShowRakete
  ScanUfoBombs
  UfoBombs
  ShowExplos
  RocketCollision
  RaketeCollision
  TestUfos
  Timer1
  Timer2
  Timer3
  Timer4
  IF Ok = 1 THEN
    SW_SetText 240, 300, "ONCE AGAIN?", SW_RGB(255,255,255)
    SW_SetText 240, 344, "HIT [c] KEY", SW_RGB(255,255,255)
    IF SW_Key(67) THEN SetData
  END IF
  SW_SetText 16, 0, "BONUS " & count, SW_RGB(255,255,255)
  SW_Sync
WEND
SW_Quit
 

JRS · « **Reply #6 on:** March 17, 2013, 07:54:51 AM »

That is what I thought as well looking at the code and being a natural key to use. I only have left and right arrow key functionality. My guess is that your IF statements checking the Key() function for two different values is the problem. (guess)

Code: OxygenBasic

ELSE IF SW_Key(32) AND SW_Key(37) AND zRak = 0 THEN 
 

How can the return of your Key() function be equal to 32 & 37 at the same time?

JRS · « **Reply #7 on:** March 17, 2013, 09:55:02 AM »

Here is the code for the game in ScriptBasic if you want to give it a try and maybe figure out why I only have left and right arrow keyboard support.

I had mentioned this with the SokoMouse game and I see you didn't get the hint. The CPU takes a big hit if you do a SetFps() call in the WHILE/WEND loop. It only needs to be set ONCE to keep the frame rate at the desired value.

FYI If I remark out the SetFps(), SB is runs at 150+ FPS in a XP VirtualBox. (on top of Ubuntu 64)

JRS · « **Reply #8 on:** March 17, 2013, 11:03:14 AM »

Once again, DO NOT use scribaw.exe with anything other than IUP GUI scripts. PLEASE use scriba.exe from the console command line. Make sure the path to the SB bin directory is set and DLLC.dll is in the modules directory.

This updated attachment reflects the changes I made to BS.sbx (main game script) and includes the most recent dllc.dll file.

Update

Like SokoMouse, using SetFPS(60) outside the WHILE/WEND loop and using Sync() rather than Redraw() gives me the best game play. (Frames average around 90 in the title bar) It reduces CPU usage by 75% without changing the anything with the game.

X

JRS · « **Reply #9 on:** March 17, 2013, 01:53:06 PM »

Peter,

I think you will find the root of our problems if you realize all variables return undef until assigned. I had to add zFrame = 0 to SetData as it was calling Simple Windows with it set as undef causing a GPF. If you can look at the code and determine what absolutely must be initialized prior to use we may find the problem. In the O2 version DIMing the arrarys must initialize them to zero.

Quote

Another thing is SW_RAND, dosn't work like Simple Window RND.

SW_Rnd is a wrapper for your Simple Windows API function and used in both SokoMouse and Angry Birds II. The ScriptBasic version of RND() isn't compatible with yours but is a SB keyword and SW_Rnd() is what your random generator function is calling in the games.

John

P.S. Hope you're not living in a Starbucks if you weren't kidding about the house burning down.

JRS · « **Reply #10 on:** March 17, 2013, 03:14:36 PM »

I put the following in the WHILE/WEND loop and it printed fine when pressing the space bar.

Code: [Select]

  IF SW_Key(32) THEN PRINT "Space Key\n"

JRS · « **Reply #11 on:** March 17, 2013, 08:34:19 PM »

Quote

It seems, there is a bug in ScriptBasic! I changed (zFrame = zFrame +1) in (zFrame +=1) and then there was animation!

Your observation made me curious so I wrote a little program to test your theory.

Code: [Select]

a += 1
PRINT "A: ",a,"\n"

b = b + 1
PRINT "B: ",b,"\n"

c = 0
c += 1
PRINT "C: ",c,"\n"

d = 0
d = d + 1
PRINT "D: ",d,"\n"

C:\SB22\test>scriba plusone.sb
A: 1
B: undef
C: 1
D: 1

C:\SB22\test>

It seems your right about there is a different result if referencing an uninitialized variable and then incrementing it. It seems to work correctly either way if the variable is assigned (initialized) before hand.

Thanks for pointing this out!

JRS · « **Reply #12 on:** March 17, 2013, 09:05:05 PM »

Peter,

I was right about the initialization of variables for this game. Add this SUB to the top of the program and call it in Main before starting. Everything seems to be working except using the Windows MM API for playing the wave is causing delays. I'm assuming the Bass call lets the game continue and plays the sound in another thread?

John

Code: OxygenBasic

SUB InitVars
 
  SPLITA STRING(40,"0") BY "" TO xMeg
  SPLITA STRING(40,"0") BY "" TO yMeg
  SPLITA STRING(40,"0") BY "" TO zMeg
  SPLITA STRING(40,"0") BY "" TO xUfo
  SPLITA STRING(40,"0") BY "" TO yUfo
  SPLITA STRING(40,"0") BY "" TO zUfo 
  SPLITA STRING(40,"0") BY "" TO rUfo
  SPLITA STRING(40,"0") BY "" TO iUfo
  SPLITA STRING(40,"0") BY "" TO nUfo
  SPLITA STRING(40,"0") BY "" TO xRok 
  SPLITA STRING(40,"0") BY "" TO yRok 
  SPLITA STRING(40,"0") BY "" TO rRok 
  SPLITA STRING(40,"0") BY "" TO xBum 
  SPLITA STRING(40,"0") BY "" TO yBum
  SPLITA STRING(40,"0") BY "" TO iBum
  SPLITA STRING(40,"0") BY "" TO zBum
  SPLITA STRING(40,"0") BY "" TO vBum
  
  xRak = 0
  yRak = 0
  rRak = 0
  zRak = 0
  iBx = 0
  iDx = 0
  iCx = 0
  iAx = 0
  zFrame = 0
  z1 = 0
  z2 = 0
  z3 = 0
  z4 = 0
  bmap = 0
  w1 = 0
  w2 = 0
  w3 = 0
  s = 0
  y = 0
  sc = 0
  uz = 0
  jx = 0 
  drop = 0
  Ok = 0
  count = 0
  px = 0
  
  jv = 0.0
  zv = 0.0
  dv = 0.0
  za = 0.0
 
END SUB
 

JRS · « **Reply #13 on:** March 17, 2013, 09:43:00 PM »

Peter,

I remarked out the call to the Windows wave API and the game worked as expected. I was even able to clear the screen of birds.

John

X

JRS · « **Reply #14 on:** March 17, 2013, 10:38:38 PM »

ScriptBasic may be doing exactly as its told. There is a difference between incrementing an uninitialized variable and adding 1 to it.

Code: OxygenBasic

a += 1
PRINT "A: ",a,"\n"
 
b = b + 1
PRINT "B: ",b,"\n"
 
c = 0
c += 1
PRINT "C: ",c,"\n"
 
d = 0
d = d + 1
PRINT "D: ",d,"\n"
 
undef u
PRINT "U: ",u + 1,"\n"
 

C:\SB22\test>scriba plusone.sb
A: 1
B: undef
C: 1
D: 1
U: undef

C:\SB22\test>

ScriptBasic defaults to careful but lazy programmer mode as default.

You have the option to tell SB that you want some warning (errors) that you forgot an assignment and how you want SB to react to undef in expressions. Setting Options

Quote from: SB Docs

BASIC languages generally do not require variable declaration to be programmer friendly. ScriptBasic is no exception for compatibility reasons: you can write huge programs without declaring any variable. Although this is possible this is not a good practice. Programmers can easily mistype a variable name and end up getting a new variable with undef value instead of getting compilation error. This may cost a lot of debugging time.

Forcing Variable Declaration

Another cool SB feature is switching between TEXT or BINARY mode on the fly with STDIN/OUT operations.

Switching between binary and text mode

Oxygen Basic

News:

Author Topic: GdiPlus last chance (Read 7873 times)

Peter

GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance

JRS

Re: GdiPlus last chance