1  |   Order by index

Apr 15, 2000, 6:04pm

im using mrgrimm's msvb wrapper
--
i know the code to get it into other universes, but it wont work...here's
what my login code is for tagbot:

-------------------------------
Universe = GetSetting("TagBot", "Universe", "Server")
CitNum = GetSetting("TagBot", "Universe", "Citnum")
CitPass = GetSetting("TagBot", "Universe", "PPW")
World = GetSetting("TagBot", "Universe", "World")
MyName = GetSetting("TagBot", "Universe", "MyName")
MyOwner = GetSetting("TagBot", "Universe", "MyOwner")
timAwWait.Enabled = True
sdk.AwInit AW_BUILD
sdk.AwCreate Universe, "5670"
sdk.QuickStart CitNum, CitPass, MyName, "TagBot build 1", World, 3000, 200,
1000, 2250, 0
--------------------------------

Apr 16, 2000, 3:02am

You cant use QuickStart to enter another universe.


[View Quote]

Apr 16, 2000, 8:36pm

what do i use then?


[View Quote]

Apr 17, 2000, 7:44am

Do something like this..This is a vb version of the QuickStart
with the domain support..I havent tested this but this should
give you an idea:

Public Function QuickStart2(Owner as string, Password as string, _
BotName as string, Application as string, _
World as string, X as long, Y as long, _
Z as long, Yaw as long, Type as long, _
strDomain as string, lngPort as long) as Long

With sdk
rc=.AwCreate(strDomain,lngPort)
If rc <> 0 Then
.AwDestroy
QuickStart2 = rc
Exit Sub
End If

.EnableAllEvents
.EnableAllCallbacks

.AwLoginOwner = Owner
.AwLoginPrivilegePassword = Password
.AwLoginName = BotName
.AwLoginApplication = Application

rc=.AwLogin
if rc <> 0 Then
.AwDestroy
QuickStart2 = rc
Exit Sub
End If

rc=.AwEnter(World, 0)
If rc <> 0 Then
.AwDestroy
QuickStart2 = rc
Exit Sub
End If

.AwMyX = X
.AwMyY = Y
.AwMyZ = Z
.AwMyYaw = Yaw
.AwMyType = Type

rc=.AwStateChange
If rc <> 0 Then
.AwDestroy
QuickStart2 = rc
Exit Sub
End If

End With
QuickStart2 = rc

End Sub

[View Quote]

1  |   Order by index