john // User Search

john // User Search

1  2  3  4  5  6  ...  43  |  

Bingo Bot

May 20, 2003, 8:20pm
I don't give a damn, I needn't have released this at ALL... ok!?

[View Quote]

Bingo Bot

May 21, 2003, 8:55am
This was primarily released as open source for VB coders atcually.. I just
happened to include an EXE afterwards.

[View Quote]

Bingo Bot

May 21, 2003, 12:13pm
Sorry but there is 1 problem, most people can't seem to be able to use it
anyway without recompiling for some odd reason.... stop having a go.... I
wasn't even going to release it all.. the reason I posted it primarily to
SDK was because SDK is where developers R.

[View Quote]

Bingo Bot

May 28, 2003, 6:13pm
Eek!

They were missing but these are the terms:

The user may modify the BingoBot as he or she pleases. The user may not
sell this bot nor the code but may release their own updates if they want.
Copyright for original code is held by John C H Fricker but any additional
changes by third parties are not.



~John

[View Quote]

Re: Bingo Bot

May 10, 2003, 12:10pm
Now included: Compiled EXE

[View Quote]

Re: Bingo Bot

Jun 3, 2003, 4:53pm
Ya may A) need vb runtimes or B) needa get someone to recompile for you.

~John

[View Quote]

Grimmsoft.com

Jun 8, 2003, 2:40pm
Or someone bought domain, lol
[View Quote]

My Bingo Bot

Jun 21, 2003, 5:11pm
People were having trouble with setting it up before, etc... so here is a
setup: www.3d-reality.com/private/setup.zip (installs both code & compiled)

~John

My Bingo Bot

Jun 22, 2003, 7:27am
It includes everything, Bowen, even VB6, j/k... lol!

~John

[View Quote]

My Bingo Bot

Jun 25, 2003, 2:32pm
testing...may have been disconnected in a re-upload.

[View Quote]

My Bingo Bot

Jun 25, 2003, 3:23pm
fixed

[View Quote]

Visual Basic 6 SDK?

Jun 22, 2003, 3:33pm
Nah I always had problems w/ it :-D

[View Quote]

VB SKD?

Jun 23, 2003, 6:48am
Ask R i c h a r d, he made one on his site.


[View Quote]

VB 3.4 sdk

Jun 30, 2003, 3:42pm
Thank god!

~john

[View Quote]

The last 2 posts

Jul 1, 2003, 8:56pm
I thought it was sdk.aw_int_set(AW_INT_NAME, 123)

and similar method for the rest

~John

[View Quote]

Unofficial AwOcxSdk6.ocx UPDATE BUT INCOMPLETE

Jul 10, 2003, 6:11pm
I suppose AWInit would be used for two things then if it was a class module.

~John

[View Quote]

AwSdkDll 1.1

Jul 10, 2003, 6:22pm
How d'ya query?

AwSdkDll 1.1

Jul 12, 2003, 9:42pm
Tx

[View Quote]

Unofficial AwOcxSdk6.ocx ADD FUNCTIONS

Jul 13, 2003, 1:23pm
:-D

~John

[View Quote]

Unofficial AwSdkOcx6.ocx ixed UniverseTime

Jul 20, 2003, 8:54pm
Or have his OCX connect to his server, download a list of updates and show a
popup box! Lol

~John

[View Quote]

Sync'ing with VRT

Jul 21, 2003, 8:35pm
Or just make the bot auto-calculate time difference.

[View Quote]

AWSdkOcx4/5/6/Whatever object query!

Jul 21, 2003, 8:40pm
Module is at the bottom. This stores up to 100K objects in an array. This
is for pre 3.3 universes. This was designed for the OCXs including R i c h
a r d's unofficial AwSdkOcx6. The usage code is provided first and then the
Module code to be inserted into a module (VB) ~John

This calls the functions which stores, deletes and removes objects as they
come up in a regular query.

||---------------------------------------------------------||

Private Function Clear_All_Stored_Objects()
ResetAll
End Function

Private Sub sdk_EventCellObject()
CellObject sdk
End Sub

Private Sub sdk_EventObjectAdd()
ObjectAdd sdk
End Sub

Private Sub sdk_EventObjectClick()
ObjectClick sdk
End Sub

Private Sub sdk_EventObjectDeLete()
ObjectDelete sdk
End Sub

Private Sub sdk_EventObjectSelect()
ObjectSelect sdk
End Sub

||---------------------------------------------------------||

Private Type ObjectInfo
X As Long
Y As Long
Z As Long
Yaw As Long
Number As Long
Model As String
Action As String
Description As String
Used As Boolean
End Type
Dim Objects(0 To 100000) As ObjectInfo

Private Function FindNew() As Integer
For I = 0 To 100000
If Objects(I).Used = False Then FindNew = I: Exit Function
Next
End Function

Public Function CellObject(ByRef sdk As Object)
If sdk.AwWorldBuildNumber > 42 Then Exit Function

With Objects(FindNew)
.Model = sdk.AwObjectModel
.Action = sdk.AwObjectAction
.Description = sdk.AwObjectDescription
.Number = sdk.AwObjectNumber
.X = sdk.AwObjectX
.Y = sdk.AwObjectY
.Z = sdk.AwObjectZ
.Yaw = sdk.AwObjectYaw
.Used = True
End With

End Function

Public Function ObjectAdd(ByRef sdk As Object)
If sdk.AwWorldBuildNumber > 42 Then Exit Function

With Objects(FindNew)
.Model = sdk.AwObjectModel
.Action = sdk.AwObjectAction
.Description = sdk.AwObjectDescription
.Number = sdk.AwObjectNumber
.X = sdk.AwObjectX
.Y = sdk.AwObjectY
.Z = sdk.AwObjectZ
.Yaw = sdk.AwObjectYaw
.Used = True
End With

End Function

Public Function ObjectDelete(ByRef sdk As Object)
If sdk.AwWorldBuildNumber > 42 Then Exit Function

For I = 0 To 100000
If Objects(I).Used = True And Objects(I).Number = sdk.AwObjectNumber
Then Objects(I).Used = False: Exit Function
Next

End Function

Public Function ObjectSelect(ByRef sdk As Object)
If sdk.AwWorldBuildNumber > 42 Then Exit Function

For I = 0 To 100000
If Objects(I).Used = True And Objects(I).Number = sdk.AwObjectNumber
Then GetObjectProperties I, sdk: Exit Function
Next

End Function

Public Function ObjectClick(ByRef sdk As Object)
If sdk.AwWorldBuildNumber > 42 Then Exit Function

For I = 0 To 100000
If Objects(I).Used = True And Objects(I).Number = sdk.AwObjectNumber
Then GetObjectProperties I, sdk: Exit Function
Next

End Function

Private Function GetObjectProperties(I, ByRef sdk As Object)
If sdk.AwWorldBuildNumber > 42 Then Exit Function

With Objects(I)
sdk.AwObjectModel = .Model
sdk.AwObjectAction = .Action
sdk.AwStringSet AW_OBJECT_DESCRIPTION, .Description
sdk.AwObjectX = .X
sdk.AwObjectY = .Y
sdk.AwObjectZ = .Z
sdk.AwObjectYaw = .Yaw
End With

End Function

Public Function ResetAll()
For I = 0 To 100000
Objects(I).Number = 0
Objects(I).X = 0
Objects(I).Y = 0
Objects(I).Z = 0
Objects(I).Yaw = 0
Objects(I).Model = ""
Objects(I).Description = ""
Objects(I).Action = ""
Objects(I).Used = False
Next
End Function

AWSdkOcx4/5/6/Whatever object query!

Jul 23, 2003, 6:52pm
Yup, kewl eh?

~John :-D

[View Quote]

AWtoolkit removal tool

Jul 24, 2003, 2:16pm
Is darksville stupid?

~John

[View Quote]

AWtoolkit removal tool

Jul 24, 2003, 3:03pm
Don't need 2 be new 2 c its an AW Url, lol, btw king small guy isnt new.

~John

[View Quote]

AwSdkOcx6.Ctl Final no ocx only ctl read for instructions

Jul 23, 2003, 4:09pm
My pre-3.3 "query-aid"... once queried it stops the need for storing/looking
up object info from object number, see my other post to use it with other
SDK OCX files.

http://www.3d-reality.com/private/AwSdk.zip :-)

[View Quote]

Trusted Sources

Jul 24, 2003, 3:52pm
I know www.3d-reality.com is a trusted source (my site)

~John

[View Quote]

Trusted Sources

Jul 24, 2003, 4:20pm
www.xeonworlds.co.uk

~John

[View Quote]

Trusted Sources

Jul 24, 2003, 6:37pm
By never ever having any trouble ;-)
[View Quote]

VB SDK Terrain Height Set

Aug 11, 2003, 8:45pm
*mutters brant probably could... and Bill gates*

Lol

~John

[View Quote]

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