1  2  3  4  5  6  ...  43  |   Order by default

May 20, 2003, 8:20pm

I don't give a damn, I needn't have released this at ALL... ok!?

[View Quote]

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]

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]

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]

May 10, 2003, 12:10pm

Now included: Compiled EXE

[View Quote]

Jun 3, 2003, 4:53pm

Ya may A) need vb runtimes or B) needa get someone to recompile for you.

~John

[View Quote]

Jun 8, 2003, 2:40pm

Or someone bought domain, lol
[View Quote]

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

Jun 22, 2003, 7:27am

It includes everything, Bowen, even VB6, j/k... lol!

~John

[View Quote]

Jun 25, 2003, 2:32pm

testing...may have been disconnected in a re-upload.

[View Quote]

Jun 25, 2003, 3:23pm

fixed

[View Quote]

Jun 22, 2003, 3:33pm

Nah I always had problems w/ it :-D

[View Quote]

Jun 23, 2003, 6:48am

Ask R i c h a r d, he made one on his site.


[View Quote]

Jun 30, 2003, 3:42pm

Thank god!

~john

[View Quote]

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]

Jul 10, 2003, 6:11pm

I suppose AWInit would be used for two things then if it was a class module.

~John

[View Quote]

Jul 10, 2003, 6:22pm

How d'ya query?

Jul 12, 2003, 9:42pm

Tx

[View Quote]

Jul 13, 2003, 1:23pm

:-D

~John

[View Quote]

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]

Jul 21, 2003, 8:35pm

Or just make the bot auto-calculate time difference.

[View Quote]

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

Jul 23, 2003, 6:52pm

Yup, kewl eh?

~John :-D

[View Quote]

Jul 24, 2003, 2:16pm

Is darksville stupid?

~John

[View Quote]

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]

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]

Jul 24, 2003, 3:52pm

I know www.3d-reality.com is a trusted source (my site)

~John

[View Quote]

Jul 24, 2003, 4:20pm

www.xeonworlds.co.uk

~John

[View Quote]

Jul 24, 2003, 6:37pm

By never ever having any trouble ;-)
[View Quote]

Aug 11, 2003, 8:45pm

*mutters brant probably could... and Bill gates*

Lol

~John

[View Quote]

1  2  3  4  5  6  ...  43  |   Order by default