1. #73621
    Morning Anak!

    Quote Originally Posted by Lyriok View Post
    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?
    Quote Originally Posted by Lyriok View Post
    Roger that! I shall get started!
    What?!

    - 15

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

    Quote Originally Posted by Decagon View Post
    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.

  2. #73622
    Quote Originally Posted by Majad View Post
    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.

    Quote Originally Posted by Decagon View Post
    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!

  3. #73623
    Dreadlord Nightfury Treann's Avatar
    Join Date
    Sep 2009
    Location
    Colombia Spire
    Posts
    632
    -14

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

    Hai Ana!
    "#Got99ProblemsAndTreannAintOne" ~ElyPop

  4. #73624
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,099
    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
    Quote Originally Posted by Asmekiel View Post
    "And nothing was ever heard from Deca again"

  5. #73625
    Quote Originally Posted by Lyriok View Post
    No reason, just don't look at my post in OT.
    What you mean? What did you do?

    Quote Originally Posted by NightFury Treann View Post
    There's no single thread on GenOT without someone with an infraction.

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

  6. #73626
    Quote Originally Posted by Majad View Post
    What you mean? What did you do?
    Oh nothing...

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

    Code:
    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!

  7. #73627
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,099
    I don't understand, Mogul'Khan, General of the Red Mist. What does that do?
    Quote Originally Posted by Asmekiel View Post
    "And nothing was ever heard from Deca again"

  8. #73628
    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.

  9. #73629
    Moderator Anakso's Avatar
    Join Date
    Apr 2010
    Location
    Perth, Australia
    Posts
    4,699
    Yea those things Majad listed, but they rarely happen. I think I've given out maybe 2-3 infractions in fun stuff since I became a mod in fun stuff, not including sig or spam bot ones.

    Treann: New threads

    -16

  10. #73630
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,099
    Ooooh, I think I can sort of see it now that you told me what it does, MOGUL'KHAN, GENERAL OF THE RED MISTS! I'm getting really good at typing that.
    Quote Originally Posted by Asmekiel View Post
    "And nothing was ever heard from Deca again"

  11. #73631
    -14/////////////////

  12. #73632
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,099
    - 13
    Quote Originally Posted by Asmekiel View Post
    "And nothing was ever heard from Deca again"

  13. #73633
    Dreadlord Nightfury Treann's Avatar
    Join Date
    Sep 2009
    Location
    Colombia Spire
    Posts
    632
    Quote Originally Posted by Anakso View Post
    Treann: New threads

    -16
    Wh..wh...whaat?

    -15
    "#Got99ProblemsAndTreannAintOne" ~ElyPop

  14. #73634

  15. #73635
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,099
    Quote Originally Posted by NightFury Treann View Post
    Wh..wh...whaat?

    -15
    New Threads: The only threads that don't have infractions in them.
    Quote Originally Posted by Asmekiel View Post
    "And nothing was ever heard from Deca again"

  16. #73636
    Quote Originally Posted by Decagon View Post
    New Threads: The only threads that don't have infractions in them.
    Ding ding ding ding!

    We have a winner!

    I actually didn't get it too, so yeah. Majad is also a slowpoke. D:

  17. #73637
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,099
    Maybe I'm just extraordinarily smart! Hahaha, get it?
    Quote Originally Posted by Asmekiel View Post
    "And nothing was ever heard from Deca again"

  18. #73638
    Moderator Anakso's Avatar
    Join Date
    Apr 2010
    Location
    Perth, Australia
    Posts
    4,699
    Quote Originally Posted by Decagon View Post
    New Threads: The only threads that don't have infractions in them.
    Yep


    -19

  19. #73639
    Quote Originally Posted by Decagon View Post
    Maybe I'm just extraordinarily smart! Hahaha, get it?
    Well, I aint, cause I don't get it. xD

    - 20

  20. #73640
    Dreadlord Nightfury Treann's Avatar
    Join Date
    Sep 2009
    Location
    Colombia Spire
    Posts
    632
    -19

    Ooohhh, you guys scared me, lol.
    "#Got99ProblemsAndTreannAintOne" ~ElyPop

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •