VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Begin VB.Form frmAdmin 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Panel administracyjny"
   ClientHeight    =   5580
   ClientLeft      =   135
   ClientTop       =   495
   ClientWidth     =   2130
   Icon            =   "frmAdmin.frx":0000
   LinkTopic       =   "frmAdmin"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5580
   ScaleWidth      =   2130
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton btnClose 
      Caption         =   "Zamknij panel administracyjny"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   5160
      Width           =   1695
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   5655
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   9975
      _Version        =   393216
      TabHeight       =   353
      TabMaxWidth     =   1235
      BackColor       =   -2147483648
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TabCaption(0)   =   "Gracz"
      TabPicture(0)   =   "frmAdmin.frx":0FC2
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lblPlayerName"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lblValue"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "btnSetAccess"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "btnKick"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "btnWarpMeTo"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "btnBan"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "btnSetSprite"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "txtValue"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "txtPlayerName"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "btnWarpToMe"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).ControlCount=   10
      TabCaption(1)   =   "Swiat"
      TabPicture(1)   =   "frmAdmin.frx":0FDE
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "lblMapNumber"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Line1"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Line2"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Label2"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "txtMap"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).Control(5)=   "btnLocation"
      Tab(1).Control(5).Enabled=   0   'False
      Tab(1).Control(6)=   "btnRespawn"
      Tab(1).Control(6).Enabled=   0   'False
      Tab(1).Control(7)=   "btnWarpTo"
      Tab(1).Control(7).Enabled=   0   'False
      Tab(1).Control(8)=   "btnSetNone"
      Tab(1).Control(8).Enabled=   0   'False
      Tab(1).Control(9)=   "btnSetThunder"
      Tab(1).Control(9).Enabled=   0   'False
      Tab(1).Control(10)=   "btnSetRain"
      Tab(1).Control(10).Enabled=   0   'False
      Tab(1).Control(11)=   "btnSetSnow"
      Tab(1).Control(11).Enabled=   0   'False
      Tab(1).Control(12)=   "Command1"
      Tab(1).Control(12).Enabled=   0   'False
      Tab(1).Control(13)=   "Command2"
      Tab(1).Control(13).Enabled=   0   'False
      Tab(1).ControlCount=   14
      TabCaption(2)   =   "Edytor"
      TabPicture(2)   =   "frmAdmin.frx":0FFA
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "Label1"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "btnEditSpell"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).Control(2)=   "btnEditItem"
      Tab(2).Control(2).Enabled=   0   'False
      Tab(2).Control(3)=   "btnEditShops"
      Tab(2).Control(3).Enabled=   0   'False
      Tab(2).Control(4)=   "btnEditNPC"
      Tab(2).Control(4).Enabled=   0   'False
      Tab(2).Control(5)=   "btnEditArrow"
      Tab(2).Control(5).Enabled=   0   'False
      Tab(2).Control(6)=   "btnEditEmoticon"
      Tab(2).Control(6).Enabled=   0   'False
      Tab(2).Control(7)=   "btnEditElement"
      Tab(2).Control(7).Enabled=   0   'False
      Tab(2).Control(8)=   "btnEditMap"
      Tab(2).Control(8).Enabled=   0   'False
      Tab(2).ControlCount=   9
      Begin VB.CommandButton Command2 
         Caption         =   "Wyłącz bitwę"
         Height          =   255
         Left            =   -74880
         TabIndex        =   32
         Top             =   4560
         Width           =   1815
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Włącz bitwę"
         Height          =   255
         Left            =   -74880
         TabIndex        =   31
         Top             =   4200
         Width           =   1815
      End
      Begin VB.CommandButton btnWarpToMe 
         Caption         =   "Przenieś go do mnie"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   2040
         Width           =   1695
      End
      Begin VB.CommandButton btnEditMap 
         Caption         =   "mapy"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         MaskColor       =   &H8000000D&
         TabIndex        =   3
         Top             =   840
         Width           =   1695
      End
      Begin VB.CommandButton btnEditElement 
         Caption         =   "elementy"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   27
         Top             =   3360
         Width           =   1695
      End
      Begin VB.CommandButton btnEditEmoticon 
         Caption         =   "emotikony"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   26
         Top             =   3000
         Width           =   1695
      End
      Begin VB.CommandButton btnEditArrow 
         Caption         =   "strzały"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   25
         Top             =   2640
         Width           =   1695
      End
      Begin VB.CommandButton btnEditNPC 
         Caption         =   "NPC"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   24
         Top             =   2280
         Width           =   1695
      End
      Begin VB.CommandButton btnEditShops 
         Caption         =   "sklepy"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   23
         Top             =   1920
         Width           =   1695
      End
      Begin VB.CommandButton btnEditItem 
         Caption         =   "przedmioty"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   22
         Top             =   1560
         Width           =   1695
      End
      Begin VB.CommandButton btnEditSpell 
         Caption         =   "czary"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   21
         Top             =   1200
         Width           =   1695
      End
      Begin VB.CommandButton btnSetSnow 
         Caption         =   "Snieg"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   20
         Top             =   3360
         Width           =   1695
      End
      Begin VB.CommandButton btnSetRain 
         Caption         =   "Deszcz"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   19
         Top             =   2640
         Width           =   1695
      End
      Begin VB.CommandButton btnSetThunder 
         Caption         =   "Burza"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   18
         Top             =   3000
         Width           =   1695
      End
      Begin VB.CommandButton btnSetNone 
         Caption         =   "Słonecznie"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   17
         Top             =   2280
         Width           =   1695
      End
      Begin VB.CommandButton btnWarpTo 
         Caption         =   "Przenieś na nią"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   15
         Top             =   1080
         Width           =   1695
      End
      Begin VB.CommandButton btnRespawn 
         Caption         =   "Odśwież"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   14
         Top             =   1800
         Width           =   1695
      End
      Begin VB.CommandButton btnLocation 
         Caption         =   "Lokalizacja"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   13
         Top             =   1440
         Width           =   1695
      End
      Begin VB.TextBox txtMap 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   -74880
         TabIndex        =   12
         TabStop         =   0   'False
         Top             =   600
         Width           =   1695
      End
      Begin VB.TextBox txtPlayerName 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   238
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   10
         Top             =   600
         Width           =   1695
      End
      Begin VB.TextBox txtValue 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   9
         Top             =   1200
         Width           =   1695
      End
      Begin VB.CommandButton btnSetSprite 
         Caption         =   "Zmień wygląd"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   3120
         Width           =   1695
      End
      Begin VB.CommandButton btnBan 
         Caption         =   "Zbanuj gracza"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   2760
         Width           =   1695
      End
      Begin VB.CommandButton btnWarpMeTo 
         Caption         =   "Prznieś mnie do niego"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   1680
         Width           =   1695
      End
      Begin VB.CommandButton btnKick 
         Caption         =   "Wyrzuć gracza"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   2400
         Width           =   1695
      End
      Begin VB.CommandButton btnSetAccess 
         Caption         =   "Zmień dostęp"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   3480
         Width           =   1695
      End
      Begin VB.Label Label2 
         Caption         =   "Eventy:"
         Height          =   255
         Left            =   -74640
         TabIndex        =   30
         Top             =   3840
         Width           =   1815
      End
      Begin VB.Line Line2 
         X1              =   -75000
         X2              =   -72960
         Y1              =   3720
         Y2              =   3720
      End
      Begin VB.Label Label1 
         Caption         =   "Edytuj..."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   238
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74400
         TabIndex        =   29
         Top             =   240
         Width           =   855
      End
      Begin VB.Line Line1 
         X1              =   -75000
         X2              =   -72840
         Y1              =   2160
         Y2              =   2160
      End
      Begin VB.Label lblValue 
         Caption         =   "Liczba:"
         Height          =   255
         Left            =   600
         TabIndex        =   28
         Top             =   960
         Width           =   855
      End
      Begin VB.Label lblMapNumber 
         Caption         =   "Numer mapy:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74760
         TabIndex        =   16
         Top             =   360
         Width           =   975
      End
      Begin VB.Label lblPlayerName 
         Caption         =   "Imie gracza:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   600
         TabIndex        =   11
         Top             =   360
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmAdmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnEditMap_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendRequestEditMap
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnSetSprite_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        If LenB(txtPlayerName.Text) <> 0 Then
            If LenB(txtValue.Text) <> 0 Then
                If IsNumeric(txtValue.Text) Then
                    If Not Val(txtValue.Text) < 1 Then
                        Call SendSetPlayerSprite(txtPlayerName.Text, txtValue.Text)
                    End If
                End If
            End If
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnBan_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        If LenB(txtPlayerName.Text) <> 0 Then
            Call SendBan(txtPlayerName.Text)
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditItem_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditItem
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditShops_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditShop
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditSpell_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditSpell
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnKick_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MONITER Then
        If LenB(txtPlayerName.Text) <> 0 Then
            Call SendKick(txtPlayerName.Text)
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnLocation_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        BLoc = Not BLoc
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnRespawn_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendMapRespawn
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnWarpMeTo_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        If LenB(txtPlayerName.Text) <> 0 Then
            Call WarpMeTo(txtPlayerName.Text)
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnWarpTo_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        If Len(txtMap.Text) <> 0 Then
            If GetPlayerMap(MyIndex) <> Val(txtMap.Text) Then
                Call WarpTo(Val(txtMap.Text), GetPlayerX(MyIndex), GetPlayerY(MyIndex))
            Else
                Call AddText("Jestś już na tej mapie. Nie możesz się tu przenieść.", BRIGHTRED)
            End If
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnWarpToMe_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        If LenB(txtPlayerName.Text) <> 0 Then
            Call WarpToMe(txtPlayerName.Text)
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub PlayerInfo_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        If LenB(txtPlayerName) <> 0 Then
            Call SendData("getstats" & SEP_CHAR & txtPlayerName.Text & END_CHAR)
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditArrow_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditArrow
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditEmoticon_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditEmoticon
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditNPC_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditNPC
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnEditElement_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditElement
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnSetAccess_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then
        If LenB(txtPlayerName.Text) <> 0 Then
            If LenB(txtValue.Text) <> 0 Then
                If Val(txtValue.Text) < 0 Or Val(txtValue.Text) > 5 Then
                    Call AddText("Valid access range is between 0 and 5.", BRIGHTRED)
                Else
                    Call SendSetAccess(txtPlayerName.Text, txtValue.Text)
                End If
            End If
        End If
    Else
        Call AddText("Nie masz takiego dostępu aby użyć tej akcji.", BRIGHTRED)
    End If
End Sub

Private Sub btnSetNone_Click()
    Call SendData("weather" & SEP_CHAR & 0 & END_CHAR)
End Sub

Private Sub btnSetRain_Click()
    Call SendData("weather" & SEP_CHAR & 1 & END_CHAR)
End Sub

Private Sub btnSetSnow_Click()
    Call SendData("weather" & SEP_CHAR & 2 & END_CHAR)
End Sub

Private Sub btnSetThunder_Click()
    Call SendData("weather" & SEP_CHAR & 3 & END_CHAR)
End Sub

Private Sub btnClose_Click()
    frmAdmin.Visible = False
End Sub

Private Sub Command1_Click()
        frmMirage.bitwa.Visible = True
End Sub

Private Sub Command2_Click()
        frmMirage.bitwa.Visible = False
End Sub
