Aces High Bulletin Board

General Forums => Aces High General Discussion => Topic started by: Nomde on January 29, 2002, 12:43:12 PM

Title: Possible solution to vulgarity
Post by: Nomde on January 29, 2002, 12:43:12 PM
Hi ladies & gents
I've done a little programming in my time and was wondering if the solution might be as simple as placing in a monitor right in the program code of AH.

example in basic:
10 if text buffer = "foul language" then goto 30
20 goto 40
30 boot offender
40 continue with program

The list of foul language could be a list of words the members have agreed upon and could be modified easily. In other words, easy for me to say and a major headache for AH programmers :)

It would boot the offender and another couple lines could monitor the amount of times the offender has been booted, after "x" amount of times the offenders account could be placed on hold.

Just a thought...
Title: Possible solution to vulgarity
Post by: deSelys on January 29, 2002, 02:49:40 PM
10 PRINT "BASIC SUKKS MONKEY BUTTS"
20 GOTO 10


:D
Title: Possible solution to vulgarity
Post by: Broes on January 29, 2002, 02:58:02 PM
10 Print "I am still alive!"
20 poke (RND*65000),((RND*255)+1)
30 Goto 10

C64 Basic allowed you to directly change bytes in memory (including the part where the OS resided)  and it would normaly survive no more then 20 of the above loops :)

So far my highjacking attempt :D

Broesy
Title: Possible solution to vulgarity
Post by: Saintaw on January 29, 2002, 03:05:42 PM
Nomde, why show us code dating back to the 80's... please this hurts :D

hehehe
Title: Possible solution to vulgarity
Post by: Kratzer on January 29, 2002, 03:36:24 PM
If Instr(1,AH.BBS,"Complete Nerds") < 1 Then
  me.whew
Else
  me.shoot
End If

I don't understand... every time I run this, I end up getting shot.  WTF is wrong with this program?
Title: Possible solution to vulgarity
Post by: SFRT - Frenchy on January 29, 2002, 03:51:20 PM
Saw, Leave my wingman alone or I go to a cybercoffee, download AH, and shoot you down using the keyboard!

"Quand le chat est parti, les souries dancent";)
Title: Possible solution to vulgarity
Post by: hitech on January 29, 2002, 04:40:35 PM
Wonder if I can still find the first computer game I wrote in basic back in 1974, real trick would be to find the paper tape reader.

HiTech
Title: 1974!?
Post by: Professor Fate on January 29, 2002, 04:54:31 PM
sheesh yer old :)
Title: Possible solution to vulgarity
Post by: Tjay on January 29, 2002, 04:58:49 PM
No, but he must've started young. I've seen his pic on a web cam. Barely out of school by my standards. :(
Title: Possible solution to vulgarity
Post by: Saintaw on January 29, 2002, 05:18:27 PM
Good to hear from you Frenchy :)

Am practicing shooting down P47's (Pepe, Sancho & Ammo be my targets ... Nomde & I don't seem to share the same timeframe) ... haven't succeeded to get anywhere near those without exploding violently :(

Come back here, we have a nice pink Spitfire all shiny and waiting for you :D

(Tu as l'air aussi saoul que moi !)
Title: Possible solution to vulgarity
Post by: Nomde on January 29, 2002, 07:53:37 PM
I shoulda used assembly language without the nmonics :D

Don't ya miss the days walking into the local store, going up to the computer being sold by the records, typing in a loop command, running it, then walk away casually. hehe My past time hobby in 1981 :D
Title: Re: Possible solution to vulgarity
Post by: pbirmingham on January 29, 2002, 09:52:37 PM
Quote
Originally posted by Nomde

example in basic:
10 if text buffer = "foul language" then goto 30
20 goto 40
30 boot offender
40 continue with program


BZZZZZT!

10 if textbuffer <> "foul language then goto 30
20 boot offender
30 continue

HTH, HAND
Title: Possible solution to vulgarity
Post by: SirLoin on January 29, 2002, 10:27:23 PM
Hehe,anyone remember FORTRAN?
Title: Possible solution to vulgarity
Post by: Pongo on January 29, 2002, 11:02:58 PM
Lighten up you bullies.
some of us still make a living in basic..
dont know about the gotos though.
Probably look like this now.

 If system.buffer.text in badwords then
  dweeb as  new system.player
     if dweeb.warning > 1 then
      system.eject(dweeb)
      system.cancelaccount(dweeb)
      Player(pongo).perks = Player(pongo).perks + dweeb.perks
   else
       dweeb.warning = dweeb.warning + 1
       dweeb.message("Im not going to tell you again!")
       Player(pongo).perks = Player(pongo).perks + dweeb.perks
       dweeb.perks = 0
  end if

all nice and tidy
would have had me out of the game....a dozen times...
Title: Possible solution to vulgarity
Post by: Sancho on January 30, 2002, 12:24:15 AM
LOAD ACESHIGH.COM,8,1

:D
Title: Possible solution to vulgarity
Post by: Hamish on January 30, 2002, 08:57:39 AM
Quote
Originally posted by hitech
Wonder if I can still find the first computer game I wrote in basic back in 1974, real trick would be to find the paper tape reader.

HiTech


Hey HT, we still got a few paper tape readers on some older Ships :D
(My last one)

Hamish!