Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on December 30, 2020, 08:48:50 pm

Title: An Idea.(update 1)
Post by: Cobalt on December 30, 2020, 08:48:50 pm
Throwing around a Myst or 7thGuest style game idea, but I have no Story idea. working on some of the interface ideas and just wanted to see what people thought of the current look and interaction. There are now 2 objects to interact with in this upload not too hard to find.

Give it a go and let me know if I should continue or what, and any story ideas would be a great help too!
its all mouse interaction, press any key to quit.

Let me know too if you get a half black screen on startup, happens 90% of the time for me and I have to move the window to get it to refresh then all is good.

Code: QB64: [Select]
  1. 'Dark House demo test
  2. 'UniKorn ProDucKions 2020
  3.  
  4. CONST TRUE = -1, FALSE = NOT TRUE
  5.  
  6. DIM SHARED F(5) AS LONG, Mix AS LONG, MouseOver AS LONG, SFX(1) AS LONG, L1 AS LONG
  7. DIM SHARED DoorRT(5) AS LONG, DoorLT(5) AS LONG, DoorRTOpen(5) AS LONG
  8. SCREEN _NEWIMAGE(960, 700, 32)
  9. Mix = _NEWIMAGE(960, 700, 32)
  10. MouseOver = _NEWIMAGE(960, 700, 32)
  11.  
  12. MFI_Loader "DarkHouse.MFI"
  13.  
  14. FOR i%% = 0 TO 5
  15.  _CLEARCOLOR _RGB32(255, 255, 255), F(i%%)
  16.  _CLEARCOLOR _RGB32(255, 255, 255), DoorRT(i%%)
  17.  _CLEARCOLOR _RGB32(255, 255, 255), DoorLT(i%%)
  18.  _CLEARCOLOR _RGB32(255, 255, 255), DoorRTOpen(i%%)
  19. NEXT i%%
  20.  
  24. i%% = 2
  25. _PUTIMAGE (683, 294)-STEP(75, 125), F(0), MouseOver
  26. _PUTIMAGE (815, 304)-STEP(126, 199), DoorRT(0), MouseOver
  27. _PUTIMAGE (23, 304)-STEP(124, 197), DoorLT(0), MouseOver
  28. _SOURCE MouseOver
  29. nul%% = _MOUSEINPUT
  30. _SNDSETPOS SFX(0), 11.8 'echo`y scream
  31. 'scale factors 1.22x by 1.12y
  33.  _PUTIMAGE , L1&, Mix 'load the scene
  34.  
  35.  ' IF MouseTest(_MOUSEX, _MOUSEY) = 64 THEN 'see if the mouse is over the figurine
  36.  SELECT CASE MouseTest(_MOUSEX, _MOUSEY)
  37.   CASE 64 'right side figurine
  38.    j%% = j%% + 1
  39.    IF j%% = 6 THEN i%% = i%% + 1: j%% = 0
  40.    IF i%% = 6 THEN i%% = 2
  41.    _PUTIMAGE (683, 294)-STEP(75, 125), F(i%%), Mix 'play animation
  42.    MouseOverFlag%% = TRUE 'flag the fact that the mouse is over animation
  44.     IF NOT PlaySoundFlag%% THEN _SNDPLAY SFX(0): PlaySoundFlag%% = TRUE
  45.    END IF
  46.   CASE 65 'right side door
  47.    IF NOT OpenDoorFlag%% THEN
  48.     j%% = j%% + 1
  49.     IF j%% = 6 THEN i%% = i%% + 1: j%% = 0
  50.     IF i%% = 6 THEN i%% = 2
  51.     _PUTIMAGE (815, 304)-STEP(126, 199), DoorRT(i%%), Mix 'play animation
  52.     MouseOverFlag%% = TRUE 'flag the fact that the mouse is over animation
  53.    ELSE 'play door opening animation
  54.     j%% = j%% + 1
  55.     IF j%% = 25 THEN i%% = i%% + 1: j%% = 0
  56.     IF i%% = 6 THEN i%% = 2: OpenDoorFlag%% = FALSE
  57.     _PUTIMAGE (815, 304)-STEP(126, 199), DoorRTOpen(i%%), Mix 'play animation
  58.     MouseOverFlag%% = TRUE 'flag the fact that the mouse is over animation
  59.    END IF
  60.    IF _MOUSEBUTTON(1) AND (NOT OpenDoorFlag%%) THEN
  61.     OpenDoorFlag%% = TRUE: j%% = 0: i%% = 1
  62.     IF NOT PlaySoundFlag%% THEN _SNDPLAY SFX(1): PlaySoundFlag%% = TRUE
  63.    END IF
  64.   CASE 66 'left side door
  65.    j%% = j%% + 1
  66.    IF j%% = 6 THEN i%% = i%% + 1: j%% = 0
  67.    IF i%% = 6 THEN i%% = 2
  68.    _PUTIMAGE (0, 306)-STEP(124, 197), DoorLT(i%%), Mix 'play animation
  69.    MouseOverFlag%% = TRUE 'flag the fact that the mouse is over animation
  71.    Mouseovereflag%% = FALSE 'disable flag for mouse over
  72.  END SELECT ' END IF
  74.  
  75.  ' IF MouseOverFlag%% AND _MOUSEBUTTON(1) THEN
  76.  ' IF NOT PlaySoundFlag%% THEN _SNDPLAY SFX(0): PlaySoundFlag%% = TRUE
  77.  ' END IF
  78.  
  79.  IF PlaySoundFlag%% THEN
  80.   IF _SNDGETPOS(SFX(0)) >= 14.9 THEN _SNDSTOP SFX(0): _SNDSETPOS SFX(0), 11.8: PlaySoundFlag%% = FALSE
  81.   IF _SNDGETPOS(SFX(1)) >= 4.4 THEN _SNDSTOP SFX(1): _SNDSETPOS SFX(1), 0: PlaySoundFlag%% = FALSE
  83.  
  84.  _LIMIT 30
  85.  DO: nul%% = _MOUSEINPUT: LOOP WHILE nul%%
  87.  
  88. FUNCTION MouseTest~%% (x%, y%)
  89.  MouseTest = _RED32(POINT(x%, y%))
  91.  
  92. SUB MFI_Loader (FN$)
  93.  DIM Size(128) AS LONG, FOffset(128) AS LONG
  95.  GET #1, , c~%% 'retrieve number of files
  96.  FOR I~%% = 1 TO c~%%
  97.   GET #1, , FOffset(I~%%)
  98.   GET #1, , Size(I~%%)
  99.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  100.  NEXT I~%%
  101.  
  102.  
  103.  L1 = LoadGFX(FOffset(1), Size(1)) '_LOADIMAGE("scenes\haunted_house_by_arty_stock.png", 32)
  104.  FOR i%% = 0 TO 5 'loading figurine
  105.   F(i%%) = LoadGFX(FOffset(2 + i%%), Size(2 + i%%)) '_LOADIMAGE("scenes\animations\Rt_Stair_figure_000.bmp", 32)
  106.  NEXT i%%
  107.  SFX(0) = LoadSFX(FOffset(8), Size(8)) '_SNDOPEN("AudioFX\Human\Female\Screams\Screams.wav")
  108.  FOR i%% = 0 TO 5 'loading Right side Door
  109.   DoorRT(i%%) = LoadGFX(FOffset(9 + i%%), Size(9 + i%%)) '_LOADIMAGE("scenes\animations\Rt_Stair_figure_000.bmp", 32)
  110.  NEXT i%%
  111.  FOR i%% = 0 TO 5 'loading left side Door
  112.   DoorLT(i%%) = LoadGFX(FOffset(15 + i%%), Size(15 + i%%)) '_LOADIMAGE("scenes\animations\Rt_Stair_figure_000.bmp", 32)
  113.  NEXT i%%
  114.  FOR i%% = 1 TO 5 'loading Right side Door opening
  115.   DoorRTOpen(i%%) = LoadGFX(FOffset(20 + i%%), Size(20 + i%%)) '_LOADIMAGE("scenes\animations\Rt_Stair_figure_000.bmp", 32)
  116.  NEXT i%%
  117.  SFX(1) = LoadSFX(FOffset(26), Size(26)) 'door opening creak
  118.  
  119.  CLOSE #1
  120.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  122.  
  123. FUNCTION LoadGFX& (Foff&, Size&)
  124.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  125.  OPEN "temp.dat" FOR BINARY AS #3
  126.  dat$ = SPACE$(Size&)
  127.  GET #1, Foff&, dat$
  128.  PUT #3, , dat$
  129.  CLOSE #3
  130.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  132.  
  133. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  134.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  135.  OPEN "temp.dat" FOR BINARY AS #3
  136.  dat$ = SPACE$(Size&)
  137.  GET #1, Foff&, dat$
  138.  PUT #3, , dat$
  139.  CLOSE #3
  140.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  142.  
  143. FUNCTION LoadSFX& (Foff&, Size&)
  144.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  145.  OPEN "temp.dat" FOR BINARY AS #3
  146.  dat$ = SPACE$(Size&)
  147.  GET #1, Foff&, dat$
  148.  PUT #3, , dat$
  149.  CLOSE #3
  150.  LoadSFX& = _SNDOPEN("temp.dat")
  152.  
Title: Re: An Idea.
Post by: Dav on December 30, 2020, 09:26:38 pm
Cool!  I say go for it.  I love games like that.  Started a few myself, but never finished one.

Looks fine to me so far.  The screams made my wife peek in the room to see what I was looking at.

- Dav
Title: Re: An Idea.(update 1)
Post by: johnno56 on January 01, 2021, 01:24:37 am
Very cool demo.... As Oliver was quoted as having said, "May I have more?"

Fortunately, I was wearing headphones, so 'my' wife was oblivious to the scream... lol

J
Title: Re: An Idea.(update 1)
Post by: Petr on January 01, 2021, 11:21:51 am
@Cobalt

Be sure to keep going, it's very nice. I don't know much about this type of game, but I like what you started.
Text Only | Text with Attachments