15 replies to this topic

[balater]

File Name: Punk (Gottlieb 1982)

File Submitter: balater

File Submitted: 03 Apr 2019

File Category: VPX/VPinMAME Recreations

Author(s): balater
32assassin
Mfuegemann
roccodimarco
arngrim
Manufacturer: Gottlieb
Year: 1982
Permission to MOD?: Yes, without approval

Table created in part on the basis of Devil's Dare VPX and Punk VP9. And a big thank you to all the authors of sources taken here and there on the net.

Click here to download this file

[STAT]

Thanks, Scoty released another Version some Days ago: https://vpinball.com...-gottlieb-1982/

[xenonph]

I was wondering if this was scottys or not.

Now I will download!!

I thought it was Scottys version, and maybe he had a different screen name here.

Thanks for your contribution balater!!

Carry on.

[roccodimarco]

When you grab scotty's go to the comments.  I have updated the table a little bit! 

[Noah Fentz]

So, I'm a little confused. Is this a mod? Is it authorized?

Does that even matter anymore? Lol

[balater]

 All tables released by me are free to mod. 

[Slydog43]

I think Noah was asking if you balater got permission to make this table

[roccodimarco]

From what I gather.  This was my re draw from vp9, and maybe a devildare vpx to make this table? I'm not too sure, I do know the artwork was mine and not scotty's.  Scotty did use my redraw to make a hd version.  I don't care if anyone uses my stuff, but I can't speak for others lol. 

[Pinballman]

Score displays not working - is there a trick or something to display? Thanks.

[Redwings13]

I just updated to the latest version and noticed I have no table sound but I have backglass sound. Please help

[Greynurse]

Score displays not working - is there a trick or something to display? Thanks.

No.. Changing Hidden=0 on line 166 will display the Rom DMD score, but I think you are referring to the Led scoring lights on the back glass in DT mode. These leds are not scripted. Why is that? I'm not skilled enough to write the script to make them work, but perhaps other members would like to provide? Balatar did say it was OK to mod. It appears that subsequent versions (VR type) has the same omission in the script.

 

Cheers,

Nursie.

Edited by Greynurse, 27 February 2022 - 12:15 PM.

[kiwi]

Here are the various examples for creating segment displays.

https://www.vpforums...=1916#entry9071

[Greynurse]

Here are the various examples for creating segment displays.

https://www.vpforums...=1916#entry9071

That doesn't answer the question. To be more specific, there are 392 lights placed on the back glass/POV image. These would normally be lit to indicate scores, credits, ball in play, etc. But none of those lights are scripted to work as they should. If you choose to hide the DMD in single screen desktop mode, then you cannot see your score, ball in play, etc. I'm such such a script exists, but I can't remember what tables employed it.

[wario14nd]

Seems like the desktop backglass lights are working.

 

 

Starts at line 466

'**********************************************************************************************************
' Backglass Light Displays
'**********************************************************************************************************

Dim Digits(44)
Digits(0)=Array(a00,a01,a02,a03,a04,a05,a06,a07,a08)
Digits(1)=Array(a10,a11,a12,a13,a14,a15,a16,a17,a18)
Digits(2)=Array(a20,a21,a22,a23,a24,a25,a26,a27,a28)
Digits(3)=Array(a30,a31,a32,a33,a34,a35,a36,a37,a38)
Digits(4)=Array(a40,a41,a42,a43,a44,a45,a46,a47,a48)
Digits(5)=Array(a50,a51,a52,a53,a54,a55,a56,a57,a58)
Digits(6)=Array(b00,b01,b02,b03,b04,b05,b06,b07,b08)

Digits(7)=Array(b10,b11,b12,b13,b14,b15,b16,b17,b18)
Digits(8)=Array(b20,b21,b22,b23,b24,b25,b26,b27,b28)
Digits(9)=Array(b30,b31,b32,b33,b34,b35,b36,b37,b38)
Digits(10)=Array(b40,b41,b42,b43,b44,b45,b46,b47,b48)
Digits(11)=Array(b50,b51,b52,b53,b54,b55,b56,b57,b58)
Digits(12)=Array(c00,c01,c02,c03,c04,c05,c06,c07,c08)
Digits(13)=Array(c10,c11,c12,c13,c14,c15,c16,c17,c18)

Digits(14)=Array(c20,c21,c22,c23,c24,c25,c26,c27,c28)
Digits(15)=Array(c30,c31,c32,c33,c34,c35,c36,c37,c38)
Digits(16)=Array(c40,c41,c42,c43,c44,c45,c46,c47,c48)
Digits(17)=Array(c50,c51,c52,c53,c54,c55,c56,c57,c58)
Digits(18)=Array(d00,d01,d02,d03,d04,d05,d06,d07,d08)
Digits(19)=Array(d10,d11,d12,d13,d14,d15,d16,d17,d18)
Digits(20)=Array(d20,d21,d22,d23,d24,d25,d26,d27,d28)

Digits(21)=Array(d30,d31,d32,d33,d34,d35,d36,d37,d38)
Digits(22)=Array(d40,d41,d42,d43,d44,d45,d46,d47,d48)
Digits(23)=Array(d50,d51,d52,d53,d54,d55,d56,d57,d58)
Digits(24)=Array(e00,e01,e02,e03,e04,e05,e06,e07,e08)
Digits(25)=Array(e10,e11,e12,e13,e14,e15,e16,e17,e18)
Digits(26)=Array(f00,f01,f02,f03,f04,f05,f06,f07,f08)
Digits(27)=Array(f10,f11,f12,f13,f14,f15,f16,f17,f18)


Digits(28) = Array(e2,e3,e7,e4,e5,e1,e6,e23)
Digits(29) = Array(e9,e17,e22,e19,e20,e8,e21,e24)
Digits(30) = Array(f2,f3,f7,f4,f5,f1,f6,f23)
Digits(31) = Array(f9,f17,f22,f19,f20,f8,f21,f24)


'**********************************************************************************************************
' Backglass Light Displays
'**********************************************************************************************************
Sub DisplayTimer_Timer
    Dim ChgLED,ii,num,chg,stat,obj
    ChgLed = Controller.ChangedLEDs(&Hffffffff, &Hffffffff)
If Not IsEmpty(ChgLED) Then
    
        For ii = 0 To UBound(chgLED)
            num = chgLED(ii, 0) : chg = chgLED(ii, 1) : stat = chgLED(ii, 2)
            if (num < 44) then
                For Each obj In Digits(num)
                    If chg And 1 Then obj.State = stat And 1
                    chg = chg\2 : stat = stat\2
                Next
            else
                'if char(stat) > "" then msg(num) = char(stat)
            end if
        next
    
end if
Flasheron.visible=1
Flasher1.visible=light1.state
Flasher11.visible=light11.state
Flasher3.visible=light3.state
Flasher10.visible=light10.state
    if light0.state = 1 then
        Flasher12.visible=1
        Flasheri12.visible=0
    else
        Flasheri12.visible=1
        Flasher12.visible=0
    end If
End Sub


'**********************************************************************************************************
'**********************************************************************************************************

[Greynurse]

@wario14nd

 

Interesting. It does kind of work, but there are some differences in your table it would seem. I have a lot of LEDs in the script ending in 7, but the corresponding LED's are not in the array. Plus, I have no flashers on my table. Still, it's a start and thank you.

 

Cheers,

 

Nursey

[Greynurse]

OK,
Using wario14nd's script, I cleaned out some of the scoring light elements (the vertical ones in the middle of each segment) and matched the digit numbers in the script to the light numbers. Also, there are no flashers on this table to make use of the flasher part of wario14nd's script, So, to answer Pinballman's question, to run the scoring on the DT backglass, my updated script looks like this, which I have inserted at line 466;

 

'**********************************************************************************************************

' Backglass Light Displays

'**********************************************************************************************************

 

Dim Digits(31)

Digits(0)=Array(a00,a01,a02,a03,a04,a05,a06)

Digits(1)=Array(a10,a11,a12,a13,a14,a15,a16)

Digits(2)=Array(a20,a21,a22,a23,a24,a25,a26)

Digits(3)=Array(a30,a31,a32,a33,a34,a35,a36)

Digits(4)=Array(a40,a41,a42,a43,a44,a45,a46)

Digits(5)=Array(a50,a51,a52,a53,a54,a55,a56)

Digits(6)=Array(b00,b01,b02,b03,b04,b05,b06)

 

Digits(7)=Array(b10,b11,b12,b13,b14,b15,b16)

Digits(8)=Array(b20,b21,b22,b23,b24,b25,b26)

Digits(9)=Array(b30,b31,b32,b33,b34,b35,b36)

Digits(10)=Array(b40,b41,b42,b43,b44,b45,b46)

Digits(11)=Array(b50,b51,b52,b53,b54,b55,b56)

Digits(12)=Array(c00,c01,c02,c03,c04,c05,c06)

Digits(13)=Array(c10,c11,c12,c13,c14,c15,c16)

 

Digits(14)=Array(c20,c21,c22,c23,c24,c25,c26)

Digits(15)=Array(c30,c31,c32,c33,c34,c35,c36)

Digits(16)=Array(c40,c41,c42,c43,c44,c45,c46)

Digits(17)=Array(c50,c51,c52,c53,c54,c55,c56)

Digits(18)=Array(d00,d01,d02,d03,d04,d05,d06)

Digits(19)=Array(d10,d11,d12,d13,d14,d15,d16)

Digits(20)=Array(d20,d21,d22,d23,d24,d25,d26)

 

Digits(21)=Array(d30,d31,d32,d33,d34,d35,d36)

Digits(22)=Array(d40,d41,d42,d43,d44,d45,d46)

Digits(23)=Array(d50,d51,d52,d53,d54,d55,d56)

Digits(24)=Array(e00,e01,e02,e03,e04,e05,e06)

Digits(25)=Array(e10,e11,e12,e13,e14,e15,e16)

Digits(26)=Array(f00,f01,f02,f03,f04,f05,f06)

Digits(27)=Array(f10,f11,f12,f13,f14,f15,f16)

 

 

Digits(28) = Array(e2,e3,e7,e4,e5,e1,e6)

Digits(29) = Array(e9,e17,e22,e19,e20,e8,e21)

Digits(30) = Array(f2,f3,f7,f4,f5,f1,f6)

Digits(31) = Array(f9,f17,f22,f19,f20,f8,f21)

 

 

'**********************************************************************************************************

' Backglass Light Displays

'**********************************************************************************************************

Sub DisplayTimer_Timer

    Dim ChgLED,ii,num,chg,stat,obj, char

    ChgLed = Controller.ChangedLEDs(&Hffffffff, &Hffffffff)

If Not IsEmpty(ChgLED) Then

    

        For ii = 0 To UBound(chgLED)

            num = chgLED(ii, 0) : chg = chgLED(ii, 1) : stat = chgLED(ii, 2)

            if (num < 31) then

                For Each obj In Digits(num)

                    If chg And 1 Then obj.State = stat And 1

                    chg = chg\2 : stat = stat\2

                Next

            else

                'if char(stat) > "" then msg(num) = char(stat)

            end if

        next

    

end if

 

End Sub

 

 

'**********************************************************************************************************

'**********************************************************************************************************

 

Oh, and if you notice that the second and third digits if each scoring segment "go missing", I believe it may be caused by the rom. Being a Gottlieb table, they had the major pinball communities cease publishing their roms. So what IS available on a Google search may be a "clone" of Gottlieb's original and not the real thing, hence this anomaly.

 

Cheers

Nursey

Edited by Greynurse, 06 March 2022 - 12:39 PM.