Скрипт для бота. Хелп!

[Okean4ik]

Ребят, есть бот для ПВ 1,4,4.
Но на серве поставили морай, помогите изменить скрипт что бы бот пахал и на морае.Я сам правда нупик и разобрал файл exe. через restorator, и вот ниже скорее всего скрипт по которому работает программа.Извините за нупство.
Или могу залить программу саму что бы в ней разобрались. Буду очень благодарен.
Код один из этих:

object Form2: TForm2
  Left = 0
  Top = 0
  AlphaBlend = True
  AlphaBlendValue = 200
  BorderStyle = bsToolWindow
  Caption = 'Almacrafter   (by Stooker)'
  ClientHeight = 112
  ClientWidth = 289
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesigned
  PixelsPerInch = 96
  TextHeight = 13
  object sLabelFX1: TsLabelFX
    Left = 97
    Top = 0
    Width = 117
    Height = 33
    Caption = 'Almacrafter'
    ParentFont = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = []
  end
  object sLabelFX2: TsLabelFX
    Left = 113
    Top = 29
    Width = 70
    Height = 21
    Caption = 'SovngardPW'
    ParentFont = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
  end
  object sLabel3: TsLabel
    Left = 8
    Top = 59
    Width = 99
    Height = 13
    Caption = 'Количество циклов'
    ParentFont = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
  end
  object sLabel1: TsLabel
    Left = 169
    Top = 59
    Width = 118
    Height = 13
    Caption = '(Стоимость: 11,34 млн)'
    ParentFont = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
  end
  object Button1: TButton
    Left = 8
    Top = 83
    Width = 279
    Height = 25
    Caption = 'Старт'
    TabOrder = 0
    OnClick = Button1Click
  end
  object sSpinEdit1: TsSpinEdit
    Left = 113
    Top = 56
    Width = 50
    Height = 21
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = '1'
    OnChange = sSpinEdit1Change
    SkinData.SkinSection = 'EDIT'
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'Tahoma'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    MaxValue = 0
    MinValue = 1
    Value = 1
  end
  object sSkinManager1: TsSkinManager
    InternalSkins = <
      item
        Name = 'Beijing Ext (internal)'
        Shadow1Color = clBlack
        Shadow1Offset = 0
        Shadow1Transparency = 0
        Data = { Binary Data (save file to disk to see it) }
      end>
    MenuSupport.IcoLineSkin = 'ICOLINE'
    MenuSupport.ExtraLineFont.Charset = DEFAULT_CHARSET
    MenuSupport.ExtraLineFont.Color = clWindowText
    MenuSupport.ExtraLineFont.Height = -11
    MenuSupport.ExtraLineFont.Name = 'Tahoma'
    MenuSupport.ExtraLineFont.Style = []
    SkinDirectory = 'C:\Program Files\Embarcadero\RAD Studio\8.0\Skins'
    SkinName = 'Beijing Ext (internal)'
    SkinInfo = '7.1'
    ThirdParty.ThirdEdits = ' '
    ThirdParty.ThirdButtons = 'TButton'
    ThirdParty.ThirdBitBtns = ' '
    ThirdParty.ThirdCheckBoxes = ' '
    ThirdParty.ThirdGroupBoxes = ' '
    ThirdParty.ThirdListViews = ' '
    ThirdParty.ThirdPanels = ' '
    ThirdParty.ThirdGrids = ' '
    ThirdParty.ThirdTreeViews = ' '
    ThirdParty.ThirdComboBoxes = ' '
    ThirdParty.ThirdWWEdits = ' '
    ThirdParty.ThirdVirtualTrees = ' '
    ThirdParty.ThirdGridEh = ' '
    ThirdParty.ThirdPageControl = ' '
    ThirdParty.ThirdTabControl = ' '
    ThirdParty.ThirdToolBar = ' '
    ThirdParty.ThirdStatusBar = ' '
    ThirdParty.ThirdSpeedButton = ' '
    Left = 864
    Top = 8
  end
  object Timer1: TTimer
    Enabled = False
    Left = 248
    Top = 8
  end
end

object PathDialogForm: TPathDialogForm
  Left = 434
  Top = 310
  Width = 350
  Height = 420
  Caption = 'Select directory'
  Constraints.MinHeight = 250
  Constraints.MinWidth = 275
  Position = poScreenCenter
  Scaled = False
  object sLabel1: TsLabel
    Left = 8
    Top = 3
    Width = 3
    Height = 13
  end
  object sBitBtn1: TsBitBtn
    Left = 173
    Top = 344
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = sBitBtn1Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sBitBtn2: TsBitBtn
    Left = 250
    Top = 344
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = sBitBtn2Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sBitBtn3: TsBitBtn
    Left = 12
    Top = 344
    Width = 75
    Height = 25
    Caption = 'Create'
    Enabled = False
    TabOrder = 3
    OnClick = sBitBtn3Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sShellTreeView1: TsShellTreeView
    Left = 8
    Top = 20
    Width = 321
    Height = 319
    Indent = 19
    ShowRoot = False
    TabOrder = 0
    OnChange = sShellTreeView1Change
    BoundLabel.Active = True
    BoundLabel.Caption = ' '
    BoundLabel.Indent = 4
    BoundLabel.Layout = sclTopLeft
    BoundLabel.MaxWidth = 0
    SkinData.SkinSection = 'EDIT'
    ObjectTypes = [otFolders, otHidden]
    Root = 'rfDesktop'
    UseShellImages = True
    AutoRefresh = False
    ShowExt = seSystem
  end
  object sScrollBox1: TsScrollBox
    Left = 8
    Top = 20
    Width = 101
    Height = 318
    VertScrollBar.Tracking = True
    TabOrder = 4
    Visible = False
    SkinData.SkinSection = 'BAR'
  end
  object sSkinProvider1: TsSkinProvider
    SkinData.SkinSection = 'DIALOG'
    GripMode = gmRightBottom
    ShowAppIcon = False
    TitleButtons = <>
    Left = 212
    Top = 168
  end
  object ImageList1: TsAlphaImageList
    ShareImages = True
    Left = 180
    Top = 168
  end
end

object sCalcForm: TsCalcForm
  Tag = -98
  Left = 456
  Top = 384
  BorderStyle = bsNone
  Caption = 'Calculator'
  ClientHeight = 172
  ClientWidth = 214
  Color = clBtnFace
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object FMainPanel: TsPanel
    Left = 0
    Top = 0
    Width = 214
    Height = 172
    Align = alClient
    BorderWidth = 2
    PopupMenu = PopupMenu1
    TabOrder = 0
    SkinData.SkinSection = 'PANEL'
    object FCalculatorPanel: TsPanel
      Left = 3
      Top = 27
      Width = 208
      Height = 142
      Align = alBottom
      BorderWidth = 4
      Caption = ' '
      TabOrder = 0
      SkinData.SkinSection = 'PANEL'
      object sSpeedButton1: TsSpeedButton
        Left = 89
        Top = 29
        Width = 55
        Height = 20
        Cursor = crHandPoint
        Caption = '<-'
        Font.Style = [fsBold]
        Spacing = 0
        OnClick = sSpeedButton1Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton2: TsSpeedButton
        Left = 146
        Top = 29
        Width = 55
        Height = 20
        Cursor = crHandPoint
        Caption = 'C'
        Font.Color = clMaroon
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton2Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton3: TsSpeedButton
        Left = 5
        Top = 51
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = 'MC'
        Font.Color = clNavy
        Spacing = 3
        OnClick = sSpeedButton3Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton4: TsSpeedButton
        Tag = 7
        Left = 38
        Top = 51
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '7'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton5: TsSpeedButton
        Tag = 8
        Left = 71
        Top = 51
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '8'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton6: TsSpeedButton
        Tag = 9
        Left = 104
        Top = 51
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '9'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton7: TsSpeedButton
        Left = 137
        Top = 51
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '/'
        Font.Color = clMaroon
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton7Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton8: TsSpeedButton
        Left = 170
        Top = 51
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = 'sqrt'
        Font.Color = clNavy
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton8Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton9: TsSpeedButton
        Left = 5
        Top = 73
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = 'MR'
        Font.Color = clNavy
        Spacing = 3
        OnClick = sSpeedButton9Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton10: TsSpeedButton
        Tag = 4
        Left = 38
        Top = 73
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '4'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton11: TsSpeedButton
        Tag = 5
        Left = 71
        Top = 73
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '5'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton12: TsSpeedButton
        Tag = 6
        Left = 104
        Top = 73
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '6'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton13: TsSpeedButton
        Left = 137
        Top = 73
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '*'
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton13Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton14: TsSpeedButton
        Left = 170
        Top = 73
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '%'
        Font.Color = clNavy
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton14Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton15: TsSpeedButton
        Left = 5
        Top = 95
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = 'MS'
        Font.Color = clNavy
        Spacing = 3
        OnClick = sSpeedButton15Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton16: TsSpeedButton
        Tag = 1
        Left = 38
        Top = 95
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '1'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton17: TsSpeedButton
        Tag = 2
        Left = 71
        Top = 95
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '2'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton18: TsSpeedButton
        Tag = 3
        Left = 104
        Top = 95
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '3'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton19: TsSpeedButton
        Left = 137
        Top = 95
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '-'
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton19Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton20: TsSpeedButton
        Left = 170
        Top = 95
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '1/%'
        Font.Color = clNavy
        Font.Style = [fsBold]
        Spacing = 3
        Visible = False
        OnClick = sSpeedButton20Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton21: TsSpeedButton
        Left = 5
        Top = 117
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = 'MP'
        Font.Color = clNavy
        Spacing = 3
        OnClick = sSpeedButton21Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton22: TsSpeedButton
        Left = 38
        Top = 117
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '0'
        Spacing = 3
        OnClick = sSpeedButton22Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton23: TsSpeedButton
        Left = 71
        Top = 117
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '±'
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton23Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton24: TsSpeedButton
        Left = 104
        Top = 117
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '.'
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton24Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton25: TsSpeedButton
        Left = 137
        Top = 117
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '+'
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton25Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object sSpeedButton26: TsSpeedButton
        Left = 170
        Top = 117
        Width = 31
        Height = 20
        Cursor = crHandPoint
        Caption = '='
        Font.Style = [fsBold]
        Spacing = 3
        OnClick = sSpeedButton26Click
        SkinData.SkinSection = 'SPEEDBUTTON_SMALL'
        DisabledGlyphKind = []
      end
      object FCalcPanel: TsPanel
        Left = 5
        Top = 29
        Width = 81
        Height = 19
        Caption = ' '
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
      end
      object FDisplayPanel: TsPanel
        Left = 5
        Top = 5
        Width = 198
        Height = 20
        Align = alTop
        Alignment = taRightJustify
        BorderWidth = 3
        Caption = '0 '
        Font.Color = 5723991
        Font.Height = -15
        Font.Name = 'System'
        Font.Style = [fsBold]
        PopupMenu = PopupMenu1
        TabOrder = 1
        SkinData.SkinSection = 'EDIT'
      end
    end
    object sDragBar1: TsDragBar
      Left = 3
      Top = 3
      Width = 208
      Height = 20
      Cursor = crHandPoint
      Caption = 'Calculator'
      Font.Color = clCaptionText
      Font.Style = [fsBold]
      TabOrder = 1
      SkinData.SkinSection = 'DRAGBAR'
      DraggedControl = Owner
      object sToolButton3: TsSpeedButton
        Left = 174
        Top = 1
        Width = 16
        Height = 18
        Cursor = crHandPoint
        Caption = '_'
        Spacing = 3
        OnClick = sToolButton3Click
        Align = alRight
        SkinData.SkinSection = 'SPEEDBUTTON'
        DisabledGlyphKind = []
      end
      object sToolButton1: TsSpeedButton
        Left = 190
        Top = 1
        Width = 17
        Height = 18
        Cursor = crHandPoint
        Caption = 'X'
        Spacing = 3
        OnClick = sToolButton1Click
        Align = alRight
        SkinData.SkinSection = 'SPEEDBUTTON'
        DisabledGlyphKind = []
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 153
    Top = 24
    object N1: TMenuItem
      Caption = '&Copy'
      ShortCut = 16429
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '&Paste'
      ShortCut = 8237
      OnClick = N2Click
    end
    object OK1: TMenuItem
      Caption = 'OK'
      ShortCut = 13
      Visible = False
      OnClick = OK1Click
    end
    object Cancel1: TMenuItem
      Caption = 'Cancel'
      ShortCut = 27
      Visible = False
      OnClick = Cancel1Click
    end
  end
end

object sColorDialogForm: TsColorDialogForm
  Left = 349
  Top = 356
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Color'
  ClientHeight = 385
  ClientWidth = 532
  Color = clBtnFace
  Constraints.MaxHeight = 416
  Constraints.MaxWidth = 541
  Constraints.MinHeight = 416
  Constraints.MinWidth = 235
  ParentFont = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnDestroy = FormDestroy
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object sLabel1: TsLabel
    Left = 8
    Top = 8
    Width = 64
    Height = 13
    Caption = 'Main palette :'
  end
  object sLabel2: TsLabel
    Left = 8
    Top = 192
    Width = 83
    Height = 13
    Caption = 'Additional colors :'
  end
  object sLabel4: TsLabel
    Left = 430
    Top = 276
    Width = 6
    Height = 14
    Caption = 'o'
  end
  object sLabel5: TsLabel
    Left = 429
    Top = 304
    Width = 8
    Height = 13
    Caption = '%'
  end
  object sLabel6: TsLabel
    Left = 429
    Top = 328
    Width = 8
    Height = 13
    Caption = '%'
  end
  object sSpeedButton1: TsSpeedButton
    Left = 20
    Top = 308
    Width = 37
    Height = 33
    Flat = True
    Glyph.Data = { Binary Data (save file to disk to see it) }
    OnClick = sSpeedButton1Click
    SkinData.SkinSection = 'SPEEDBUTTON'
  end
  object sBitBtn1: TsBitBtn
    Left = 7
    Top = 352
    Width = 69
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 8
    OnClick = sBitBtn1Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sBitBtn2: TsBitBtn
    Left = 77
    Top = 352
    Width = 69
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 9
    OnClick = sBitBtn2Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object ColorPanel: TsPanel
    Left = 234
    Top = 8
    Width = 260
    Height = 260
    BevelOuter = bvNone
    Caption = ' '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 15
    TabStop = True
    OnMouseDown = ColorPanelMouseDown
    OnMouseMove = ColorPanelMouseMove
    OnMouseUp = ColorPanelMouseUp
    SkinData.SkinSection = 'CHECKBOX'
    OnPaint = ColorPanelPaint
  end
  object GradPanel: TsPanel
    Left = 502
    Top = 8
    Width = 20
    Height = 260
    BevelOuter = bvNone
    Caption = ' '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 16
    TabStop = True
    OnMouseDown = GradPanelMouseDown
    OnMouseMove = GradPanelMouseMove
    OnMouseUp = GradPanelMouseUp
    SkinData.SkinSection = 'CHECKBOX'
    OnPaint = GradPanelPaint
  end
  object SelectedPanel: TShape
    Left = 234
    Top = 276
    Width = 131
    Height = 69
    Brush.Color = clGreen
    Pen.Style = psInsideFrame
  end
  object sREdit: TsCurrencyEdit
    Left = 494
    Top = 276
    Width = 33
    Height = 19
    AutoSize = False
    TabOrder = 5
    OnChange = sREditChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'Red :'
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object sGEdit: TsCurrencyEdit
    Left = 494
    Top = 300
    Width = 33
    Height = 19
    AutoSize = False
    TabOrder = 6
    OnChange = sREditChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'Green :'
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object sBEdit: TsCurrencyEdit
    Left = 494
    Top = 324
    Width = 33
    Height = 19
    AutoSize = False
    TabOrder = 7
    OnChange = sREditChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'Blue :'
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object sBitBtn3: TsBitBtn
    Left = 236
    Top = 352
    Width = 291
    Height = 25
    Caption = 'Add to custom colors set'
    TabOrder = 11
    OnClick = sBitBtn3Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sBitBtn4: TsBitBtn
    Left = 8
    Top = 268
    Width = 209
    Height = 25
    Caption = 'Define colors'
    Enabled = False
    TabOrder = 12
    OnClick = sBitBtn4Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sHEdit: TsCurrencyEdit
    Left = 394
    Top = 276
    Width = 33
    Height = 19
    AutoSize = False
    TabOrder = 2
    OnChange = sHEditChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'H :'
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object sSEdit: TsCurrencyEdit
    Left = 394
    Top = 300
    Width = 33
    Height = 19
    AutoSize = False
    TabOrder = 3
    OnChange = sHEditChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'S :'
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object sVEdit: TsCurrencyEdit
    Left = 394
    Top = 324
    Width = 33
    Height = 19
    AutoSize = False
    TabOrder = 4
    OnChange = sHEditChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'B :'
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object MainPal: TsColorsPanel
    Left = 1
    Top = 21
    Width = 223
    Height = 167
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 13
    TabStop = True
    OnDblClick = MainPalDblClick
    SkinData.SkinSection = 'CHECKBOX'
    ColCount = 8
    Colors.Strings = (
      '8080FF'
      '80FFFF'
      '80FF80'
      '80FF00'
      'FFFF80'
      'FF8000'
      'C080FF'
      'FF80FF'
      '0000FF'
      '00FFFF'
      '00FF80'
      '40FF00'
      'FFFF00'
      'C08000'
      'C08080'
      'FF00FF'
      '404080'
      '4080FF'
      '00FF00'
      '808000'
      '804000'
      'FF8080'
      '400080'
      '8000FF'
      '000080'
      '0080FF'
      '008000'
      '408000'
      'FF0000'
      'A00000'
      '800080'
      'FF0080'
      '000040'
      '004080'
      '004000'
      '004040'
      '800000'
      '400000'
      '400040'
      '800040'
      '000000'
      '008080'
      '408080'
      '808080'
      '808040'
      'C0C0C0'
      '400040'
      'FFFFFF')
    RowCount = 6
    OnChange = MainPalChange
  end
  object AddPal: TsColorsPanel
    Left = 1
    Top = 205
    Width = 223
    Height = 59
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 14
    TabStop = True
    OnDblClick = AddPalDblClick
    SkinData.SkinSection = 'CHECKBOX'
    ColCount = 8
    Colors.Strings = (
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF'
      'FFFFFF')
    OnChange = MainPalChange
  end
  object sEditDecimal: TsCurrencyEdit
    Left = 142
    Top = 323
    Width = 70
    Height = 19
    AutoSize = False
    TabOrder = 1
    OnChange = sEditDecimalChange
    BoundLabel.Active = True
    BoundLabel.Caption = 'Decimal - '
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    GlyphMode.Grayed = False
    Alignment = taLeftJustify
    DecimalPlaces = 0
    DisplayFormat = '0'
  end
  object sEditHex: TsMaskEdit
    Left = 142
    Top = 302
    Width = 70
    Height = 21
    CharCase = ecUpperCase
    EditMask = 'AAAAAA;1; '
    MaxLength = 6
    TabOrder = 0
    Text = '      '
    OnChange = sEditHexChange
    OnKeyPress = sEditHexKeyPress
    BoundLabel.Active = True
    BoundLabel.Caption = 'Hex - '
    BoundLabel.Indent = 0
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
  end
  object sBitBtn5: TsBitBtn
    Left = 147
    Top = 352
    Width = 69
    Height = 25
    Caption = 'Help'
    TabOrder = 10
    OnClick = sBitBtn5Click
    SkinData.SkinSection = 'BUTTON'
    ShowFocus = False
  end
  object sSkinProvider1: TsSkinProvider
    CaptionAlignment = taCenter
    SkinData.SkinSection = 'DIALOG'
    ScreenSnap = True
    ShowAppIcon = False
    TitleButtons = <>
    Left = 320
    Top = 20
  end
end

[egorka101]

А что за сервер если не секрет?) да и название бота которого ты хочешь переделать)

[Okean4ik]

Цитата: Сообщение от egorka101 А что за сервер если не секрет?) да и название бота которого ты хочешь переделать)

Не секрет. Сервер SovnGard. Цель бота ходить от почтового ящика до алхимика в ГИ и крафтить алмазки. И ложить алмазки в банк.

[Sirioga]

Цитата: Сообщение от egorka101 да и название бота которого ты хочешь переделать)

Написано же, Caption = 'Almacrafter (by Stooker)'

Цитата: Сообщение от Okean4ik разобрал файл exe. через restorator

Ресторатором можно редактировать лишь внешний вид программы.

[sumikot]

Это только ресурсы GUI. Смотри настроечный файл с офсетами, если есть, меняй. Как варианты - обращайся к разработчику или декомпилируй.

[Okean4ik]

Цитата: Сообщение от sumikot Это только ресурсы GUI. Смотри настроечный файл с офсетами, если есть, меняй. Как варианты - обращайся к разработчику или декомпилируй.

А ты случайно не мог бы мне помочь?