logo

Live Production Software Forums

www.vmix.com

Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error
VBscript to export replay events
Options
Go to last post Go to first unread
Previous Topic Next Topic
apocnz  
#1 Posted : Thursday, August 12, 2021 11:36:54 PM(UTC)
apocnz

Rank: Member

Groups: Registered
Joined: 9/17/2015(UTC)
Posts: 15
Location: Perth

Thanks: 1 times
Was thanked: 1 time(s) in 1 post(s)
Anyone have replay events exporting via VBscript ?

I have a script that creates replay events automatically whenever a team score (by simply watching the score and if score increases,
script marks a replay event and labels it with the team name).

However if I try to use ExportLastReplayEvent, it doesn't work, or it only works the first time (and I've tried several methods of invoking it/with delays/loops/etc).

Any ideas ?
Back to top

Wanna join the discussion?! Login to your vMix Forums forum account, or Register a new forum account.
Back to top  
doggy  
#2 Posted : Friday, August 13, 2021 12:12:45 AM(UTC)
doggy

Rank: Advanced Member

Groups: Registered
Joined: 12/27/2012(UTC)
Posts: 5,218
Belgium
Location: Belgium

Thanks: 292 times
Was thanked: 955 time(s) in 790 post(s)
What's the code for it you have ? do you have the same problem using a direct shortcut (i seem to as in have to press the key a few times)
?
Back to top
apocnz  
#3 Posted : Friday, August 20, 2021 9:48:30 PM(UTC)
apocnz

Rank: Member

Groups: Registered
Joined: 9/17/2015(UTC)
Posts: 15
Location: Perth

Thanks: 1 times
Was thanked: 1 time(s) in 1 post(s)

Code below. If I pop a API.Function("ReplayExportLastEvent") in after the ReplayMark, its a no go.

If pop it in a seperate script and trigger that after the ReplayMark, still either no go or only works
in the first instance.

And using shortcut, same issue, the result isn't consistent. Seems like a possible bug?


Code:
dim hometeam as string = Input.Find("gameinformation").Text("HomeTeam.Text")
dim awayteam as string = Input.Find("gameinformation").Text("AwayTeam.Text")
dim keepscore1 as string = Input.Find("scorebug").Text("homepoints.Text")
dim keepscore2 as string = Input.Find("scorebug").Text("awaypoints.Text")
dim awayscore as string = Input.Find("scorebug").Text("awaypoints.Text")
dim homescore as string = Input.Find("scorebug").Text("homepoints.Text")
Do While True
awayscore = Input.Find("scorebug").Text("awaypoints.Text")
homescore = Input.Find("scorebug").Text("homepoints.Text")
     If NOT ( keepscore1 = homescore ) Then 
            API.Function("ReplayMarkInOutLive", Value:="7")
            API.Function("ReplaySetLastEventText", Value:=hometeam)
            
     End If

     If NOT ( keepscore2 = awayscore ) Then
            API.Function("ReplayMarkInOutLive", Value:="7")
            API.Function("ReplaySetLastEventText", Value:=awayteam)
     End If
     sleep(1000)
keepscore1 = Input.Find("scorebug").Text("homepoints.Text")
keepscore2 = Input.Find("scorebug").Text("awaypoints.Text")
     sleep(1000)


Loop
Back to top
Users browsing this topic
Guest (2)
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Privacy Policy | Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET
This page was generated in 0.094 seconds.