Vieur test.

I've began testing the implementation of the "Vieur" in-game ad system, basically it's the same functionality that comes already integrated into igLoader, I've just ripped it out and made it available for standalone games. If can be used with ANY language that supports DLLs.

What is it?

"Vieur" is a DLL that ad-enables your games, it allows you to monetize your games even if they are not purchased. Anyone who has recently downloaded games from RealArcade will be familiar with the technology. When used together with a DRM system "Vieur" enables you to deliver ad-supported trials where the player has the option to purchase (unlock) the ad-free version.

Anyway, I just want to know if it works on your systems (Windows 95/98/2000/XP/Vista) : http://www.pjio.com/temp/vieur.zip - The bouncing ball should always be behind the advert.

You should see something like :


And implementation :

Global iPtr:Int = LoadLibraryA("vieur.dll")

Global Vieur_DisplayAdvert	(HWND:Int, URL:Byte Ptr, x:Int, y:Int, width:Int, height:Int)	"win32"	= GetProcAddress(iPtr, "_DisplayAdvert@24" )
Global Vieur_DestroyAdvert	() 	"win32"	= GetProcAddress(iPtr, "_DestroyAdvert@0" )

Graphics 800,600

Global HWND = PrimaryDevice.Hwnd

Vieur_DisplayAdvert (HWND, "http://www.pjio.com/ig_creative", 150, 120, 500, 360)

Local x:Float = Rand(20,780)
Local y:Float = Rand(20,580)
Local xvel:Float = Rnd(-4,4)
Local yvel:Float = Rnd(-4,4)

While Not KeyHit(KEY_ESCAPE)
	Cls
	DrawOval x-10,y-10,20,20
	x:+xvel
	y:+yvel
	
	If x < 0 Or x > 800 Then xvel = -xvel
	If y < 0 Or y > 600 Then yvel = -yvel
	
	Flip 1
Wend

Vieur_DestroyAdvert() 

It screws up if you don't already have flash installed in IE7. It pops up the ActiveX install thing, then nothing. Seems to work okay after that.

Thanks for the info.

Here is some Blitz3D example code - it's really easy.

; This simple demonstration is for Blitz3D
; The demo shows adverts for a duration of 15 seconds with a 1 minute duration between ad displays.
; In the real world you'd set up for 15-20 minute gaps between ads and then only show the ad at a natural break ie.Between levels.


Graphics3D 800,600,32,2

HWND 	= GetActiveWindow()
URL$	= "7b4325302e46c619fb4C3bf7d4621bb301d1e401eeac2794e51697fbde6dbc2756cd663577e8cd9780aa159d3963178d5e9409c93b1c2aba3f55c71a35089726938aaf9c67a52d3ba3e75ff446105bcd00"
xPos	= 50			; xPosition of Advert - Upper Left (pixels)
yPos	= 50			; yPosition of Advert - Upper Left (pixels)
width	= 700			; width of advert window (pixels)
height	= 500			; height of advert window (pixels)
Ident$	= "?type=1"		; This is the string appended to the URL for tracking useage

TimeBetweenAds	= 1 	; This is minutes
DurationOfAds	= 15 	; This is seconds

AdFlipper		= 0		; For the Purposes of this test only

Vieur_Initialise(HWND, URL, xPos, yPos, width, height, TimeBetweenAds) ; Initialise DLL with details.

While Not KeyHit(1)
	If Vieur_Ready()								; Can we display an ad based on our parameters?
		AdFlipper = 1 - AdFlipper
		If AdFlipper = 1
			Vieur_Display(Ident, DurationOfAds)		; Display the advert and set duration - You must remove the advert manually
		Else
			Vieur_Destroy()							; Remove the advert from display
		EndIf	
	EndIf
Wend

Vieur_Destroy() 									; Clean up before exit

shit, I really need some free fitty-cent screensavers and wallpapers!