Players vs. Mods

[Decagon]

I don't get it. :<

Go eat cookies!

- 14

Go to the last page and read the conversation between Ely and Longview (and Mogul'Khan, General of the Red Mist), I bet it'll make a lot more sense then.

[Deleted]

You changed it from "Welcome" to "Piss off" D:

Amagad, I still don't get it!! LOOOL!

Lyri-chan, ignore me, now.... D:

Go to the last page and read the conversation between Ely and Longview (and Mogul'Khan, General of the Red Mist), I bet it'll make a lot more sense then.

I kinda read it, a bit fast though....

---------- Post added 2012-11-07 at 12:54 AM ----------

OH!!LOOOOOL!

Slowpoke Majad! I just noticed what's near the name of Lyri. xDDDD

How did that changed? :O

[Decagon]

/facepalm.

[Deleted]

MS Paint

No way!! THAT's IMPOSSIBLE!!!!!!!

IMPOSSIBLE!

No one can do such a thing with MS Paint!!!

[Nightfury Treann]

MS Paint

Paint doesn't have transparencies.

Night Dyra.

-13

[Loaf]

No way!! THAT's IMPOSSIBLE!!!!!!!

IMPOSSIBLE!

No one can do such a thing with MS Paint!!!

Lyri, I'm almost finished with my spaceship!

[Anakso]

Morning all.


-16

[Lyriok]

My sphynx is almost done, I did it with colour and disliked it so it's all sandstone but I used shadows to create some depth, just need to do the legs and it's complete.

Maj if I do something bannable can you ban me pretty please?

[Decagon]

Good morning Anak!

-15

[Anakso]

Maj if I do something bannable can you ban me pretty please?

It'd have to be in Gen OT xD

[Lyriok]

It'd have to be in Gen OT xD

Roger that! I shall get started!

-14

[Decagon]

It'd have to be in Gen OT xD

I think if I was ever to get banned (which I do hope never happens) it would be in GenOT. I have a feeling few people get banned in Fun Stuff.

[Deleted]

Morning Anak!

Maj if I do something bannable can you ban me pretty please?

I can't ban you on the Fun Stuff, but why are you asking?

Roger that! I shall get started!

What?!

- 15

---------- Post added 2012-11-07 at 01:14 AM ----------

I think if I was ever to get banned (which I do hope never happens) it would be in GenOT. I have a feeling few people get banned in Fun Stuff.

Depends. Fun Stuff has a lot of games and people can get banned for spamming, posting NSFW pictures a lot of stuff really, but Gen OT has more meat heads because it has more people, and political threads in there appear very often.

[Lyriok]

Morning Anak!
I can't ban you on the Fun Stuff, but why are you asking?

What?!

No reason, just don't look at my post in OT.

I think if I was ever to get banned (which I do hope never happens) it would be in GenOT. I have a feeling few people get banned in Fun Stuff.

Joy managed to get "Fun stuff" banned!

[Nightfury Treann]

-14

There's no single thread on GenOT without someone with an infraction.

Hai Ana!

[Decagon]

I didn't even think of that. Still, I would bet on GenOT having the most bans per capita than Fun Stuff, just due to the more serious nature of the discussion and therefore people taking things more personally and being more sensitive about those serious subjects.

---------- Post added 2012-11-06 at 06:19 PM ----------

- 13

[Deleted]

No reason, just don't look at my post in OT.

What you mean? What did you do?

There's no single thread on GenOT without someone with an infraction.

Hai Ana!

Actually there's one that has 0 infrations in it.

[Lyriok]

What you mean? What did you do?

Oh nothing...

Completely unrelated, a program I wrote when I first started programming.

Private Sub CommandButton1_Click()
Frm_Entry.Show   'New entry
End Sub

Private Sub CommandButton2_Click()
Frm_Records.Hide 'Save/Close
SendKeys ("^s")
End Sub


Private Sub CommandButton3_Click()
Frm_Records.Hide 'Exit to sheets
End Sub


Private Sub OptionButton1_Click() 'Engineering
If OptionButton1.Value = True Then Worksheets("Engineering").Select
End Sub

Private Sub OptionButton2_Click() 'Office
If OptionButton2.Value = True Then Worksheets("Office").Select
End Sub

Private Sub OptionButton3_Click() 'Factory
If OptionButton3.Value = True Then Worksheets("Factory").Select
End Sub

Private Sub OptionButton4_Click() 'Dispatch
If OptionButton4.Value = True Then Worksheets("Dispatch").Select
End Sub


Private Sub OptionButton5_Click() 'Production
If OptionButton5.Value = True Then Worksheets("Production").Select
End Sub


Private Sub TextBox1_Change() 'Dispatch Filter
If OptionButton4.Value = True Then
Sheets("FilteredNames").Cells.ClearContents
For X = 1 To Sheets("Dispatch").Range("B" & Rows.Count).End(xlUp).Row
    If UCase(Left(Sheets("Dispatch").Range("B" & X).Value, Len(TextBox1))) = UCase(TextBox1) Then
        If Sheets("FilteredNames").Range("B1") = "" Then
            Sheets("FilteredNames").Range("B1").Formula = Sheets("Dispatch").Range("B" & X).Text
        Else
            Sheets("FilteredNames").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Formula = Sheets("Dispatch").Range("B" & X).Text
        End If
  End If
Next
ListBox1.RowSource = "FilteredNames!B1:B" & Sheets("FilteredNames").Range("B" & Rows.Count).End(xlUp).Row
End If
End Sub


Private Sub CommandButton1_Click() 'Enter

Dim emptyRow As Long
If OptionButton1.Value = True Then Worksheets("Engineering").Select 'Engineering
If OptionButton2.Value = True Then Worksheets("Office").Select      'Office
If OptionButton3.Value = True Then Worksheets("Factory").Select     'Factory
If OptionButton4.Value = True Then Worksheets("Dispatch").Select    'Dispatch
If OptionButton5.Value = True Then Worksheets("Production").Select  'Production
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1



Cells(emptyRow, 2).Value = TextBox1.Value  'Name
Cells(emptyRow, 3).Value = TextBox2.Value  'Reason
Cells(emptyRow, 4).Value = TextBox3.Value  'Date
Cells(emptyRow, 6).Value = TextBox4.Value  'Time
Cells(emptyRow, 7).Value = TextBox5.Value  'Date of docters appointment
Cells(emptyRow, 8).Value = TextBox6.Value  'Contact number
Cells(emptyRow, 9).Value = TextBox7.Value  'Callback
Cells(emptyRow, 10).Value = TextBox8.Value 'Date started
Cells(emptyRow, 11).Value = TextBox9.Value 'Dates absent

If OptionButton1.Value = True Then Cells(emptyRow, 1).Value = OptionButton1.Caption 'Engineering
If OptionButton2.Value = True Then Cells(emptyRow, 1).Value = OptionButton2.Caption 'Office
If OptionButton3.Value = True Then Cells(emptyRow, 1).Value = OptionButton3.Caption 'Factory
If OptionButton4.Value = True Then Cells(emptyRow, 1).Value = OptionButton4.Caption 'Dispatch
If OptionButton5.Value = True Then Cells(emptyRow, 1).Value = OptionButton5.Caption 'Production
If OptionButton6.Value = True Then Cells(emptyRow, 5).Value = OptionButton6.Caption 'Yes
If OptionButton7.Value = True Then Cells(emptyRow, 5).Value = OptionButton7.Caption 'No

Dim z As Control
For Each z In Frm_Entry.Controls
If TypeName(z) = "TextBox" Then
z.Value = ""
End If
Next z

MsgBox "Entry has been added."
End Sub

Private Sub CommandButton4_Click()
Frm_Entry.Hide 'Close
End Sub

iBored!

[Decagon]

I don't understand, Mogul'Khan, General of the Red Mist. What does that do?

[Lyriok]

It was just a program to record abscences in staff and sorted it by what department they are in, along with information such as If/when they called in sick and had a DR certificate.