Qbasicnews.com › Qbasic "like" compilers/interpreters › FB Discussion & Programming Help › FB Projects v
32Bowling For John

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
32Bowling For John
j2krei08 Offline
Member
***
Posts: 245
Threads: 48
Joined: Dec 2004
#26
02-13-2006, 11:14 PM
That's kinda what I did,
Code:
'$include:'fbgfx.bi'
DECLARE FUNCTION Font (spritex,spritey,text AS STRING,num AS INTEGER)
DECLARE FUNCTION PlaceSprite (spritex,spritey,sprite AS STRING,mode,alpha_level)

DIM SHARED Aboutbtn     (8780)      AS INTEGER
DIM SHARED ball_roll    (5140)      AS INTEGER
DIM SHARED big_ball     (4100)      AS INTEGER
DIM SHARED Chooseball   (223129)    AS INTEGER
DIM SHARED Font_letter  (12264)     AS INTEGER
DIM SHARED Hiscrbtn     (21392)     AS INTEGER
DIM SHARED Load         (37644)     AS INTEGER
DIM SHARED Mainback     (307204)    AS INTEGER
DIM SHARED Mouse        (1716)      AS INTEGER
DIM SHARED Menubuttons  (18544)     AS INTEGER
DIM SHARED Optinbtn     (14408)     AS INTEGER
DIM SHARED Pins         (2168)      AS INTEGER
DIM SHARED Radiumv      (70744)     AS INTEGER
DIM SHARED Startbtn     (4216)      AS INTEGER
DIM SHARED x            (260)       AS INTEGER
DIM SHARED ball_color

SCREEN 18,16,2,GFX_FULLSCREEN
SCREENSET 1,0
setmouse 320,240,0
SLEEP 1000
OPEN "Data\Text\Highscores.dat" FOR RANDOM AS #1
BLOAD "DATA\Images\Mainmenu.bmp",VARPTR(Mainback(0))
GET (0,0)-(640,480),Mainback(0)

BLOAD "DATA\Images\Font.bmp",0
   l_num = -1
   FOR I = 0 TO 111 STEP 18
      FOR J = 0 TO 107 STEP 16
         l_num = l_num + 1
         GET(J,I)-(J + 15, I + 17),Font_letter(292 * l_num)
      NEXT J
   NEXT I
   CLS
BLOAD "DATA\Images\menu_buttons.bmp", 0
   GET (0,0)-(161,25),  Menubuttons(0)
   GET (0,27)-(112,60), Menubuttons(4216)
   GET (0,62)-(176,95), Menubuttons(8062)
   GET (0,97)-(89,122), Menubuttons(14084)
   GET (0,124)-(63,156),Menubuttons(16200)
   CLS
BLOAD "DATA\Images\ball.bmp",0
   GET (0,0)-(31,31),ball_roll(0)
   GET (0,32)-(31,63),ball_roll(1029)
   GET (0,64)-(31,95),ball_roll(2057)
   GET (0,96)-(31,127),ball_roll(3085)
   GET (32,64)-(63,95),ball_roll(4112)
   GET (32,0)-(96,64),big_ball(0)
   CLS
BLOAD "DATA\Images\mouse.bmp",0
   GET(0,0)-(16,24),Mouse(0)
   GET(0,25)-(18,49),Mouse(454)
   GET(17,0)-(33,24),Mouse(908)
   GET(18,25)-(33,49),Mouse(1312)
   CLS
BLOAD "DATA\Images\Radiumv.bmp",0
   GET (0,0)-(539,130),Radiumv(0)
   CLS
BLOAD "DATA\Images\load.bmp",0
   GET (256,0)-(512,48),Load(0)
   GET (0,0)-(255,48),Load(12292)
   GET (0,49)-(256,99),Load(25352)
   CLS
BLOAD "DATA\Images\Pins.bmp"
   GET (0,0)-(19,58),Pins(0)
   GET (21,0)-(40,38),Pins(1160)
   GET (21,40)-(30,58),Pins(1890)
   GET (31,46)-(40,58),Pins(2056)
BLOAD "DATA\Images\Chooseball.bmp"
   GET (0,0)-(625,357),Chooseball(0)
CLS

FUNCTION Font (spritex,spritey,text AS STRING,num AS INTEGER)
   l_next = 0
   IF num > -1 THEN text = STR$(num)
   text = UCASE$(text)
   FOR a = 1 TO LEN(text)
      IF MID$(text,a,1) = " " THEN l_num = -1
      IF MID$(text,a,1) = "A" THEN l_num = 0
      IF MID$(text,a,1) = "B" THEN l_num = 1
      IF MID$(text,a,1) = "C" THEN l_num = 2
      IF MID$(text,a,1) = "D" THEN l_num = 3
      IF MID$(text,a,1) = "E" THEN l_num = 4
      IF MID$(text,a,1) = "F" THEN l_num = 5
      IF MID$(text,a,1) = "G" THEN l_num = 6
      IF MID$(text,a,1) = "H" THEN l_num = 7
      IF MID$(text,a,1) = "I" THEN l_num = 8
      IF MID$(text,a,1) = "J" THEN l_num = 9
      IF MID$(text,a,1) = "K" THEN l_num = 10
      IF MID$(text,a,1) = "L" THEN l_num = 11
      IF MID$(text,a,1) = "M" THEN l_num = 12
      IF MID$(text,a,1) = "N" THEN l_num = 13
      IF MID$(text,a,1) = "O" THEN l_num = 14
      IF MID$(text,a,1) = "P" THEN l_num = 15
      IF MID$(text,a,1) = "Q" THEN l_num = 16
      IF MID$(text,a,1) = "R" THEN l_num = 17
      IF MID$(text,a,1) = "S" THEN l_num = 18
      IF MID$(text,a,1) = "T" THEN l_num = 19
      IF MID$(text,a,1) = "U" THEN l_num = 20
      IF MID$(text,a,1) = "V" THEN l_num = 21
      IF MID$(text,a,1) = "W" THEN l_num = 22
      IF MID$(text,a,1) = "X" THEN l_num = 23
      IF MID$(text,a,1) = "Y" THEN l_num = 24
      IF MID$(text,a,1) = "Z" THEN l_num = 25
      IF MID$(text,a,1) = "0" THEN l_num = 26
      IF MID$(text,a,1) = "1" THEN l_num = 27
      IF MID$(text,a,1) = "2" THEN l_num = 28
      IF MID$(text,a,1) = "3" THEN l_num = 29
      IF MID$(text,a,1) = "4" THEN l_num = 30
      IF MID$(text,a,1) = "5" THEN l_num = 31
      IF MID$(text,a,1) = "6" THEN l_num = 32
      IF MID$(text,a,1) = "7" THEN l_num = 33
      IF MID$(text,a,1) = "8" THEN l_num = 34
      IF MID$(text,a,1) = "9" THEN l_num = 35
      IF MID$(text,a,1) = "!" THEN l_num = 36
      IF MID$(text,a,1) = "?" THEN l_num = 37
      IF MID$(text,a,1) = "." THEN l_num = 38
      IF MID$(text,a,1) = "@" THEN l_num = 39
      IF MID$(text,a,1) = "," THEN l_num = 40
      IF MID$(text,a,1) = "_" THEN l_num = 41
      IF l_num >= 0 THEN PUT(spritex + l_next,spritey),Font_letter(292 * l_num),TRANS
      FOR I = 27 TO 35
         IF l_num = I THEN l_next = l_next - 3
      NEXT I
      IF l_num = 8 OR l_num = 9 OR l_num = 18 THEN l_next = l_next - 4
      l_next = l_next + 14
   NEXT
END FUNCTION

FUNCTION PlaceSprite (spritex,spritey,sprite AS STRING,mode,alpha_level)

   sprite$ = LCASE$(sprite$)
   IF mode = 0 THEN 'PSET Only
      IF sprite$ = "Chooseball screen" THEN PUT(spritex,spritey),Chooseball(0)
   END IF
  
   IF mode = 1 THEN  'Trans Only
      IF sprite$ = "big ball" THEN
         PUT(spritex,spritey),big_ball(0),TRANS
         PAINT(spritex + 32,spritey + 32),ball_color,&hC0C0C0
      END IF
      IF sprite$ = "startbtn" THEN PUT(spritex,spritey),Menubuttons(0),TRANS
      IF sprite$ = "optinbtn" THEN PUT(spritex,spritey),Menubuttons(4216),TRANS
      IF sprite$ = "hiscrbtn" THEN PUT(spritex,spritey),Menubuttons(8062),TRANS
      IF sprite$ = "aboutbtn" THEN PUT(spritex,spritey),Menubuttons(14084), TRANS
      IF sprite$ = "quitsbtn" THEN PUT(spritex,spritey),Menubuttons(16200), TRANS
      
      IF sprite$ = "load 1" THEN PUT(spritex,spritey),Load(0),TRANS
      IF sprite$ = "load 2" THEN PUT(spritex,spritey),Load(12292),TRANS
      IF sprite$ = "load 3" THEN PUT(spritex,spritey),Load(25352),TRANS
   END IF
  
   IF mode = 2 THEN  'Alpha Only
      IF sprite$ = "radiumv" THEN PUT(spritex,spritey),Radiumv(0),ALPHA,alpha_level
      IF sprite$ = "mainmenu" THEN PUT(0,0),Mainback(0),ALPHA,alpha_level
   END IF

   IF mode = 3 THEN  'Trans with Alpha Shadow
      IF MID$(sprite$,1,8) = "ballroll" THEN
         IF MID$(sprite$,10,1) = "1" THEN PUT(spritex,spritey),ball_roll(0),TRANS
         IF MID$(sprite$,10,1) = "2" THEN PUT(spritex,spritey),ball_roll(1029),TRANS
         IF MID$(sprite$,10,1) = "3" THEN PUT(spritex,spritey),ball_roll(2057),TRANS
         PAINT(spritex + 16,spritey + 16),ball_color,&hC0C0C0
         PUT(spritex,spritey),ball_roll(4112),ALPHA,128
      END IF
      
      IF MID$(sprite$,1,5) = "mouse" THEN
         IF MID$(sprite$,7,1) = "1" THEN
            PUT(spritex,spritey),Mouse(908),ALPHA,180
            PUT(spritex,spritey),Mouse(0),TRANS
         END IF
         IF MID$(sprite$,7,1) = "2" THEN
            PUT(spritex+3,spritey),Mouse(1312),ALPHA,180
            PUT(spritex,spritey),Mouse(454),TRANS
         END IF
      END IF
      
      IF MID$(sprite$,1,3) = "pin" THEN
         IF MID$(sprite$,5) = "1" THEN
            PUT(spritex,spritey),PINS(0),TRANS
            PUT(spritex+16,spritey+40),PINS(1890),ALPHA,128
         END IF
         IF MID$(sprite$,5) = "2" THEN
            PUT(spritex,spritey),PINS(1160),TRANS
            PUT(spritex+16,spritey+26),PINS(2056),ALPHA,128
         END IF
      END IF
   END IF
  
END FUNCTION

Part one is text font and 2 is sprites. I should convert to point, though.
Website Find
Reply


Messages In This Thread
32Bowling For John - by j2krei08 - 07-16-2005, 02:53 AM
32Bowling For John - by j2krei08 - 08-21-2005, 06:42 AM
32Bowling For John - by speedlemon - 08-21-2005, 07:47 AM
32Bowling For John - by j2krei08 - 09-07-2005, 12:55 AM
32Bowling For John - by j2krei08 - 11-16-2005, 11:21 PM
32Bowling For John - by marzecTM - 11-17-2005, 12:12 AM
32Bowling For John - by NecrosIhsan - 11-17-2005, 02:15 AM
32Bowling For John - by j2krei08 - 11-18-2005, 12:59 AM
32Bowling For John - by SSC - 11-18-2005, 03:15 PM
32Bowling For John - by j2krei08 - 11-18-2005, 11:25 PM
32Bowling For John - by MystikShadows - 11-19-2005, 12:46 AM
32Bowling For John - by j2krei08 - 11-21-2005, 10:34 PM
32Bowling For John - by j2krei08 - 12-09-2005, 11:25 PM
32Bowling For John - by speedlemon - 12-10-2005, 05:57 AM
32Bowling For John - by j2krei08 - 12-10-2005, 11:34 PM
32Bowling For John - by j2krei08 - 12-15-2005, 11:26 PM
32Bowling For John - by Zack - 12-16-2005, 04:54 AM
32Bowling For John - by Josiah Tobin - 12-16-2005, 04:55 AM
32Bowling For John - by j2krei08 - 12-16-2005, 09:47 PM
32Bowling For John - by j2krei08 - 12-21-2005, 10:01 PM
32Bowling For John - by j2krei08 - 01-10-2006, 10:47 PM
32Bowling For John - by j2krei08 - 02-01-2006, 01:12 AM
32Bowling For John - by Z!re - 02-01-2006, 01:01 PM
32Bowling For John - by j2krei08 - 02-03-2006, 02:56 AM
32Bowling For John - by TheDarkJay - 02-03-2006, 09:42 PM
32Bowling For John - by j2krei08 - 02-13-2006, 11:14 PM
32Bowling For John - by na_th_an - 02-14-2006, 03:48 PM
32Bowling For John - by j2krei08 - 02-14-2006, 08:05 PM
32Bowling For John - by j2krei08 - 03-28-2006, 02:59 AM
32Bowling For John - by Torahteen - 03-28-2006, 03:09 AM
32Bowling For John - by j2krei08 - 03-28-2006, 03:26 AM
32Bowling For John - by j2krei08 - 03-28-2006, 09:31 PM
32Bowling For John - by RADIUM-V Interactive - 05-10-2006, 12:46 AM
32Bowling For John - by Mr Match - 05-10-2006, 04:14 AM
32Bowling For John - by RADIUM-V Interactive - 05-11-2006, 08:30 PM

Forum Jump:


Users browsing this thread: 1 Guest(s)