NetStumbler.org Forums - View Single Post

Xarth · 10-03-2005

Quote:

Originally Posted by The Others

That's pretty cool; I like it. I've seen a webcam kicking round the house somewhere, think I might try it out. My only question is this, can it work as well as GPS?

I'm trying to get to grips with video as an alternative medium to text and your script is a nice perspective on the already blurring pc/video/art divide.

All I hope is that you push it further. It was a nice concept you demonstrated, now I hope you'll work on it further.

Well I'm glad you think that ^_^

Just so you know, the above script is bad... I forgot some math computations, so here's an updated one (consider it v1.1)

Code:

const nameScript = "NS/VDub Overlay Script"

Dim fso, StumbleSubFile
Dim StartTime, DifferenceTime
Dim LastRecord

Set fso = CreateObject("Scripting.FileSystemObject")

Sub OnEnableScan()
	Set StumbleSubFile = fso.CreateTextFile("C:\Stumbles\StumbleSub.ssa", True)
	
	StumbleSubFile.WriteLine("[Script Info]")
	StumbleSubFile.WriteLine("Title: NetStumbler 'WebCam GPS Replacement'")
	StumbleSubFile.WriteLine("Original Script: Assassin Bunnie <assassin@bunnie.net>")
	StumbleSubFile.WriteLine("ScriptType: v4.00")
	StumbleSubFile.WriteLine("Collisions: Normal")
	StumbleSubFile.WriteLine("PlayResY: 240")
	StumbleSubFile.WriteLine("PlayDepth: 0")
	StumbleSubFile.WriteLine("Timer: 100.0000")
	StumbleSubFile.WriteLine("")
	StumbleSubFile.WriteLine("[V4 Styles]")
	StumbleSubFile.WriteLine("Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, TertiaryColour, BackColour, Bold, Italic, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, AlphaLevel, Encoding")
	StumbleSubFile.WriteLine("Style: MainB,Arial,14,65535,65280,65535,0,0,-1,1,2,4,1,16,16,16,0,0")
	StumbleSubFile.WriteLine("Style: MainT,Arial,14,65535,65280,65535,0,0,0,1,2,4,5,16,16,16,0,0")
	StumbleSubFile.WriteLine("Style: Timer,Arial,14,65535,65280,65535,0,0,-1,1,2,4,5,16,16,40,0,0")
	StumbleSubFile.WriteLine("Style: B0S0K,Arial,14,&HE0E0E0,65280,65535,&H000000,0,-1,1,0,0,5,16,16,40,0,0")
	StumbleSubFile.WriteLine("Style: B2S2R,Arial,14,&HE0E0E0,65280,65535,&H004080,0,-1,1,2,2,5,16,16,40,0,0")
	StumbleSubFile.WriteLine("Style: B2S6G,Arial,14,&HE0E0E0,65280,65535,&H408000,0,-1,1,2,6,5,16,16,40,0,0")
	StumbleSubFile.WriteLine("Style: B4S4B,Arial,14,&HE0E0E0,65280,65535,&H804000,0,-1,1,4,4,5,16,16,40,0,0")
	StumbleSubFile.WriteLine("Style: Karaoke,Arial,14,&H40FFFF,&HFF4040,65535,0,0,0,1,2,4,5,16,16,16,0,0")
	StumbleSubFile.WriteLine("Style: ShiftJIS,MS Gothic,20,&HE0E0E0,65280,65535,0,0,0,1,2,4,5,16,16,16,0,128")
	StumbleSubFile.WriteLine("")
	StumbleSubFile.WriteLine("[Events]")
	StumbleSubFile.WriteLine("Format: Marked, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text")
	StumbleSubFile.WriteLine("")
	
	StartTime = Timer
	LastRecord = StartTime
End Sub

'######################################################################
Sub OnScanResult(SSID, BSSID, CapFlags, Signal, Noise, LastSeen)
'######################################################################
	' SSID : String : SSID (Network name)
	' BSSID : String : BSSID (MAC address)
	' CapFlags : Integer : 802.11 capability flags
	' Signal : Integer : signal level (dBm)
	' Noise : Integer : noise level(dBm)
	' LastSeen : Time

	DifferenceTime = Timer - StartTime

	TimeString = Int(DifferenceTime / 3600) & ":"
	DifferenceTime = DifferenceTime - (Int(DifferenceTime / 3600) * 3600)
	TimeString = Timestring & Int(DifferenceTime / 60) & ":"
	DifferenceTime = DifferenceTime - (Int(DifferenceTime / 60) * 60)
	TimeString = Timestring & Int(DifferenceTime) & "."
	DifferenceTime = DifferenceTime - Int(DifferenceTime)

	If LastRecord <> DifferenceTime Then
		StumbleSubFile.WriteLine("Dialogue: Marked=0," & TimeString & "00," & TimeString & "99,MainB,,0000,0000,0000,!Effect,{\a5\c&HE0E0E0&}" & SSID & " " & BSSID & " " & Signal)
		LastRecord = DifferenceTime
	End If
End Sub

Sub OnDisableScan()
	StumbleSubFile.Close
End Sub

The old one would mess up past 1 minute, which I admittedly hadn't tried, because of the DifferenceTime = DifferenceTime - (Int(DifferenceTime / 60) * 60) (and similar) lines. They're fixed now, or rather... should be... I messed up my 12 minute demo drive, but I'ma do a quick walk around the block to try it out again