new here so bare with me..
I am trying to make a nice user interface by having a frame called "interface" with hot spot buttons that glow when you hover over them. I have merged this frame with all other frames.
I managed to accomplish this quite nicely thanks to Shadowhunter's keyguard plugin and some amazing tutorials I have found on these forums.
My problem is - when I load or test one of the frames other then "interface" weird things begin to happen. Mainly, the wrong thumbnail will appear when hovering over the hot spots or the hot spot will disappear all together when the mouse cursor leaves it.
I know very little about code and have been getting by with copying and pasting then altering the names/numbers of frames and hot spots but here is my VBScript Global Procedures:
- Code: Select all
Sub KeyGuard_MouseLeavesHotSpot(HotspotTAG)
'MsgBox "Mouse leaves hotspot area: " & HotspotTAG(0)
Action.LoadAPicture Hotspot(5), ""
Action.LoadAPicture Hotspot(6), ""
Action.LoadAPicture Hotspot(7), ""
Action.LoadAPicture Hotspot(8), ""
Action.LoadAPicture Hotspot(15), ""
Action.LoadAPicture Hotspot(16), ""
Action.LoadAPicture Hotspot(17), ""
Action.LoadAPicture Hotspot(18), ""
Action.LoadAPicture Hotspot(19), ""
End Sub
Sub KeyGuard_MouseEntersHotSpot(HotspotTAG)
'MsgBox "Mouse enters hotspot area: " & HotspotTAG (0)
If HotSpotTag (0) = 1 Then
Action.LoadAPicture Hotspot(8), "book glow.jpg"
End If
If HotSpotTag (0) = 2 Then
Action.LoadAPicture Hotspot(7), "apple glow.jpg"
End If
If HotSpotTag (0) = 3 Then
Action.LoadAPicture Hotspot(6), "map glow.jpg"
End If
If HotSpotTag (0) = 4 Then
Action.LoadAPicture Hotspot(5), "backpack glow.jpg"
End If
If HotSpotTag (0) = 10 Then
Action.LoadAPicture Hotspot(15), "exit.jpg"
End If
If HotSpotTag (0) = 11 Then
Action.LoadAPicture Hotspot(16), "look button.jpg"
End If
If HotSpotTag (0) = 12 Then
Action.LoadAPicture Hotspot(17), "plus hand button.jpg"
End If
If HotSpotTag (0) = 13 Then
Action.LoadAPicture Hotspot(18), "magnifying glass button.jpg"
End If
If HotSpotTag (0) = 14 Then
Action.LoadAPicture Hotspot(19), "arrow button.jpg"
End If
End Sub
and here is my VBScript code:
'Clear hotspots for this frame
Component("KeyGuard").Object.ClearHotSpots
'Hotspot definitions for buttons
Component("KeyGuard").Object.DefineHotSpot 560,379,70,66,1,0
Component("KeyGuard").Object.DefineHotSpot 560,276,70,52,2,0
Component("KeyGuard").Object.DefineHotSpot 560,173,70,55,3,0
Component("KeyGuard").Object.DefineHotspot 560,71,70,65,4,0
Component("KeyGuard").Object.DefineHotSpot 330,77,69,44,10,0
Component("KeyGuard").Object.DefineHotSpot 415,84,30,30,11,0
Component("KeyGuard").Object.DefineHotSpot 468,84,30,30,12,0
Component("KeyGuard").Object.DefineHotSpot 521,84,30,30,13,0
Component("KeyGuard").Object.DefineHotSpot 580,84,20,30,14,0
'Hotspot definitions for main image
Component("KeyGuard").Object.DefineHotSpot 560,71,70,66,5,0
Component("KeyGuard").Object.DefineHotSpot 560,173,70,52,6,0
Component("KeyGuard").Object.DefineHotSpot 560,276,70,55,7,0
Component("KeyGuard").Object.DefineHotSpot 560,379,70,65,8,0
Component("KeyGuard").Object.DefineHotSpot 330,77,69,44,15,0
Component("KeyGuard").Object.DefineHotSpot 415,84,30,30,16,0
Component("KeyGuard").Object.DefineHotSpot 468,84,30,30,17,0
Component("KeyGuard").Object.DefineHotSpot 521,84,30,30,18,0
Component("KeyGuard").Object.DefineHotSpot 580,84,20,30,19,0
can someone please help me make sense of this?