Thread

Board Archives

Site Features

Activeworlds Support

Historic Archives
GZ protect code [vb] (Sdk)

GZ protect code [vb] // Sdk

1  |  

the derek

Feb 3, 2001, 12:24am
--------------9B54D66F3AF26304DF9D92A9
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

this code ejects bots that log in within 5 meters
of GZ... its worked so far but so has some of my
other code that ended up being junk. if you got
the time check it over and if you find any
mistakes tell me :o)

Private Sub AwSdkOcx1_EventAvatarAdd()
Dim ownersession as long
If AwSdkOcx1.AwAvatarName = "The Derek" Then
ownersession = AwSdkOcx1.AwAvatarSession
End If
If Left(AwSdkOcx1.AwAvatarName, 1) = "[" Then
If AwSdkOcx1.AwAvatarX < 500 And AwSdkOcx1.AwAvatarX > -500 And AwSdkOcx1.AwAvatarZ < 500 And AwSdkOcx1.AwAvatarZ > -500 Then

AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry but bots cannot be within one coord of GZ"

AwSdkOcx1.AwEjectDuration = 1
AwEjectSession = AwSdkOcx1.AwAvatarSession
rc = AwSdkOcx1.AwWorldEject
AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName & " Was ejected. RC: " & rc

End If
If AwSdkOcx1.AwAvatarX > 500 And AwSdkOcx1.AwAvatarX < -500 And AwSdkOcx1.AwAvatarZ > 500 And AwSdkOcx1.AwAvatarZ < -500 Then

AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry but bots cannot be within one coord of GZ"

AwSdkOcx1.AwEjectDuration = 10
AwSdkOcx1.AwEjectionAddress = AwSdkOcx1.AwAvatarAddress

AwEjectSession = AwSdkOcx1.AwAvatarSession
rc = AwSdkOcx1.AwWorldEject
AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName & " Was ejected. RC: " & rc

End If
End If
End Sub

--------------9B54D66F3AF26304DF9D92A9
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
this code ejects bots that log in within 5 meters of GZ... its worked so
far but so has some of my other code that ended up being junk. if you got
the time check it over and if you find any mistakes tell me :o)
<p><nobr>Private Sub AwSdkOcx1_EventAvatarAdd()</nobr>
<br><nobr>Dim ownersession as long</nobr>
<br><nobr>If AwSdkOcx1.AwAvatarName = "The Derek" Then</nobr>
<br><nobr>ownersession = AwSdkOcx1.AwAvatarSession</nobr>
<br><nobr>End If</nobr>
<br><nobr>If Left(AwSdkOcx1.AwAvatarName, 1) = "[" Then</nobr>
<br><nobr>If AwSdkOcx1.AwAvatarX &lt; 500 And AwSdkOcx1.AwAvatarX > -500
And AwSdkOcx1.AwAvatarZ &lt; 500 And AwSdkOcx1.AwAvatarZ > -500 Then</nobr>
<br><nobr>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry but bots
cannot be within one coord of GZ"</nobr>
<br><nobr>AwSdkOcx1.AwEjectDuration = 1</nobr>
<br><nobr>AwEjectSession = AwSdkOcx1.AwAvatarSession</nobr>
<br><nobr>rc = AwSdkOcx1.AwWorldEject</nobr>
<br><nobr>AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName &amp;
" Was ejected. RC: " &amp; rc</nobr>
<br><nobr>End If</nobr>
<br><nobr>If AwSdkOcx1.AwAvatarX > 500 And AwSdkOcx1.AwAvatarX &lt; -500
And AwSdkOcx1.AwAvatarZ > 500 And AwSdkOcx1.AwAvatarZ &lt; -500 Then</nobr>
<br><nobr>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry but bots
cannot be within one coord of GZ"</nobr>
<br><nobr>AwSdkOcx1.AwEjectDuration = 10</nobr>
<br><nobr>AwSdkOcx1.AwEjectionAddress = AwSdkOcx1.AwAvatarAddress</nobr>
<br><nobr>AwEjectSession = AwSdkOcx1.AwAvatarSession</nobr>
<br><nobr>rc = AwSdkOcx1.AwWorldEject</nobr>
<br><nobr>AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName &amp;
" Was ejected. RC: " &amp; rc</nobr>
<br><nobr>End If</nobr>
<br><nobr>End If</nobr>
<br><nobr>End Sub</nobr></html>

--------------9B54D66F3AF26304DF9D92A9--

joeman

Feb 3, 2001, 1:06am
This is a multi-part message in MIME format.

------=_NextPart_000_0066_01C08D5B.74E85F20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

This can also be done by setting a restricted radius of 5 :D

~Joeman
[View Quote]
------=_NextPart_000_0066_01C08D5B.74E85F20
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>This can also be done by setting a restricted radius =
of 5=20
:D</FONT></DIV>
<DIV><FONT size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>~Joeman</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"the derek" &lt;<A=20
href=3D"mailto:ImTheDerek at yahoo.com">ImTheDerek at yahoo.com</A>&gt; =
wrote in=20
message <A=20
=
href=3D"news:3A7B6AED.E1540F48 at yahoo.com">news:3A7B6AED.E1540F48 at yahoo.co=
m</A>...</DIV>this=20
code ejects bots that log in within 5 meters of GZ... its worked so =
far but so=20
has some of my other code that ended up being junk. if you got the =
time check=20
it over and if you find any mistakes tell me :o)=20
<P><NOBR>Private Sub AwSdkOcx1_EventAvatarAdd()</NOBR> <BR><NOBR>Dim=20
ownersession as long</NOBR> <BR><NOBR>If AwSdkOcx1.AwAvatarName =3D =
"The Derek"=20
Then</NOBR> <BR><NOBR>ownersession =3D =
AwSdkOcx1.AwAvatarSession</NOBR>=20
<BR><NOBR>End If</NOBR> <BR><NOBR>If Left(AwSdkOcx1.AwAvatarName, 1) =
=3D "["=20
Then</NOBR> <BR><NOBR>If AwSdkOcx1.AwAvatarX &lt; 500 And =
AwSdkOcx1.AwAvatarX=20
&gt; -500 And AwSdkOcx1.AwAvatarZ &lt; 500 And AwSdkOcx1.AwAvatarZ =
&gt; -500=20
Then</NOBR> <BR><NOBR>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, =
"Sorry=20
but bots cannot be within one coord of GZ"</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwEjectDuration =3D 1</NOBR> =
<BR><NOBR>AwEjectSession =3D=20
AwSdkOcx1.AwAvatarSession</NOBR> <BR><NOBR>rc =3D =
AwSdkOcx1.AwWorldEject</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName =
&amp; " Was=20
ejected. RC: " &amp; rc</NOBR> <BR><NOBR>End If</NOBR> <BR><NOBR>If=20
AwSdkOcx1.AwAvatarX &gt; 500 And AwSdkOcx1.AwAvatarX &lt; -500 And=20
AwSdkOcx1.AwAvatarZ &gt; 500 And AwSdkOcx1.AwAvatarZ &lt; -500 =
Then</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry but =
bots=20
cannot be within one coord of GZ"</NOBR> =
<BR><NOBR>AwSdkOcx1.AwEjectDuration =3D=20
10</NOBR> <BR><NOBR>AwSdkOcx1.AwEjectionAddress =3D=20
AwSdkOcx1.AwAvatarAddress</NOBR> <BR><NOBR>AwEjectSession =3D=20
AwSdkOcx1.AwAvatarSession</NOBR> <BR><NOBR>rc =3D =
AwSdkOcx1.AwWorldEject</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName =
&amp; " Was=20
ejected. RC: " &amp; rc</NOBR> <BR><NOBR>End If</NOBR> <BR><NOBR>End =
If</NOBR>=20
<BR><NOBR>End Sub</NOBR> </P></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_0066_01C08D5B.74E85F20--

the derek

Feb 3, 2001, 2:48am
--------------2D3B25C36B8CFE81B0E54FEB
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

....? you mean in the world features dialog.. that
blocks object building not bots lol i have it set
to 10 and bots can still be logged into gz :o) if
not i dont know an sdk feature that does that.....

[View Quote] > This can also be done by setting a restricted
> radius of 5 :D ~Joeman
>
> "the derek" <ImTheDerek at yahoo.com>
[View Quote] --------------2D3B25C36B8CFE81B0E54FEB
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<body bgcolor="#FFFFFF">
....? you mean in the world features dialog.. that blocks object building
not bots lol i have it set to 10 and bots can still be logged into gz :o)
if not i dont know an sdk feature that does that.....
[View Quote] </body>
</html>

--------------2D3B25C36B8CFE81B0E54FEB--

joeman

Feb 3, 2001, 1:47pm
This is a multi-part message in MIME format.

------=_NextPart_000_00BC_01C08DC5.BE013DC0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

yes, unless you have eminite domain, the bots will be ejected with the =
restricted radius. I am willing to show you anytime in my world :D.

~Joeman

[View Quote] This can also be done by setting a restricted radius of 5 :D ~Joeman =

[View Quote]
------=_NextPart_000_00BC_01C08DC5.BE013DC0
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR></HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>yes, unless you have eminite domain, the bots will =
be ejected=20
with the restricted radius. I am willing to show you anytime in my world =

:D.</FONT></DIV>
<DIV><FONT size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>~Joeman</FONT></DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"the derek" &lt;<A=20
href=3D"mailto:ImTheDerek at yahoo.com">ImTheDerek at yahoo.com</A>&gt; =
wrote in=20
message <A=20
=
href=3D"news:3A7B8CA4.8DA691BD at yahoo.com">news:3A7B8CA4.8DA691BD at yahoo.co=
m</A>...</DIV>...?=20
you mean in the world features dialog.. that blocks object building =
not bots=20
lol i have it set to 10 and bots can still be logged into gz :o) if =
not i dont=20
know an sdk feature that does that.....=20
[View Quote] AwSdkOcx1.AwAvatarZ &lt; 500 And AwSdkOcx1.AwAvatarZ &gt; -500 =
Then</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry =
but bots=20
cannot be within one coord of GZ"</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwEjectDuration =3D 1</NOBR> =
<BR><NOBR>AwEjectSession =3D=20
AwSdkOcx1.AwAvatarSession</NOBR> <BR><NOBR>rc =3D=20
AwSdkOcx1.AwWorldEject</NOBR> <BR><NOBR>AwSdkOcx1.AwWhisper =
ownersession,=20
AwSdkOcx1.AwAvatarName &amp; " Was ejected. RC: " &amp; rc</NOBR>=20
<BR><NOBR>End If</NOBR> <BR><NOBR>If AwSdkOcx1.AwAvatarX &gt; 500 =
And=20
AwSdkOcx1.AwAvatarX &lt; -500 And AwSdkOcx1.AwAvatarZ &gt; 500 And =

AwSdkOcx1.AwAvatarZ &lt; -500 Then</NOBR> =
<BR><NOBR>AwSdkOcx1.AwWhisper=20
AwSdkOcx1.AwAvatarSession, "Sorry but bots cannot be within one =
coord of=20
GZ"</NOBR> <BR><NOBR>AwSdkOcx1.AwEjectDuration =3D 10</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwEjectionAddress =3D =
AwSdkOcx1.AwAvatarAddress</NOBR>=20
<BR><NOBR>AwEjectSession =3D AwSdkOcx1.AwAvatarSession</NOBR> =
<BR><NOBR>rc =3D=20
AwSdkOcx1.AwWorldEject</NOBR> <BR><NOBR>AwSdkOcx1.AwWhisper =
ownersession,=20
AwSdkOcx1.AwAvatarName &amp; " Was ejected. RC: " &amp; rc</NOBR>=20
<BR><NOBR>End If</NOBR> <BR><NOBR>End If</NOBR> <BR><NOBR>End=20
=
Sub</NOBR></P></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_00BC_01C08DC5.BE013DC0--

agent1

Feb 3, 2001, 2:43pm
uhh... Restricted Radius only limits building, not bot entry.

-Agent1





[View Quote] ~Joeman

[View Quote]

joeman

Feb 3, 2001, 3:12pm
thats odd... Oh well :D, back to reading the help files for me. I only have
1 question, in AW what keeps bots away from gz?

~Joeman

[View Quote]

young phalpha

Feb 3, 2001, 4:51pm
Customs Aide ejects them, I think XelaGot is world-owner friendly and
doesn't allow bots in that radius, it won't login, dunno tho :)

[View Quote]

the derek

Feb 5, 2001, 2:56am
the code i wrote for a bot lol (or supposed to)

[View Quote] > thats odd... Oh well :D, back to reading the help files for me. I only have
> 1 question, in AW what keeps bots away from gz?
>
> ~Joeman
>
[View Quote]

brandon

Feb 21, 2001, 3:17pm
This is a multi-part message in MIME format.

------=_NextPart_000_00B5_01C09BFF.6A708A60
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

i know preston can eject anybody within a certain radius but i dont know =
about bots only
[View Quote]
------=_NextPart_000_00B5_01C09BFF.6A708A60
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 bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>i know preston can eject anybody within =
a certain=20
radius but i dont know about bots only</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV>the derek &lt;<A=20
href=3D"mailto:ImTheDerek at yahoo.com">ImTheDerek at yahoo.com</A>&gt; =
wrote in=20
message <A=20
=
href=3D"news:3A7B6AED.E1540F48 at yahoo.com">news:3A7B6AED.E1540F48 at yahoo.co=
m</A>...</DIV>this=20
code ejects bots that log in within 5 meters of GZ... its worked so =
far but so=20
has some of my other code that ended up being junk. if you got the =
time check=20
it over and if you find any mistakes tell me :o)=20
<P><NOBR>Private Sub AwSdkOcx1_EventAvatarAdd()</NOBR> <BR><NOBR>Dim=20
ownersession as long</NOBR> <BR><NOBR>If AwSdkOcx1.AwAvatarName =3D =
"The Derek"=20
Then</NOBR> <BR><NOBR>ownersession =3D =
AwSdkOcx1.AwAvatarSession</NOBR>=20
<BR><NOBR>End If</NOBR> <BR><NOBR>If Left(AwSdkOcx1.AwAvatarName, 1) =
=3D "["=20
Then</NOBR> <BR><NOBR>If AwSdkOcx1.AwAvatarX &lt; 500 And =
AwSdkOcx1.AwAvatarX=20
&gt; -500 And AwSdkOcx1.AwAvatarZ &lt; 500 And AwSdkOcx1.AwAvatarZ =
&gt; -500=20
Then</NOBR> <BR><NOBR>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, =
"Sorry=20
but bots cannot be within one coord of GZ"</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwEjectDuration =3D 1</NOBR> =
<BR><NOBR>AwEjectSession =3D=20
AwSdkOcx1.AwAvatarSession</NOBR> <BR><NOBR>rc =3D =
AwSdkOcx1.AwWorldEject</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName =
&amp; " Was=20
ejected. RC: " &amp; rc</NOBR> <BR><NOBR>End If</NOBR> <BR><NOBR>If=20
AwSdkOcx1.AwAvatarX &gt; 500 And AwSdkOcx1.AwAvatarX &lt; -500 And=20
AwSdkOcx1.AwAvatarZ &gt; 500 And AwSdkOcx1.AwAvatarZ &lt; -500 =
Then</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper AwSdkOcx1.AwAvatarSession, "Sorry but =
bots=20
cannot be within one coord of GZ"</NOBR> =
<BR><NOBR>AwSdkOcx1.AwEjectDuration =3D=20
10</NOBR> <BR><NOBR>AwSdkOcx1.AwEjectionAddress =3D=20
AwSdkOcx1.AwAvatarAddress</NOBR> <BR><NOBR>AwEjectSession =3D=20
AwSdkOcx1.AwAvatarSession</NOBR> <BR><NOBR>rc =3D =
AwSdkOcx1.AwWorldEject</NOBR>=20
<BR><NOBR>AwSdkOcx1.AwWhisper ownersession, AwSdkOcx1.AwAvatarName =
&amp; " Was=20
ejected. RC: " &amp; rc</NOBR> <BR><NOBR>End If</NOBR> <BR><NOBR>End =
If</NOBR>=20
<BR><NOBR>End Sub</NOBR> </P></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_00B5_01C09BFF.6A708A60--
1  |  
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