19 replies to this topic

[dboyrecords]

File Name: Caveman (Gottlieb 1982)

File Submitter: dboyrecords

File Submitted: 26 Feb 2016

File Category: VP 9.x Cabinet Tables (FULL SCREEN)

Author(s): dboyrecords
STAT
Destruk
Manufacturer: Gottlieb
Year: 1982
Permission to MOD?: Yes, without approval

New images from Google and eBay. Added some transparency and GI. Ball rolling from STAT. Testing and tweaking by Kiwi.
 
Joystick direction is setup to use flippers and magnasave.
 
I updated DB2S too...

Click here to download this file

[ttrenkner]

I really like your improvements, but for some reason the ball moves through the transparent ramps as if they were coated with molasses. Am I missing something?

[rxd]

I really like your improvements, but for some reason the ball moves through the transparent ramps as if they were coated with molasses. Am I missing something?

Lol, so it's not just me. I didn't want to say anything about it because I usually end up being wrong...

[dboyrecords]

Doesn't do it for me, I must have uploaded wrong version, I will update soon.

[ttrenkner]

Unfortunately, I'm still getting the same problem with the transparencies.

[dboyrecords]

Wha??? Hmmm...I'll check with Kiwi.

[dboyrecords]

Try the latest, I think we got it (thanks to Kiwi as always)!

[ttrenkner]

Works great now! Thanks for all your work on this.

[Sir Cheddar]

Thanks for the improved version. Small suggestion, this way it works with both non-default key settings and joystick:

Sub ZZZ_KeyDown(ByVal keycode)
if keycode = keyJoyDown then Controller.Switch(swJoyDown) = true
if keycode = keyJoyUp then Controller.Switch(swJoyUp) = true
if keycode = keyJoyLeft then Controller.Switch(swJoyLeft) = true
if keycode = keyJoyRight then Controller.Switch(swJoyRight) = true
if keycode = LeftMagnaSave then Controller.Switch(swJoyDown) = true
if keycode = RightMagnaSave then Controller.Switch(swJoyUp) = true
if keycode = LeftFlipperKey then Controller.Switch(swJoyLeft) = true
if keycode = RightFlipperKey then Controller.Switch(swJoyRight) = true
	If KeyCode=PlungerKey Then Plunger.Pullback
	If vpmKeyDown(KeyCode) Then Exit Sub
End Sub
Sub ZZZ_KeyUp(ByVal keycode)
if keycode = keyJoyDown then Controller.Switch(swJoyDown) = false
if keycode = keyJoyUp then Controller.Switch(swJoyUp) = false
if keycode = keyJoyLeft then Controller.Switch(swJoyLeft) = false
if keycode = keyJoyRight then Controller.Switch(swJoyRight) = false
if keycode = LeftMagnaSave then Controller.Switch(swJoyDown) = false
if keycode = RightMagnaSave then Controller.Switch(swJoyUp) = false
if keycode = LeftFlipperKey then Controller.Switch(swJoyLeft) = false
if keycode = RightFlipperKey then Controller.Switch(swJoyRight) = false
	If KeyCode=PlungerKey Then Plunger.Fire:PlaySound "Plunger"
	If vpmKeyUp(KeyCode) Then Exit Sub
End Sub

Edited by Sir Cheddar, 29 March 2016 - 12:54 AM.

[allknowing2012]

Do we drag the dmd down to the playfield for this game? Does it show the score digits along with pacman screen.  Care to post a pic of your setup?

[dboyrecords]

Very cool, thanks! All contributions welcome here! Update coming soon...

Do we drag the dmd down to the playfield for this game? Does it show the score digits along with pacman screen.  Care to post a pic of your setup?

Yup, drag it to pf, above bumpers.

[STAT]

Cheddar, why you dont use the "or" ?

Edited by STAT, 29 March 2016 - 07:24 AM.

[Sir Cheddar]

Because I can!

 

Don't mess with my c&p skills!

[dboyrecords]

You're both pretty.
Now, which should I use???

[Sir Cheddar]

The "New & Improved now with 20% less Half-Ass" version of course.

Sub ZZZ_KeyDown(ByVal keycode)
	if keycode = keyJoyDown  or keycode = LeftMagnaSave then Controller.Switch(swJoyDown) = true
	if keycode = keyJoyUp    or keycode = RightMagnaSave then Controller.Switch(swJoyUp) = true
	if keycode = keyJoyLeft  or keycode = LeftFlipperKey then Controller.Switch(swJoyLeft) = true
	if keycode = keyJoyRight or keycode = RightFlipperKey then Controller.Switch(swJoyRight) = true
	If KeyCode=PlungerKey Then Plunger.Pullback
	If vpmKeyDown(KeyCode) Then Exit Sub
End Sub
Sub ZZZ_KeyUp(ByVal keycode)
	if keycode = keyJoyDown  or keycode = LeftMagnaSave then Controller.Switch(swJoyDown) = false
	if keycode = keyJoyUp    or keycode = RightMagnaSave then Controller.Switch(swJoyUp) = false
	if keycode = keyJoyLeft  or keycode = LeftFlipperKey then Controller.Switch(swJoyLeft) = false
	if keycode = keyJoyRight or keycode = RightFlipperKey then Controller.Switch(swJoyRight) = false
	If KeyCode=PlungerKey Then Plunger.Fire:PlaySound "Plunger"
	If vpmKeyUp(KeyCode) Then Exit Sub
End Sub

[dboyrecords]

Team-work (clap, clap).

Thanks!

[STAT]

What about a "Select Case" Version ? lol ... no, perfect now

 

But an interest Thing, what need more Nano Seconds, 8 Ifs only or 4 Ifs with "or" ...

Edited by STAT, 29 March 2016 - 03:00 PM.

[dboyrecords]

But an interest Thing, what need more Nano Seconds, 8 Ifs only or 4 Ifs with "or" ...

 

Wha?

[Sir Cheddar]

What about a "Select Case" Version ? lol ... no, perfect now

 

But an interest Thing, what need more Nano Seconds, 8 Ifs only or 4 Ifs with "or" ...

No idea. I guess it depends on whether an African or European swallow carries it.

[STAT]

Thats from "Quest for the Holy Grail"