Simple greeter bot: Difference between revisions
Jump to navigation
Jump to search
mNo edit summary |
No edit summary |
||
Line 144: | Line 144: | ||
==VB .Net== | ==VB .Net== | ||
<VBNet> | <VBNet> | ||
Imports VpNet | |||
Imports VpNet.Core | |||
Imports VpNet.NativeApi | |||
Module Module1 | |||
'Virtual Paradise SDK Instance | |||
Public VPInstance As VpNet.Core.Instance | |||
Sub Main(ByVal args As String()) | |||
Try | |||
'Initalize the Virtual Paradise .Net SDK | |||
VPInstance = New Instance() | |||
'Register the events you wish to capture (Such as avatar entry) | |||
'This must be done AFTER the initalization, but before connection | |||
AddHandler VPInstance.EventAvatarAdd, AddressOf EventAvatarAdd | |||
AddHandler VPInstance.EventAvatarDelete, AddressOf EventAvatarDelete | |||
'Connect to the universe using the default server settings | |||
VPInstance.Connect() | |||
'Login to the universe using your username, password, | |||
'and the desired bot name | |||
VPInstance.Login("Username", "Password", "MyBotName") | |||
'Enter the world | |||
VPInstance.Enter("MyWorld") | |||
'Set the bot's position in the world | |||
VPInstance.UpdateAvatar(0.0F, 0.0F, 0.0F) | |||
'Write success message to the console | |||
Console.WriteLine("Login success!") | |||
'In order to proccess any pending network events and data | |||
'we must repeatedly call the Wait() function | |||
'Here we use a wait of 50 Miliseconds | |||
While True | |||
VPInstance.Wait(50) | |||
End While | |||
'This allows us to cleanly catch and handle | |||
'any errors the SDK throws. In normal usage, | |||
'you should handle specific errors, and not | |||
'use a catch-all like the one below. | |||
Catch ex As VpException | |||
Console.WriteLine("{0}", ex.Message) | |||
End Try | |||
'This pauses the console on crash, so that | |||
'you can review the error thrown by the SDK | |||
Console.Read() | |||
End Sub | |||
Private Sub EventAvatarAdd(ByVal Sender As Instance, ByVal AvatarData As VpNet.Core.Structs.Avatar) | |||
'A user has entered the world (or the bot's range) | |||
'We print the user's name followed by a breif message | |||
VPInstance.Say(Convert.ToString(AvatarData.Name) & " Entered") | |||
End Sub | |||
Private Sub EventAvatarDelete(ByVal Sender As Instance, ByVal AvatarData As VpNet.Core.Structs.Avatar) | |||
'A user has left the world (or the bot's range) | |||
'We print the user's name followed by a breif message | |||
VPInstance.Say(Convert.ToString(AvatarData.Name) & " Left") | |||
End Sub | |||
End Module | |||
</VBNet> | </VBNet> | ||
[[Category: Bots]] | [[Category: Bots]] | ||
[[Category: SDK]] | [[Category: SDK]] |
Revision as of 23:12, 23 November 2012
C/C++
In order to use the Virtual Paradise C SDK you must:
- Have Visual Studio, Visual C++ Express or another compatible C/C++ IDE+Compiler installed and configured
- Download the x86 SDK from the Developer Downloads page
<C>
- include <vpsdk/VP.h>
- include <stdio.h>
- include <stdlib.h>
- define Username "username"
- define Password "password"
- define Botname "greeterbot"
- define Worldname "VP-Gate"
void event_avatar_add(VPInstance sdk);
int main(int argc, char ** argv) {
int err; if(err = vp_init(VPSDK_VERSION)) { printf("Couldn't initialize VP API(reason %d)", err); return 1; }
VPInstance sdk; sdk = vp_create();
if(err = vp_connect_universe(sdk, "universe.virtualparadise.org", 57000)) { printf("Couldn't connect to universe(reason %d)", err); return 1; } if(err = vp_login(sdk, Username, Password, Botname)) { printf("Couldn't login(reason %d)", err); return 1; } if(err = vp_enter(sdk, Worldname)) { printf("Couldn't enter world(reason %d)", err); return 1; } vp_event_set(sdk, VP_EVENT_AVATAR_ADD, event_avatar_add); vp_state_change(sdk); while(vp_wait(sdk, 1000) == 0){} return 0;
}
void event_avatar_add(VPInstance sdk) {
char message[100]; sprintf((char*)&message, "Hello, %s!", vp_string(sdk, VP_AVATAR_NAME)); vp_say(sdk, (char*)&message);
} </C>
C#
In order to use the Virtual Paradise .Net SDK you must:
- Have Visual Studio or Visual C# Express installed and configured
- Download the x86 SDK from the Developer Downloads page
- Download the .Net SDK from the VPNet SDK Download page
<CSharp> using System; using VpNet.Core; using VpNet.Core.EventData; using VpNet.Core.Structs;
namespace VPSDKExample {
class Program { //Virtual Paradise SDK Instance public static Instance VPInstance;
static void Main(string[] args) { try { //Initalize the Virtual Paradise .Net SDK VPInstance = new Instance();
//Register the events you wish to capture (Such as avatar entry) //This must be done AFTER the initalization, but before connection VPInstance.EventAvatarAdd += EventAvatarAdd; VPInstance.EventAvatarDelete += EventAvatarDelete;
//Connect to the universe using the default server settings VPInstance.Connect();
//Login to the universe using your username, password, //and the desired bot name VPInstance.Login("Username", "Password", "MyBotName");
//Enter the world VPInstance.Enter("MyWorld");
//Set the bot's position in the world VPInstance.UpdateAvatar(0.0f, 0.0f, 0.0f);
//in order to proccess any pending network events and data //we must repeatedly call the Wait() function //Here we use a wait of 50 Miliseconds while (true) { VPInstance.Wait(50); } }
//This allows us to cleanly catch and handle //any errors the SDK throws. In normal usage, //you should handle specific errors, and not //use a catch-all like the one below. catch (VpException ex) { Console.WriteLine("{0}", ex.Message); }
//This pauses the console on crash, so that //you can review the error thrown by the SDK Console.Read(); } static void EventAvatarAdd(Instance Sender, Avatar AvatarData) { //A user has entered the world (or the bot's range) //We print the user's name followed by a breif message VPInstance.Say(AvatarData.Name + " Entered"); }
static void EventAvatarDelete(Instance Sender, Avatar AvatarData) { //A user has left the world (or the bot's range) //We print the user's name followed by a breif message VPInstance.Say(AvatarData.Name + " Left"); } }
} </CSharp>
VB .Net
<VBNet> Imports VpNet Imports VpNet.Core Imports VpNet.NativeApi
Module Module1
'Virtual Paradise SDK Instance Public VPInstance As VpNet.Core.Instance
Sub Main(ByVal args As String()) Try 'Initalize the Virtual Paradise .Net SDK VPInstance = New Instance()
'Register the events you wish to capture (Such as avatar entry) 'This must be done AFTER the initalization, but before connection AddHandler VPInstance.EventAvatarAdd, AddressOf EventAvatarAdd AddHandler VPInstance.EventAvatarDelete, AddressOf EventAvatarDelete
'Connect to the universe using the default server settings VPInstance.Connect()
'Login to the universe using your username, password, 'and the desired bot name VPInstance.Login("Username", "Password", "MyBotName")
'Enter the world VPInstance.Enter("MyWorld")
'Set the bot's position in the world VPInstance.UpdateAvatar(0.0F, 0.0F, 0.0F)
'Write success message to the console Console.WriteLine("Login success!")
'In order to proccess any pending network events and data 'we must repeatedly call the Wait() function 'Here we use a wait of 50 Miliseconds While True VPInstance.Wait(50) End While
'This allows us to cleanly catch and handle 'any errors the SDK throws. In normal usage, 'you should handle specific errors, and not 'use a catch-all like the one below. Catch ex As VpException Console.WriteLine("{0}", ex.Message) End Try
'This pauses the console on crash, so that 'you can review the error thrown by the SDK Console.Read() End Sub Private Sub EventAvatarAdd(ByVal Sender As Instance, ByVal AvatarData As VpNet.Core.Structs.Avatar) 'A user has entered the world (or the bot's range) 'We print the user's name followed by a breif message VPInstance.Say(Convert.ToString(AvatarData.Name) & " Entered") End Sub
Private Sub EventAvatarDelete(ByVal Sender As Instance, ByVal AvatarData As VpNet.Core.Structs.Avatar) 'A user has left the world (or the bot's range) 'We print the user's name followed by a breif message VPInstance.Say(Convert.ToString(AvatarData.Name) & " Left") End Sub
End Module </VBNet>