lt // User Search

lt // User Search

1  |  

Sample code for VB Wrapper. Newbies check this out!

Feb 25, 2001, 9:52am
This is a multi-part message in MIME format.

------=_NextPart_000_0045_01C09F20.55524A00
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Here you go for all you newbies to the VB Wrapper. =20

Not the best format, but it works and is most easy to understand. (well =
by me anyhow)

Doing it this way gets rid of the quickstart, but i prefer it because it =
adds a lot more functionality. This also allows you to specify the =
universe the bot logs into.

If you have any probs, email me at: support at gateway-net.net

Enjoy,

LT
----


-------------------------------------------------------------------------=
-------

Here goes:

Create an empty project
add the awsdkocx2.ocx module to the form and change the name to: SDK =
*** NB, You may use this code for awsdkocx3.ocx when it becomes =
available.
then add a timer to the form and name it timAwWait

Then use the following code to get the bot to log into the universe, =
enter a world, appear and then say hello to everyone present, via =
whisper.

Copy and paste into VB below this line. Remove any other code from the =
form before you do.
Also remember to make changes to the starting world, citizen number and =
priv password before you run it. you may also want to change the =
universe.

-------------------------------------------------------------------------=
-------

Private Const CitizenNumber =3D 1 'This is the citizen number
Private Const Password =3D "mypassword" 'The priv pass for that citizen =
number
Private Const BotName =3D "VB Bot" 'I'm sure you can be creative on this =
one
Private Const Application =3D "VB Bot using AWSDKOCX2" 'This is optional
Private Const Universe =3D "auth.activeworlds.com" 'This is the universe =
to enter, ie. auth.seeray.com for OuterWorlds etc.
Private Const Port =3D 5670 ' This is the port to enter on the universe. =
NB: MOST if not all universes use the default port so you can just put =
a 0 (ZERO) here.
Private Const World =3D "GBot" ' This is the world to enter

' These below give the starting point within the world

Private Const MyX =3D 0
Private Const MyY =3D 0
Private Const MyZ =3D 0
Private Const MyYaw =3D 0

Private Const MyType =3D 0 'This is the avatar type 0 and 1 are the =
tourist types.
Private Sub Form_Load()

With sdk
=20
..AwInit AW_BUILD ' Init the API

..AwCreate Universe, Port ' Gets ready to log into the universe
=20
..AwEventSet AW_EVEN_AVATAR_ADD ' Allows the program to receuve events =
for the entry of an user into the world or the "visual" range of the =
bot.
=20
'All of theses below set the login parameters

.AwLoginApplication =3D Application
.AwLoginOwner =3D CitizenNumber
.AwLoginPrivilegePassword =3D Password
.AwLoginName =3D BotName


.AwLogin 'Performs the login, I would suggest you put in error =
checking here, but I have left it out for simplicty
=20
.AwEnter World, 0 'This enters the world. IMPORTANT NOTE: If you =
are using the 3.1 SDK, you MUST remove the ", 0" or the program WILL =
NOT FUNCTION. At the time of writing, the 3.1 VB Wrapper has not been =
released, so for most of you, this will remain as it is, but for those =
that come back in a couple of months time and need the info, here is the =
solution.
=20

' The lines below specify the location of the bot within the world. IF =
you ommit the lines here, the bot will still be in the world, only =
invisible and will be limited to only a few functions.

.AwMyType =3D MyType
.AwMyX =3D MyX
.AwMyY =3D MyY
.AwMyZ =3D MyZ
.AwMyYaw =3D MyYaw
=20
.AwStateChange
=20
=20
End With
=20
' Starts the aw wait timer
=20
TIMawWAIT.Interval =3D 1000
TIMawWAIT.Enabled =3D True

End Sub

Private Sub Form_Unload(Cancel As Integer)
TIMawWAIT.Enabled =3D False ' Stops the timer
sdk.AwTerm ' Kills the SDK
End Sub

Private Sub timAwWait_Timer()
sdk.AwWait 0
End Sub

Private Sub sdk_EventAvatarAdd() ' When another user enters the =
world....
sdk.AwWhisper sdk.AwAvatarSession, "Hello " & sdk.AwAvatarName =
'Whisper Hello and their name to him / her
End Sub


------=_NextPart_000_0045_01C09F20.55524A00
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Here you go for all you newbies to the =
VB=20
Wrapper.&nbsp; </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Not the best format, but it works and =
is most easy=20
to understand. (well by me anyhow)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Doing it this way gets rid of the =
quickstart, but i=20
prefer it because it adds a lot more functionality.&nbsp; This also =
allows you=20
to specify the universe the bot logs into.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>If you have any probs, email me at: <A=20
href=3D"mailto:support at gateway-net.net">support at gateway-net.net</A></FONT=
></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Enjoy,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>LT</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>----</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>
<HR>
</DIV>
<DIV><FONT face=3DArial size=3D2>Here goes:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Create an empty project<BR>add the =
awsdkocx2.ocx=20
module to the form and change the name to: SDK &nbsp; *** NB, You may =
use this=20
code for awsdkocx3.ocx when it becomes available.<BR>then add a timer to =
the=20
form and name it timAwWait<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Then use the following code to get the =
bot to log=20
into the universe, enter a world, appear and then say hello to everyone =
present,=20
via whisper.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Copy and paste into VB below this =
line.&nbsp;=20
Remove any other code from the form before you do.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Also remember to make changes to the =
starting=20
world, citizen number and priv password before you run it.&nbsp; you may =
also=20
want to change the universe.</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D1>
<HR>
</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D1>Private Const CitizenNumber =3D =
1 'This is=20
the citizen number<BR>Private Const Password =3D "mypassword" 'The priv =
pass for=20
that citizen number<BR>Private Const BotName =3D "VB Bot" 'I'm sure you =
can be=20
creative on this one<BR>Private Const Application =3D "VB Bot using =
AWSDKOCX2"=20
'This is optional<BR>Private Const Universe =3D "auth.activeworlds.com" =
'This is=20
the universe to enter, ie. auth.seeray.com for OuterWorlds =
etc.<BR>Private Const=20
Port =3D 5670 ' This is the port to enter on the universe.&nbsp; NB: =
MOST if not=20
all universes use the default port so you can just put a 0 (ZERO)=20
here.<BR>Private Const World =3D "GBot" ' This is the world to =
enter</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>' These below give the starting =
point=20
within the world</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>Private Const MyX =3D =
0<BR>Private Const MyY=20
=3D 0<BR>Private Const MyZ =3D 0<BR>Private Const MyYaw =3D =
0</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>Private Const MyType =3D 0 =
'This is the=20
avatar type 0 and 1 are the tourist types.<BR>Private Sub=20
Form_Load()</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>With sdk<BR>&nbsp; <BR>.AwInit =
AW_BUILD '=20
Init the API</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>.AwCreate Universe, Port ' Gets =
ready to=20
log into the universe<BR>&nbsp;&nbsp;&nbsp; <BR>.AwEventSet =
AW_EVEN_AVATAR_ADD '=20
Allows the program to receuve events for the entry of an user into the =
world or=20
the "visual" range of the =
bot.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
<BR>&nbsp;'All of theses below set the login parameters</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>&nbsp;&nbsp;&nbsp; =
..AwLoginApplication =3D=20
Application<BR>&nbsp;&nbsp;&nbsp; .AwLoginOwner =3D=20
CitizenNumber<BR>&nbsp;&nbsp;&nbsp; .AwLoginPrivilegePassword =3D=20
Password<BR>&nbsp;&nbsp;&nbsp; .AwLoginName =3D BotName</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><BR><FONT face=3D"Courier New" size=3D1>&nbsp;&nbsp;&nbsp; .AwLogin =
'Performs=20
the login, I would suggest you put in error checking here, but I have =
left it=20
out for simplicty<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; .AwEnter =
World,=20
0&nbsp;&nbsp; 'This enters the world.&nbsp; IMPORTANT NOTE: If you are =
using the=20
3.1 SDK, you MUST remove the&nbsp; ", 0" or the program WILL NOT =
FUNCTION. At=20
the time of writing, the 3.1 VB Wrapper has not been released, so for =
most of=20
you, this will remain as it is, but for those that come back in a couple =
of=20
months time and need the info, here is the =
solution.<BR>&nbsp;&nbsp;&nbsp;=20
</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>' The lines below specify the =
location of=20
the bot within the world.&nbsp; IF you ommit the lines here, the bot =
will still=20
be in the world, only invisible and will be limited to only a few=20
functions.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>&nbsp;&nbsp;&nbsp; .AwMyType =
=3D=20
MyType<BR>&nbsp;&nbsp;&nbsp; .AwMyX =3D MyX<BR>&nbsp;&nbsp;&nbsp; .AwMyY =
=3D=20
MyY<BR>&nbsp;&nbsp;&nbsp; .AwMyZ =3D MyZ<BR>&nbsp;&nbsp;&nbsp; .AwMyYaw =
=3D=20
MyYaw<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;=20
..AwStateChange<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;=20
<BR>&nbsp;&nbsp;&nbsp; End With<BR>&nbsp; <BR>' Starts the aw wait=20
timer<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp; TIMawWAIT.Interval =3D=20
1000<BR>&nbsp;&nbsp;&nbsp; TIMawWAIT.Enabled =3D True</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>End Sub</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>Private Sub Form_Unload(Cancel =
As=20
Integer)<BR>&nbsp;&nbsp;&nbsp; TIMawWAIT.Enabled =3D False ' Stops the=20
timer<BR>&nbsp;&nbsp;&nbsp; sdk.AwTerm ' Kills the SDK<BR>End =
Sub</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>Private Sub=20
timAwWait_Timer()<BR>&nbsp;&nbsp;&nbsp; sdk.AwWait 0<BR>End =
Sub</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D1>Private Sub =
sdk_EventAvatarAdd() ' When=20
another user enters the world....<BR>&nbsp;&nbsp;&nbsp; sdk.AwWhisper=20
sdk.AwAvatarSession, "Hello " &amp; sdk.AwAvatarName 'Whisper Hello and =
their=20
name to him / her<BR>End Sub<BR></FONT></DIV></BODY></HTML>

------=_NextPart_000_0045_01C09F20.55524A00--

please

Feb 26, 2001, 7:20am
I think you will find that starcube.vr needs help with the basics of VB. He
has VB and asked me for help. But, I am really not a good teacher of VB, so
if someone could help him get started in VB i'm sure he would be very
thankful.

I think that a reply with simply the SDK page is extreamly rude, who do you
think you are agent1?!?

-LT



[View Quote]

1  |  
Awportals.com is a privately held community resource website dedicated to Active Worlds.
Copyright (c) Mark Randall 2006 - 2022. All Rights Reserved.
Awportals.com   ·   ProLibraries Live   ·   Twitter   ·   LinkedIn