32 replies to this topic

[st3rn]

I need a Arabian Nights Genie from Norway to grant my wish for halloween. (2015 LOL, pin not out yet)

http://www.sternpinb...alking-dead/pro

Edited by st3rn, 20 September 2014 - 01:50 PM.

[BobAlbright]

"HOLY CRAP" was exactly what I was saying as I grinned from ear to ear after playing my first game on your modded TOTAN. You've outdone yourself on this one! Thank you! Beautiful! I wish I could have taken a selfie at the time to send you. It probably would have made all the time you put into it worth it by itself!

[bolt]

Thank you JP for the new beta.

[Pinball999]

Many thanks JP!

I have a small question for you. Do you know which light I should select to move the genie's red eyes?

[Shoopity]

Hey Shoopity: I didn't know that, but it shouldn't be  a problem to add it. I'll take a look at it.

Yeah, if you look at the bottom of the toy, it has a piece of plastic that triggers a leaf switch.  This piece of plastic is attached at the center so it hits the trigger twice per 360 rotation.  I adjusted the code to be something like:

If (OldPos < 180 AND NewPos >= 180) OR (OldPos >180 AND NewPos <= 180) Then vpmPulseSw X (whatever the switch number is)

[LoadedWeapon]

Hey shoop if you have already changed the code can you send me what you changed and i will add it to this update thanks

[Shoopity]

I won't be able to get to it until Monday.  If JP hasn't updated his table by then, I'll send it your way.

[LoadedWeapon]

ok no problem thx..

[jpsalas]

I can't seem to make it count twice on each rotation. I think I have tried about 100 different codes. There is something I miss, but I can't seem to find it I guess we'll wait for you, Shoopity

[Shoopity]

Well, maybe my code doesn't work like I think it does.  I'll share as soon as I can, but don't assume it works; please test it and tell me if it's broken.

[Shoopity]

OK, here's what I got:

Sub SpinTimer_Timer
    Dim curPos
    Dim oldLampSpeed:oldLampSpeed = lampSpinSpeed
    lampPosition = lampPosition + lampSpinSpeed * Me.Interval / 1000
    lampSpinSpeed = lampSpinSpeed * (1 - cLampFriction * Me.Interval / 1000)
    'added by jim - makes this sub a bit safer (even though this shouldnt happen in normal use)
    Do While lampPosition < 0
        lampPosition = lampPosition + 360
    Loop
    Do While lampPosition > 360
        lampPosition = lampPosition - 360
    Loop
    curPos = Int((lampPosition * colLampPoles.Count) / 360)
    If curPos <> lampLastPos Then
		LampPr.RotZ = 360 -lampPosition
        If lampLastPos >= 0 Then ' not first time
            colLampPoles(lampLastPos).IsDropped = True
            colLampPoles2(lampLastPos).IsDropped = True
        End If
        On Error Resume Next
        colLampPoles(curPos).IsDropped = False
        If Err Then msgbox curPoles
        colLampPoles2(curPos).IsDropped = False

'        If oldLampSpeed > 0 And lampLastPos > curPos Then'
'           'rev anticlockwise
'          vpmTimer.PulseSw 56 ' ? or 57 and the other is 56
'     ElseIf oldLampSpeed < 0 And lampLastPos < curPos Then'
'            'rev clockwise
'            vpmTimer.PulseSw 57'
'        End If'

'********** Code added by Shoopity to attempt to award two "rubs" per 360 spin'
		If ((LampLastPos < 180 AND CurPos > 180) OR (LampLastPos > 180 AND CurPos < 180)) AND OldLampSpeed > 0 Then
			vpmTimer.PulseSw 56 ' ? or 57 and the other is 56'
		ElseIf ((LampLastPos < 180 AND CurPos > 180) OR (LampLastPos > 180 AND CurPos < 180)) AND OldLampSpeed < 0 Then
			vpmTimer.PulseSw 57
		End If
'********** End code added by Shoopity'

        lampLastPos = curPos
    End If
    If Abs(lampSpinSpeed) < cLampMinSpeed Then
        lampSpinSpeed = 0:Me.Enabled = False
    End If
End Sub

And I tested it as best I could by going into the Test Menu, then Single Switch and everything looked good with this code added:

Sub table1_KeyDown(ByVal Keycode)
    If keycode = LeftTiltKey Then LeftNudge 90, 1.6, 20:PlaySound "fx_nudge_left"
    If keycode = RightTiltKey Then RightNudge 270, 1.6, 20:PlaySound "fx_nudge_right"
    If keycode = CenterTiltKey Then CenterNudge 0, 2.5, 30:PlaySound "fx_nudge_forward"
    If vpmKeyDown(keycode) Then Exit Sub
	If keycode = 200 Then LampSpinSpeed = 500:SpinTimer.Enabled = True     'Up Arrow is CCW'
	If keycode = 208 Then LampSpinSpeed = -500:SpinTimer.Enabled = True    'Down Arrow is CW'
If keycode = PlungerKey Then PlaySound "fx_PlungerPull":Plunger.Pullback
if keycode ="3" then RampMagnet2.createball
End Sub

Edited by Shoopity, 22 September 2014 - 03:39 PM.

[jpsalas]

Thanks Shoopity! That seems to work perfectly!

[sliderpoint]

Many thanks JP!

I have a small question for you. Do you know which light I should select to move the genie's red eyes?

  

I found them at ramps f27c and f27d.  Just select them and move them toward the top of the table in to the genie mesh until they line up (trial and error).

 

I found that I liked the hit movement of the genie if I changed the code to alter the TransZ of the primitive (no idea how realistic it is).  Like this:

 

Sub sw42_Hit:vpmTimer.PulseSw 42:Genio.TransZ=10:Me.TimerEnabled = 1:PlaySound "fx_target":End Sub

Sub sw42_Timer:Genio.TransZ=0:Me.TimerEnabled = 0:End Sub

 

I also moved the plunger back a little.

 

I moved the eye lights because I changed the setting to run it FS. These are pretty trivial items on a pretty stellar table!

 

Thanks JP!

 

-Mike