Register for your free account! | Forgot your password?

You last visited: Today at 03:53

  • Please register to post and access all features, it's quick, easy and FREE!

 

new aion bot

Reply
 
Old   #76
 
elite*gold: 0
Join Date: Mar 2012
Posts: 1
Received Thanks: 0
bot works on 3.0?



Madmartigan79 is offline  
Old   #77
 
elite*gold: 0
Join Date: Jun 2012
Posts: 11
Received Thanks: 5
Code:
object PBot: TPBot
  Left = 519
  Top = 252
  BorderStyle = bsToolWindow
  Caption = 'PBot'
  ClientHeight = 342
  ClientWidth = 495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Georgia'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object LLevelP: TLabel
    Left = 8
    Top = 136
    Width = 47
    Height = 18
    Caption = 'Level:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LTarget: TLabel
    Left = 8
    Top = 8
    Width = 56
    Height = 18
    Caption = 'Target:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LName: TLabel
    Left = 8
    Top = 112
    Width = 51
    Height = 18
    Caption = 'Name:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LLevelT: TLabel
    Left = 8
    Top = 32
    Width = 47
    Height = 18
    Caption = 'Level:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LTHP: TLabel
    Left = 8
    Top = 56
    Width = 58
    Height = 18
    Caption = 'Health:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPHp: TLabel
    Left = 8
    Top = 160
    Width = 58
    Height = 18
    Caption = 'Health:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPMa: TLabel
    Left = 8
    Top = 184
    Width = 49
    Height = 18
    Caption = 'Mana:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPExp: TLabel
    Left = 8
    Top = 208
    Width = 40
    Height = 18
    Caption = 'EXP:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LTBHp: TLabel
    Left = 72
    Top = 56
    Width = 121
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LPBMa: TLabel
    Left = 72
    Top = 184
    Width = 121
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LPBHp: TLabel
    Left = 72
    Top = 160
    Width = 121
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LPBExp: TLabel
    Left = 72
    Top = 208
    Width = 121
    Height = 14
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LTName: TLabel
    Left = 72
    Top = 8
    Width = 4
    Height = 18
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPName: TLabel
    Left = 72
    Top = 112
    Width = 4
    Height = 18
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPLevel: TLabel
    Left = 72
    Top = 136
    Width = 121
    Height = 14
    Alignment = taCenter
    AutoSize = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object LTLevel: TLabel
    Left = 72
    Top = 32
    Width = 4
    Height = 18
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPxyz: TLabel
    Left = 8
    Top = 232
    Width = 36
    Height = 18
    Alignment = taCenter
    Caption = 'x,y,z'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LCube: TLabel
    Left = 8
    Top = 264
    Width = 49
    Height = 18
    Alignment = taCenter
    Caption = 'Cube :'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label29: TLabel
    Left = 72
    Top = 296
    Width = 47
    Height = 14
    Caption = 'Label29'
    Visible = False
  end
  object tabbed: TTabbedNotebook
    Left = 200
    Top = 0
    Width = 297
    Height = 329
    TabFont.Charset = DEFAULT_CHARSET
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Main'
      object Label5: TLabel
        Left = 64
        Top = 72
        Width = 32
        Height = 18
        Caption = 'HP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 64
        Top = 96
        Width = 35
        Height = 18
        Caption = 'MP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label7: TLabel
        Left = 160
        Top = 72
        Width = 32
        Height = 18
        Caption = 'HP>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 160
        Top = 96
        Width = 35
        Height = 18
        Caption = 'MP>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label9: TLabel
        Left = 136
        Top = 72
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 136
        Top = 96
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label12: TLabel
        Left = 232
        Top = 72
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 232
        Top = 96
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label14: TLabel
        Left = 104
        Top = 48
        Width = 19
        Height = 18
        Alignment = taCenter
        Caption = 'Sit'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 192
        Top = 48
        Width = 41
        Height = 18
        Alignment = taCenter
        Caption = 'Stand'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 257
        Top = 48
        Width = 24
        Height = 18
        Alignment = taCenter
        Caption = 'ON'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 24
        Top = 24
        Width = 36
        Height = 18
        Alignment = taCenter
        Caption = 'Rest'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label18: TLabel
        Left = 160
        Top = 160
        Width = 32
        Height = 18
        Caption = 'HP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 232
        Top = 160
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 160
        Top = 216
        Width = 35
        Height = 18
        Caption = 'MP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label22: TLabel
        Left = 232
        Top = 216
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 24
        Top = 136
        Width = 25
        Height = 18
        Alignment = taCenter
        Caption = 'HP'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label24: TLabel
        Left = 24
        Top = 192
        Width = 26
        Height = 18
        Alignment = taCenter
        Caption = 'MP'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 24
        Top = 264
        Width = 38
        Height = 18
        Alignment = taCenter
        Caption = 'Loot'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = -8
        Top = 16
        Width = 297
        Height = 113
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel2: TBevel
        Left = -8
        Top = 128
        Width = 297
        Height = 57
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel3: TBevel
        Left = 0
        Top = 184
        Width = 297
        Height = 65
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel4: TBevel
        Left = -8
        Top = 248
        Width = 297
        Height = 49
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel5: TBevel
        Left = 248
        Top = 16
        Width = 41
        Height = 281
        Shape = bsFrame
        Style = bsRaised
      end
      object CBRest: TComboBox
        Left = 104
        Top = 24
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 0
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBHealth: TComboBox
        Left = 104
        Top = 136
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ItemIndex = 9
        ParentFont = False
        TabOrder = 1
        Text = '0'
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBMana: TComboBox
        Left = 104
        Top = 192
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ItemIndex = 8
        ParentFont = False
        TabOrder = 2
        Text = '9'
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBLoot: TComboBox
        Left = 104
        Top = 264
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 3
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBAltRest: TCheckBox
        Left = 168
        Top = 24
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 4
        Visible = False
        OnClick = CBAltRestClick
      end
      object CBAltHealth: TCheckBox
        Left = 168
        Top = 136
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 5
        Visible = False
        OnClick = CBAltHealthClick
      end
      object CBAltMana: TCheckBox
        Left = 168
        Top = 192
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 6
        Visible = False
        OnClick = CBAltManaClick
      end
      object CBAltLoot: TCheckBox
        Left = 168
        Top = 264
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 7
        Visible = False
        OnClick = CBAltLootClick
      end
      object CBCtrlRest: TCheckBox
        Left = 216
        Top = 24
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 8
        Visible = False
        OnClick = CBCtrlRestClick
      end
      object CBCtrlHealth: TCheckBox
        Left = 216
        Top = 136
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 9
        Visible = False
        OnClick = CBCtrlHealthClick
      end
      object CBCtrlMana: TCheckBox
        Left = 216
        Top = 192
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 10
        Visible = False
        OnClick = CBCtrlManaClick
      end
      object CBCtrlLoot: TCheckBox
        Left = 216
        Top = 264
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 11
        Visible = False
        OnClick = CBCtrlLootClick
      end
      object EdRestSitHp: TEdit
        Left = 104
        Top = 72
        Width = 33
        Height = 22
        TabOrder = 12
        Text = '50'
      end
      object EdRestSitMana: TEdit
        Left = 104
        Top = 96
        Width = 33
        Height = 22
        TabOrder = 13
        Text = '50'
        Visible = False
      end
      object EdRestStandHp: TEdit
        Left = 200
        Top = 72
        Width = 33
        Height = 22
        TabOrder = 14
        Text = '100'
      end
      object EdRestStandMana: TEdit
        Left = 200
        Top = 96
        Width = 33
        Height = 22
        TabOrder = 15
        Text = '100'
        Visible = False
      end
      object CBRestHpON: TCheckBox
        Left = 264
        Top = 72
        Width = 17
        Height = 17
        TabOrder = 16
        OnClick = CBRestHpONClick
      end
      object CBRestManaON: TCheckBox
        Left = 264
        Top = 96
        Width = 17
        Height = 17
        TabOrder = 17
        Visible = False
        OnClick = CBRestManaONClick
      end
      object EdPotHP: TEdit
        Left = 200
        Top = 160
        Width = 33
        Height = 22
        TabOrder = 18
        Text = '30'
      end
      object CBPotHPON: TCheckBox
        Left = 264
        Top = 160
        Width = 17
        Height = 17
        TabOrder = 19
        OnClick = CBPotHPONClick
      end
      object EdPotMP: TEdit
        Left = 200
        Top = 216
        Width = 33
        Height = 22
        TabOrder = 20
        Text = '30'
      end
      object CBPotMPON: TCheckBox
        Left = 264
        Top = 216
        Width = 17
        Height = 17
        TabOrder = 21
        OnClick = CBPotMPONClick
      end
      object CBLootON: TCheckBox
        Left = 264
        Top = 264
        Width = 17
        Height = 17
        TabOrder = 22
        OnClick = CBLootONClick
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Battle'
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 96
        Height = 18
        Alignment = taCenter
        Caption = 'Main Battle'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 64
        Width = 68
        Height = 18
        Alignment = taCenter
        Caption = 'Cooldown'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 168
        Top = 64
        Width = 7
        Height = 18
        Alignment = taCenter
        Caption = 's'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object MBattle: TMemo
        Left = 8
        Top = 120
        Width = 169
        Height = 177
        ReadOnly = True
        TabOrder = 0
      end
      object CBAttack: TComboBox
        Left = 8
        Top = 40
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBAltA: TCheckBox
        Left = 72
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 2
        Visible = False
        OnClick = CBAltAClick
      end
      object CBCtrlA: TCheckBox
        Left = 128
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 3
        Visible = False
        OnClick = CBCtrlAClick
      end
      object BtInsA: TButton
        Left = 8
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Insert'
        TabOrder = 4
        OnClick = BtInsAClick
      end
      object BtChaA: TButton
        Left = 64
        Top = 88
        Width = 57
        Height = 25
        Caption = 'Change'
        TabOrder = 5
        OnClick = BtChaAClick
      end
      object BtDelA: TButton
        Left = 128
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Delete'
        TabOrder = 6
        OnClick = BtDelAClick
      end
      object EdCdA: TEdit
        Left = 112
        Top = 64
        Width = 49
        Height = 22
        TabOrder = 7
        Text = '0'
      end
      object BtSave: TButton
        Left = 200
        Top = 272
        Width = 75
        Height = 25
        Caption = 'Save'
        TabOrder = 8
        OnClick = BtSaveClick
      end
      object BtLoad: TButton
        Left = 200
        Top = 240
        Width = 75
        Height = 25
        Caption = 'Load'
        TabOrder = 9
        OnClick = BtLoadClick
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Buffs'
      object Label20: TLabel
        Left = 8
        Top = 8
        Width = 88
        Height = 18
        Alignment = taCenter
        Caption = 'Main Buffs'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 8
        Top = 64
        Width = 68
        Height = 18
        Alignment = taCenter
        Caption = 'Cooldown'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 168
        Top = 64
        Width = 7
        Height = 18
        Alignment = taCenter
        Caption = 's'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object MBuff: TMemo
        Left = 8
        Top = 120
        Width = 169
        Height = 177
        ReadOnly = True
        TabOrder = 0
      end
      object CBBuff: TComboBox
        Left = 8
        Top = 40
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBAltB: TCheckBox
        Left = 72
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 2
        Visible = False
        OnClick = CBAltBClick
      end
      object CBCtrlB: TCheckBox
        Left = 128
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 3
        Visible = False
        OnClick = CBCtrlBClick
      end
      object BtInsB: TButton
        Left = 8
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Insert'
        TabOrder = 4
        OnClick = BtInsBClick
      end
      object BtChaB: TButton
        Left = 64
        Top = 88
        Width = 57
        Height = 25
        Caption = 'Change'
        TabOrder = 5
        OnClick = BtChaBClick
      end
      object BtDelB: TButton
        Left = 128
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Delete'
        TabOrder = 6
        OnClick = BtDelBClick
      end
      object EdCdB: TEdit
        Left = 112
        Top = 64
        Width = 49
        Height = 22
        TabOrder = 7
        Text = '0'
      end
      object BTLoadB: TButton
        Left = 200
        Top = 240
        Width = 75
        Height = 25
        Caption = 'BTLoadB'
        TabOrder = 8
        Visible = False
      end
      object BtSaveB: TButton
        Left = 200
        Top = 272
        Width = 75
        Height = 25
        Caption = 'BtSaveB'
        TabOrder = 9
        Visible = False
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Waypoints'
      object Memo1: TMemo
        Left = 0
        Top = 32
        Width = 289
        Height = 265
        TabOrder = 0
      end
      object BtWps: TButton
        Left = 0
        Top = 0
        Width = 97
        Height = 25
        Caption = 'Start Get Wps'
        TabOrder = 1
        OnClick = BtWpsClick
      end
      object CheckBox1: TCheckBox
        Left = 160
        Top = 8
        Width = 113
        Height = 17
        Caption = 'Use Waypoints'
        TabOrder = 2
        OnClick = CheckBox1Click
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Run'
      object Label26: TLabel
        Left = 0
        Top = 16
        Width = 109
        Height = 18
        Alignment = taCenter
        Caption = 'Running Time :'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label27: TLabel
        Left = 0
        Top = 48
        Width = 77
        Height = 14
        Caption = 'Kill Counter :'
      end
      object LRunning: TLabel
        Left = 120
        Top = 16
        Width = 58
        Height = 14
        Caption = 'LRunning'
      end
      object LKills: TLabel
        Left = 120
        Top = 48
        Width = 32
        Height = 14
        Caption = 'LKills'
      end
      object Label28: TLabel
        Left = 0
        Top = 80
        Width = 38
        Height = 14
        Caption = 'Exp/h:'
      end
      object LEXPpH: TLabel
        Left = 120
        Top = 80
        Width = 47
        Height = 14
        Caption = 'LEXPpH'
      end
      object BtStart: TButton
        Left = 0
        Top = 120
        Width = 75
        Height = 25
        Caption = 'Start Bot'
        TabOrder = 0
        OnClick = BtStartClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 323
    Width = 495
    Height = 19
    Panels = <
      item
        Text = 'AionBot by BaFuSs'
        Width = 50
      end>
    SimpleText = 'PBot by BaFuSs'
  end
  object Console: TMemo
    Left = 496
    Top = 0
    Width = 505
    Height = 321
    TabOrder = 2
    Visible = False
  end
  object TBattle: TTimer
    Interval = 200
    OnTimer = TBattleTimer
    Left = 48
    Top = 80
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    Left = 16
    Top = 80
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 80
    Top = 80
  end
end
Good one, but best part were leeched ...


lovercraft is offline  
Old   #78
 
elite*gold: 0
Join Date: Feb 2012
Posts: 2
Received Thanks: 0
it works but donīt pick up items, or how to config the loot?
xBlAcKJaCkx is offline  
Old   #79
 
elite*gold: 0
Join Date: Jun 2012
Posts: 13
Received Thanks: 0
use an autoloot pet, best option and no more loot bugs!


jaqool is offline  
Old   #80
 
elite*gold: 0
Join Date: Aug 2007
Posts: 18
Received Thanks: 30
Quote:
Originally Posted by lovercraft View Post
Code:
object PBot: TPBot
  Left = 519
  Top = 252
  BorderStyle = bsToolWindow
  Caption = 'PBot'
  ClientHeight = 342
  ClientWidth = 495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Georgia'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object LLevelP: TLabel
    Left = 8
    Top = 136
    Width = 47
    Height = 18
    Caption = 'Level:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LTarget: TLabel
    Left = 8
    Top = 8
    Width = 56
    Height = 18
    Caption = 'Target:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LName: TLabel
    Left = 8
    Top = 112
    Width = 51
    Height = 18
    Caption = 'Name:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LLevelT: TLabel
    Left = 8
    Top = 32
    Width = 47
    Height = 18
    Caption = 'Level:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object LTHP: TLabel
    Left = 8
    Top = 56
    Width = 58
    Height = 18
    Caption = 'Health:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPHp: TLabel
    Left = 8
    Top = 160
    Width = 58
    Height = 18
    Caption = 'Health:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPMa: TLabel
    Left = 8
    Top = 184
    Width = 49
    Height = 18
    Caption = 'Mana:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPExp: TLabel
    Left = 8
    Top = 208
    Width = 40
    Height = 18
    Caption = 'EXP:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LTBHp: TLabel
    Left = 72
    Top = 56
    Width = 121
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LPBMa: TLabel
    Left = 72
    Top = 184
    Width = 121
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LPBHp: TLabel
    Left = 72
    Top = 160
    Width = 121
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LPBExp: TLabel
    Left = 72
    Top = 208
    Width = 121
    Height = 14
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '1000/1000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object LTName: TLabel
    Left = 72
    Top = 8
    Width = 4
    Height = 18
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPName: TLabel
    Left = 72
    Top = 112
    Width = 4
    Height = 18
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPLevel: TLabel
    Left = 72
    Top = 136
    Width = 121
    Height = 14
    Alignment = taCenter
    AutoSize = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Georgia'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object LTLevel: TLabel
    Left = 72
    Top = 32
    Width = 4
    Height = 18
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LPxyz: TLabel
    Left = 8
    Top = 232
    Width = 36
    Height = 18
    Alignment = taCenter
    Caption = 'x,y,z'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object LCube: TLabel
    Left = 8
    Top = 264
    Width = 49
    Height = 18
    Alignment = taCenter
    Caption = 'Cube :'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Georgia'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label29: TLabel
    Left = 72
    Top = 296
    Width = 47
    Height = 14
    Caption = 'Label29'
    Visible = False
  end
  object tabbed: TTabbedNotebook
    Left = 200
    Top = 0
    Width = 297
    Height = 329
    TabFont.Charset = DEFAULT_CHARSET
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Main'
      object Label5: TLabel
        Left = 64
        Top = 72
        Width = 32
        Height = 18
        Caption = 'HP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 64
        Top = 96
        Width = 35
        Height = 18
        Caption = 'MP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label7: TLabel
        Left = 160
        Top = 72
        Width = 32
        Height = 18
        Caption = 'HP>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 160
        Top = 96
        Width = 35
        Height = 18
        Caption = 'MP>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label9: TLabel
        Left = 136
        Top = 72
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 136
        Top = 96
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label12: TLabel
        Left = 232
        Top = 72
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 232
        Top = 96
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label14: TLabel
        Left = 104
        Top = 48
        Width = 19
        Height = 18
        Alignment = taCenter
        Caption = 'Sit'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 192
        Top = 48
        Width = 41
        Height = 18
        Alignment = taCenter
        Caption = 'Stand'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 257
        Top = 48
        Width = 24
        Height = 18
        Alignment = taCenter
        Caption = 'ON'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 24
        Top = 24
        Width = 36
        Height = 18
        Alignment = taCenter
        Caption = 'Rest'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label18: TLabel
        Left = 160
        Top = 160
        Width = 32
        Height = 18
        Caption = 'HP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 232
        Top = 160
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 160
        Top = 216
        Width = 35
        Height = 18
        Caption = 'MP<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label22: TLabel
        Left = 232
        Top = 216
        Width = 13
        Height = 18
        Caption = '%'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 24
        Top = 136
        Width = 25
        Height = 18
        Alignment = taCenter
        Caption = 'HP'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label24: TLabel
        Left = 24
        Top = 192
        Width = 26
        Height = 18
        Alignment = taCenter
        Caption = 'MP'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 24
        Top = 264
        Width = 38
        Height = 18
        Alignment = taCenter
        Caption = 'Loot'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = -8
        Top = 16
        Width = 297
        Height = 113
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel2: TBevel
        Left = -8
        Top = 128
        Width = 297
        Height = 57
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel3: TBevel
        Left = 0
        Top = 184
        Width = 297
        Height = 65
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel4: TBevel
        Left = -8
        Top = 248
        Width = 297
        Height = 49
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel5: TBevel
        Left = 248
        Top = 16
        Width = 41
        Height = 281
        Shape = bsFrame
        Style = bsRaised
      end
      object CBRest: TComboBox
        Left = 104
        Top = 24
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 0
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBHealth: TComboBox
        Left = 104
        Top = 136
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ItemIndex = 9
        ParentFont = False
        TabOrder = 1
        Text = '0'
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBMana: TComboBox
        Left = 104
        Top = 192
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ItemIndex = 8
        ParentFont = False
        TabOrder = 2
        Text = '9'
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBLoot: TComboBox
        Left = 104
        Top = 264
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 3
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBAltRest: TCheckBox
        Left = 168
        Top = 24
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 4
        Visible = False
        OnClick = CBAltRestClick
      end
      object CBAltHealth: TCheckBox
        Left = 168
        Top = 136
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 5
        Visible = False
        OnClick = CBAltHealthClick
      end
      object CBAltMana: TCheckBox
        Left = 168
        Top = 192
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 6
        Visible = False
        OnClick = CBAltManaClick
      end
      object CBAltLoot: TCheckBox
        Left = 168
        Top = 264
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 7
        Visible = False
        OnClick = CBAltLootClick
      end
      object CBCtrlRest: TCheckBox
        Left = 216
        Top = 24
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 8
        Visible = False
        OnClick = CBCtrlRestClick
      end
      object CBCtrlHealth: TCheckBox
        Left = 216
        Top = 136
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 9
        Visible = False
        OnClick = CBCtrlHealthClick
      end
      object CBCtrlMana: TCheckBox
        Left = 216
        Top = 192
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 10
        Visible = False
        OnClick = CBCtrlManaClick
      end
      object CBCtrlLoot: TCheckBox
        Left = 216
        Top = 264
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 11
        Visible = False
        OnClick = CBCtrlLootClick
      end
      object EdRestSitHp: TEdit
        Left = 104
        Top = 72
        Width = 33
        Height = 22
        TabOrder = 12
        Text = '50'
      end
      object EdRestSitMana: TEdit
        Left = 104
        Top = 96
        Width = 33
        Height = 22
        TabOrder = 13
        Text = '50'
        Visible = False
      end
      object EdRestStandHp: TEdit
        Left = 200
        Top = 72
        Width = 33
        Height = 22
        TabOrder = 14
        Text = '100'
      end
      object EdRestStandMana: TEdit
        Left = 200
        Top = 96
        Width = 33
        Height = 22
        TabOrder = 15
        Text = '100'
        Visible = False
      end
      object CBRestHpON: TCheckBox
        Left = 264
        Top = 72
        Width = 17
        Height = 17
        TabOrder = 16
        OnClick = CBRestHpONClick
      end
      object CBRestManaON: TCheckBox
        Left = 264
        Top = 96
        Width = 17
        Height = 17
        TabOrder = 17
        Visible = False
        OnClick = CBRestManaONClick
      end
      object EdPotHP: TEdit
        Left = 200
        Top = 160
        Width = 33
        Height = 22
        TabOrder = 18
        Text = '30'
      end
      object CBPotHPON: TCheckBox
        Left = 264
        Top = 160
        Width = 17
        Height = 17
        TabOrder = 19
        OnClick = CBPotHPONClick
      end
      object EdPotMP: TEdit
        Left = 200
        Top = 216
        Width = 33
        Height = 22
        TabOrder = 20
        Text = '30'
      end
      object CBPotMPON: TCheckBox
        Left = 264
        Top = 216
        Width = 17
        Height = 17
        TabOrder = 21
        OnClick = CBPotMPONClick
      end
      object CBLootON: TCheckBox
        Left = 264
        Top = 264
        Width = 17
        Height = 17
        TabOrder = 22
        OnClick = CBLootONClick
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Battle'
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 96
        Height = 18
        Alignment = taCenter
        Caption = 'Main Battle'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 64
        Width = 68
        Height = 18
        Alignment = taCenter
        Caption = 'Cooldown'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 168
        Top = 64
        Width = 7
        Height = 18
        Alignment = taCenter
        Caption = 's'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object MBattle: TMemo
        Left = 8
        Top = 120
        Width = 169
        Height = 177
        ReadOnly = True
        TabOrder = 0
      end
      object CBAttack: TComboBox
        Left = 8
        Top = 40
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBAltA: TCheckBox
        Left = 72
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 2
        Visible = False
        OnClick = CBAltAClick
      end
      object CBCtrlA: TCheckBox
        Left = 128
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 3
        Visible = False
        OnClick = CBCtrlAClick
      end
      object BtInsA: TButton
        Left = 8
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Insert'
        TabOrder = 4
        OnClick = BtInsAClick
      end
      object BtChaA: TButton
        Left = 64
        Top = 88
        Width = 57
        Height = 25
        Caption = 'Change'
        TabOrder = 5
        OnClick = BtChaAClick
      end
      object BtDelA: TButton
        Left = 128
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Delete'
        TabOrder = 6
        OnClick = BtDelAClick
      end
      object EdCdA: TEdit
        Left = 112
        Top = 64
        Width = 49
        Height = 22
        TabOrder = 7
        Text = '0'
      end
      object BtSave: TButton
        Left = 200
        Top = 272
        Width = 75
        Height = 25
        Caption = 'Save'
        TabOrder = 8
        OnClick = BtSaveClick
      end
      object BtLoad: TButton
        Left = 200
        Top = 240
        Width = 75
        Height = 25
        Caption = 'Load'
        TabOrder = 9
        OnClick = BtLoadClick
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Buffs'
      object Label20: TLabel
        Left = 8
        Top = 8
        Width = 88
        Height = 18
        Alignment = taCenter
        Caption = 'Main Buffs'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 8
        Top = 64
        Width = 68
        Height = 18
        Alignment = taCenter
        Caption = 'Cooldown'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 168
        Top = 64
        Width = 7
        Height = 18
        Alignment = taCenter
        Caption = 's'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object MBuff: TMemo
        Left = 8
        Top = 120
        Width = 169
        Height = 177
        ReadOnly = True
        TabOrder = 0
      end
      object CBBuff: TComboBox
        Left = 8
        Top = 40
        Width = 57
        Height = 20
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Georgia'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0')
      end
      object CBAltB: TCheckBox
        Left = 72
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Alt'
        TabOrder = 2
        Visible = False
        OnClick = CBAltBClick
      end
      object CBCtrlB: TCheckBox
        Left = 128
        Top = 40
        Width = 49
        Height = 17
        Caption = 'Ctrl'
        TabOrder = 3
        Visible = False
        OnClick = CBCtrlBClick
      end
      object BtInsB: TButton
        Left = 8
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Insert'
        TabOrder = 4
        OnClick = BtInsBClick
      end
      object BtChaB: TButton
        Left = 64
        Top = 88
        Width = 57
        Height = 25
        Caption = 'Change'
        TabOrder = 5
        OnClick = BtChaBClick
      end
      object BtDelB: TButton
        Left = 128
        Top = 88
        Width = 49
        Height = 25
        Caption = 'Delete'
        TabOrder = 6
        OnClick = BtDelBClick
      end
      object EdCdB: TEdit
        Left = 112
        Top = 64
        Width = 49
        Height = 22
        TabOrder = 7
        Text = '0'
      end
      object BTLoadB: TButton
        Left = 200
        Top = 240
        Width = 75
        Height = 25
        Caption = 'BTLoadB'
        TabOrder = 8
        Visible = False
      end
      object BtSaveB: TButton
        Left = 200
        Top = 272
        Width = 75
        Height = 25
        Caption = 'BtSaveB'
        TabOrder = 9
        Visible = False
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Waypoints'
      object Memo1: TMemo
        Left = 0
        Top = 32
        Width = 289
        Height = 265
        TabOrder = 0
      end
      object BtWps: TButton
        Left = 0
        Top = 0
        Width = 97
        Height = 25
        Caption = 'Start Get Wps'
        TabOrder = 1
        OnClick = BtWpsClick
      end
      object CheckBox1: TCheckBox
        Left = 160
        Top = 8
        Width = 113
        Height = 17
        Caption = 'Use Waypoints'
        TabOrder = 2
        OnClick = CheckBox1Click
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Run'
      object Label26: TLabel
        Left = 0
        Top = 16
        Width = 109
        Height = 18
        Alignment = taCenter
        Caption = 'Running Time :'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Georgia'
        Font.Style = []
        ParentFont = False
      end
      object Label27: TLabel
        Left = 0
        Top = 48
        Width = 77
        Height = 14
        Caption = 'Kill Counter :'
      end
      object LRunning: TLabel
        Left = 120
        Top = 16
        Width = 58
        Height = 14
        Caption = 'LRunning'
      end
      object LKills: TLabel
        Left = 120
        Top = 48
        Width = 32
        Height = 14
        Caption = 'LKills'
      end
      object Label28: TLabel
        Left = 0
        Top = 80
        Width = 38
        Height = 14
        Caption = 'Exp/h:'
      end
      object LEXPpH: TLabel
        Left = 120
        Top = 80
        Width = 47
        Height = 14
        Caption = 'LEXPpH'
      end
      object BtStart: TButton
        Left = 0
        Top = 120
        Width = 75
        Height = 25
        Caption = 'Start Bot'
        TabOrder = 0
        OnClick = BtStartClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 323
    Width = 495
    Height = 19
    Panels = <
      item
        Text = 'AionBot by BaFuSs'
        Width = 50
      end>
    SimpleText = 'PBot by BaFuSs'
  end
  object Console: TMemo
    Left = 496
    Top = 0
    Width = 505
    Height = 321
    TabOrder = 2
    Visible = False
  end
  object TBattle: TTimer
    Interval = 200
    OnTimer = TBattleTimer
    Left = 48
    Top = 80
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    Left = 16
    Top = 80
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 80
    Top = 80
  end
end
Good one, but best part were leeched ...
what are you going to do with code of form ? LoL
L0ngBlade is offline  
Old   #81
 
elite*gold: 0
Join Date: Jul 2009
Posts: 23
Received Thanks: 0
L0ngBlade


plz update....
Tressy is offline  
Old   #82
 
elite*gold: 0
Join Date: Aug 2007
Posts: 18
Received Thanks: 30
Quote:
Originally Posted by Tressy View Post
L0ngBlade


plz update....
sorry i have deinstalled Aion but i added some sourcecode so you can update the offsets in function.pas
L0ngBlade is offline  
Old   #83
 
elite*gold: 0
Join Date: Jul 2009
Posts: 23
Received Thanks: 0
Quote:
Originally Posted by L0ngBlade View Post
sorry i have deinstalled Aion but i added some sourcecode so you can update the offsets in function.pas


Ok,Thx, rgr
Tressy is offline  
Old   #84
 
elite*gold: 0
Join Date: Jul 2012
Posts: 1
Received Thanks: 0
can use?
dianlao is offline  
Old   #85
 
elite*gold: 0
Join Date: Mar 2009
Posts: 32
Received Thanks: 1
LOL someone teach me coding :B no idea how to update the offsets.
princelex is offline  
Old   #86
 
elite*gold: 0
Join Date: Jun 2011
Posts: 3
Received Thanks: 0
How do i work this thing?~
angster9 is offline  
Old   #87
 
elite*gold: 0
Join Date: Aug 2007
Posts: 18
Received Thanks: 30
you have to search with cheat engine or some other programs for the memory addresses
then change this
CharIsCastingOffset = $C50940;
CharIsCastingOffset2 = $398;
CharCurHPOffset = $BF6770; //"Game.dll"+002E08AC+$48
CharMaxHpOffset = $BF676C; //"Game.dll"+002E08AC+$44
CharCurMPOffset = $BF6778; //"Game.dll"+002E08AC+$50
CharMaxMpOffset = $BF6774; //"Game.dll"+002E08AC+$4c
CharCurExpOffset = $BF6760;
CharMaxExpOffset = $BF6750;
CharIsCastingOffset = $C50940;
CharIsCastingOffset2 = $398;
CharCurCubeOffset = $BF67C8; //"Game.dll"+002E08AC + A0
CharMaxCubeOffset = $BF67C4;
CharHasTargetOffset = $7AEA68;
CharLvlOffset = $BF6748;
CharPosXOffset = $BF0A9C;
CharPosYOffset = $BF0AA0;
CharPosZOffset = $BF0AA4;
TargetBase = $7AEA60;
TargetOffset = $1D4;
TargetXOffset = $34;
TargetYOffset = $38;
TargetZOffset = $3C;
TargetStateOffset = $298;
TargetLevelOffset = $36;
TargetNameOffset = $3A;
TargetTypeOffset = $18;
TargetHPOffset = $10E0;
TargetMaxHPOffset = $10DC;
TargetHPProcOffset = $38;
L0ngBlade is offline  
Old   #88
 
elite*gold: 0
Join Date: Mar 2009
Posts: 32
Received Thanks: 1
I've changed the adress according to the latest post, . Got it to use its skill to kill mobs, but one prob, it doesnt rest, heal, loot etc.. only kills. HELP PLS? this bot is the only best free bot, but its saddening that no one wants to update it
princelex is offline  
Old   #89
 
elite*gold: 0
Join Date: Jan 2010
Posts: 97
Received Thanks: 167
I updated but when compiling with the new offset gives me an error if someone else is wrong and what to read as solved
plasen is offline  
Old   #90
 
elite*gold: 0
Join Date: Jul 2012
Posts: 7
Received Thanks: 0
Quote:
Originally Posted by L0ngBlade View Post
you have to search with cheat engine or some other programs for the memory addresses
then change this
CharIsCastingOffset = $C50940;
CharIsCastingOffset2 = $398;
CharCurHPOffset = $BF6770; //"Game.dll"+002E08AC+$48
CharMaxHpOffset = $BF676C; //"Game.dll"+002E08AC+$44
CharCurMPOffset = $BF6778; //"Game.dll"+002E08AC+$50
CharMaxMpOffset = $BF6774; //"Game.dll"+002E08AC+$4c
CharCurExpOffset = $BF6760;
CharMaxExpOffset = $BF6750;
CharIsCastingOffset = $C50940;
CharIsCastingOffset2 = $398;
CharCurCubeOffset = $BF67C8; //"Game.dll"+002E08AC + A0
CharMaxCubeOffset = $BF67C4;
CharHasTargetOffset = $7AEA68;
CharLvlOffset = $BF6748;
CharPosXOffset = $BF0A9C;
CharPosYOffset = $BF0AA0;
CharPosZOffset = $BF0AA4;
TargetBase = $7AEA60;
TargetOffset = $1D4;
TargetXOffset = $34;
TargetYOffset = $38;
TargetZOffset = $3C;
TargetStateOffset = $298;
TargetLevelOffset = $36;
TargetNameOffset = $3A;
TargetTypeOffset = $18;
TargetHPOffset = $10E0;
TargetMaxHPOffset = $10DC;
TargetHPProcOffset = $38;

When i trying change Offsets to new from this link:



CharCurHPOffset = 0xBF6778,
CharMaxHpOffset = 0xBF6774,

CharCurMPOffset = 0xBF6780,
CharMaxMpOffset = 0xBF677C,

Northing happend ! Still problem with HP/MP/ Looting items

I modifi 2 files(UFunction.pas and UFunction.~pas) using program "DEV-C++"

One way to work this proghram good wigout looting is use MP like HP // MP now is HP ! but program dont want loot items ;( its problem now.


MSC101 is offline  
Reply



« Previous Thread | Next Thread »



All times are GMT +2. The time now is 03:53.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy
Copyright ©2017 elitepvpers All Rights Reserved.