VERSION 5.00 Object = "{93019C16-6A9D-4E32-A995-8B9C1D41D5FE}#1.0#0"; "prjChameleon.ocx" Begin VB.Form Form30 BackColor = &H00000000& BorderStyle = 1 'Fest Einfach Caption = "SnG Fun v1 - MOD Functions" ClientHeight = 6855 ClientLeft = 45 ClientTop = 435 ClientWidth = 7365 Icon = "Form30.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6855 ScaleWidth = 7365 StartUpPosition = 3 'Windows-Standard Begin VB.Frame Frame5 BackColor = &H80000017& Caption = "Admin Mass Messages" ForeColor = &H0000FF00& Height = 2535 Left = 3720 TabIndex = 33 Top = 4200 Width = 3615 Begin VB.TextBox Text19 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 39 Text = "Staff pwned" Top = 1800 Width = 2415 End Begin VB.TextBox Text18 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 38 Text = "Staff pwned" Top = 1440 Width = 2415 End Begin VB.TextBox Text17 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 37 Text = "Staff pwned" Top = 1080 Width = 2415 End Begin VB.TextBox Text16 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 36 Text = "Staff pwned" Top = 720 Width = 2415 End Begin VB.TextBox Text15 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 34 Text = "Staff pwned" Top = 360 Width = 2415 End Begin prjChameleon.chameleonButton Label54 Height = 255 Left = 1080 TabIndex = 28 Top = 2160 Width = 1455 _ExtentX = 2566 _ExtentY = 450 BTYPE = 3 TX = "Alert" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":030A UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin VB.Label Label15 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 43 Top = 1800 Width = 735 End Begin VB.Label Label14 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 42 Top = 1440 Width = 735 End Begin VB.Label Label13 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 41 Top = 1080 Width = 735 End Begin VB.Label Label11 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 40 Top = 720 Width = 735 End Begin VB.Label Label10 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 35 Top = 360 Width = 735 End End Begin VB.Frame Frame50 BackColor = &H80000017& Caption = "Admin message" ForeColor = &H0000FF00& Height = 2535 Left = 0 TabIndex = 29 Top = 4200 Width = 3615 Begin VB.TextBox Text21 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 47 Text = "N00B !!!!!" Top = 1800 Width = 2415 End Begin VB.TextBox Text20 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 44 Text = "Kein Fluchen !!!!!" Top = 1080 Width = 2415 End Begin VB.TextBox Text50 BackColor = &H80000017& ForeColor = &H0000FF00& Height = 285 Left = 840 TabIndex = 31 Text = "Verwarnung !!!!!" Top = 360 Width = 2415 End Begin prjChameleon.chameleonButton Label50 Height = 255 Left = 1200 TabIndex = 30 Top = 720 Width = 1455 _ExtentX = 2566 _ExtentY = 450 BTYPE = 3 TX = "Alert" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":0326 UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin prjChameleon.chameleonButton Label52 Height = 255 Left = 1200 TabIndex = 46 Top = 1440 Width = 1455 _ExtentX = 2566 _ExtentY = 450 BTYPE = 3 TX = "Alert" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":0342 UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin prjChameleon.chameleonButton Label53 Height = 255 Left = 1200 TabIndex = 49 Top = 2160 Width = 1455 _ExtentX = 2566 _ExtentY = 450 BTYPE = 3 TX = "Alert" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":035E UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin VB.Label Label17 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 48 Top = 1800 Width = 735 End Begin VB.Label Label16 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 45 Top = 1080 Width = 735 End Begin VB.Label Label51 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 32 Top = 360 Width = 735 End End Begin VB.Frame Frame4 BackColor = &H80000017& Caption = "Mass Messages" ForeColor = &H0000FF00& Height = 4215 Left = 3720 TabIndex = 13 Top = 0 Width = 3615 Begin VB.TextBox Text14 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 26 Text = "Tunny pwnz yoo" Top = 3360 Width = 3375 End Begin VB.TextBox Text13 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 25 Text = "Tunny pwnz yoo" Top = 3000 Width = 3375 End Begin VB.TextBox Text12 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 24 Text = "Tunny pwnz yoo" Top = 2640 Width = 3375 End Begin VB.TextBox Text11 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 23 Text = "Tunny pwnz yoo" Top = 2280 Width = 3375 End Begin VB.TextBox Text10 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 22 Text = "Tunny pwnz yoo" Top = 1920 Width = 3375 End Begin VB.TextBox Text9 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 21 Text = "Tunny pwnz yoo" Top = 1560 Width = 3375 End Begin VB.TextBox Text8 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 20 Text = "Tunny pwnz yoo" Top = 1200 Width = 3375 End Begin VB.TextBox Text7 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 19 Text = "Tunny pwnz yoo" Top = 840 Width = 3375 End Begin VB.TextBox Text6 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 14 Text = "Tunny pwnz yoo" Top = 480 Width = 3375 End Begin prjChameleon.chameleonButton Label12 Height = 375 Left = 600 TabIndex = 27 Top = 3720 Width = 2295 _ExtentX = 4048 _ExtentY = 661 BTYPE = 3 TX = "Send Mass Message" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":037A UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin VB.Label Label9 BackColor = &H80000017& Caption = "Desired mass message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 15 Top = 240 Width = 1695 End End Begin VB.Frame Frame2 BackColor = &H80000017& Caption = "Ban message" ForeColor = &H0000FF00& Height = 1215 Left = 0 TabIndex = 10 Top = 1200 Width = 3615 Begin VB.TextBox Text2 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 240 TabIndex = 11 Text = "Kein bock mehr auf Habbo ?" Top = 480 Width = 3135 End Begin prjChameleon.chameleonButton Label4 Height = 255 Left = 960 TabIndex = 17 Top = 840 Width = 1455 _ExtentX = 2566 _ExtentY = 450 BTYPE = 3 TX = "Fake Ban" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":0396 UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin VB.Label Label3 BackColor = &H80000017& Caption = "Message" ForeColor = &H000000FF& Height = 255 Left = 240 TabIndex = 12 Top = 240 Width = 855 End End Begin VB.Frame Frame3 BackColor = &H80000017& Caption = "Call for help" ForeColor = &H0000FF00& Height = 1815 Left = 0 TabIndex = 3 Top = 2400 Width = 3615 Begin VB.TextBox Text3 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 840 TabIndex = 6 Text = "Tunny" Top = 360 Width = 2655 End Begin VB.TextBox Text4 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 840 TabIndex = 5 Text = "SnG Fun room" Top = 720 Width = 2655 End Begin VB.TextBox Text5 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 840 MultiLine = -1 'True TabIndex = 4 Text = "Form30.frx":03B2 Top = 1080 Width = 2655 End Begin prjChameleon.chameleonButton Label8 Height = 255 Left = 840 TabIndex = 18 Top = 1440 Width = 1575 _ExtentX = 2778 _ExtentY = 450 BTYPE = 3 TX = "Call for Help" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":03C7 UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin VB.Label Label5 BackColor = &H80000017& Caption = "Caller" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 9 Top = 360 Width = 615 End Begin VB.Label Label6 BackColor = &H80000017& Caption = "Room" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 8 Top = 720 Width = 615 End Begin VB.Label Label7 BackColor = &H80000017& Caption = "Call" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 7 Top = 1080 Width = 495 End End Begin VB.Frame Frame1 BackColor = &H80000017& Caption = "Hobba messages" ForeColor = &H0000FF00& Height = 1215 Left = 0 TabIndex = 0 Top = 0 Width = 3615 Begin prjChameleon.chameleonButton Label2 Height = 255 Left = 600 TabIndex = 16 Top = 840 Width = 2295 _ExtentX = 4048 _ExtentY = 450 BTYPE = 3 TX = "Send Moderator Message" ENAB = -1 'True BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty COLTYPE = 2 FOCUSR = -1 'True BCOL = 0 BCOLO = 0 FCOL = 255 FCOLO = 65280 MCOL = 12632256 MPTR = 1 MICON = "Form30.frx":03E3 UMCOL = -1 'True SOFT = 0 'False PICPOS = 0 NGREY = 0 'False FX = 0 HAND = 0 'False CHECK = 0 'False VALUE = 0 'False End Begin VB.TextBox Text1 BackColor = &H80000017& ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 1 Text = "Skoro : '' WHACK HABBO HAHAHAHA ''" Top = 480 Width = 3375 End Begin VB.Label Label1 BackColor = &H80000017& Caption = "Desired message" ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 2 Top = 240 Width = 1575 End End End Attribute VB_Name = "Form30" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub chameleonButton1_Click() End Sub Private Sub chameleonButton3_Click() End Sub Private Sub Label12_Click() On Error Resume Next FrmBrowser.SckClient.SendData "BK" & Text6.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text7.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text8.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text9.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text10.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text11.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text12.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text13.Text & Chr(1) FrmBrowser.SckClient.SendData "BK" & Text14.Text & Chr(1) End Sub Private Sub Label2_Click() On Error Resume Next FrmBrowser.SckClient.SendData "BK" & Text1.Text & Chr(1) End Sub Private Sub Label4_Click() On Error Resume Next FrmBrowser.SckClient.SendData "@c" & Text2.Text & Chr(1) End Sub Private Sub Label50_Click() On Error Resume Next FrmBrowser.SckClient.SendData "@amod_warn/" & Text50.Text & Chr(1) End Sub Private Sub Label52_Click() On Error Resume Next FrmBrowser.SckClient.SendData "@amod_warn/" & Text20.Text & Chr(1) End Sub Private Sub Label53_Click() On Error Resume Next FrmBrowser.SckClient.SendData "@amod_warn/" & Text21.Text & Chr(1) End Sub Private Sub Label54_Click() On Error Resume Next FrmBrowser.SckClient.SendData "@amod_warn/" & Text15.Text & Chr(1) FrmBrowser.SckClient.SendData "@amod_warn/" & Text16.Text & Chr(1) FrmBrowser.SckClient.SendData "@amod_warn/" & Text17.Text & Chr(1) FrmBrowser.SckClient.SendData "@amod_warn/" & Text18.Text & Chr(1) FrmBrowser.SckClient.SendData "@amod_warn/" & Text19.Text & Chr(1) End Sub Private Sub Label8_Click() On Error Resume Next FrmBrowser.SckClient.SendData "BT" & Chr(2) & " " & Text4.Text & Chr(2) & Text3.Text & Chr(2) & Text5.Text & Chr(2) & Chr(1) End Sub