johnf // User Search

johnf // User Search

1  2  3  4  5  6  ...  19  |  

To my dear friend Jbell

Mar 17, 2001, 3:03pm
Can't your little brain work out I have fixed my script now? And it counts
deaths and stuff so, *stifles laughter*

To my dear friend Jbell

Mar 17, 2001, 7:57pm
U were saying it as if it was the worst thing ever to grace the face of the
earth
[View Quote]

To my dear friend Jbell

Mar 17, 2001, 9:32pm
Ok, sorry if u r
[View Quote]

Bot's own session

Dec 13, 2003, 9:39am
I know this has been here somewhere before but how do I find it?

~John

Bot's own session

Dec 14, 2003, 10:28am
Tx Mark

~John

[View Quote]

Sorry for cross-post.. tis funny!

Dec 22, 2003, 6:22pm
Since there is no General.Discussion I am posting so it ends up where it
would have been (between Community and SDK)

http://www.coolquiz.com/funpages/funflash/index.asp?pageid=20

~John

Sorry for cross-post.. tis funny!

Dec 23, 2003, 12:42pm
Off topic in community too T

~John

[View Quote]

Keywords of a world?

Jan 15, 2004, 9:37pm
Using aw_world_list, is there a thing that contains the keywords?

~John

Keywords of a world?

Jan 16, 2004, 5:37pm
But if you wanted to make a bot to search for keywords.. that would mean
entering every world?

~John

[View Quote]

Help with C++ Code

Jan 17, 2004, 9:06pm
--------------------Configuration: test - Win32 Debug--------------------
Compiling...
test.cpp
c:\program files\microsoft visual studio\vc98\include\stdlib.h(2) : error
C2143: syntax error : missing ';' before '.'
c:\program files\microsoft visual studio\vc98\include\stdlib.h(2) : error
C2501: 'stdlib' : missing storage-class or type specifiers
c:\program files\microsoft visual studio\vc98\include\stdlib.h(2) : error
C2143: syntax error : missing ';' before '.'
c:\program files\microsoft visual studio\vc98\include\stdlib.h(7) : error
C2146: syntax error : missing ';' before identifier 'include'
c:\program files\microsoft visual studio\vc98\include\stdlib.h(7) : error
C2501: 'This' : missing storage-class or type specifiers
c:\program files\microsoft visual studio\vc98\include\stdlib.h(7) : fatal
error C1004: unexpected end of file found
Error executing cl.exe.

test.exe - 6 error(s), 0 warning(s)


- Whats wrong?


My code is (stdlib.h is included):

#include <iostream.h>
#include <stdlib.h>

int main()
{
cout << "Hello\n";
system("PAUSE");
return 0;
}

Help with C++ Code

Jan 17, 2004, 9:32pm
NM - reinstall solved.

~John

[View Quote]

Help with C++ Code

Jan 18, 2004, 8:01pm
Yes I did - thats why I thought perhaps a reinstall was necessary

~John

[View Quote]

Picture Rotateing

Jan 21, 2004, 4:43pm
I believe he wants to use a bot, CP

~John

[View Quote]

Picture Rotateing

Jan 21, 2004, 7:59pm
He's using VB

~John

[View Quote]

VB 6 Learning Ed

Jan 22, 2004, 4:07pm
http://cgi.ebay.co.uk/ws/eBayISAPI.dll?ViewItem&item=3656539973&ssPageName=A
DME:B:LC:UK:1

~John

VB 6 Learning Ed

Jan 22, 2004, 7:29pm
Your point?

~John

[View Quote]

VB 6 Learning Ed

Jan 22, 2004, 7:38pm
Yeah well I paid £95 for it

~John

[View Quote]

VB 6 Learning Ed

Jan 23, 2004, 8:50am
1/3 of the amount, good idea.. like £30

~John

[View Quote]

Building while disconnected

Jan 22, 2004, 9:15pm
Probably not, perhaps it should but not send so much data you're
disconnected from the world.

~John

[View Quote]

URYYB

Feb 7, 2004, 5:34pm
URYYB

TEST!

Few Random Classes

Feb 8, 2004, 11:37am
Russia eh, thanks Mark.. always wanted to launch a nuclear strike against
russia :-D

~John

[View Quote]

Coordinates Function

Feb 8, 2004, 11:15am
Hehe

~John
-----------------------------------------------------

Public Type type_Coordinates
Xcoord As Long
Ycoord As Long
Zcoord As Long
YAWcoord As Long
End Type
Global Xcoord As Long, Ycoord As Long, Zcoord As Long, YAWcoord As Long

Public Function Coordinates(ByVal CoordString As String) As type_Coordinates

Dim Va As Variant

If InStr(CoordString, " ") = 0 Then Exit Function
Va = Split(CoordString, " ")


If UBound(Va) = 1 Then CoordString = CoordString & " 0a"
If UBound(Va) = 2 Then CoordString = CoordString & " 0"
CoordString = CoordString & " 0"

Va = Split(CoordString, " ")

Dim TMP As String
TMP = CStr(Va(0))

If VBA.Right(TMP, 1) = "n" Then
Zcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * -1000
ElseIf VBA.Right(TMP, 1) = "s" Then
Zcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * 1000
End If

TMP = CStr(Va(1))

If VBA.Right(TMP, 1) = "e" Then
Xcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * -1000
ElseIf VBA.Right(TMP, 1) = "w" Then
Xcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * 1000
End If

Ycoord = Val(Va(2)) * 1000
YAWcoord = Val(Va(3)) * 10

With Coordinates
.Xcoord = Xcoord
.Ycoord = Ycoord
.Zcoord = Zcoord
.YAWcoord = YAWcoord
End With

End Function

Public Function StringCoords(ByVal X As Variant, ByVal Y As Variant, ByVal Z
As Variant, ByVal _
YAW As Variant) As String

Z = Val(Z) / 1000
Y = Val(Y) / 1000
X = Val(X) / 1000
YAW = Val(YAW) / 10

Dim TMPx As String, TMPy As String, TMPz As String, TMPyaw As String
If Z < 0 Then TMPz = -Z & "N" Else TMPz = Z & "S"
If X > 0 Then TMPx = X & "W" Else TMPx = -X & "E"
TMPy = Format(Y, "0.00") & "A"
TMPyaw = Format(YAW, "0.00")

StringCoords = TMPz & " " & TMPx & " " & TMPy & " " & TMPyaw
StringCoords = Replace(StringCoords, ".00", "")

End Function

Coordinates Function

Feb 9, 2004, 2:43pm
Uhh when tested this was all OK

~John

[View Quote]

Coordinates Function

Feb 9, 2004, 2:45pm
NM - you're correct, lol!

~John

[View Quote]

Coordinates Function

Feb 9, 2004, 2:47pm
Corrected:

~John

!-----------------------------------------------------!

Public Type type_Coordinates
Xcoord As Long
Ycoord As Long
Zcoord As Long
YAWcoord As Long
End Type
Global Xcoord As Long, Ycoord As Long, Zcoord As Long, YAWcoord As Long

Public Function coordinates(ByVal CoordString As String) As type_Coordinates

Dim Va As Variant

If InStr(CoordString, " ") = 0 Then Exit Function
Va = Split(CoordString, " ")


If UBound(Va) = 1 Then CoordString = CoordString & " 0a"
If UBound(Va) = 2 Then CoordString = CoordString & " 0"
CoordString = CoordString & " 0"

Va = Split(CoordString, " ")

Dim TMP As String
TMP = CStr(Va(0))

If VBA.Right(TMP, 1) = "n" Then
Zcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * 1000
ElseIf VBA.Right(TMP, 1) = "s" Then
Zcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * -1000
End If

TMP = CStr(Va(1))

If VBA.Right(TMP, 1) = "e" Then
Xcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * -1000
ElseIf VBA.Right(TMP, 1) = "w" Then
Xcoord = Val(VBA.Left(TMP, Len(TMP) - 1)) * 1000
End If

Ycoord = Val(Va(2)) * 1000
YAWcoord = Val(Va(3)) * 10

With coordinates
.Xcoord = Xcoord
.Ycoord = Ycoord
.Zcoord = Zcoord
.YAWcoord = YAWcoord
End With

End Function

Public Function StringCoords(ByVal X As Variant, ByVal Y As Variant, ByVal Z
As Variant, ByVal _
YAW As Variant) As String

Z = Val(Z) / 1000
Y = Val(Y) / 1000
X = Val(X) / 1000
YAW = Val(YAW) / 10

Dim TMPx As String, TMPy As String, TMPz As String, TMPyaw As String
If Z > 0 Then TMPz = Z & "N" Else TMPz = -Z & "S"
If X > 0 Then TMPx = X & "W" Else TMPx = -X & "E"
TMPy = Format(Y, "0.00") & "A"
TMPyaw = Format(YAW, "0.00")

StringCoords = TMPz & " " & TMPx & " " & TMPy & " " & TMPyaw
StringCoords = Replace(StringCoords, ".00", "")

End Function

[View Quote]

Coordinates Function

Feb 10, 2004, 9:52am
Uhh, no i didn't... :-o

~John

[View Quote]

virus alert (cross-posted to all groups)

Feb 20, 2004, 2:45pm
Share the worm or the info about it? LOL

~John

[View Quote]

virus alert (cross-posted to all groups)

Feb 20, 2004, 3:21pm
Lol!

~John

[View Quote]

Reason 29 ?¿?

Feb 28, 2004, 8:18am
Lol

~John

[View Quote]

Reason 29 ?¿?

Mar 1, 2004, 6:10pm
lol Mark.... :-)

~John

[View Quote]

1  2  3  4  5  6  ...  19  |  
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