1  |   Order by index

Jun 21, 2005, 12:15pm

The Visual Basic Wrapper for the 3.6 SDK build 41 is available at
http://objects.activeworlds.com/downloads/AwVBSdk41.zip

A brief description and a proper download page will follow next week.

Thanks,
Chris

Jun 21, 2005, 4:41pm

[View Quote] That is so sexy. Thanks.

Jun 23, 2005, 7:01am

A brief intro for the VB SDK is available here:
http://www.activeworlds.com/sdk/vb

Thanks to DutchBull for providing the example.

Chris


"chrispeg" <chris at activeworlds.com> schrieb im Newsbeitrag
news:42b820fe at server1.Activeworlds.com...
> The Visual Basic Wrapper for the 3.6 SDK build 41 is available at
> http://objects.activeworlds.com/downloads/AwVBSdk41.zip
>
> A brief description and a proper download page will follow next week.
>
> Thanks,
> Chris
>

Jun 23, 2005, 12:45pm

Corrected Example

Private Sub CallBack_Timer()

' Gets events and callbacks
Sdk.aw_wait (0)

End Sub

Private Sub Form_Load()

' The declaration of needed strings and integers.
Dim Login_Host As String, Login_Port As Integer, Login_Name As String,
Login_Number As Long, Login_Password As String, Login_Description As String,
Login_World As String, Login_X As Integer, Login_Y As Integer, Login_Z As
Integer, Login_Yaw As Integer
'Login_Number should be a long as Integer will not store most peoples
citizen numbers
' Set the strings and integers.
Login_Host = "auth.activeworlds.com" ' Host.
Login_Port = 5670 ' Port.
Login_Name = "VB Example" ' The name of the bot.
Login_Number = 12345678 ' Your citizen number. EQUALS MISSING
Login_Password = "secret" ' Your privilege password.
Login_Description = "VB Example 1." ' Bot description, can be read by
Universe admin
Login_World = "AW" ' The world the bot needs to join
Login_X = 0 ' Bot X
Login_Y = 0 ' Bot Y
Login_Z = 0 ' Bot Z
Login_Yaw = 0 ' Bot Rotate

' Initializes the bot needs.
rc = Sdk.aw_init(AW_BUILD)

' Sets the events and callbacks.
Sdk.aw_event_set AW_EVENT_AVATAR_ADD

' Connect to the universe.
rc = Sdk.aw_create(Login_Host, Login_Port)

' Send login data. And login.
Sdk.aw_string_set AW_LOGIN_NAME, Login_Name
Sdk.aw_int_set AW_LOGIN_OWNER, Login_Number
Sdk.aw_string_set AW_LOGIN_PRIVILEGE_PASSWORD, Login_Password
Sdk.aw_string_set AW_LOGIN_APPLICATION, Login_Description
rc = Sdk.aw_login()

' Enter the world.
rc = Sdk.aw_enter(Login_World)

' Set position and becomes visible.
Sdk.aw_int_set AW_MY_X, Login_X
Sdk.aw_int_set AW_MY_Y, Login_Y
Sdk.aw_int_set AW_MY_Z, Login_Z
Sdk.aw_int_set AW_MY_YAW, Login_Yaw
rc = Sdk.aw_state_change()

Callback.Interval = 1000 'THIS IS REQUIRED OR THE EVENTS WILL NOT BE
RAISED.
Callback.Enabled = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Clears memory
Sdk.aw_destroy
Sdk.aw_term

End Sub

Private Sub sdk_EventAvatarAdd()

Avatar_Name = Sdk.aw_string(AW_AVATAR_NAME)

Sdk.aw_say "Hi " & Avatar_Name

End Sub

Jun 23, 2005, 12:48pm

* Overflow as Login_Number was only an integer not a long.
* Invalid procedure or sub because Login_Number 123456789 has no equals
* The events aren't actually raised as the timer is never setup in code nor
does the preperations state to set the timers interval in the development
time. I prefer setting it at run time then it is definately set and also is
not pointlessly calling aw_wait while the sdk isn't even initialised.

Jun 23, 2005, 7:30pm

Option explcified not defined also.

--
- Mark Randall
http://zetech.swehli.com

[View Quote]

Jun 24, 2005, 11:12am

Sexy indeed... thx Chris!
[View Quote]

Jun 24, 2005, 11:28am

Yes with option explicit you would also need to dim Avatar_Name as a string.
[View Quote]

1  |   Order by index