Re: Re: ChatGPT v Bard
By: fusion to Sideburn on Sun Jan 28 2024 01:25 am

On 27 Jan 2024, Sideburn said the following...

not necessarily a response just to you, but if you (all) are interested in trying some of these for "free":

https://chat.lmsys.org/

lets you ask a question of two randomly selected ones, in return for some research data (which one you liked best, what sort of stuff you ask it, etc).. might take a few rounds to get a bard or gpt or
whatever model that gives you decent output though.

--- Mystic BBS v1.12 A47 2021/12/25 (Windows/32)
* Origin: cold fusion - cfbbs.net - grand rapids, mi

Thank you, that is very interesting indeed.

---
þ Synchronet þ Palantir BBS * palantirbbs.ddns.net * Pensacola, FL

Re: ChatGPT v Bard
By: nelgin to All on Mon Jan 22 2024 05:42 am

I asked Copilot to write TradeWars in Pascal, and got this:

Creating a game like TradeWars in Pascal would be quite an extensive project, as it involves setting up a complex environment with various gameplay mechanics. However, I can certainly help you get started with a basic structure. Here's a simple outline to illustrate how you might begin coding such a game:

```pascal
program TradeWars;

uses crt;

type
Planet = record
name: string;
economy: integer;
defense: integer;
resources: integer;
end;

var
playerLocation: Planet;
planets: array[1..10] of Planet;

procedure InitializePlanets;
var
i: integer;
begin
// Initialize planets with names and random attributes
for i := 1 to 10 do
begin
with planets[i] do
begin
name := 'Planet' + IntToStr(i);
economy := Random(100) + 1;
defense := Random(100) + 1;
resources := Random(100) + 1;
end;
end;
end;

procedure DisplayStatus;
begin
// Display player's current status and location
with playerLocation do
begin
writeln('Current Location: ', name);
writeln('Economy Level: ', economy);
writeln('Defense Level: ', defense);
writeln('Resource Level: ', resources);
end;
end;

procedure Trade;
begin
// Implement trading mechanics
writeln('Trading not implemented yet.');
end;

procedure Travel;
var
destination: integer;
begin
// Implement travel mechanics
writeln('Where would you like to travel?');
readln(destination);
if (destination >= 1) and (destination <= 10) then
playerLocation := planets[destination]
else
writeln('Invalid destination.');
end;

begin
// Main game loop
Randomize;
InitializePlanets;
playerLocation := planets[1]; // Start at Planet 1

while true do
begin
clrscr;
DisplayStatus;
writeln('What would you like to do?');
writeln('1. Trade');
writeln('2. Travel');
writeln('3. Quit');
case readkey of
'1': Trade;
'2': Travel;
'3': break;
end;
end;
end.

This code provides a starting point for a TradeWars-like game in Pascal. It sets up a universe of planets with random attributes and allows the player to travel between them. The trading mechanics would need to be implemented, along with many other features to create a full game experience. Remember, this is just a basic framework and a lot more work would be needed to develop a complete game. If you're interested in the original source code of TradeWars, it seems there's a Pascal version available.

---
þ Synchronet þ War Ensemble BBS - The sport is war, total war - warensemble.com

On 2024-03-27, Skylar <ENSEMBLE!Skylar@vert.synchro.net> wrote:

Re: ChatGPT v Bard
By: nelgin to All on Mon Jan 22 2024 05:42 am

I asked Copilot to write TradeWars in Pascal, and got this:

Creating a game like TradeWars in Pascal would be quite an extensive project, as it involves setting up a complex environment with various gameplay mechanics. However, I can certainly help you get started with a basic structure. Here's a simple outline to illustrate how you might begin coding such a game:

```pascal
program TradeWars;

uses crt;

type
Planet = record
name: string;
economy: integer;
defense: integer;
resources: integer;
end;

var
playerLocation: Planet;
planets: array[1..10] of Planet;

procedure InitializePlanets;
var
i: integer;
begin
// Initialize planets with names and random attributes
for i := 1 to 10 do
begin
with planets[i] do
begin
name := 'Planet' + IntToStr(i);
economy := Random(100) + 1;
defense := Random(100) + 1;
resources := Random(100) + 1;
end;
end;
end;

procedure DisplayStatus;
begin
// Display player's current status and location
with playerLocation do
begin
writeln('Current Location: ', name);
writeln('Economy Level: ', economy);
writeln('Defense Level: ', defense);
writeln('Resource Level: ', resources);
end;
end;

procedure Trade;
begin
// Implement trading mechanics
writeln('Trading not implemented yet.');
end;

procedure Travel;
var
destination: integer;
begin
// Implement travel mechanics
writeln('Where would you like to travel?');
readln(destination);
if (destination >= 1) and (destination <= 10) then
playerLocation := planets[destination]
else
writeln('Invalid destination.');
end;

begin
// Main game loop
Randomize;
InitializePlanets;
playerLocation := planets[1]; // Start at Planet 1

while true do
begin
clrscr;
DisplayStatus;
writeln('What would you like to do?');
writeln('1. Trade');
writeln('2. Travel');
writeln('3. Quit');
case readkey of
'1': Trade;
'2': Travel;
'3': break;
end;
end;
end.

This code provides a starting point for a TradeWars-like game in Pascal. It sets up a universe of planets with random attributes and allows the player to travel between them. The trading mechanics would need to be implemented, along with many other features to create a full game experience. Remember, this is just a basic framework and a lot more work would be needed to develop a complete game. If you're interested in the original source code of TradeWars, it seems there's a Pascal version available.

---
þ Synchronet þ War Ensemble BBS - The sport is war, total war - warensemble.com

Why not t3x/0? It's similar to Pascal and it will run under DOS, CP/M and Unix.

http://t3x.org/t3x/0/index.html

---
þ Synchronet þ Vertrauen þ Home of Synchronet þ [vert/cvs/bbs].synchro.net

Re: Re: ChatGPT v Bard
By: anthk to All on Sat Mar 22 2025 02:32 am

Why not t3x/0? It's similar to Pascal and it will run under DOS, CP/M and Unix.

http://t3x.org/t3x/0/index.html

chatgpt wont make a working program most of the time anyways.
no way is it going to write a working tradewars in any language.
---
þ Synchronet þ ::: BBSES.info - free BBS services :::