Deleted posts

[PhilOfPerth]

When a post is deleted by someone other than the Poster, it would be nice to know why it was deleted... 
Just "Too verbose", or "Nasty" wouuld do!

[SMcNeill]

Most of the time, posts are generally only deleted for spam.  Those folks also tend to get banned, so there's not much reason to inform them why their post was deleted. 

Sometimes folks will post about an issue over something on the forums, or with QB64 itself.  Often a mod or admin will take care of whatever the issue is, and then, delete the post as it's no longer relevant and not something anyone needs to worry over.

For example, here's your post which was deleted:

This is a remake of the first game I made for IBM in 1977

Code: (Select All)

$ExeIcon:'./data\hm.ico'
_Title "Hangman by David Coterel"
Screen _NewImage(662, 828, 32): x = _DesktopWidth * .5 - 331: y = _DesktopHeight * .5 - 414: _ScreenMove x, y
$Resize:Smooth

5 Randomize (-Timer)

_Define A-Z As SINGLE
Randomize (-Timer)

skel& = _LoadImage("data\skel.png", 32)
gp& = _LoadImage("data\gp.png", 32)
typ& = _SndOpen("data\type.wav")

BD1& = _LoadImage("data\head.png", 32)
BD2& = _LoadImage("data\larm.png", 32)
BD3& = _LoadImage("data\rarm.png", 32)
BD4& = _LoadImage("data\tors.png", 32)
BD5& = _LoadImage("data\lleg.png", 32)
BD6& = _LoadImage("data\hips.png", 32)
BD7& = _LoadImage("data\rleg.png", 32)

bm& = _SndOpen("data\dance.ogg"): _SndLoop bm&: _SndVol bm&, .15
cor& = _SndOpen("data\correct.wav"): _SndVol cor&, .5
ico& = _SndOpen("data\incorrect.wav"): _SndVol ico&, .5
win& = _SndOpen("data\win.wav"): _SndVol cor&, .5
los& = _SndOpen("data\loose.wav"): _SndVol ico&, .5

Const WHITE = _RGB32(255, 255, 255)
Const PURPLE = _RGB32(112, 48, 160)
Const BLACK = _RGB32(0, 0, 0)
Const BLUE = _RGB32(0, 0, 255)
Const RED = _RGB32(255, 0, 0)
Const YELLOW = _RGB32(255, 245, 0)
Const LGREEN = _RGB32(196, 255, 13)
Const GREEN = _RGB32(0, 255, 0)
Const GRAY = _RGB32(195, 195, 195)
Const orange = _RGB32(255, 195, 10)

Color BLACK, WHITE: Cls
_PutImage (140, 180), skel&
f& = _LoadFont("data\font1.ttf", 96)
_Font f&
A$ = "HANGMAN": w1 = _PrintWidth(A$)
Locate 1, 331 - (w1 * .5): Print A$;
f& = _LoadFont("data\font2.ttf", 22)
_Font f&
A$ = "By David Coterel 2025": w1 = _PrintWidth(A$)
Color PURPLE: Locate 7, 331 - (w1 * .5): Print A$;

f& = _LoadFont("data\font2.ttf", 32)
_Font f&
A$ = "How many letters?": w1 = _PrintWidth(A$)
Color PURPLE: Locate 23, 331 - (w1 * .5): Print A$;
A$ = "3  4  5  6  7  8  9  10  11  12  13": w1 = _PrintWidth(A$)
Color BLACK: Locate 25, 331 - (w1 * .5): Print A$;
Do: m1 = _MouseInput + _MouseButton(1) + _MouseButton(2): Loop Until m1 = 0

Do: m1 = _MouseInput: m2 = _MouseX: m3 = _MouseY: m4 = _MouseButton(1): m5 = _MouseButton(2): lt = 0: y1 = 765: y2 = 797
    x1 = 105: x2 = 133: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 3: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 142: x2 = 170: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 4: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 180: x2 = 207: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 5: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 217: x2 = 243: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 6: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 253: x2 = 279: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 7: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 290: x2 = 316: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 8: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 328: x2 = 354: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 9: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 365: x2 = 405: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 10: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 416: x2 = 454: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 11: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 463: x2 = 501: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 12: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 514: x2 = 552: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 13: Else Line (x1, y1)-(x2, y2), WHITE, B
Loop Until m4 = -1 And lt <> 0

Open "data/words.txt" For Input As #1: wd = 0
Do: Input #1, A$: If Len(A$) = lt Then wd = wd + 1
Loop Until EOF(1) = -1
Close #1: a = Int(Rnd(1) * wd) + 1
Open "data/words.txt" For Input As #1: wd = 0: word$ = ""
Do: Input #1, A$: If Len(A$) = lt Then wd = wd + 1: If wd = a Then word$ = A$
Loop Until EOF(1) = -1 Or word$ <> ""
Close #1

Cls: f& = _LoadFont("data\font2.ttf", 24)
_Font f&: _PutImage (0, 0), gp&: Color BLUE
A$ = "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
w1 = _PrintWidth(A$): Locate 33, 331 - (w1 * .5): Print A$;

f& = _LoadFont("data\font2.ttf", 36)
_Font f&: gs$ = " ": For t = 1 To lt: g$ = g$ + "_": gs$ = gs$ + "_ ": Next t
Color BLACK: w1 = _PrintWidth(gs$): Locate 21, 331 - (w1 * .5): Print gs$;



10
Do: m1 = _MouseInput + _MouseButton(1) + _MouseButton(2): Loop Until m1 = 0
Do: m1 = _MouseInput: m2 = _MouseX: m3 = _MouseY: m4 = _MouseButton(1): m5 = _MouseButton(2): lt = 0: y1 = 768: y2 = 793
    x1 = 36: x2 = 54: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 65: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 61: x2 = 76: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 66: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 82: x2 = 99: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 67: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 105: x2 = 123: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 68: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 130: x2 = 143: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 69: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 150: x2 = 163: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 70: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 169: x2 = 187: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 71: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 194: x2 = 212: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 72: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 218: x2 = 227: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 73: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 231: x2 = 243: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 74: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 250: x2 = 266: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 75: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 273: x2 = 286: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 76: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 293: x2 = 315: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 77: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 323: x2 = 341: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 78: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 348: x2 = 367: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 79: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 374: x2 = 389: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 80: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 395: x2 = 414: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 81: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 421: x2 = 437: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 82: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 443: x2 = 458: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 83: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 463: x2 = 481: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 84: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 487: x2 = 504: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 85: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 510: x2 = 528: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 86: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 534: x2 = 560: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 87: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 565: x2 = 582: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 88: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 588: x2 = 604: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 89: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
    x1 = 610: x2 = 626: If m2 > x1 And m2 < x2 And m3 > y1 And m3 < y2 Then Line (x1, y1)-(x2, y2), RED, B: lt = 90: xx1 = x1: xx2 = x2: yy1 = y1: yy2 = y2: Else Line (x1, y1)-(x2, y2), WHITE, B
Loop Until m4 = -1 And lt <> 0

w = 0

For t = 1 To Len(word$)
    If Mid$(g$, t, 1) = "_" And UCase$(Mid$(word$, t, 1)) = Chr$(lt) Then Mid$(g$, t, 1) = Chr$(lt): w = 1: _SndPlay cor&
Next t

If w = 0 And InStr(us$, Chr$(lt)) = 0 Then p = p + 1: GoSub 100: If p = 7 Then GoTo 200


gs$ = " ": us$ = us$ + Chr$(lt):

For t = 1 To Len(word$)
    gs$ = gs$ + Mid$(g$, t, 1) + " "
Next t

w1 = _PrintWidth(gs$)

Locate 21, 331 - (w1 * .5)

Print gs$;

Line (xx1, yy1)-(xx2, yy2), WHITE, BF

If UCase$(word$) = UCase$(g$) Then 400
GoTo 10

100 '
_SndPlay ico&
If p = 1 Then _PutImage (352, 130), BD1&
If p = 3 Then _PutImage (200, 230), BD2&
If p = 4 Then _PutImage (480, 252), BD3&
If p = 2 Then _PutImage (355, 265), BD4&
If p = 5 Then _PutImage (350, 380), BD6&
If p = 6 Then _PutImage (320, 440), BD5&
If p = 7 Then _PutImage (440, 430), BD7&
Return

200 '
Line (200, 130)-(662, 585), WHITE, BF: Line (260, 585)-(662, 630), WHITE, BF: _SndPlay los&
For t = 1 To 60: _Limit 30: _PutImage (245, 124 + t), skel&: Line (423, 120)-(437, 123 + t), orange, BF: Next t
For t = 59 To 1 Step -1: _Limit 30: _PutImage (245, 124 + t), skel&: Next t
For t = 1 To 60: _Limit 90: _PutImage (245, 124 + t), skel&: Line (423, 120)-(437, 123 + t), orange, BF: Next t
f& = _LoadFont("data\font2.ttf", 22)
_Font f&

Color RED: Locate 30, 385: Print "Sorry you loose..."
Color BLACK: Locate 31, 385: Print "Play again [LM/RM]"
A$ = "The Word Was: " + UCase$(word$): w1 = _PrintWidth(A$) * .5
Locate 3, 331 - w1: Color LGREEN, BLACK: Print A$;

300 '
Do: m1 = _MouseInput + _MouseButton(1) + _MouseButton(2): Loop Until m1 = 0
Do: m1 = _MouseInput: m4 = _MouseButton(1): m5 = _MouseButton(2)
Loop Until m4 = -1 Or m5 = -1
If m4 = -1 Then _SndStop bm&: Clear: GoTo 5
System

400 '
Line (200, 130)-(662, 585), WHITE, BF: Line (260, 585)-(662, 630), WHITE, BF: _SndPlay win&
_PutImage (0, 0), gp&: _PutImage (315, 270)-(499, 620), skel&
f& = _LoadFont("data\font2.ttf", 22)
_Font f&

Color GREEN: Locate 30, 385: Print "YOU WON!!!!"
Color BLACK: Locate 31, 385: Print "Play again [LM/RM]"
A$ = "WINNER  WINNER  WINNER": w1 = _PrintWidth(A$) * .5
Locate 3, 331 - w1: Color LGREEN, BLACK: Print A$;
For t = 1 To 100: _Limit 45: _PutImage (315 + t, 270)-(499 + t, 620), skel&: Next t
For t = 99 To -70 Step -1: _Limit 55: _PutImage (315 + t, 270)-(499 + t, 620), skel&: Next t
For t = -69 To 347: _Limit 70: _PutImage (315 + t, 270)-(499 + t, 620), skel&: Next t
GoTo 300

Hi dcoterel
The Code section doesn't seem to be installed correctly - the Select All buton is ignored. (can manually select code though).

Notice how you quoted his entire post, which had the codebox formatting screwed up, creating your own long post with screwed up formatting.

I don't know how many lines of text that is, but it's several hundred and more than a few pages of scrolling, just to end up saying:
"The Code section doesn't seem to be installed correctly - the Select All buton is ignored. (can manually select code though)."

With the code section in his post edited and corrected, there wasn't anything relevant to the topic at hand, and a whole lot of misformatted text in it.   The simplest thing here to do, is what I did -- just click the "DELETE POST" button.  Otherwise, it'd require editing and then explanation, and still wouldn't be relevant to anything as the issue it was referencing was corrected...

Problem gone.  Report of problem gone.   

It really is that simple, with no reason to post a whole other off-topic post about it being removed.  It wasn't "too verbose".  Certainly wasn't "nasty".  It just had lost all relevance to the topic at hand, as the issue it stemmed from was corrected and gone.  Leaving it would just lead to people scratching their heads and going, "WTF is Phil going on about?  It works perfectly fine for me!"    

[PhilOfPerth]

Point made. I'll be more careful when/if I post again. Thanks for the explanation.

[Jack]

@PhilOfPerth
you have a tendency to quote huge posts only to make a brief comment, despite some people complaining about the quoting abuse

[PhilOfPerth]

@Jack
Yes, so I've heard, but thanks for the reminder.

[PhilOfPerth]

I expect there's a good reason why this isn't possible, or feasible, but here goes:
Instead of (I assume by default), the Reply button appending the reply to the previous post, could it be made (by default) to
instead just include a link to that post, with the option of linking to a previous post in the thread, or of manually quoting it?

[bplus]

@PhilOfPerth perhaps if you get out of the habit of using the Reply button and use the New Reply button belowest (new word  ) you wont get the automatic quote of the last post but a blank slate from which you may comment on the previous reply without quoting the whole thing.

Just a suggestion... that sure beats worrying about links!

[SMcNeill]

There's also the ever so simple quick reply area already at the bottom of the screen.  Normally, when you're just replying to the person directly above you, there's not any real reason to quote their post.  Just type in something like:

@bplus See?  No "NEW REPLY" needed.  I just typed into the existing message box and hit "POST REPLY"!!

The @ and name will send a message letting the person know you replied to them specifically, and it'd take a real effort on someone's part to not be able to figure out what the response was concerning, since the posts flow one directly after the other in sequential order.

[PhilOfPerth]

Ok, got it now.
Sorry to be so dense, I didn't realize there was a difference betwen the two Reply buttons,
So it seems I was trying to re-invent the wheel. My big. 

[SMcNeill]

"NEW REPLY" takes you to a whole new page with all the editing options and poll creation options and attachment options.

The "QUICK REPLY" area is good to just type out some short and quick response to the previous poster.  It doesn't have all the other options, but how often do you really need to create a poll or insert an attachment?

The "REPLY" button is what automatically quotes someone's post, and -- in my opinion -- is really only needed if you're replying to something several posts back and want to make certain to draw attention to what you're responding to.  It's not much use when you're just talking to the previous poster, but if three or four other people have commented on something and you want to respond to a post before theirs, then *that's* when it's useful.

^^ And that's basically the differences in the various options in a nutshell.