Sub ShowLeaderboard
Dim vc As NativeObject
vc = vc.Initialize("GKGameCenterViewController").RunMethod("new", Null)
vc.SetField("leaderboardCategory",BoardId)
vc.SetField("viewState", 0) '0 = leadboards
Dim del As NativeObject
del = del.Initialize("B4IGameCenterViewControllerDelegate").RunMethod("new", Null)
vc.SetField("gameCenterDelegate", del)
Dim no As NativeObject = SPage1
no.RunMethod("presentViewController:animated:completion:", Array(vc, True, Null))
End Sub
#if OBJC
@end
@interface B4IGameCenterViewControllerDelegate :NSObject<GKGameCenterControllerDelegate>
@end
@implementation B4IGameCenterViewControllerDelegate
- (void)gameCenterViewControllerDidFinish:(GKGameCenterViewController *)gameCenterViewController {
[gameCenterViewController dismissViewControllerAnimated:YES completion:nil];
}
#End If