(AGK version: 108.13)

Submitted: 2013-06-14 11:37:36

Setvirtualresolution(640,480)

SetClearColor (255, 250, 50 )
SetPrintColor (0,0,0)

//Advert- Device Specfic Set-up
//Here we use AdMob for Android Devices and Inner-active for all others
//Firstly Obtain Unique Codes for each Application from...
//www.google.com/AdMob
//www.inner-active.com

device$=GetDeviceName()
If Left(device$,7)="android"
    SetAdMobDetails("UNIQUE_ADMOB_APP_CODE")
ElseIf Left(device$,10)="blackberry"
    SetInneractiveDetails("UNIQUE_INNERACTIVE_APP_CODE")
Else
    SetInneractiveDetails("UNIQUE_INNERACTIVE_APP_CODE")
EndIf

//Create and Position the Advert
CreateAdvert(0, 1, 2, 0)
//Make Advert Visible
SetAdvertVisible ( 1 )
//Reload/Refresh Advert, call occasionally
RequestAdvertRefresh()

do

    Print ("Advert will appear at the bottom of the screen")

    sync()

loop

(AGK version: 2.0.13)

Submitted: 2015-04-28 06:35:55

//AGK V2.0.13 Beta
//MR 28.04.2015

Setvirtualresolution(640,480)

SetClearColor (255, 250, 50 )
SetPrintColor (0,0,0)

//Advert- Device Specfic Set-up
//Here we use AdMob for Android Devices
//Firstly Obtain Unique Codes for each Application from here...
//http://www.google.de/ads/admob/?_adc=eu-de-ha-bk&gclid=COiSr_zimMUCFSkcwwodl74AiQ
//https://apps.admob.com/

device$=GetDeviceName()

//AdMob is/was currently supported by iOS and Android. 

If Left(device$,7)="android" 
    SetAdMobDetails("ca-app-pub-730281428916..../357682....") // <- "UNIQUE_ADMOB_APP_CODE")
	//Create and Position the Advert
	CreateAdvert(0, 1, 2, 0)
	//Make Advert Visible
	SetAdvertVisible ( 1 )
	//Reload/Refresh Advert, call occasionally
	RequestAdvertRefresh()
EndIf


do

	//print(device$)

	//there is some seconds delay until it appear
    Print ("Advert will appear at the bottom of the screen")

    sync()

loop

(AGK version: 2017.12.12)

Submitted: 2017-12-20 17:58:31

#option_explicit

rem AGK 2017.12.12
rem MR 20.12.2017

Setvirtualresolution(640,480)

SetClearColor (255, 250, 50 )
SetPrintColor (0,0,0)

//Advert- Device Specfic Set-up
//Here we use AdMob for Android Devices
//Firstly Obtain Unique Codes for each Application from here...
//https://www.google.de/admob/
//https://apps.admob.com/

local device$
device$=GetDeviceName()

//AdMob is/was currently supported by iOS and Android. 

If Left(device$,7)="android"
    //SetAdMobDetails("ca-app-pub-7302814289162.../3576827...") // <- "UNIQUE_ADMOB_APP_CODE" / advertise block id
    
        //Create and Position the Advert
        CreateAdvert(0, 1, 2, 0)
        //Make Advert Visible
        SetAdvertVisible ( 1 )
        //Reload/Refresh Advert, call occasionally
        RequestAdvertRefresh()
EndIf


do

    print(device$)

        //there is some seconds delay until it appear
    Print ("Advert will appear at the bottom of the screen")

    sync()

loop