Board Archives

Site Features

Activeworlds Support

Historic Archives
nightwalker // User Search

nightwalker // User Search

1  |  

BS Bot is returning : Pascal Script?

Mar 27, 2001, 6:34pm
Would it be interesting to have a pascal script based bot?
ex this: ?

BS Bot Script v. 1a
Based on the Pascal programming language
Copyright BS Programming 2001


inst.bs
----------------------------------------------------------------------------
----

const BotA = 1;
CitNum = 1;
PrivPas = 'my pass';
var iNS,iWE,iAlt,iYaw: Integer;
sBotName: String;

{Start the bot}

begin
iNS := 1000;
iWE := 1000;
iAlt := 10;
iYaw := 0;
BS_SetLogin(CitNum,PrivPass);
BS_SelectBot(BotA) then begin
BS_SetBotName(sBotName);
BS_SetBotWorld(BotA, 'beta');
BS_SetBotCord(iNS,iWE,iAlt,iYaw);
BS_SetMyGesture(2);
{Set events}
BS_SetEventAW_EVENT_AVATAR_ADD(true);
BS_SetEventAW_EVENT_AVATAR_DELETE(true);
BS_SetEventAW_EVENT_CHAT(true);
if not BS_StartBot(BotA) then begin
BS_AddConsole('Failed to add bot: BotA');
end;
end.

avataradd.bs
----------------------------------------------------------------------------
----

{Avatar add}
begin
BS_Whisper(BS_GetLastSession, 'Welcome to '+BS_Prop_WorldName', enjoy
your stay');
BS_AddConsole(BS_GetLastName+' has entered the world.');
end.

avatardelete.bs
----------------------------------------------------------------------------
----

{Avatar delete}
begin
BS_Say(BS_GetLastName + ' will return...');
BS_AddConsole(BS_GetLastName+' has left the world.');
end.

chat.bs
----------------------------------------------------------------------------
----

{Chat}
var sChat, s1, s2: string;
iPos: integer;
begin
iPos := Pos(sChat, ' ')-1;
s1 := LowerCase(Copy(0, iPos, Length(iPos)));
s2 := LowerCase(Copy(sChat,Length(s1), Length(sChat+1)));
if s1 = 'bot' then begin
if s2 = 'help' then BS_Whisper(BS_GetLastSession, 'Commands i know
are: help.');
end;
end.

Build 20, Delphi? Anyone?

Apr 4, 2001, 1:53pm
Some on got the AW SDK Build 20 to delphi ?

- NightWalker

Build 20 for Delphi

Apr 5, 2001, 12:08pm
thnx!


[View Quote]

Delphi SDK

Jul 23, 2001, 2:37pm
Could someone please send me Delphi SKD
Thanks

- NW

BS Bot is returning : Pascal Script?

Mar 27, 2001, 6:42pm
Would it be interesting to have a pascal script based bot?
ex this: ?

BS Bot Script v. 1a
Based on the Pascal programming language
Copyright BS Programming 2001


inst.bs
----------------------------------------------------------------------------
----

const BotA = 1;
CitNum = 1;
PrivPas = 'my pass';
var iNS,iWE,iAlt,iYaw: Integer;
sBotName: String;

{Start the bot}

begin
iNS := 1000;
iWE := 1000;
iAlt := 10;
iYaw := 0;
BS_SetLogin(CitNum,PrivPass);
BS_SelectBot(BotA) then begin
BS_SetBotName(sBotName);
BS_SetBotWorld(BotA, 'beta');
BS_SetBotCord(iNS,iWE,iAlt,iYaw);
BS_SetMyGesture(2);
{Set events}
BS_SetEventAW_EVENT_AVATAR_ADD(true);
BS_SetEventAW_EVENT_AVATAR_DELETE(true);
BS_SetEventAW_EVENT_CHAT(true);
if not BS_StartBot(BotA) then begin
BS_AddConsole('Failed to add bot: BotA');
end;
end.

avataradd.bs
----------------------------------------------------------------------------
----

{Avatar add}
begin
BS_Whisper(BS_GetLastSession, 'Welcome to '+BS_Prop_WorldName', enjoy
your stay');
BS_AddConsole(BS_GetLastName+' has entered the world.');
end.

avatardelete.bs
----------------------------------------------------------------------------
----

{Avatar delete}
begin
BS_Say(BS_GetLastName + ' will return...');
BS_AddConsole(BS_GetLastName+' has left the world.');
end.

chat.bs
----------------------------------------------------------------------------
----

{Chat}
var sChat, s1, s2: string;
iPos: integer;
begin
iPos := Pos(sChat, ' ')-1;
s1 := LowerCase(Copy(0, iPos, Length(iPos)));
s2 := LowerCase(Copy(sChat,Length(s1), Length(sChat+1)));
if s1 = 'bot' then begin
if s2 = 'help' then BS_Whisper(BS_GetLastSession, 'Commands i know
are: help.');
end;
end.

Streaming voice

Feb 18, 2001, 11:58am
umm, why not use BattleCom or GameVoice...
GameVoice has excelent quallity..
www.battlecom.com ?
www.gamevoice.com ?

- NightWalker

[View Quote]

Make AW in delphi

Feb 17, 2001, 4:47pm
Make AW in delphi
then the client can be ported to Linux to!
using kylix :)

- NightWalker
bjarte at opensourcegroup.de

Make AW in delphi

Feb 17, 2001, 5:45pm
much easier...

check out www.borland.com/kylix :)

much much easier

[View Quote]

Make AW in delphi

Feb 18, 2001, 9:36am
I think opengl would be much better and more
supported, i've made a test program with
component pacakge name "GLScene" a very
powerfull collection of OpenGL components
for Delphi and later on for Kylix
yust check it out... www.glscene.org

I'm on to make a test program to show u that
u can make also lots of nice effects and interface
in delphi under windows and later under linux.
I think if we get a 3D chat program under linux
it will get many more users, cz there aint so
many 3D chat progams under linux after my
knowledge, and OpenGL is damn fast under
linux, and linux is more stable thought... and Free :)

- NightWalker
bjarte at opensourcegroup.de

Make AW in delphi

Feb 18, 2001, 9:39am
Yes they are, yust dll calls


[View Quote]

Make AW in delphi

Feb 18, 2001, 7:33pm
ey dude check your c:\%windows%\ folder
you will find lots of rw dlls....
they yust putted it elsewhere... u think they
can put in a perfect rw in 1.4 mb?
not...

- NightWalker

[View Quote]

Make AW in delphi

Feb 18, 2001, 7:35pm
that what linux is about...

btw... Windows => Beta ware :)
belive me, i've used most Windows versions and none
are good.... come to linux people! Here it rox!

www.linux.com !

- NightWalker

[View Quote]

Make AW in delphi

Feb 18, 2001, 7:50pm
Who to make AW in delpih?
Simply

get Delphi or Kylix at www.borland.com/delphi / www.borland.com/kylix
then download the nice components we are going to use :)
GLScene, for OpenGL: www.glscene.org awsome! AMD 3D Now! support, :)
then a nice Package of powerfull internet servers and clients:
INDY: http://www.nevrona.com/Indy
then we might get a nice mp3 player...
XAudio: http://www.xaudio.com/ yust as fast calls as WinAmp ;)
then we get this nice component to make Lot of graphics support
http://www.lischke-online.de/Graphics.html#GraphicEx
supports:
a.. TIFF images (*.tif; *.tiff)
b.. GFI fax images (*.fax)
c.. SGI images (*.bw, *.rgb, *.rgba, *.sgi)
d.. Autodesk images files (*.cel; *.pic)
e.. Truevision images (*.tga; *.vst; *.icb; *.vda; *.win)
f.. ZSoft Paintbrush images (*.pcx, *.pcc; *.scr)
g.. Kodak Photo-CD images (*.pcd)
h.. Portable pixel/gray map images (*.ppm, *.pgm, *.pbm)
i.. Dr. Halo images (*.cut, *.pal)
j.. CompuServe images (*.gif)
k.. SGI Alias/Wavefront images (*.rla, *.rpf)
l.. Standard Windows bitmap images (*.bmp, *.rle, *.dib)
m.. Photoshop images (*.psd, *.pdd)
n.. Paintshop Pro images (*.psp)
o.. Portable network graphic images (*.png)

this is why i like delphi, all this is free, except the compiler...
but u can get a free pascal compiler at www.freepascal.org

then we mix it together in a nice program collection:

1. A client
3D etc..
http client
ftp client
mp3 player
etc..
2. A world server
Object db
etc..
3. A universe server
Nick db
World db
etc..

and then use your model path...

Happy making :)
or you can yust wait a few weeks and ill have the first Beta out :)

- NightWalker

Make AW in delphi

Feb 18, 2001, 7:53pm
Should be How in that subject line :)
Shit outlook :)

Make AW in delphi

Feb 19, 2001, 3:42pm
hehe
Windows is getting faster and crashing faster....
Windows is the most (i think) unstable OS on the
market, windows totaly sux, why?
Reason:
Microsoft has a bad policy:
- They must deliver programs fast to the users and it has
to be a faster program and a program with more functions
The result of this fast delivering pressure is: BUGS!
Lots of BUGS, not lilte bugs, but HUGE BUGS!

That is why linux is better, is made by users, can be editied
by users and made for the user.

And if someone goes around thinking "Oh my, I wont use Linux,
oh no, thats a hacker system".
Well your wrong, only reason why u call it a hackersystem is that
hackers use it, cz you can do what u want under linux, and over on
windows where you sit and bang you hands in the PC over every
blue screen you get and error messages... Hackers use linux, cz
they are smart enough to see that it is a very good and _controlable_
system!

Thoes of you who think linux is a hacker system might take a look on
the following links and _read_ them, so u can see that linux is not a
hackersystem, its a system where you are behind the wheel and not
locked up in a box in the celler, like in windows......!

www.linux.com
www.suse.com
www.redhat.com
www.slackware.com
www.mandrake.com
www.linuxnewbie.com

- NightWalker

Make AW in delphi

Feb 19, 2001, 3:55pm
100% customizable ?
its like 0.1% customizable in case of Linux...
u cant change the name of the os...
u cant change the kernel
u cant set what is going to be started (and i mean all of it)

Hehehe if u see linux, damn, you will never use windows again
(except for AW :)

- NightWalker

Make AW in delphi

Feb 19, 2001, 7:56pm
dont disclude SGI,
they have linux and their own (or SUNs' ?) operating system
www.sgi.com


[View Quote]

Make AW in delphi

Feb 19, 2001, 8:09pm
like you want something to be improved in it.....

and why they make linux:
do u think they can have windows on this server, no it would crash every
secound:

SGI Origin 3800
------------------------------------------------

Processors: 16-512 using 4-processor C-bricks
System bandwidth: Up to 716 GB/sec
Maximum memory: 1 TB
Router type: 8-port
Base I/O: I-brick
Additional I/O: I-brick, P-brick, X-brick, D-brick

Windows is going to dream if they want to have their software up and running
on one off these..! They have a total own system, MIPS® and IRIX®,
so i u dont like linux, well let me tell ya....
- Most activeworlds servers run on linux
- Most webservers and IPS run their software on linux

for example, http://www.euronet.nl they run all their servers on FreeBSD
(Unix)
(wich linux is build on ... unix...). So Linux = 99.9% uptime windows is....
na...
a damn much less. Our Windows 2000 Advance Server was so buggy that our
system
admin was about to kick it way to the moon, it was so f**king unstable....
every time there was a problem... and now we are talking about a middle size
server....
for 90 students PCs..... Man... i sure lagged like hell!

- NightWalker

Make AW in delphi

Feb 20, 2001, 6:07am
then why is windows sulking about kernel32.dll errors?
man if you know the system, you would know what we
talk about..

-NightWalker

Make AW in delphi

Feb 20, 2001, 6:49pm
kernel32.dll is like the kernel.... the core in windows... (i think)...



[View Quote]

I wish..

Feb 20, 2001, 6:48pm
(wish you dont get ejected :P )




[View Quote]
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