74 replies to this topic

[njamont]

sweet thanks

[bolt]

Thanks for all your help for this nice Star Wars table, wtiger.

[subzero1970]

File updated to Version 1.43, some sweet additions by wtiger

Check first post or download page for info

[bolt]

Thanks for the update subzero1970 and wtiger.

[Pinballman]

Good release! The drop targets don't go down though

[subzero1970]

As i recall they arent supposed to until you get an x-wing shot?

[bha19]

As i recall they arent supposed to until you get an x-wing shot?

They do go down but pop back up until you get an xwing shot. There is a machine in the summer at my local arcade that is only open in the summer so this is what I remember

bha19

Edited by bha19, 14 April 2010 - 10:40 AM.

[subzero1970]

Thats odd, howcome no one else has mentioned it??

[destruk]

Thats odd, howcome no one else has mentioned it??

Probably because nobody really cared to mention it, or they didn't know, or it was mentioned and not noticed in the original release thread years ago. It happens a lot more often than you'd think - like the flipper buttons being backwards for QBert's Quest... Good news is now you know.

[subzero1970]

All I need now is someone to script them to drop when theyre supposed to (I dont know pinmame scripting!)

[destruk]

All I need now is someone to script them to drop when theyre supposed to (I dont know pinmame scripting!)

look at vbsdoc.html which comes with every copy of the scripts.


Class cvpmDropTarget

This class is used to handle drop target banks.



· Method: .InitDrop targets, switches

Initializes the targets and the switches for the drop targets.

targets: Droppable walls. Arrays/Collections can be used if each target consists of more than one wall.

switches: Switches connected to each target. If Nothing the switches will be taken from the TimerInterval property of the targets.

Example:

1. Single target

dtDrop.InitDrop Target, swTarget

2. Multiple targtes

dtDrop.InitDrop Array(Target1, Target2, Target3), Array(sw1,sw2,sw3)

3. Multiple targets with two walls for each target

dtDrop.InitDrop Array(Array(T1Front,T1Back),Array(T2Front,T2Back)), Array(sw1,sw2)

4. Targets where switch number is set in the TimerInterval property

dtDrop.InitDrop Array(Target1,Target2,Array(T3Front,T3Back)),Nothing



· Method: .CreateEvents instance

Creates the events for the drop targets. “Sub Target_Hit …”

instance: The name of the cvpmDropTarget object.

Example:

dtDrop.InitDrop Array(Target1, Target2, Target3), Array(sw1,sw2,sw3)

dtDrop.CreateEvents “dtDrop”



· Property: .AnyUpSw = switch

· Property: .AllDownSw = switch

· Property: .LinkedTo = dropTargetBanks

Some drop target banks have switches indication if all targets are up or down. Use these properties to specify the switches.

Sometimes games have common swicthes for several drop target banks. The .LinkedTo property specifies drop target banks that have a common AnyUpSw or AllDownSw. (note that drop target banks must be linked both ways)

DropTargetBanks Drop target bank (or array) which share an AnyUp or AllDn switch

Example:

1. Normal drop target bank

dtDrop.AnyUpSw = 25

dtDrop.AllDownSw = 30

2. Three banks with a common AllDownSw

dtLDrop.AllDownSw = 34

dtLDrop.LinkedTo = Array(dtCDrop,dtRDrop)

dtCDrop.LinkedTo = Array(dtLDrop,dtRDrop)

dtRDrop.LinkedTo = Array(dtLDrop,dtCDrop)



· Method: .InitSound drop, raise

Specify sound connected to drop targets

drop: sound when a target is hit

raise: sound when targets are raised

Example:

dtDrop.InitSound “DropTarget”,”RaiseTarget”



· Method: .Hit targetNo

· Method: .SolHit targetNo, enabled

A drop target has been hit. .SolHit can be specified as a solenoid handler.

targetNo: The target that has been hit (1,2,3...)

Example:

1. Target 2 has been hit

Sub Target2_Hit : dtDrop.Hit 2 : End Sub

2. Solenoid for target 3

SolCallback(sTarget2) = “dtDrop.SolHit 3,”



· Method: .SolDropUp enabled

· Method: .DropSol_On

Raise target handler. Restores all drop targets and switches in the bank

.SolDropUp can be specified as a solenoid handler

Example:

1. Directly from solenoid callback

SolCallback(sRaiseDrop) = “dtDrop.SolDropUp”

2. From procedure

SolCallback(sRaiseDrop) = “SolRaiseDrop”

Sub SolRaiseDrop(enabled)

If enabled Then

dtDrop.DropSol_On



· Method: .SolDropDown enabled

Drop all targets. Can be specified as a solenoid handler

Example:

SolCallback(sDropDown) = “dtDrop.SolDropDown”



· Method: .SolUnhit targetNo, enabled

Raise one target. Can be specified as a solenoid handler

targetNo: The target that should be raised (1,2,3...)

Example:

SolCallback(sRaiseDrop3) = “dtDrop.SolUnhit 3,”



And that is all there is for drop targets.

[fredobiwan]

hi all
Nice release, but wall130 is not configured, rename wall130 with switch29 (O target), I think. J had begin this table one time but no release because j had no good pics on the net.

[subzero1970]

Still a few wee things to fix, but at least the x-wing and the tie fighter move now

[bha19]

Still a few wee things to fix, but at least the x-wing and the tie fighter move now

I have another small problem. The xwing does not always respond when I try to fire a captured ball.It will eventually, but it makes it difficult to make the dropped bank shot.

bha19

[wtiger]

Here's the fix for the drop targets. Look in the script for the following routine for the drop targets:

Set dtDrop = New cvpmDropTarget : With dtDrop
.InitDrop Array(TieDrop1,TieDrop2,TieDrop3,TieDrop4),Array(17,18,19,20)
.InitSnd "TargetDown","TargetReset"
End With


Right before the last line (End With) add .CreateEvents "dtDrop" so it looks like this:


Set dtDrop = New cvpmDropTarget : With dtDrop
.InitDrop Array(TieDrop1,TieDrop2,TieDrop3,TieDrop4),Array(17,18,19,20)
.InitSnd "TargetDown","TargetReset"
.CreateEvents "dtDrop"
End With


That's it!

[bolt]

Thanks again for your support wtiger, you makes a great job!

[pharaoh]

Here's the fix for the drop targets. Look in the script for the following routine for the drop targets:

Set dtDrop = New cvpmDropTarget : With dtDrop
.InitDrop Array(TieDrop1,TieDrop2,TieDrop3,TieDrop4),Array(17,18,19,20)
.InitSnd "TargetDown","TargetReset"
End With


Right before the last line (End With) add .CreateEvents "dtDrop" so it looks like this:


Set dtDrop = New cvpmDropTarget : With dtDrop
.InitDrop Array(TieDrop1,TieDrop2,TieDrop3,TieDrop4),Array(17,18,19,20)
.InitSnd "TargetDown","TargetReset"
.CreateEvents "dtDrop"
End With


That's it!

Thanks WT - works great now

[subzero1970]

another update comin soon!

[subzero1970]

Now update to V1.50 which will probably be the FINAL update of this table....enjoy

[njamont]

thanks sub !

i tryed for a week to fs it got some results but i am lacking to much l33t skillz