mirror of https://github.com/oliverbooth/VpSharp
33 lines
1.0 KiB
VB.net
33 lines
1.0 KiB
VB.net
Imports VpSharp.EventData
|
|
|
|
Module Program
|
|
Private WithEvents _client As VirtualParadiseClient
|
|
|
|
Public Sub Main(args As String())
|
|
MainAsync().GetAwaiter().GetResult()
|
|
End Sub
|
|
|
|
Private Async Function MainAsync() As Task
|
|
Dim configuration = new VirtualParadiseConfiguration _
|
|
With {
|
|
.Username = "YOUR_VP_USERNAME",
|
|
.Password = "YOUR_VP_PASSWORD",
|
|
.BotName = "Greeter",
|
|
.Application = New Application("GreeterBot", "1.0")
|
|
}
|
|
|
|
_client = New VirtualParadiseClient(configuration)
|
|
|
|
Await _client.ConnectAsync()
|
|
Await _client.LoginAsync()
|
|
Await _client.EnterAsync("WORLD_NAME")
|
|
Await _client.CurrentAvatar.TeleportAsync(Vector3d.Zero)
|
|
|
|
Await Task.Delay(-1)
|
|
End Function
|
|
|
|
Private Async Sub ClientOnAvatarJoined(sender As Object, args As AvatarJoinedEventArgs) Handles _client.AvatarJoined
|
|
Await _client.SendMessageAsync("Hello, " & args.Avatar.Name)
|
|
End Sub
|
|
End Module
|