VERSION 5.00
Begin VB.Form form1
   BackColor       =   &H80000009&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hero Fire Bot"
   ClientHeight    =   7020
   ClientLeft      =   45
   ClientTop       =   390
   ClientWidth     =   3405
   BeginProperty Font
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   162
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7020
   ScaleWidth      =   3405
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000008&
      ForeColor       =   &H8000000B&
      Height          =   285
      Left            =   120
      TabIndex        =   3
      Text            =   "Knight Online Client"
      Top             =   4680
      Width           =   3255
   End
   Begin VB.CommandButton Command1
      Caption         =   "Botu Oyuna Bağla"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   5040
      Width           =   3255
   End
   Begin VB.PictureBox Picture1
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3495
      Left            =   -240
      Picture         =   "Form1.frx":0CCA
      ScaleHeight     =   3495
      ScaleWidth      =   3495
      TabIndex        =   1
      Top             =   120
      Width           =   3495
   End
   Begin VB.PictureBox Picture2
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Left            =   0
      Picture         =   "Form1.frx":42AD
      ScaleHeight     =   975
      ScaleWidth      =   3495
      TabIndex        =   0
      Top             =   3480
      Width           =   3495
   End
   Begin VB.Label Label1
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000007&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Hakkında"
      ForeColor       =   &H80000002&
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   5520
      Width           =   1515
   End
   Begin VB.Label Label2
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000008&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "BOT ÜCRETİ TIKLA"
      ForeColor       =   &H80000002&
      Height          =   255
      Left            =   1680
      TabIndex        =   7
      Top             =   5520
      Width           =   1605
   End
   Begin VB.Label Label3
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000007&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Bu Bot (HACKED) Tarafından"
      ForeColor       =   &H80000002&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   6000
      Width           =   3255
   End
   Begin VB.Label Label4
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000007&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Onlinehile Üyelerine Yazılmıştır"
      ForeColor       =   &H80000002&
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   6360
      Width           =   3255
   End
   Begin VB.Label Label5
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000007&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Botu OnlineHile'den İndiriniz"
      ForeColor       =   &H80000002&
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   6720
      Width           =   3255
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
AttachKO
Form3.Show
Me.Hide
End Sub
Private Sub Label1_Click()
MsgBox "İLK ÖNCE OYUNA GİRİN SONRA BOTU OYUNA BAGLA BUTONUNA TIKLAYINIZ"
End Sub

Private Sub Label2_Click()
MsgBox " HERO FİRE BOT ÜCRETSİZ OLARAK WWW.ONLİNEHİLE.ORG ÜYELERİNE SUNULMUŞTUR PARA İLE SATILAMAZ TAMAM FREE'DİR ÜCRETLE SATMAYA KALKANLARA İTİMAT ETMEYİNİZ (HACKED) "
End Sub
Private Sub Form_Load()
MsgBox " Bot'u İndirdiginiz İçin Teşekkür Ederiz (HACKED)"
End Sub
VERSION 5.00
Begin VB.Form Form2
   BackColor       =   &H80000004&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Reklamatör"
   ClientHeight    =   1125
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6270
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   1125
   ScaleWidth      =   6270
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer2
      Interval        =   50
      Left            =   6360
      Top             =   240
   End
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   6840
      Top             =   240
   End
   Begin VB.CommandButton Command1
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   600
      Width           =   6255
   End
   Begin VB.Label LabelOfTheKOJD
      Alignment       =   2  'Center
      BackColor       =   &H80000004&
      Caption         =   "BUTON AÇILABİLMESİ İÇİN 10 SANİYE BEKLEMELİSİNİZ. (www.onlinehile.org) "
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   450
      Left            =   0
      MousePointer    =   2  'Cross
      TabIndex        =   1
      Top             =   0
      Width           =   6135
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Gerisayim As Integer
Public coloring
Private Sub Command1_Click()
form1.Show
Me.Hide
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Gerisayim = 10
End Sub

Private Sub Timer1_Timer()

If Gerisayim > 0 Then
Gerisayim = Gerisayim - 1
Command1.Caption = "Botun Açılması İçin Son (" & Gerisayim & ") Saniye Kaldı"
Else
Command1.Caption = "BOTA GİT"
Command1.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
coloring = coloring + 1

Select Case coloring
Case 1
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 2
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 3
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 4
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 5
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 6
LabelOfTheKOJD.ForeColor = &H80FF&
LabelOfTheKOJD.BackColor = &H80000004
Case 7
LabelOfTheKOJD.ForeColor = &H8000000D
LabelOfTheKOJD.BackColor = &H80000004
Case 8
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 9
LabelOfTheKOJD.ForeColor = &HC0C0&
LabelOfTheKOJD.BackColor = &H80000004
Case 10
LabelOfTheKOJD.ForeColor = &HFF00FF
LabelOfTheKOJD.BackColor = &H80000004
coloring = 0
End Select
End Sub
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form3
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hero Fire Gmr Atack"
   ClientHeight    =   6390
   ClientLeft      =   150
   ClientTop       =   795
   ClientWidth     =   4215
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   6390
   ScaleWidth      =   4215
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer29
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4560
      Top             =   4560
   End
   Begin VB.Frame Frame13
      Height          =   735
      Left            =   4320
      TabIndex        =   80
      Top             =   5400
      Visible         =   0   'False
      Width           =   2295
      Begin VB.CommandButton Command9
         Caption         =   "< Sıfırla"
         Height          =   255
         Left            =   1320
         TabIndex        =   83
         Top             =   240
         Width           =   735
      End
      Begin VB.OptionButton opUç
         Caption         =   "&Moba uç"
         Height          =   255
         Left            =   360
         TabIndex        =   82
         Top             =   360
         Width           =   975
      End
      Begin VB.OptionButton opGit
         Caption         =   "&Moba git"
         Height          =   255
         Left            =   120
         TabIndex        =   81
         Top             =   120
         Width           =   975
      End
      Begin VB.Line Line4
         X1              =   240
         X2              =   360
         Y1              =   480
         Y2              =   480
      End
      Begin VB.Line Line1
         X1              =   240
         X2              =   240
         Y1              =   480
         Y2              =   360
      End
   End
   Begin VB.ListBox List1
      Height          =   255
      ItemData        =   "Form3.frx":0CCA
      Left            =   5640
      List            =   "Form3.frx":0CDD
      TabIndex        =   77
      Top             =   4320
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton Command7
      Caption         =   "Minör Cooldown Çalışmıyor"
      Height          =   255
      Left            =   7680
      TabIndex        =   46
      Top             =   5040
      Visible         =   0   'False
      Width           =   2895
   End
   Begin VB.CheckBox Checktop
      Caption         =   "Botu Her Zaman Üstte Tut"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2640
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   0
      Width           =   1095
   End
   Begin VB.Timer int300
      Interval        =   300
      Left            =   8280
      Top             =   3960
   End
   Begin VB.Timer Timerminör
      Interval        =   50
      Left            =   8760
      Top             =   3960
   End
   Begin VB.Timer tmrFlood
      Enabled         =   0   'False
      Interval        =   10
      Left            =   9360
      Top             =   3960
   End
   Begin VB.Timer tmrzamanlı
      Interval        =   1000
      Left            =   9720
      Top             =   3960
   End
   Begin VB.Frame attacktimer
      Caption         =   "rogue -   okçu-     mage - warrior - priest - atak ile ilgili"
      Height          =   3015
      Left            =   5880
      TabIndex        =   2
      Top             =   720
      Visible         =   0   'False
      Width           =   5175
      Begin VB.Timer Timermalice
         Interval        =   9000
         Left            =   3960
         Top             =   240
      End
      Begin VB.Timer Timerkendinebaffat
         Interval        =   5000
         Left            =   2640
         Top             =   2160
      End
      Begin VB.Timer Timerkendineacat
         Interval        =   5000
         Left            =   2640
         Top             =   1680
      End
      Begin VB.Timer Timerkendineheal
         Interval        =   1000
         Left            =   2640
         Top             =   1200
      End
      Begin VB.Timer Timerprikitap
         Interval        =   5000
         Left            =   2640
         Top             =   720
      End
      Begin VB.Timer okcuatakci
         Enabled         =   0   'False
         Interval        =   1300
         Left            =   720
         Top             =   240
      End
      Begin VB.Timer asasatakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   120
         Top             =   240
      End
      Begin VB.Timer mageatakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   1440
         Top             =   240
      End
      Begin VB.Timer warrioratakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   2040
         Top             =   240
      End
      Begin VB.Timer priatakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   2640
         Top             =   240
      End
      Begin VB.Timer timer1
         Interval        =   100
         Left            =   3360
         Top             =   240
      End
      Begin VB.Timer zamanlar
         Interval        =   1000
         Left            =   120
         Top             =   720
      End
      Begin VB.Line Line3
         Index           =   0
         X1              =   600
         X2              =   600
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   1
         X1              =   1320
         X2              =   1320
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   2
         X1              =   1920
         X2              =   1920
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   3
         X1              =   2520
         X2              =   2520
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   4
         X1              =   3120
         X2              =   3120
         Y1              =   120
         Y2              =   2040
      End
   End
   Begin VB.Timer tmrGit
      Interval        =   500
      Left            =   9240
      Top             =   4560
   End
   Begin VB.Timer tmrUç
      Interval        =   40
      Left            =   7800
      Top             =   4560
   End
   Begin VB.Timer tmrSec
      Enabled         =   0   'False
      Interval        =   20
      Left            =   8280
      Top             =   4560
   End
   Begin VB.ListBox itemlist
      Height          =   1860
      Left            =   7200
      Style           =   1  'Checkbox
      TabIndex        =   1
      Top             =   5400
      Visible         =   0   'False
      Width           =   2775
   End
   Begin VB.Timer tmrPot
      Interval        =   1300
      Left            =   10200
      Top             =   3960
   End
   Begin VB.Timer tmrRAtak
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   8760
      Top             =   4560
   End
   Begin VB.TextBox Text18
      Height          =   375
      Left            =   6960
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   4320
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Timer Timersh
      Interval        =   100
      Left            =   10680
      Top             =   3960
   End
   Begin VB.Timer Timerölümsüz
      Interval        =   300
      Left            =   7800
      Top             =   3960
   End
   Begin TabDlg.SSTab SSTab1
      Height          =   6375
      Left            =   120
      TabIndex        =   4
      Top             =   0
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   11245
      _Version        =   393216
      Style           =   1
      TabHeight       =   520
      BackColor       =   -2147483644
      TabCaption(0)   =   "Genel"
      TabPicture(0)   =   "Form3.frx":0D08
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame3"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame2"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Frame17"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Frame1"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Command1"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).ControlCount=   5
      TabCaption(1)   =   "Atack"
      TabPicture(1)   =   "Form3.frx":0D24
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame15"
      Tab(1).Control(1)=   "SSTab2"
      Tab(1).Control(2)=   "Frame11"
      Tab(1).ControlCount=   3
      TabCaption(2)   =   "Paket Gönder"
      TabPicture(2)   =   "Form3.frx":0D40
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "LabelOfTheKOJD"
      Tab(2).Control(1)=   "Command2"
      Tab(2).Control(2)=   "Text1"
      Tab(2).Control(3)=   "Timer2"
      Tab(2).ControlCount=   4
      Begin VB.Timer Timer2
         Interval        =   50
         Left            =   -71640
         Top             =   1560
      End
      Begin VB.Frame Frame15
         Caption         =   "Yaratıga Koş"
         ForeColor       =   &H00C000C0&
         Height          =   735
         Left            =   -75000
         TabIndex        =   86
         Top             =   5520
         Width           =   3975
         Begin VB.CommandButton Command6
            Caption         =   "Merkez Tut"
            Height          =   255
            Left            =   1680
            TabIndex        =   88
            Top             =   240
            Width           =   1335
         End
         Begin VB.CheckBox Check1
            Caption         =   "Yaratığa Koş"
            Height          =   375
            Left            =   120
            TabIndex        =   87
            Top             =   240
            Width           =   1215
         End
      End
      Begin TabDlg.SSTab SSTab2
         Height          =   4455
         Left            =   -75000
         TabIndex        =   33
         Top             =   360
         Width           =   3975
         _ExtentX        =   7011
         _ExtentY        =   7858
         _Version        =   393216
         Style           =   1
         Tabs            =   4
         Tab             =   3
         TabsPerRow      =   4
         TabHeight       =   520
         TabCaption(0)   =   "Rogue"
         TabPicture(0)   =   "Form3.frx":0D5C
         Tab(0).ControlEnabled=   0   'False
         Tab(0).Control(0)=   "Rogue"
         Tab(0).ControlCount=   1
         TabCaption(1)   =   "Warrior"
         TabPicture(1)   =   "Form3.frx":0D78
         Tab(1).ControlEnabled=   0   'False
         Tab(1).Control(0)=   "Frame7"
         Tab(1).Control(1)=   "Frame5"
         Tab(1).ControlCount=   2
         TabCaption(2)   =   "Mage"
         TabPicture(2)   =   "Form3.frx":0D94
         Tab(2).ControlEnabled=   0   'False
         Tab(2).Control(0)=   "Frame9"
         Tab(2).Control(1)=   "magestaff"
         Tab(2).Control(2)=   "Frame8"
         Tab(2).Control(3)=   "magetekil"
         Tab(2).Control(4)=   "Frame6"
         Tab(2).ControlCount=   5
         TabCaption(3)   =   "Priest"
         TabPicture(3)   =   "Form3.frx":0DB0
         Tab(3).ControlEnabled=   -1  'True
         Tab(3).Control(0)=   "Frame10"
         Tab(3).Control(0).Enabled=   0   'False
         Tab(3).Control(1)=   "Frame12"
         Tab(3).Control(1).Enabled=   0   'False
         Tab(3).Control(2)=   "Check29"
         Tab(3).Control(2).Enabled=   0   'False
         Tab(3).Control(3)=   "Check28"
         Tab(3).Control(3).Enabled=   0   'False
         Tab(3).Control(4)=   "Check27"
         Tab(3).Control(4).Enabled=   0   'False
         Tab(3).Control(5)=   "Check26"
         Tab(3).Control(5).Enabled=   0   'False
         Tab(3).Control(6)=   "Frame14"
         Tab(3).Control(6).Enabled=   0   'False
         Tab(3).ControlCount=   7
         Begin VB.Frame Frame14
            Caption         =   "Oto Heal-Buff-Ac"
            ForeColor       =   &H00C000C0&
            Height          =   2775
            Left            =   1920
            TabIndex        =   66
            Top             =   360
            Width           =   1815
            Begin VB.CheckBox Check38
               Caption         =   "Oto Heal"
               Height          =   255
               Left            =   240
               TabIndex        =   75
               Top             =   240
               Width           =   975
            End
            Begin VB.ComboBox Combo3
               Height          =   315
               ItemData        =   "Form3.frx":0DCC
               Left            =   120
               List            =   "Form3.frx":0DE9
               TabIndex        =   74
               Text            =   "Seçin"
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox Check39
               Caption         =   "Oto Buff"
               Height          =   255
               Left            =   240
               TabIndex        =   73
               Top             =   960
               Width           =   975
            End
            Begin VB.ComboBox Combo4
               Height          =   315
               ItemData        =   "Form3.frx":0E37
               Left            =   120
               List            =   "Form3.frx":0E59
               TabIndex        =   72
               Text            =   "Seçin"
               Top             =   1200
               Width           =   1335
            End
            Begin VB.CheckBox Check40
               Caption         =   "Oto Ac"
               Height          =   255
               Left            =   240
               TabIndex        =   71
               Top             =   1560
               Width           =   1095
            End
            Begin VB.ComboBox Combo5
               Height          =   315
               ItemData        =   "Form3.frx":0EC3
               Left            =   120
               List            =   "Form3.frx":0EE2
               TabIndex        =   70
               Text            =   "seçin"
               Top             =   1800
               Width           =   1335
            End
            Begin VB.CheckBox Check43
               Caption         =   "Oto Mind"
               Height          =   255
               Left            =   240
               TabIndex        =   69
               Top             =   2160
               Width           =   1215
            End
            Begin VB.ComboBox Combo7
               Height          =   315
               ItemData        =   "Form3.frx":0F70
               Left            =   120
               List            =   "Form3.frx":0F80
               TabIndex        =   68
               Text            =   "Seçin"
               Top             =   2400
               Width           =   1335
            End
            Begin VB.TextBox Text14
               Alignment       =   2  'Center
               Height          =   285
               Left            =   1080
               TabIndex        =   67
               Text            =   "80"
               Top             =   480
               Width           =   375
            End
         End
         Begin VB.CheckBox Check26
            Caption         =   "Blasting"
            Height          =   255
            Left            =   360
            TabIndex        =   65
            Top             =   3240
            Width           =   1095
         End
         Begin VB.CheckBox Check27
            Caption         =   "Wildness"
            Height          =   255
            Left            =   360
            TabIndex        =   64
            Top             =   3480
            Width           =   1095
         End
         Begin VB.CheckBox Check28
            Caption         =   "Oto Kitap"
            Height          =   255
            Left            =   360
            TabIndex        =   63
            Top             =   3720
            Width           =   1215
         End
         Begin VB.CheckBox Check29
            Caption         =   "Malice"
            Height          =   255
            Left            =   360
            TabIndex        =   62
            Top             =   3960
            Width           =   1095
         End
         Begin VB.Frame Frame12
            Caption         =   "Priest Basic Skil"
            ForeColor       =   &H00C000C0&
            Height          =   1335
            Left            =   120
            TabIndex        =   61
            Top             =   3000
            Width           =   1695
         End
         Begin VB.Frame Frame10
            Caption         =   "Priest Atak Skilleri"
            ForeColor       =   &H00C000C0&
            Height          =   2655
            Left            =   120
            TabIndex        =   59
            Top             =   360
            Width           =   1695
            Begin VB.ListBox prilist
               Height          =   2310
               ItemData        =   "Form3.frx":0FB4
               Left            =   120
               List            =   "Form3.frx":0FE5
               Style           =   1  'Checkbox
               TabIndex        =   60
               Top             =   240
               Width           =   1455
            End
         End
         Begin VB.Frame Frame9
            Caption         =   "Mage Alan Skilleri"
            ForeColor       =   &H00C000C0&
            Height          =   3855
            Left            =   -72960
            TabIndex        =   56
            Top             =   360
            Width           =   1815
            Begin VB.CheckBox Check65
               Caption         =   "Alan Skillerini Mouse İle İşaretlediğim yere At"
               ForeColor       =   &H00C000C0&
               Height          =   855
               Left            =   120
               TabIndex        =   76
               Top             =   2760
               Width           =   1335
            End
            Begin VB.ListBox magealan
               Height          =   1185
               ItemData        =   "Form3.frx":1069
               Left            =   120
               List            =   "Form3.frx":1088
               Style           =   1  'Checkbox
               TabIndex        =   58
               Top             =   240
               Width           =   1575
            End
            Begin VB.ListBox mage33
               Height          =   735
               ItemData        =   "Form3.frx":10FA
               Left            =   120
               List            =   "Form3.frx":1107
               Style           =   1  'Checkbox
               TabIndex        =   57
               Top             =   1560
               Width           =   1455
            End
         End
         Begin VB.ListBox magestaff
            Height          =   1410
            ItemData        =   "Form3.frx":1131
            Left            =   -74760
            List            =   "Form3.frx":1147
            Style           =   1  'Checkbox
            TabIndex        =   55
            Top             =   2760
            Width           =   1575
         End
         Begin VB.Frame Frame8
            Caption         =   "Mage Stafflar"
            ForeColor       =   &H00C000C0&
            Height          =   1695
            Left            =   -74880
            TabIndex        =   54
            Top             =   2520
            Width           =   1815
         End
         Begin VB.ListBox magetekil
            Height          =   1635
            ItemData        =   "Form3.frx":1189
            Left            =   -74760
            List            =   "Form3.frx":120E
            Style           =   1  'Checkbox
            TabIndex        =   53
            Top             =   600
            Width           =   1575
         End
         Begin VB.Frame Frame7
            Caption         =   "Zamanlı"
            ForeColor       =   &H00C000C0&
            Height          =   1455
            Left            =   -72840
            TabIndex        =   48
            Top             =   480
            Width           =   1695
            Begin VB.CheckBox Check14
               Caption         =   "Sprint"
               Height          =   255
               Left            =   120
               TabIndex        =   52
               Top             =   240
               Width           =   975
            End
            Begin VB.CheckBox Check15
               Caption         =   "Gain"
               Height          =   255
               Left            =   120
               TabIndex        =   51
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox Check16
               Caption         =   "Defense"
               Height          =   255
               Left            =   120
               TabIndex        =   50
               Top             =   720
               Width           =   1095
            End
            Begin VB.CheckBox Check64
               Caption         =   "Battle Cry"
               Height          =   255
               Index           =   1
               Left            =   120
               TabIndex        =   49
               Top             =   960
               Width           =   1095
            End
         End
         Begin VB.Frame Frame6
            Caption         =   "Mage Tekil Skiller"
            ForeColor       =   &H00C000C0&
            Height          =   2055
            Left            =   -74880
            TabIndex        =   47
            Top             =   360
            Width           =   1815
         End
         Begin VB.Frame Frame5
            Caption         =   "Warrior"
            ForeColor       =   &H00C000C0&
            Height          =   3375
            Left            =   -74880
            TabIndex        =   42
            Top             =   360
            Width           =   1935
            Begin VB.ListBox warlist
               Height          =   2985
               ItemData        =   "Form3.frx":1426
               Left            =   120
               List            =   "Form3.frx":146C
               Style           =   1  'Checkbox
               TabIndex        =   43
               Top             =   240
               Width           =   1695
            End
         End
         Begin VB.Frame Rogue
            Caption         =   "Rogue"
            ForeColor       =   &H00C000C0&
            Height          =   3615
            Left            =   -74880
            TabIndex        =   34
            Top             =   360
            Width           =   3615
            Begin VB.ComboBox cms
               Height          =   315
               ItemData        =   "Form3.frx":1547
               Left            =   120
               List            =   "Form3.frx":1551
               Style           =   2  'Dropdown List
               TabIndex        =   40
               Top             =   240
               Width           =   1695
            End
            Begin VB.ListBox lstAsas
               Height          =   2535
               ItemData        =   "Form3.frx":1568
               Left            =   120
               List            =   "Form3.frx":159C
               Style           =   1  'Checkbox
               TabIndex        =   39
               Top             =   600
               Width           =   1695
            End
            Begin VB.ListBox lstokcu
               Height          =   2400
               ItemData        =   "Form3.frx":163B
               Left            =   120
               List            =   "Form3.frx":167E
               TabIndex        =   38
               Top             =   600
               Width           =   1695
            End
            Begin VB.ListBox lstrzmn
               Height          =   2535
               ItemData        =   "Form3.frx":178E
               Left            =   1920
               List            =   "Form3.frx":17B3
               Style           =   1  'Checkbox
               TabIndex        =   37
               Top             =   600
               Width           =   1575
            End
            Begin VB.TextBox txOkatak
               Alignment       =   2  'Center
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   285
               Left            =   3000
               TabIndex        =   36
               Text            =   "1350"
               Top             =   240
               Width           =   495
            End
            Begin VB.TextBox txOAtak
               Alignment       =   2  'Center
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   285
               Left            =   3000
               TabIndex        =   35
               Text            =   "1050"
               Top             =   240
               Width           =   495
            End
            Begin VB.Label Label1
               AutoSize        =   -1  'True
               Caption         =   "Atak hızı:"
               ForeColor       =   &H000000FF&
               Height          =   195
               Left            =   2280
               TabIndex        =   41
               Top             =   240
               Width           =   660
            End
         End
      End
      Begin VB.TextBox Text1
         Height          =   285
         Left            =   -73080
         TabIndex        =   32
         Top             =   600
         Width           =   1815
      End
      Begin VB.CommandButton Command2
         BackColor       =   &H8000000D&
         Caption         =   "Paket Gönder"
         Height          =   255
         Left            =   -74880
         MaskColor       =   &H0000FFFF&
         TabIndex        =   31
         Top             =   600
         Width           =   1695
      End
      Begin VB.Frame Frame11
         Height          =   735
         Left            =   -75000
         TabIndex        =   28
         Top             =   4800
         Width           =   3975
         Begin VB.CommandButton Command5
            Caption         =   "Mob listesi"
            Height          =   375
            Left            =   1680
            TabIndex        =   30
            Top             =   240
            Width           =   1815
         End
         Begin VB.ComboBox cmSec
            BackColor       =   &H00FFFFFF&
            Height          =   315
            ItemData        =   "Form3.frx":1822
            Left            =   120
            List            =   "Form3.frx":182F
            Style           =   2  'Dropdown List
            TabIndex        =   29
            Top             =   240
            Width           =   1455
         End
         Begin VB.Line Line2
            X1              =   360
            X2              =   375
            Y1              =   1080
            Y2              =   1095
         End
      End
      Begin VB.CommandButton Command1
         Caption         =   "Koxp'u Ve Oyunu Kapat"
         Height          =   255
         Left            =   120
         TabIndex        =   27
         Top             =   360
         Width           =   3495
      End
      Begin VB.Frame Frame1
         Caption         =   "&Genel Hackler"
         ForeColor       =   &H00C000C0&
         Height          =   1215
         Left            =   120
         TabIndex        =   20
         Top             =   3000
         Width           =   3615
         Begin VB.CheckBox Checksabitle
            Caption         =   "Char Sabitle"
            ForeColor       =   &H00C00000&
            Height          =   195
            Left            =   120
            TabIndex        =   26
            Top             =   600
            Width           =   1215
         End
         Begin VB.CheckBox Checksh
            Caption         =   "&SH (G ile)"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2040
            TabIndex        =   25
            Top             =   840
            Width           =   975
         End
         Begin VB.CheckBox chkutu
            Caption         =   "&Oto kutu"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2040
            TabIndex        =   24
            ToolTipText     =   "Kutuları otomatik olarak toplar.."
            Top             =   120
            Width           =   975
         End
         Begin VB.CheckBox chWall
            Caption         =   "&Wall hack"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   120
            TabIndex        =   23
            ToolTipText     =   "Duvarlardan geçmenizi sağlar."
            Top             =   240
            Width           =   1095
         End
         Begin VB.CheckBox Check2
            Caption         =   "LF Hack"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   120
            TabIndex        =   22
            Top             =   840
            Width           =   1095
         End
         Begin VB.CheckBox Check3
            Caption         =   "Swift Hack"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2040
            TabIndex        =   21
            Top             =   480
            Width           =   1215
         End
      End
      Begin VB.Frame Frame17
         Caption         =   "Party at"
         ForeColor       =   &H00C000C0&
         Height          =   855
         Left            =   120
         TabIndex        =   16
         Top             =   5400
         Width           =   3615
         Begin VB.CommandButton cmdBoz
            Caption         =   "PARTY BOZMAK İSTERMİSİN ? :)"
            Height          =   255
            Left            =   120
            TabIndex        =   19
            Top             =   480
            Width           =   3375
         End
         Begin VB.TextBox txPt
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            ForeColor       =   &H00FF0000&
            Height          =   285
            Left            =   120
            TabIndex        =   18
            Text            =   "PM GİR "
            Top             =   240
            Width           =   2055
         End
         Begin VB.CommandButton cmdPt
            Caption         =   "Party At"
            Height          =   255
            Left            =   2280
            TabIndex        =   17
            Top             =   240
            Width           =   1215
         End
      End
      Begin VB.Frame Frame2
         Caption         =   "Oto Pot"
         ForeColor       =   &H00C000C0&
         Height          =   2175
         Left            =   120
         TabIndex        =   9
         Top             =   720
         Width           =   3615
         Begin VB.PictureBox Picture3
            Height          =   615
            Left            =   120
            Picture         =   "Form3.frx":185A
            ScaleHeight     =   555
            ScaleWidth      =   555
            TabIndex        =   91
            Top             =   1440
            Width           =   615
         End
         Begin VB.PictureBox Picture2
            Height          =   615
            Left            =   120
            Picture         =   "Form3.frx":1FE7
            ScaleHeight     =   555
            ScaleWidth      =   555
            TabIndex        =   90
            Top             =   240
            Width           =   615
         End
         Begin VB.PictureBox Picture1
            Height          =   615
            Left            =   120
            Picture         =   "Form3.frx":27DA
            ScaleHeight     =   555
            ScaleWidth      =   555
            TabIndex        =   89
            Top             =   840
            Width           =   615
         End
         Begin VB.ComboBox Combomp
            ForeColor       =   &H00FF0000&
            Height          =   315
            ItemData        =   "Form3.frx":2FEE
            Left            =   2280
            List            =   "Form3.frx":3001
            TabIndex        =   45
            Text            =   "Mp Seç"
            Top             =   1080
            Width           =   975
         End
         Begin VB.ComboBox Combohp
            ForeColor       =   &H000000FF&
            Height          =   315
            ItemData        =   "Form3.frx":301E
            Left            =   2280
            List            =   "Form3.frx":3031
            TabIndex        =   44
            Text            =   "Hp Seç"
            Top             =   480
            Width           =   975
         End
         Begin VB.TextBox Textminör
            Alignment       =   2  'Center
            ForeColor       =   &H8000000D&
            Height          =   285
            Left            =   1800
            TabIndex        =   15
            Text            =   "50"
            Top             =   1680
            Width           =   375
         End
         Begin VB.CheckBox Checkminör
            Caption         =   "Minör"
            DisabledPicture =   "Form3.frx":304C
            DownPicture     =   "Form3.frx":3860
            ForeColor       =   &H8000000D&
            Height          =   255
            Left            =   840
            TabIndex        =   14
            Top             =   1680
            Width           =   735
         End
         Begin VB.TextBox Textmp
            Alignment       =   2  'Center
            ForeColor       =   &H00FF0000&
            Height          =   285
            Left            =   1800
            TabIndex        =   13
            Text            =   "50"
            Top             =   1080
            Width           =   375
         End
         Begin VB.TextBox Texthp
            Alignment       =   2  'Center
            ForeColor       =   &H000000FF&
            Height          =   285
            Left            =   1800
            TabIndex        =   12
            Text            =   "90"
            Top             =   480
            Width           =   375
         End
         Begin VB.CheckBox chMP
            Caption         =   "Oto Mp"
            ForeColor       =   &H00FF0000&
            Height          =   255
            Left            =   840
            TabIndex        =   11
            Top             =   1080
            Width           =   855
         End
         Begin VB.CheckBox chHP
            Caption         =   "Oto Hp"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   840
            TabIndex        =   10
            Top             =   480
            Width           =   855
         End
      End
      Begin VB.Frame Frame3
         Caption         =   "Chat'e Flood At"
         ForeColor       =   &H000000C0&
         Height          =   1215
         Left            =   120
         TabIndex        =   5
         Top             =   4200
         Width           =   3615
         Begin VB.TextBox txFlood
            Height          =   405
            Left            =   120
            TabIndex        =   8
            Text            =   "Bu Bot (HACKED) Tarafın'dan Yapılmıştır"
            Top             =   600
            Width           =   3375
         End
         Begin VB.CheckBox cmdFlood
            Caption         =   "Başlat"
            Height          =   195
            Left            =   120
            TabIndex        =   7
            Top             =   240
            Width           =   855
         End
         Begin VB.ComboBox cmbFlood
            Height          =   315
            ItemData        =   "Form3.frx":4074
            Left            =   960
            List            =   "Form3.frx":408A
            TabIndex        =   6
            Text            =   "Flood Nereden Gönderilsin Seç"
            Top             =   240
            Width           =   2655
         End
      End
      Begin VB.Label LabelOfTheKOJD
         Alignment       =   2  'Center
         BackColor       =   &H80000004&
         Caption         =   "Paket Yollamayı Bilmiyorsan Kullanma Dc Yersin Paket Gönderme Kodu Örnek:(4800)'dır"
         BeginProperty Font
            Name            =   "Comic Sans MS"
            Size            =   8.25
            Charset         =   162
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   810
         Left            =   -74880
         MousePointer    =   2  'Cross
         TabIndex        =   92
         Top             =   1080
         Width           =   3615
      End
   End
   Begin VB.Label merkezy
      Caption         =   "Label8"
      Height          =   255
      Left            =   4800
      TabIndex        =   85
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label merkezx
      Caption         =   "Label7"
      Height          =   375
      Left            =   4920
      TabIndex        =   84
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label6
      Caption         =   "Label6"
      Height          =   375
      Left            =   4920
      TabIndex        =   79
      Top             =   3360
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Label Label5
      Caption         =   "Label5"
      Height          =   375
      Left            =   2520
      TabIndex        =   78
      Top             =   3720
      Width           =   615
   End
   Begin VB.Menu Atak
      Caption         =   "Atak Başlat"
   End
   Begin VB.Menu Ratak
      Caption         =   "R Başlat"
   End
   Begin VB.Menu hakkında
      Caption         =   "Bot Hakkında"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public coloring

Private Sub asasatakci_Timer()
If düşmanID <> "FFFF" Then AsasAtak
End Sub

Private Sub Atak_Click()
If Atak.Caption = "Atak Başlat" Then
AtakBaşlat
Atak.Caption = "Atak Durdur"
Else
If Atak.Caption = "Atak Durdur" Then
AtakDurdur
Atak.Caption = "Atak Başlat"
End If
End If
End Sub

Private Sub chBaşlat_Click()
If chBaşlat.Value = 1 Then
chBaşlat.Caption = "Atak durdur"
AtakBaşlat
Else
AtakDurdur
chBaşlat.Caption = "Atak başlat"
End If
End Sub

Private Sub chRAtak_Click()

End Sub

Private Sub Check1_Click()
On Error Resume Next
If Check1.Value = 1 Then
Timer29.Enabled = True
Else
Timer29.Enabled = False
End If
End Sub

Private Sub Checkölümsüz_Click()

End Sub

Private Sub chwall_click()
If chWall.Value = 1 Then
LongYaz (KO_ADR_CHR + KO_OFF_WH), 0
Else
LongYaz (KO_ADR_CHR + KO_OFF_WH), 1
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16384
Else
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16256 'light feet
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16320
Else ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' swift
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16256 ''' swift
End If
End Sub


Private Sub chKutu_Click()
If chkutu.Value = 1 Then
ByteYaz ReadLong(KO_PTR_DLG) + &H8EC, 1
Else
ByteYaz ReadLong(KO_PTR_DLG) + &H8EC, 0
End If
End Sub



Private Sub Checksabitle_Click()
If Checksabitle.Value = 1 Then
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 1
Else
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16256
End If
End Sub



Private Sub Command1_Click()
If MsgBox("Oyunu kapatmak istiyormusunuz?", vbYesNo) = vbYes Then
If MsgBox("Oyunla beraber koxp'da kapanacak kabul ediyormusunuz?", vbYesNo) = vbYes Then
Shell "TaskKILL /F /IM knightonline.exe", Shutdown - s
Unload Me
End If
End If
Exit Sub
End Sub

Private Sub cmdBoz_Click()
Paket "2F05063005461727165540020496E666F726D6174696F6E5B315D2E2E2E2032202500000000000000000000000000000000000009DCF06D00000088007570635F6B615F74755F7570706572006E696768746F6E6C696E655C00000000000000000000000000000001"
End Sub

Private Sub cmdFlood_Click()
tmrFlood.Enabled = cmdFlood.Value
If cmdFlood.Value = 1 Then
cmdFlood.Caption = "Durdur"
Else
cmdFlood.Caption = "Başlat"
End If
End Sub

Private Sub cmdPt_Click()
PartyAt txPt.Text
End Sub



Private Sub Command2_Click()
Paket Text1.Text
End Sub



Private Sub Command5_Click()
Me.Hide: frmList.Show
End Sub

Private Sub Command6_Click()
merkezx.Caption = KarakterX
merkezy.Caption = KarakterY
End Sub

Private Sub Command7_Click()
Dim Base As Long
Base = SkillBase(SınıfBul & "705")
LongYaz (Base + &H8C), 0
End Sub

Private Sub Command9_Click()
opUç.Value = 0
opGit.Value = 0
End Sub

Private Sub hakkında_Click()
Form4.Show
Me.Hide
End Sub

Private Sub int300_Timer()
If KarakterHP = 0 Then
Paket "1201"
End If
End Sub

Private Sub mageatakci_Timer()
MageAtakVur
mage33ler
End Sub

Private Sub merkezx_Click()
Form3.merkezx.Caption = KarakterX
End Sub

Private Sub merkezy_Click()
Form3.merkezy.Caption = KarakterY
End Sub

Private Sub okcuatakci_Timer()
If düşmanID <> "FFFF" Then OkçuAtak
End Sub

Private Sub opGit_Click()
On Error Resume Next
If Check2.Value = 1 Then
Timer29.Enabled = True
Else
Timer29.Enabled = False
End If
End Sub

Private Sub priatakci_Timer()
PriestAtakVur
End Sub

Private Sub Ratak_Click()
If Ratak.Caption = "R Başlat" Then
tmrRAtak.Enabled = True
Ratak.Caption = "R Durdur"
Else
If Ratak.Caption = "R Durdur" Then
tmrRAtak.Enabled = False
Ratak.Caption = "R Başlat"
End If
End If
End Sub

Private Sub Timer1_Timer()
If cms.ListIndex = 0 Then
lstokcu.Visible = True
lstAsas.Visible = False
txOAtak.Visible = False
txOkatak.Visible = True
End If
If cms.ListIndex = 1 Then
lstAsas.Visible = True
lstokcu.Visible = False
txOkatak.Visible = False
txOAtak.Visible = True
End If
End Sub




Private Sub Timer2_Timer()
coloring = coloring + 1

Select Case coloring
Case 1
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 2
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 3
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 4
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 5
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 6
LabelOfTheKOJD.ForeColor = &H80FF&
LabelOfTheKOJD.BackColor = &H80000004
Case 7
LabelOfTheKOJD.ForeColor = &H8000000D
LabelOfTheKOJD.BackColor = &H80000004
Case 8
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 9
LabelOfTheKOJD.ForeColor = &HC0C0&
LabelOfTheKOJD.BackColor = &H80000004
Case 10
LabelOfTheKOJD.ForeColor = &HFF00FF
LabelOfTheKOJD.BackColor = &H80000004
coloring = 0
End Select
End Sub

Private Sub Timer29_Timer()
On Error Resume Next
If Check1.Value = 1 Then
Yürü MobX, MobY
Else
Yürü Form3.merkezx.Caption, Form3.merkezy.Caption
End If
End Sub

Private Sub Timerkendineacat_Timer()
If Form3.Check40.Value = 1 Then
If Label5.Caption > KarakterDefans Then
Kendineacat
Label5.Caption = KarakterDefans
End If
End If
End Sub

Private Sub Timerkendinebaffat_Timer()
If Form3.Check39.Value = 1 Then
If KarakterMaxHP < Val(Label6.Caption) Then
Kendinebuffat
Label6.Caption = KarakterMaxHP
End If
End If
End Sub

Private Sub Timerkendineheal_Timer()
If Form3.Check38.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Form3.Text14.Text) / 100) Then
Kendinehealat
End If
End If
End Sub

Private Sub Timermalice_Timer()
If Form3.Check29.Value = 1 Then
Malice
End If
End Sub

Private Sub Timerprikitap_Timer()
If Form3.Check28.Value = 1 Then
PriestKitap
If Form3.Check27.Value = 1 Then
Blasting
If Form3.Check26.Value = 1 Then
Blasting
End If
End If
End If
End Sub






Private Sub tmrFlood_Timer()
Dim Tursec As String
Dim ChatID As String
If cmbFlood.ListIndex = "0" Then
Tursec = "01"
End If
If cmbFlood.ListIndex = "1" Then
Tursec = "05"
End If
If cmbFlood.ListIndex = "2" Then
Tursec = "03"
End If
If cmbFlood.ListIndex = "3" Then
Tursec = "06"
End If
If cmbFlood.ListIndex = "4" Then
Tursec = "0E"
End If
If cmbFlood.ListIndex = "5" Then
Tursec = "0F"
End If
ChatID = Tursec
Paket "10" + ChatID & FormatHex(Hex(Len(txFlood.Text)), 4) & HexString22(txFlood.Text)
End Sub
Private Sub Checktop_Click()
üstte Me, Checktop.Value, Checktop.Value
End Sub
Private Sub Timerminör_Timer()
If Checkminör.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Textminör.Text) / 100) Then
Minör
End If
End If
End Sub
Private Sub form_unload(cancel As Integer)
End
End Sub
Private Sub Form_Load()
cms.ListIndex = 0
cmSec.ListIndex = 0
End Sub

Private Sub tmrPot_Timer()

On Error Resume Next
If chHP.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Texthp.Text) / 100) Then
CanPot
End If
End If
If chMP.Value = 1 Then
If KarakterMP < ((KarakterMaxMP * Textmp.Text) / 100) Then
ManaPot
End If
End If

End Sub

Private Sub tmrRAtak_Timer()
If düşmanID <> "FFFF" Then Paket "080101" & düşmanID & "FF00000000"
End Sub

Private Sub tmrSec_Timer()
If cmSec.ListIndex = 1 Then If chBaşlat.Value = 1 Then If frmList.List1.ListCount <> "0" Then eMob
If cmSec.ListIndex = 0 Then If chBaşlat.Value = 1 Then AutoMobZ
End Sub


Private Sub tmrzamanlı_Timer()
If lstrzmn.Selected(0) = True And SkillOn("002") = False And SkillOn("002") = False Then
Sprint
End If
If lstrzmn.Selected(1) = True And SkillOn("010") = False And SkillOn("10") = False Then
Swift
End If
If lstrzmn.Selected(2) = True And SkillOn("030") = False And SkillOn("030") = False Then
End If
If lstrzmn.Selected(3) = True And SkillOn("710") = False And SkillOn("710") = False Then
EvadeBas
End If
If lstrzmn.Selected(4) = True And SkillOn("725") = False And SkillOn("725") = False Then
LightFeetBas
End If
If lstrzmn.Selected(5) = True And SkillOn("730") = False And SkillOn("730") = False Then
SafetyBas
End If
If lstrzmn.Selected(6) = True And SkillOn(735) = False And SkillOn(735) = False Then
LupineEyesBas
End If
If lstrzmn.Selected(7) = True And SkillOn(802) = False And SkillOn(802) = False Then
MagicShieldBas
End If
If lstrzmn.Selected(8) = True And SkillOn(645) = False And SkillOn(645) = False Then
StealthBas
End If
If lstrzmn.Selected(9) = True And SkillOn(760) = False And SkillOn(760) = False Then
ScaledSkinBas
End If
End Sub


Private Sub warrioratakci_Timer()
WarriorAtakVur
End Sub

Private Sub zamanlar_Timer()
HellishTime = HellishTime - 1
CollapseTime = CollapseTime - 1
HadesTime = HadesTime - 1
RuinTime = RuinTime - 1
harstime = harstime - 1
ravigtime = ravigtime - 1
StabTime = StabTime - 1
Stab2Time = Stab2Time - 1
JabTime = JabTime - 1
BloodTime = BloodTime - 1
PierceTime = PierceTime - 1
ShockTime = ShockTime - 1
IllusionTime = IllusionTime - 1
ThrustTime = ThrustTime - 1
CutTime = CutTime - 1
VampiricTime = VampiricTime - 1
SpikeTime = SpikeTime - 1
BloodyTime = BloodyTime - 1
BloodingTime = BloodingTime - 1
BlindingTime = BlindingTime - 1
BeastTime = BeastTime - 1
CriticalTime = CriticalTime - 1
WeaponTime = WeaponTime - 1
ManglingTime = BloodingTime - 1
MultipleShorkTime = MultipleShorkTime - 1
SeverTime = SeverTime - 1
LegCuttingTime = LegCuttingTime - 1
ShearTime = ShearTime - 1
HashTime = HashTime - 1
PiercingTime = PiercingTime - 1
CrashTime = CrashTime - 1
SlashTime = SlashTime - 1
flametime = flametime - 1
glastime = glastime - 1
lrtime = lrtime - 1
icestormtime = icestormtime - 1
meteortime = meteortime - 1
chatime = chatime - 1
frosttime = frosttime - 1
novatime = novatime - 1
statime = statime - 1
blitime = blitime - 1
infernotime = infernotime - 1
thutime = thutime - 1
Igzination = Igzination - 1
VampiricFire = VampiricFire - 1
FreezingDistance = FreezingDistance - 1
Prismatic = Prismatic - 1
StunCloud = StunCloud - 1
Incineration = Incineration - 1
FireImpact = FireImpact - 1
IceImpact = IceImpact - 1
ThunderImpact = ThunderImpact - 1
FireThorn = FireThorn - 1
StaticThorn = StaticThorn - 1
PillarofFire = PillarofFire - 1
IceComet = IceComet - 1
StaticOrb = StaticOrb - 1
HellFire = HellFire - 1
Frostbite = Frostbite - 1
Discharge = Discharge - 1
FireBlast = FireBlast - 1
IceBlast = IceBlast - 1
ThunderBlast = ThunderBlast - 1
FireSpear = FireSpear - 1
IceOrb = IceOrb - 1
Thunder = Thunder - 1
FireBall = FireBall - 1
IceArrow = IceArrow - 1
Lightning = Lightning - 1
Blaze = Blaze - 1
Chill = Chill - 1
CounterSpell = CounterSpell - 1
Spark = Spark - 1
ColdWave = ColdWave - 1
Flame = Flame - 1
Shiver = Shiver - 1
Flash = Flash - 1
End Sub

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form3
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hero Fire Gmr Atack"
   ClientHeight    =   6390
   ClientLeft      =   150
   ClientTop       =   795
   ClientWidth     =   4215
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   6390
   ScaleWidth      =   4215
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer29
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4560
      Top             =   4560
   End
   Begin VB.Frame Frame13
      Height          =   735
      Left            =   4320
      TabIndex        =   80
      Top             =   5400
      Visible         =   0   'False
      Width           =   2295
      Begin VB.CommandButton Command9
         Caption         =   "< Sıfırla"
         Height          =   255
         Left            =   1320
         TabIndex        =   83
         Top             =   240
         Width           =   735
      End
      Begin VB.OptionButton opUç
         Caption         =   "&Moba uç"
         Height          =   255
         Left            =   360
         TabIndex        =   82
         Top             =   360
         Width           =   975
      End
      Begin VB.OptionButton opGit
         Caption         =   "&Moba git"
         Height          =   255
         Left            =   120
         TabIndex        =   81
         Top             =   120
         Width           =   975
      End
      Begin VB.Line Line4
         X1              =   240
         X2              =   360
         Y1              =   480
         Y2              =   480
      End
      Begin VB.Line Line1
         X1              =   240
         X2              =   240
         Y1              =   480
         Y2              =   360
      End
   End
   Begin VB.ListBox List1
      Height          =   255
      ItemData        =   "Form3.frx":0CCA
      Left            =   5640
      List            =   "Form3.frx":0CDD
      TabIndex        =   77
      Top             =   4320
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton Command7
      Caption         =   "Minör Cooldown Çalışmıyor"
      Height          =   255
      Left            =   7680
      TabIndex        =   46
      Top             =   5040
      Visible         =   0   'False
      Width           =   2895
   End
   Begin VB.CheckBox Checktop
      Caption         =   "Botu Her Zaman Üstte Tut"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2640
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   0
      Width           =   1095
   End
   Begin VB.Timer int300
      Interval        =   300
      Left            =   8280
      Top             =   3960
   End
   Begin VB.Timer Timerminör
      Interval        =   50
      Left            =   8760
      Top             =   3960
   End
   Begin VB.Timer tmrFlood
      Enabled         =   0   'False
      Interval        =   10
      Left            =   9360
      Top             =   3960
   End
   Begin VB.Timer tmrzamanlı
      Interval        =   1000
      Left            =   9720
      Top             =   3960
   End
   Begin VB.Frame attacktimer
      Caption         =   "rogue -   okçu-     mage - warrior - priest - atak ile ilgili"
      Height          =   3015
      Left            =   5880
      TabIndex        =   2
      Top             =   720
      Visible         =   0   'False
      Width           =   5175
      Begin VB.Timer Timermalice
         Interval        =   9000
         Left            =   3960
         Top             =   240
      End
      Begin VB.Timer Timerkendinebaffat
         Interval        =   5000
         Left            =   2640
         Top             =   2160
      End
      Begin VB.Timer Timerkendineacat
         Interval        =   5000
         Left            =   2640
         Top             =   1680
      End
      Begin VB.Timer Timerkendineheal
         Interval        =   1000
         Left            =   2640
         Top             =   1200
      End
      Begin VB.Timer Timerprikitap
         Interval        =   5000
         Left            =   2640
         Top             =   720
      End
      Begin VB.Timer okcuatakci
         Enabled         =   0   'False
         Interval        =   1300
         Left            =   720
         Top             =   240
      End
      Begin VB.Timer asasatakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   120
         Top             =   240
      End
      Begin VB.Timer mageatakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   1440
         Top             =   240
      End
      Begin VB.Timer warrioratakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   2040
         Top             =   240
      End
      Begin VB.Timer priatakci
         Enabled         =   0   'False
         Interval        =   900
         Left            =   2640
         Top             =   240
      End
      Begin VB.Timer timer1
         Interval        =   100
         Left            =   3360
         Top             =   240
      End
      Begin VB.Timer zamanlar
         Interval        =   1000
         Left            =   120
         Top             =   720
      End
      Begin VB.Line Line3
         Index           =   0
         X1              =   600
         X2              =   600
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   1
         X1              =   1320
         X2              =   1320
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   2
         X1              =   1920
         X2              =   1920
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   3
         X1              =   2520
         X2              =   2520
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Line Line3
         Index           =   4
         X1              =   3120
         X2              =   3120
         Y1              =   120
         Y2              =   2040
      End
   End
   Begin VB.Timer tmrGit
      Interval        =   500
      Left            =   9240
      Top             =   4560
   End
   Begin VB.Timer tmrUç
      Interval        =   40
      Left            =   7800
      Top             =   4560
   End
   Begin VB.Timer tmrSec
      Enabled         =   0   'False
      Interval        =   20
      Left            =   8280
      Top             =   4560
   End
   Begin VB.ListBox itemlist
      Height          =   1860
      Left            =   7200
      Style           =   1  'Checkbox
      TabIndex        =   1
      Top             =   5400
      Visible         =   0   'False
      Width           =   2775
   End
   Begin VB.Timer tmrPot
      Interval        =   1300
      Left            =   10200
      Top             =   3960
   End
   Begin VB.Timer tmrRAtak
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   8760
      Top             =   4560
   End
   Begin VB.TextBox Text18
      Height          =   375
      Left            =   6960
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   4320
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Timer Timersh
      Interval        =   100
      Left            =   10680
      Top             =   3960
   End
   Begin VB.Timer Timerölümsüz
      Interval        =   300
      Left            =   7800
      Top             =   3960
   End
   Begin TabDlg.SSTab SSTab1
      Height          =   6375
      Left            =   120
      TabIndex        =   4
      Top             =   0
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   11245
      _Version        =   393216
      Style           =   1
      TabHeight       =   520
      BackColor       =   -2147483644
      TabCaption(0)   =   "Genel"
      TabPicture(0)   =   "Form3.frx":0D08
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame3"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame2"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Frame17"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Frame1"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Command1"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).ControlCount=   5
      TabCaption(1)   =   "Atack"
      TabPicture(1)   =   "Form3.frx":0D24
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame15"
      Tab(1).Control(1)=   "SSTab2"
      Tab(1).Control(2)=   "Frame11"
      Tab(1).ControlCount=   3
      TabCaption(2)   =   "Paket Gönder"
      TabPicture(2)   =   "Form3.frx":0D40
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "LabelOfTheKOJD"
      Tab(2).Control(1)=   "Command2"
      Tab(2).Control(2)=   "Text1"
      Tab(2).Control(3)=   "Timer2"
      Tab(2).ControlCount=   4
      Begin VB.Timer Timer2
         Interval        =   50
         Left            =   -71640
         Top             =   1560
      End
      Begin VB.Frame Frame15
         Caption         =   "Yaratıga Koş"
         ForeColor       =   &H00C000C0&
         Height          =   735
         Left            =   -75000
         TabIndex        =   86
         Top             =   5520
         Width           =   3975
         Begin VB.CommandButton Command6
            Caption         =   "Merkez Tut"
            Height          =   255
            Left            =   1680
            TabIndex        =   88
            Top             =   240
            Width           =   1335
         End
         Begin VB.CheckBox Check1
            Caption         =   "Yaratığa Koş"
            Height          =   375
            Left            =   120
            TabIndex        =   87
            Top             =   240
            Width           =   1215
         End
      End
      Begin TabDlg.SSTab SSTab2
         Height          =   4455
         Left            =   -75000
         TabIndex        =   33
         Top             =   360
         Width           =   3975
         _ExtentX        =   7011
         _ExtentY        =   7858
         _Version        =   393216
         Style           =   1
         Tabs            =   4
         Tab             =   3
         TabsPerRow      =   4
         TabHeight       =   520
         TabCaption(0)   =   "Rogue"
         TabPicture(0)   =   "Form3.frx":0D5C
         Tab(0).ControlEnabled=   0   'False
         Tab(0).Control(0)=   "Rogue"
         Tab(0).ControlCount=   1
         TabCaption(1)   =   "Warrior"
         TabPicture(1)   =   "Form3.frx":0D78
         Tab(1).ControlEnabled=   0   'False
         Tab(1).Control(0)=   "Frame7"
         Tab(1).Control(1)=   "Frame5"
         Tab(1).ControlCount=   2
         TabCaption(2)   =   "Mage"
         TabPicture(2)   =   "Form3.frx":0D94
         Tab(2).ControlEnabled=   0   'False
         Tab(2).Control(0)=   "Frame9"
         Tab(2).Control(1)=   "magestaff"
         Tab(2).Control(2)=   "Frame8"
         Tab(2).Control(3)=   "magetekil"
         Tab(2).Control(4)=   "Frame6"
         Tab(2).ControlCount=   5
         TabCaption(3)   =   "Priest"
         TabPicture(3)   =   "Form3.frx":0DB0
         Tab(3).ControlEnabled=   -1  'True
         Tab(3).Control(0)=   "Frame10"
         Tab(3).Control(0).Enabled=   0   'False
         Tab(3).Control(1)=   "Frame12"
         Tab(3).Control(1).Enabled=   0   'False
         Tab(3).Control(2)=   "Check29"
         Tab(3).Control(2).Enabled=   0   'False
         Tab(3).Control(3)=   "Check28"
         Tab(3).Control(3).Enabled=   0   'False
         Tab(3).Control(4)=   "Check27"
         Tab(3).Control(4).Enabled=   0   'False
         Tab(3).Control(5)=   "Check26"
         Tab(3).Control(5).Enabled=   0   'False
         Tab(3).Control(6)=   "Frame14"
         Tab(3).Control(6).Enabled=   0   'False
         Tab(3).ControlCount=   7
         Begin VB.Frame Frame14
            Caption         =   "Oto Heal-Buff-Ac"
            ForeColor       =   &H00C000C0&
            Height          =   2775
            Left            =   1920
            TabIndex        =   66
            Top             =   360
            Width           =   1815
            Begin VB.CheckBox Check38
               Caption         =   "Oto Heal"
               Height          =   255
               Left            =   240
               TabIndex        =   75
               Top             =   240
               Width           =   975
            End
            Begin VB.ComboBox Combo3
               Height          =   315
               ItemData        =   "Form3.frx":0DCC
               Left            =   120
               List            =   "Form3.frx":0DE9
               TabIndex        =   74
               Text            =   "Seçin"
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox Check39
               Caption         =   "Oto Buff"
               Height          =   255
               Left            =   240
               TabIndex        =   73
               Top             =   960
               Width           =   975
            End
            Begin VB.ComboBox Combo4
               Height          =   315
               ItemData        =   "Form3.frx":0E37
               Left            =   120
               List            =   "Form3.frx":0E59
               TabIndex        =   72
               Text            =   "Seçin"
               Top             =   1200
               Width           =   1335
            End
            Begin VB.CheckBox Check40
               Caption         =   "Oto Ac"
               Height          =   255
               Left            =   240
               TabIndex        =   71
               Top             =   1560
               Width           =   1095
            End
            Begin VB.ComboBox Combo5
               Height          =   315
               ItemData        =   "Form3.frx":0EC3
               Left            =   120
               List            =   "Form3.frx":0EE2
               TabIndex        =   70
               Text            =   "seçin"
               Top             =   1800
               Width           =   1335
            End
            Begin VB.CheckBox Check43
               Caption         =   "Oto Mind"
               Height          =   255
               Left            =   240
               TabIndex        =   69
               Top             =   2160
               Width           =   1215
            End
            Begin VB.ComboBox Combo7
               Height          =   315
               ItemData        =   "Form3.frx":0F70
               Left            =   120
               List            =   "Form3.frx":0F80
               TabIndex        =   68
               Text            =   "Seçin"
               Top             =   2400
               Width           =   1335
            End
            Begin VB.TextBox Text14
               Alignment       =   2  'Center
               Height          =   285
               Left            =   1080
               TabIndex        =   67
               Text            =   "80"
               Top             =   480
               Width           =   375
            End
         End
         Begin VB.CheckBox Check26
            Caption         =   "Blasting"
            Height          =   255
            Left            =   360
            TabIndex        =   65
            Top             =   3240
            Width           =   1095
         End
         Begin VB.CheckBox Check27
            Caption         =   "Wildness"
            Height          =   255
            Left            =   360
            TabIndex        =   64
            Top             =   3480
            Width           =   1095
         End
         Begin VB.CheckBox Check28
            Caption         =   "Oto Kitap"
            Height          =   255
            Left            =   360
            TabIndex        =   63
            Top             =   3720
            Width           =   1215
         End
         Begin VB.CheckBox Check29
            Caption         =   "Malice"
            Height          =   255
            Left            =   360
            TabIndex        =   62
            Top             =   3960
            Width           =   1095
         End
         Begin VB.Frame Frame12
            Caption         =   "Priest Basic Skil"
            ForeColor       =   &H00C000C0&
            Height          =   1335
            Left            =   120
            TabIndex        =   61
            Top             =   3000
            Width           =   1695
         End
         Begin VB.Frame Frame10
            Caption         =   "Priest Atak Skilleri"
            ForeColor       =   &H00C000C0&
            Height          =   2655
            Left            =   120
            TabIndex        =   59
            Top             =   360
            Width           =   1695
            Begin VB.ListBox prilist
               Height          =   2310
               ItemData        =   "Form3.frx":0FB4
               Left            =   120
               List            =   "Form3.frx":0FE5
               Style           =   1  'Checkbox
               TabIndex        =   60
               Top             =   240
               Width           =   1455
            End
         End
         Begin VB.Frame Frame9
            Caption         =   "Mage Alan Skilleri"
            ForeColor       =   &H00C000C0&
            Height          =   3855
            Left            =   -72960
            TabIndex        =   56
            Top             =   360
            Width           =   1815
            Begin VB.CheckBox Check65
               Caption         =   "Alan Skillerini Mouse İle İşaretlediğim yere At"
               ForeColor       =   &H00C000C0&
               Height          =   855
               Left            =   120
               TabIndex        =   76
               Top             =   2760
               Width           =   1335
            End
            Begin VB.ListBox magealan
               Height          =   1185
               ItemData        =   "Form3.frx":1069
               Left            =   120
               List            =   "Form3.frx":1088
               Style           =   1  'Checkbox
               TabIndex        =   58
               Top             =   240
               Width           =   1575
            End
            Begin VB.ListBox mage33
               Height          =   735
               ItemData        =   "Form3.frx":10FA
               Left            =   120
               List            =   "Form3.frx":1107
               Style           =   1  'Checkbox
               TabIndex        =   57
               Top             =   1560
               Width           =   1455
            End
         End
         Begin VB.ListBox magestaff
            Height          =   1410
            ItemData        =   "Form3.frx":1131
            Left            =   -74760
            List            =   "Form3.frx":1147
            Style           =   1  'Checkbox
            TabIndex        =   55
            Top             =   2760
            Width           =   1575
         End
         Begin VB.Frame Frame8
            Caption         =   "Mage Stafflar"
            ForeColor       =   &H00C000C0&
            Height          =   1695
            Left            =   -74880
            TabIndex        =   54
            Top             =   2520
            Width           =   1815
         End
         Begin VB.ListBox magetekil
            Height          =   1635
            ItemData        =   "Form3.frx":1189
            Left            =   -74760
            List            =   "Form3.frx":120E
            Style           =   1  'Checkbox
            TabIndex        =   53
            Top             =   600
            Width           =   1575
         End
         Begin VB.Frame Frame7
            Caption         =   "Zamanlı"
            ForeColor       =   &H00C000C0&
            Height          =   1455
            Left            =   -72840
            TabIndex        =   48
            Top             =   480
            Width           =   1695
            Begin VB.CheckBox Check14
               Caption         =   "Sprint"
               Height          =   255
               Left            =   120
               TabIndex        =   52
               Top             =   240
               Width           =   975
            End
            Begin VB.CheckBox Check15
               Caption         =   "Gain"
               Height          =   255
               Left            =   120
               TabIndex        =   51
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox Check16
               Caption         =   "Defense"
               Height          =   255
               Left            =   120
               TabIndex        =   50
               Top             =   720
               Width           =   1095
            End
            Begin VB.CheckBox Check64
               Caption         =   "Battle Cry"
               Height          =   255
               Index           =   1
               Left            =   120
               TabIndex        =   49
               Top             =   960
               Width           =   1095
            End
         End
         Begin VB.Frame Frame6
            Caption         =   "Mage Tekil Skiller"
            ForeColor       =   &H00C000C0&
            Height          =   2055
            Left            =   -74880
            TabIndex        =   47
            Top             =   360
            Width           =   1815
         End
         Begin VB.Frame Frame5
            Caption         =   "Warrior"
            ForeColor       =   &H00C000C0&
            Height          =   3375
            Left            =   -74880
            TabIndex        =   42
            Top             =   360
            Width           =   1935
            Begin VB.ListBox warlist
               Height          =   2985
               ItemData        =   "Form3.frx":1426
               Left            =   120
               List            =   "Form3.frx":146C
               Style           =   1  'Checkbox
               TabIndex        =   43
               Top             =   240
               Width           =   1695
            End
         End
         Begin VB.Frame Rogue
            Caption         =   "Rogue"
            ForeColor       =   &H00C000C0&
            Height          =   3615
            Left            =   -74880
            TabIndex        =   34
            Top             =   360
            Width           =   3615
            Begin VB.ComboBox cms
               Height          =   315
               ItemData        =   "Form3.frx":1547
               Left            =   120
               List            =   "Form3.frx":1551
               Style           =   2  'Dropdown List
               TabIndex        =   40
               Top             =   240
               Width           =   1695
            End
            Begin VB.ListBox lstAsas
               Height          =   2535
               ItemData        =   "Form3.frx":1568
               Left            =   120
               List            =   "Form3.frx":159C
               Style           =   1  'Checkbox
               TabIndex        =   39
               Top             =   600
               Width           =   1695
            End
            Begin VB.ListBox lstokcu
               Height          =   2400
               ItemData        =   "Form3.frx":163B
               Left            =   120
               List            =   "Form3.frx":167E
               TabIndex        =   38
               Top             =   600
               Width           =   1695
            End
            Begin VB.ListBox lstrzmn
               Height          =   2535
               ItemData        =   "Form3.frx":178E
               Left            =   1920
               List            =   "Form3.frx":17B3
               Style           =   1  'Checkbox
               TabIndex        =   37
               Top             =   600
               Width           =   1575
            End
            Begin VB.TextBox txOkatak
               Alignment       =   2  'Center
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   285
               Left            =   3000
               TabIndex        =   36
               Text            =   "1350"
               Top             =   240
               Width           =   495
            End
            Begin VB.TextBox txOAtak
               Alignment       =   2  'Center
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   285
               Left            =   3000
               TabIndex        =   35
               Text            =   "1050"
               Top             =   240
               Width           =   495
            End
            Begin VB.Label Label1
               AutoSize        =   -1  'True
               Caption         =   "Atak hızı:"
               ForeColor       =   &H000000FF&
               Height          =   195
               Left            =   2280
               TabIndex        =   41
               Top             =   240
               Width           =   660
            End
         End
      End
      Begin VB.TextBox Text1
         Height          =   285
         Left            =   -73080
         TabIndex        =   32
         Top             =   600
         Width           =   1815
      End
      Begin VB.CommandButton Command2
         BackColor       =   &H8000000D&
         Caption         =   "Paket Gönder"
         Height          =   255
         Left            =   -74880
         MaskColor       =   &H0000FFFF&
         TabIndex        =   31
         Top             =   600
         Width           =   1695
      End
      Begin VB.Frame Frame11
         Height          =   735
         Left            =   -75000
         TabIndex        =   28
         Top             =   4800
         Width           =   3975
         Begin VB.CommandButton Command5
            Caption         =   "Mob listesi"
            Height          =   375
            Left            =   1680
            TabIndex        =   30
            Top             =   240
            Width           =   1815
         End
         Begin VB.ComboBox cmSec
            BackColor       =   &H00FFFFFF&
            Height          =   315
            ItemData        =   "Form3.frx":1822
            Left            =   120
            List            =   "Form3.frx":182F
            Style           =   2  'Dropdown List
            TabIndex        =   29
            Top             =   240
            Width           =   1455
         End
         Begin VB.Line Line2
            X1              =   360
            X2              =   375
            Y1              =   1080
            Y2              =   1095
         End
      End
      Begin VB.CommandButton Command1
         Caption         =   "Koxp'u Ve Oyunu Kapat"
         Height          =   255
         Left            =   120
         TabIndex        =   27
         Top             =   360
         Width           =   3495
      End
      Begin VB.Frame Frame1
         Caption         =   "&Genel Hackler"
         ForeColor       =   &H00C000C0&
         Height          =   1215
         Left            =   120
         TabIndex        =   20
         Top             =   3000
         Width           =   3615
         Begin VB.CheckBox Checksabitle
            Caption         =   "Char Sabitle"
            ForeColor       =   &H00C00000&
            Height          =   195
            Left            =   120
            TabIndex        =   26
            Top             =   600
            Width           =   1215
         End
         Begin VB.CheckBox Checksh
            Caption         =   "&SH (G ile)"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2040
            TabIndex        =   25
            Top             =   840
            Width           =   975
         End
         Begin VB.CheckBox chkutu
            Caption         =   "&Oto kutu"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2040
            TabIndex        =   24
            ToolTipText     =   "Kutuları otomatik olarak toplar.."
            Top             =   120
            Width           =   975
         End
         Begin VB.CheckBox chWall
            Caption         =   "&Wall hack"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   120
            TabIndex        =   23
            ToolTipText     =   "Duvarlardan geçmenizi sağlar."
            Top             =   240
            Width           =   1095
         End
         Begin VB.CheckBox Check2
            Caption         =   "LF Hack"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   120
            TabIndex        =   22
            Top             =   840
            Width           =   1095
         End
         Begin VB.CheckBox Check3
            Caption         =   "Swift Hack"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2040
            TabIndex        =   21
            Top             =   480
            Width           =   1215
         End
      End
      Begin VB.Frame Frame17
         Caption         =   "Party at"
         ForeColor       =   &H00C000C0&
         Height          =   855
         Left            =   120
         TabIndex        =   16
         Top             =   5400
         Width           =   3615
         Begin VB.CommandButton cmdBoz
            Caption         =   "PARTY BOZMAK İSTERMİSİN ? :)"
            Height          =   255
            Left            =   120
            TabIndex        =   19
            Top             =   480
            Width           =   3375
         End
         Begin VB.TextBox txPt
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            ForeColor       =   &H00FF0000&
            Height          =   285
            Left            =   120
            TabIndex        =   18
            Text            =   "PM GİR "
            Top             =   240
            Width           =   2055
         End
         Begin VB.CommandButton cmdPt
            Caption         =   "Party At"
            Height          =   255
            Left            =   2280
            TabIndex        =   17
            Top             =   240
            Width           =   1215
         End
      End
      Begin VB.Frame Frame2
         Caption         =   "Oto Pot"
         ForeColor       =   &H00C000C0&
         Height          =   2175
         Left            =   120
         TabIndex        =   9
         Top             =   720
         Width           =   3615
         Begin VB.PictureBox Picture3
            Height          =   615
            Left            =   120
            Picture         =   "Form3.frx":185A
            ScaleHeight     =   555
            ScaleWidth      =   555
            TabIndex        =   91
            Top             =   1440
            Width           =   615
         End
         Begin VB.PictureBox Picture2
            Height          =   615
            Left            =   120
            Picture         =   "Form3.frx":1FE7
            ScaleHeight     =   555
            ScaleWidth      =   555
            TabIndex        =   90
            Top             =   240
            Width           =   615
         End
         Begin VB.PictureBox Picture1
            Height          =   615
            Left            =   120
            Picture         =   "Form3.frx":27DA
            ScaleHeight     =   555
            ScaleWidth      =   555
            TabIndex        =   89
            Top             =   840
            Width           =   615
         End
         Begin VB.ComboBox Combomp
            ForeColor       =   &H00FF0000&
            Height          =   315
            ItemData        =   "Form3.frx":2FEE
            Left            =   2280
            List            =   "Form3.frx":3001
            TabIndex        =   45
            Text            =   "Mp Seç"
            Top             =   1080
            Width           =   975
         End
         Begin VB.ComboBox Combohp
            ForeColor       =   &H000000FF&
            Height          =   315
            ItemData        =   "Form3.frx":301E
            Left            =   2280
            List            =   "Form3.frx":3031
            TabIndex        =   44
            Text            =   "Hp Seç"
            Top             =   480
            Width           =   975
         End
         Begin VB.TextBox Textminör
            Alignment       =   2  'Center
            ForeColor       =   &H8000000D&
            Height          =   285
            Left            =   1800
            TabIndex        =   15
            Text            =   "50"
            Top             =   1680
            Width           =   375
         End
         Begin VB.CheckBox Checkminör
            Caption         =   "Minör"
            DisabledPicture =   "Form3.frx":304C
            DownPicture     =   "Form3.frx":3860
            ForeColor       =   &H8000000D&
            Height          =   255
            Left            =   840
            TabIndex        =   14
            Top             =   1680
            Width           =   735
         End
         Begin VB.TextBox Textmp
            Alignment       =   2  'Center
            ForeColor       =   &H00FF0000&
            Height          =   285
            Left            =   1800
            TabIndex        =   13
            Text            =   "50"
            Top             =   1080
            Width           =   375
         End
         Begin VB.TextBox Texthp
            Alignment       =   2  'Center
            ForeColor       =   &H000000FF&
            Height          =   285
            Left            =   1800
            TabIndex        =   12
            Text            =   "90"
            Top             =   480
            Width           =   375
         End
         Begin VB.CheckBox chMP
            Caption         =   "Oto Mp"
            ForeColor       =   &H00FF0000&
            Height          =   255
            Left            =   840
            TabIndex        =   11
            Top             =   1080
            Width           =   855
         End
         Begin VB.CheckBox chHP
            Caption         =   "Oto Hp"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   840
            TabIndex        =   10
            Top             =   480
            Width           =   855
         End
      End
      Begin VB.Frame Frame3
         Caption         =   "Chat'e Flood At"
         ForeColor       =   &H000000C0&
         Height          =   1215
         Left            =   120
         TabIndex        =   5
         Top             =   4200
         Width           =   3615
         Begin VB.TextBox txFlood
            Height          =   405
            Left            =   120
            TabIndex        =   8
            Text            =   "Bu Bot (HACKED) Tarafın'dan Yapılmıştır"
            Top             =   600
            Width           =   3375
         End
         Begin VB.CheckBox cmdFlood
            Caption         =   "Başlat"
            Height          =   195
            Left            =   120
            TabIndex        =   7
            Top             =   240
            Width           =   855
         End
         Begin VB.ComboBox cmbFlood
            Height          =   315
            ItemData        =   "Form3.frx":4074
            Left            =   960
            List            =   "Form3.frx":408A
            TabIndex        =   6
            Text            =   "Flood Nereden Gönderilsin Seç"
            Top             =   240
            Width           =   2655
         End
      End
      Begin VB.Label LabelOfTheKOJD
         Alignment       =   2  'Center
         BackColor       =   &H80000004&
         Caption         =   "Paket Yollamayı Bilmiyorsan Kullanma Dc Yersin Paket Gönderme Kodu Örnek:(4800)'dır"
         BeginProperty Font
            Name            =   "Comic Sans MS"
            Size            =   8.25
            Charset         =   162
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   810
         Left            =   -74880
         MousePointer    =   2  'Cross
         TabIndex        =   92
         Top             =   1080
         Width           =   3615
      End
   End
   Begin VB.Label merkezy
      Caption         =   "Label8"
      Height          =   255
      Left            =   4800
      TabIndex        =   85
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label merkezx
      Caption         =   "Label7"
      Height          =   375
      Left            =   4920
      TabIndex        =   84
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label6
      Caption         =   "Label6"
      Height          =   375
      Left            =   4920
      TabIndex        =   79
      Top             =   3360
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Label Label5
      Caption         =   "Label5"
      Height          =   375
      Left            =   2520
      TabIndex        =   78
      Top             =   3720
      Width           =   615
   End
   Begin VB.Menu Atak
      Caption         =   "Atak Başlat"
   End
   Begin VB.Menu Ratak
      Caption         =   "R Başlat"
   End
   Begin VB.Menu hakkında
      Caption         =   "Bot Hakkında"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public coloring

Private Sub asasatakci_Timer()
If düşmanID <> "FFFF" Then AsasAtak
End Sub

Private Sub Atak_Click()
If Atak.Caption = "Atak Başlat" Then
AtakBaşlat
Atak.Caption = "Atak Durdur"
Else
If Atak.Caption = "Atak Durdur" Then
AtakDurdur
Atak.Caption = "Atak Başlat"
End If
End If
End Sub

Private Sub chBaşlat_Click()
If chBaşlat.Value = 1 Then
chBaşlat.Caption = "Atak durdur"
AtakBaşlat
Else
AtakDurdur
chBaşlat.Caption = "Atak başlat"
End If
End Sub

Private Sub chRAtak_Click()

End Sub

Private Sub Check1_Click()
On Error Resume Next
If Check1.Value = 1 Then
Timer29.Enabled = True
Else
Timer29.Enabled = False
End If
End Sub

Private Sub Checkölümsüz_Click()

End Sub

Private Sub chwall_click()
If chWall.Value = 1 Then
LongYaz (KO_ADR_CHR + KO_OFF_WH), 0
Else
LongYaz (KO_ADR_CHR + KO_OFF_WH), 1
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16384
Else
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16256 'light feet
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16320
Else ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' swift
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16256 ''' swift
End If
End Sub


Private Sub chKutu_Click()
If chkutu.Value = 1 Then
ByteYaz ReadLong(KO_PTR_DLG) + &H8EC, 1
Else
ByteYaz ReadLong(KO_PTR_DLG) + &H8EC, 0
End If
End Sub



Private Sub Checksabitle_Click()
If Checksabitle.Value = 1 Then
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 1
Else
LongYaz KO_ADR_CHR + KO_OFF_SWIFT, 16256
End If
End Sub



Private Sub Command1_Click()
If MsgBox("Oyunu kapatmak istiyormusunuz?", vbYesNo) = vbYes Then
If MsgBox("Oyunla beraber koxp'da kapanacak kabul ediyormusunuz?", vbYesNo) = vbYes Then
Shell "TaskKILL /F /IM knightonline.exe", Shutdown - s
Unload Me
End If
End If
Exit Sub
End Sub

Private Sub cmdBoz_Click()
Paket "2F05063005461727165540020496E666F726D6174696F6E5B315D2E2E2E2032202500000000000000000000000000000000000009DCF06D00000088007570635F6B615F74755F7570706572006E696768746F6E6C696E655C00000000000000000000000000000001"
End Sub

Private Sub cmdFlood_Click()
tmrFlood.Enabled = cmdFlood.Value
If cmdFlood.Value = 1 Then
cmdFlood.Caption = "Durdur"
Else
cmdFlood.Caption = "Başlat"
End If
End Sub

Private Sub cmdPt_Click()
PartyAt txPt.Text
End Sub



Private Sub Command2_Click()
Paket Text1.Text
End Sub



Private Sub Command5_Click()
Me.Hide: frmList.Show
End Sub

Private Sub Command6_Click()
merkezx.Caption = KarakterX
merkezy.Caption = KarakterY
End Sub

Private Sub Command7_Click()
Dim Base As Long
Base = SkillBase(SınıfBul & "705")
LongYaz (Base + &H8C), 0
End Sub

Private Sub Command9_Click()
opUç.Value = 0
opGit.Value = 0
End Sub

Private Sub hakkında_Click()
Form4.Show
Me.Hide
End Sub

Private Sub int300_Timer()
If KarakterHP = 0 Then
Paket "1201"
End If
End Sub

Private Sub mageatakci_Timer()
MageAtakVur
mage33ler
End Sub

Private Sub merkezx_Click()
Form3.merkezx.Caption = KarakterX
End Sub

Private Sub merkezy_Click()
Form3.merkezy.Caption = KarakterY
End Sub

Private Sub okcuatakci_Timer()
If düşmanID <> "FFFF" Then OkçuAtak
End Sub

Private Sub opGit_Click()
On Error Resume Next
If Check2.Value = 1 Then
Timer29.Enabled = True
Else
Timer29.Enabled = False
End If
End Sub

Private Sub priatakci_Timer()
PriestAtakVur
End Sub

Private Sub Ratak_Click()
If Ratak.Caption = "R Başlat" Then
tmrRAtak.Enabled = True
Ratak.Caption = "R Durdur"
Else
If Ratak.Caption = "R Durdur" Then
tmrRAtak.Enabled = False
Ratak.Caption = "R Başlat"
End If
End If
End Sub

Private Sub Timer1_Timer()
If cms.ListIndex = 0 Then
lstokcu.Visible = True
lstAsas.Visible = False
txOAtak.Visible = False
txOkatak.Visible = True
End If
If cms.ListIndex = 1 Then
lstAsas.Visible = True
lstokcu.Visible = False
txOkatak.Visible = False
txOAtak.Visible = True
End If
End Sub




Private Sub Timer2_Timer()
coloring = coloring + 1

Select Case coloring
Case 1
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 2
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 3
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 4
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 5
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 6
LabelOfTheKOJD.ForeColor = &H80FF&
LabelOfTheKOJD.BackColor = &H80000004
Case 7
LabelOfTheKOJD.ForeColor = &H8000000D
LabelOfTheKOJD.BackColor = &H80000004
Case 8
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000004
Case 9
LabelOfTheKOJD.ForeColor = &HC0C0&
LabelOfTheKOJD.BackColor = &H80000004
Case 10
LabelOfTheKOJD.ForeColor = &HFF00FF
LabelOfTheKOJD.BackColor = &H80000004
coloring = 0
End Select
End Sub

Private Sub Timer29_Timer()
On Error Resume Next
If Check1.Value = 1 Then
Yürü MobX, MobY
Else
Yürü Form3.merkezx.Caption, Form3.merkezy.Caption
End If
End Sub

Private Sub Timerkendineacat_Timer()
If Form3.Check40.Value = 1 Then
If Label5.Caption > KarakterDefans Then
Kendineacat
Label5.Caption = KarakterDefans
End If
End If
End Sub

Private Sub Timerkendinebaffat_Timer()
If Form3.Check39.Value = 1 Then
If KarakterMaxHP < Val(Label6.Caption) Then
Kendinebuffat
Label6.Caption = KarakterMaxHP
End If
End If
End Sub

Private Sub Timerkendineheal_Timer()
If Form3.Check38.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Form3.Text14.Text) / 100) Then
Kendinehealat
End If
End If
End Sub

Private Sub Timermalice_Timer()
If Form3.Check29.Value = 1 Then
Malice
End If
End Sub

Private Sub Timerprikitap_Timer()
If Form3.Check28.Value = 1 Then
PriestKitap
If Form3.Check27.Value = 1 Then
Blasting
If Form3.Check26.Value = 1 Then
Blasting
End If
End If
End If
End Sub






Private Sub tmrFlood_Timer()
Dim Tursec As String
Dim ChatID As String
If cmbFlood.ListIndex = "0" Then
Tursec = "01"
End If
If cmbFlood.ListIndex = "1" Then
Tursec = "05"
End If
If cmbFlood.ListIndex = "2" Then
Tursec = "03"
End If
If cmbFlood.ListIndex = "3" Then
Tursec = "06"
End If
If cmbFlood.ListIndex = "4" Then
Tursec = "0E"
End If
If cmbFlood.ListIndex = "5" Then
Tursec = "0F"
End If
ChatID = Tursec
Paket "10" + ChatID & FormatHex(Hex(Len(txFlood.Text)), 4) & HexString22(txFlood.Text)
End Sub
Private Sub Checktop_Click()
üstte Me, Checktop.Value, Checktop.Value
End Sub
Private Sub Timerminör_Timer()
If Checkminör.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Textminör.Text) / 100) Then
Minör
End If
End If
End Sub
Private Sub form_unload(cancel As Integer)
End
End Sub
Private Sub Form_Load()
cms.ListIndex = 0
cmSec.ListIndex = 0
End Sub

Private Sub tmrPot_Timer()

On Error Resume Next
If chHP.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Texthp.Text) / 100) Then
CanPot
End If
End If
If chMP.Value = 1 Then
If KarakterMP < ((KarakterMaxMP * Textmp.Text) / 100) Then
ManaPot
End If
End If

End Sub

Private Sub tmrRAtak_Timer()
If düşmanID <> "FFFF" Then Paket "080101" & düşmanID & "FF00000000"
End Sub

Private Sub tmrSec_Timer()
If cmSec.ListIndex = 1 Then If chBaşlat.Value = 1 Then If frmList.List1.ListCount <> "0" Then eMob
If cmSec.ListIndex = 0 Then If chBaşlat.Value = 1 Then AutoMobZ
End Sub


Private Sub tmrzamanlı_Timer()
If lstrzmn.Selected(0) = True And SkillOn("002") = False And SkillOn("002") = False Then
Sprint
End If
If lstrzmn.Selected(1) = True And SkillOn("010") = False And SkillOn("10") = False Then
Swift
End If
If lstrzmn.Selected(2) = True And SkillOn("030") = False And SkillOn("030") = False Then
End If
If lstrzmn.Selected(3) = True And SkillOn("710") = False And SkillOn("710") = False Then
EvadeBas
End If
If lstrzmn.Selected(4) = True And SkillOn("725") = False And SkillOn("725") = False Then
LightFeetBas
End If
If lstrzmn.Selected(5) = True And SkillOn("730") = False And SkillOn("730") = False Then
SafetyBas
End If
If lstrzmn.Selected(6) = True And SkillOn(735) = False And SkillOn(735) = False Then
LupineEyesBas
End If
If lstrzmn.Selected(7) = True And SkillOn(802) = False And SkillOn(802) = False Then
MagicShieldBas
End If
If lstrzmn.Selected(8) = True And SkillOn(645) = False And SkillOn(645) = False Then
StealthBas
End If
If lstrzmn.Selected(9) = True And SkillOn(760) = False And SkillOn(760) = False Then
ScaledSkinBas
End If
End Sub


Private Sub warrioratakci_Timer()
WarriorAtakVur
End Sub

Private Sub zamanlar_Timer()
HellishTime = HellishTime - 1
CollapseTime = CollapseTime - 1
HadesTime = HadesTime - 1
RuinTime = RuinTime - 1
harstime = harstime - 1
ravigtime = ravigtime - 1
StabTime = StabTime - 1
Stab2Time = Stab2Time - 1
JabTime = JabTime - 1
BloodTime = BloodTime - 1
PierceTime = PierceTime - 1
ShockTime = ShockTime - 1
IllusionTime = IllusionTime - 1
ThrustTime = ThrustTime - 1
CutTime = CutTime - 1
VampiricTime = VampiricTime - 1
SpikeTime = SpikeTime - 1
BloodyTime = BloodyTime - 1
BloodingTime = BloodingTime - 1
BlindingTime = BlindingTime - 1
BeastTime = BeastTime - 1
CriticalTime = CriticalTime - 1
WeaponTime = WeaponTime - 1
ManglingTime = BloodingTime - 1
MultipleShorkTime = MultipleShorkTime - 1
SeverTime = SeverTime - 1
LegCuttingTime = LegCuttingTime - 1
ShearTime = ShearTime - 1
HashTime = HashTime - 1
PiercingTime = PiercingTime - 1
CrashTime = CrashTime - 1
SlashTime = SlashTime - 1
flametime = flametime - 1
glastime = glastime - 1
lrtime = lrtime - 1
icestormtime = icestormtime - 1
meteortime = meteortime - 1
chatime = chatime - 1
frosttime = frosttime - 1
novatime = novatime - 1
statime = statime - 1
blitime = blitime - 1
infernotime = infernotime - 1
thutime = thutime - 1
Igzination = Igzination - 1
VampiricFire = VampiricFire - 1
FreezingDistance = FreezingDistance - 1
Prismatic = Prismatic - 1
StunCloud = StunCloud - 1
Incineration = Incineration - 1
FireImpact = FireImpact - 1
IceImpact = IceImpact - 1
ThunderImpact = ThunderImpact - 1
FireThorn = FireThorn - 1
StaticThorn = StaticThorn - 1
PillarofFire = PillarofFire - 1
IceComet = IceComet - 1
StaticOrb = StaticOrb - 1
HellFire = HellFire - 1
Frostbite = Frostbite - 1
Discharge = Discharge - 1
FireBlast = FireBlast - 1
IceBlast = IceBlast - 1
ThunderBlast = ThunderBlast - 1
FireSpear = FireSpear - 1
IceOrb = IceOrb - 1
Thunder = Thunder - 1
FireBall = FireBall - 1
IceArrow = IceArrow - 1
Lightning = Lightning - 1
Blaze = Blaze - 1
Chill = Chill - 1
CounterSpell = CounterSpell - 1
Spark = Spark - 1
ColdWave = ColdWave - 1
Flame = Flame - 1
Shiver = Shiver - 1
Flash = Flash - 1
End Sub

VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form Form4
   BackColor       =   &H80000007&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hakkımda Bilgi"
   ClientHeight    =   7500
   ClientLeft      =   45
   ClientTop       =   675
   ClientWidth     =   3735
   FillColor       =   &H00404040&
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   ScaleHeight     =   7500
   ScaleWidth      =   3735
   Begin VB.PictureBox Picture2
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Left            =   0
      Picture         =   "Form4.frx":0CCA
      ScaleHeight     =   975
      ScaleWidth      =   3495
      TabIndex        =   2
      Top             =   3480
      Width           =   3495
   End
   Begin VB.PictureBox Picture1
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3495
      Left            =   -120
      Picture         =   "Form4.frx":7B4E
      ScaleHeight     =   3495
      ScaleWidth      =   3495
      TabIndex        =   1
      Top             =   0
      Width           =   3495
   End
   Begin VB.Timer Timer1
      Interval        =   50
      Left            =   3360
      Top             =   600
   End
   Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1
      Height          =   1215
      Left            =   6360
      TabIndex        =   3
      Top             =   3240
      Width           =   855
      URL             =   ""
      rate            =   1
      balance         =   0
      currentPosition =   0
      defaultFrame    =   ""
      playCount       =   1
      autoStart       =   -1  'True
      currentMarker   =   0
      invokeURLs      =   -1  'True
      baseURL         =   ""
      volume          =   50
      mute            =   0   'False
      uiMode          =   "full"
      stretchToFit    =   0   'False
      windowlessVideo =   0   'False
      enabled         =   -1  'True
      enableContextMenu=   -1  'True
      fullScreen      =   0   'False
      SAMIStyle       =   ""
      SAMILang        =   ""
      SAMIFilename    =   ""
      captioningID    =   ""
      enableErrorDialogs=   0   'False
      _cx             =   1508
      _cy             =   2143
   End
   Begin VB.Label LabelOfTheKOJD
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   $"Form4.frx":B131
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   3210
      Left            =   120
      MousePointer    =   2  'Cross
      TabIndex        =   0
      Top             =   4440
      Width           =   3495
   End
   Begin VB.Menu BotaGeriDön
      Caption         =   "Bota Geri Dön"
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public coloring

Private Sub BotaGeriDön_Click()
Form3.Show
Me.Hide
Unload Me
End Sub

Private Sub Form_Load()

WindowsMediaPlayer1.URL = "http://www.uploadmusic.org/MUSIC/1738851426725134.mp3"
End Sub

Private Sub Timer1_Timer()
coloring = coloring + 1

Select Case coloring
Case 1
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000012
Case 2
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000012
Case 3
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000012
Case 4
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000012
Case 5
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000012
Case 6
LabelOfTheKOJD.ForeColor = &H80FF&
LabelOfTheKOJD.BackColor = &H80000012
Case 7
LabelOfTheKOJD.ForeColor = &H8000000D
LabelOfTheKOJD.BackColor = &H80000012
Case 8
LabelOfTheKOJD.ForeColor = &HC0&
LabelOfTheKOJD.BackColor = &H80000012
Case 9
LabelOfTheKOJD.ForeColor = &HC0C0&
LabelOfTheKOJD.BackColor = &H80000012
Case 10
LabelOfTheKOJD.ForeColor = &HFF00FF
LabelOfTheKOJD.BackColor = &H80000012
coloring = 0
End Select
End Sub

VERSION 5.00
Begin VB.Form frmList
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Liste"
   ClientHeight    =   3405
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   2490
   Icon            =   "frmList.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   3405
   ScaleWidth      =   2490
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1
      BackColor       =   &H8000000D&
      Caption         =   "GİZLE"
      Height          =   375
      Left            =   0
      TabIndex        =   7
      Top             =   3000
      Width           =   2415
   End
   Begin VB.Frame Frame1
      Caption         =   "Liste"
      Height          =   1575
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   2415
      Begin VB.ListBox List1
         ForeColor       =   &H00000000&
         Height          =   1230
         ItemData        =   "frmList.frx":0CCA
         Left            =   120
         List            =   "frmList.frx":0CCC
         TabIndex        =   6
         Top             =   240
         Width           =   2175
      End
   End
   Begin VB.Frame Frame2
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   0
      TabIndex        =   0
      Top             =   1560
      Width           =   2415
      Begin VB.CommandButton Command4
         BackColor       =   &H8000000D&
         Caption         =   "Seçiliyi Ekle"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   120
         Width           =   2175
      End
      Begin VB.TextBox Text5
         Alignment       =   2  'Center
         BackColor       =   &H8000000F&
         ForeColor       =   &H80000001&
         Height          =   285
         Left            =   120
         TabIndex        =   2
         Text            =   "Worm"
         Top             =   480
         Width           =   1455
      End
      Begin VB.CommandButton Command5
         Caption         =   "Ekle"
         Height          =   285
         Left            =   1680
         TabIndex        =   1
         Top             =   480
         Width           =   615
      End
      Begin VB.Label Label1
         Caption         =   "Bir mob silmek için üzerine çift tıkla"
         Height          =   435
         Left            =   120
         TabIndex        =   4
         Top             =   840
         Width           =   2100
      End
   End
End
Attribute VB_Name = "frmList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Me.Hide
Form3.Show
End Sub

Private Sub List1_DblClick()
If List1.ListIndex <> -1 Then
List1.RemoveItem List1.ListIndex
End If
End Sub


Private Sub Command4_Click()
List1.AddItem MobName
End Sub

Private Sub Command5_Click()
List1.AddItem Text5.Text
End Sub
Private Sub form_unload(cancel As Integer)
Me.Hide
Form3.Show
End Sub

Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\Windows\System32\stdole2.tlb#OLE Automation
Module=anamodül; Module1.bas
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; ieframe.dll
Form=Form3.frm
Module=skiller; skiller.bas
Module=listekontrol; listekontrol.bas
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Form=frmList.frm
Form=Form2.frm
Form=Form4.frm
Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
IconForm="form1"
Startup="Form2"
HelpFile=""
Title="Hero Fire Gmr Bot"
ExeName32="Hero Fire Gmr Atack Bot.exe"
Path32="..\..\.."
Command32=""
Name="HeroFire"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionComments="Hero Fire Gmr "
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\Windows\System32\stdole2.tlb#OLE Automation
Module=anamodül; Module1.bas
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; ieframe.dll
Form=Form3.frm
Module=skiller; skiller.bas
Module=listekontrol; listekontrol.bas
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Form=frmList.frm
Form=Form2.frm
Form=Form4.frm
Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
IconForm="form1"
Startup="Form2"
HelpFile=""
Title="Hero Fire Gmr Bot"
ExeName32="Hero Fire Gmr Atack Bot.exe"
Path32="..\..\.."
Command32=""
Name="HeroFire"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionComments="Hero Fire Gmr "
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
form1 = 224, 32, 936, 458, C, 135, 190, 801, 937, C
anamodül = 181, -7, 791, 486, C
Form3 = 47, 38, 926, 645, C, 86, 196, 903, 860, C
skiller = 266, 196, 881, 744, C
listekontrol = 32, 249, 548, 825, C
frmList = 200, 200, 909, 807, C, 175, 175, 884, 782, C
Form2 = 58, 47, 767, 654, C, 18, 57, 488, 306, C
Form4 = 79, 168, 942, 777, C, 15, 18, 690, 863, C
Attribute VB_Name = "listekontrol"
Public Const KO_FLDB As Long = &HC2DD0C
Function GetDistance(Hedefx, Hedefy)
On Error Resume Next
GetDistance = Fix((((Hedefx - KarakterX) * (Hedefx - KarakterX) + (Hedefy - KarakterY) * (Hedefy - KarakterY)) ^ 0.5) / 4)
End Function
Function eMob() As Long
Dim EBP As Long, ESI As Long, EAX As Long, Base_Addr As Long, xCode() As Byte, xStr As String, a As Long, b As Long, TargetID As Long, TargetBase As Long
EBP = LongOku(LongOku(KO_FLDB) + &H2C)
ESI = LongOku(EBP)
a = 100
While ESI <> EBP
Base_Addr = LongOku(ESI + &H10)
Form3.Text18 = YazıOku(LongOku(Base_Addr + KO_OFF_NAME), LongOku(Base_Addr + KO_OFF_NAME + 4))
      If yListKontrol(Form3.Text18.Text) = True Then
      b = GetDistance(FloatOku(Base_Addr + KO_OFF_X), FloatOku(Base_Addr + KO_OFF_Y))
      If b < a Then a = b: TargetID = LongOku(Base_Addr + KO_OFF_ID): TargetBase = Base_Addr    'And ReadLong(Base_Addr + KO_OFF_HP) > 0
      End If

      EAX = LongOku(ESI + 8)
    If LongOku(ESI + 8) <> LongOku(KO_FLMZ) Then
        While LongOku(EAX) <> LongOku(KO_FLMZ) ' bu sekil kod tarzları böle c# gibi degildir
        EAX = LongOku(EAX)
        Wend
    ESI = EAX
    Else
    EAX = LongOku(ESI + 4)
        While ESI = LongOku(EAX + 8)
        ESI = EAX
        EAX = LongOku(EAX + 4)
        Wend
        If LongOku(ESI + 8) <> EAX Then
        ESI = EAX
        End If
    End If
Wend
HafizaID = TargetID
HafizaBase = TargetBase
SetMob (HafizaID)
End Function

Function yListKontrol(name As String) As Boolean
Dim i As Integer
For i = 0 To frmList.List1.ListCount - 1
If frmList.List1.List(i) = name Then
yListKontrol = True
Exit Function
End If
Next i
yListKontrol = False
End Function

Function SetMob(mobid As Long)
If mobid <> 0 And FormatHex(Hex(mobid), 4) <> "FFFF" Then
If mobid = 0 Then Exit Function
LongYaz ReadLong(KO_PTR_CHR) + KO_OFF_MOB, mobid
ByteYaz ReadLong(ReadLong(KO_PTR_DLG) + &H1BC) + &HC0, 1
End If
End Function
Function GetMobBase(TargetMob As Long)
Dim Ptr As Long, tmpMobBase As Long, tmpBase As Long, IDArray As Long, BaseAddr As Long, Mob As Long
Mob = TargetMob
Ptr = LongOku(KO_FLDB)
tmpMobBase = LongOku(Ptr + &H2C) 'mob=0x2C
tmpBase = LongOku(tmpMobBase + &H4) '0x1DD8B1B8
While tmpBase <> 0
IDArray = LongOku(tmpBase + &HC)
If IDArray >= Mob Then
If IDArray = Mob Then
BaseAddr = LongOku(tmpBase + &H10) 'BASE
End If
tmpBase = LongOku(tmpBase + &H0) 'Aşağı
Else
tmpBase = LongOku(tmpBase + &H8) 'Yukarı
End If
Wend
GetMobBase = BaseAddr
End Function


Attribute VB_Name = "anamodül"
Option Explicit
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
Public Const PROCESS_ALL_ACCESS = &H1F0FFF   '# in decimal:2035711
Public Const THREAD_ALL_ACCESS = &H1F03FF ' # in decimal:2032639
Private Const MEM_COMMIT = &H1000
Private Const MEM_RELEASE = &H8000&
Private Const PAGE_READWRITE = &H4&
Private Const INFINITE = &HFFFF
Public Const MAILSLOT_NO_MESSAGE  As Long = (-1)
Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function WriteProcessMem Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long
Private Declare Function CreateMailslot Lib "kernel32" Alias "CreateMailslotA" (ByVal lpName As String, ByVal nMaxMessageSize As Long, ByVal lReadTimeout As Long, lpSecurityAttributes As Any) As Long
Private Declare Function GetMailslotInfo Lib "kernel32" (ByVal hMailSlot As Long, lpMaxMessageSize As Long, lpNextSize As Long, lpMessageCount As Long, lpReadTimeout As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Public Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lPaketing As String, ByVal lpFileName As String) As Long
Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Public VirtualMem As Long
Public Const KOUSBOT_NEW_MEMORY  As Long = &HD6ADA3

'Assassin Skillleri
Public StabTime As Long
Public Stab2Time As Long
Public JabTime As Long
Public BloodTime As Long
Public PierceTime As Long
Public ShockTime As Long
Public IllusionTime As Long
Public ThrustTime As Long
Public CutTime As Long
Public KO_SMMB As Long
Public VampiricTime As Long
Public SpikeTime As Long
Public BloodyTime As Long
Public BlindingTime As Long
Public BeastTime As Long
Public CriticalTime As Long
'Okçu Skilleri
Public FireArrowTime As Long
Public PoisonArrowTime As Long
Public FireShotTime As Long
Public PoisonShotTime As Long
Public ExplosiveShotTime As Long
Public ViperTime As Long
Public CounterStrikeTime As Long
Public IceShotTime As Long
Public LightingShotTime As Long
Public BlowArrowTime As Long
Public BlindingStrafeTime As Long
Public PowerShotTime As Long
Public ArrowShowerTime As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Long = &H1
Public BytesAddr_MobZ As Long
Public BytesAddr As Long
Public HexKelime As String
Public KO_ADI As String
Public KO_HANDLE As Long
Public KO_PID As Long
Public FuncPtr As Long
Public ThreadPtr As Long
Public KO_ADR_CHR As Long
Public KO_ADR_DLG As Long
Public MSName As String
Public MSHandle
'warrior skilleri
Public kUzaklık As Long
Public BloodingTime As Long
Public ManglingTime As Long
Public MultipleShorkTime As Long
Public SeverTime As Long
Public LegCuttingTime As Long
Public ShearTime As Long
Public HashTime As Long
Public PiercingTime As Long
Public CrashTime As Long
Public SlashTime As Long

'mage skilleri
Public flametime As Long
Public glastime As Long
Public lrtime As Long
Public icestormtime As Long
Public meteortime As Long
Public chatime As Long
Public frosttime As Long
Public novatime As Long
Public statime As Long
Public blitime As Long
Public infernotime As Long
Public thutime As Long
'mage devam
Public Flash As Long
Public Shiver As Long
Public Flame As Long
Public ColdWave As Long
Public Spark As Long
Public Blaze As Long
Public FireBall As Long
Public FireSpear As Long
Public FireBlast As Long
Public HellFire As Long
Public PillarofFire As Long
Public FireThorn As Long
Public FireImpact As Long
Public Incineration As Long
Public VampiricFire As Long
Public Igzination As Long
Public Chill As Long
Public IceArrow As Long
Public IceOrb As Long
Public IceBlast As Long
Public Frostbite As Long
Public IceComet As Long
Public IceImpact As Long
Public Prismatic As Long
Public FreezingDistance As Long
Public CounterSpell As Long
Public Lightning As Long
Public Thunder As Long
Public ThunderBlast As Long
Public Discharge As Long
Public StaticOrb As Long
Public StaticThorn As Long
Public ThunderImpact As Long
Public StunCloud As Long
'priest atakk
Public RuinTime As Long
Public HellishTime As Long
Public HarshTime As Long
Public CollapseTime As Long
Public RavingTime As Long
Public HadesTime As Long



' Pointerler
Public KO_SND_FNC As Long
' Pointler


Public Const KO_SEND_PTR As Long = &HCF3D40 'KO_SND_X
Public Const KO_PTR_CHR As Long = &HD79CBC
Public Const KO_FLMZ As Long = &HC236FC
Public Const KO_PTR_PKT As Long = &HD79D40
Public Const KO_PTR_DLG As Long = &HD79D74
Public Const ko_fncz As Long = &H4CBBA0
Public Const KO_OFF_PARTY As Long = KO_PTR_DLG
Public Const KO_Thread As Long = &HD79DF4
Public Const KO_NODC As Long = &HD7EDB4
Public Const KO_FLDB As Long = &HD79CB8
Public Const KO_ITOB As Long = &HD79B08
Public Const KO_ITEB As Long = &HD79B10
Public Const KO_FMBS As Long = &H49EE40
Public Const KO_FPBS As Long = &H49FE70
Public Const KO_SND_PACKET As Long = KO_PTR_PKT + &HC5
Public Const KO_SND_PACKET2  As Long = KO_PTR_PKT + &HC5
' Offsetler
Public Const KO_OFF_ZONE As Long = &HB7C
Public Const KO_OFF_WH As Long = &H6B8
Public Const KO_OFF_MX As Long = &HEF4
Public Const KO_OFF_MY As Long = &HEFC
Public Const KO_OFF_MZ As Long = &HEF8
Public Const KO_OFF_LVL As Long = 1708
Public Const KO_OFF_NAME As Long = &H680
Public Const KO_OFF_CLASS As Long = &H6A8
Public Const KO_OFF_ID As Long = &H678
Public Const KO_OFF_SWIFT As Long = &H782
Public Const KO_OFF_HP As Long = &H6B4
Public Const KO_OFF_MAXHP As Long = &H6B0
Public Const KO_OFF_MP As Long = &HAE0
Public Const KO_OFF_MAXMP As Long = &HADC
Public Const KO_OFF_Y As Long = &HE0
Public Const KO_OFF_X As Long = &HD8
Public Const KO_OFF_Z As Long = &HDC
Public Const KO_OFF_EXP As Long = &HAF8
Public Const KO_OFF_MAXEXP As Long = &HAF0
Public Const KO_OFF_MOB As Long = &H644
Public Const KO_OFF_Go1 As Long = &HEE8 ' Kordinata Git KO_OFF_MOVTYPE
Public Const KO_OFF_GoX As Long = &HEF4 ' Kordinata Git X
Public Const KO_OFF_GoY As Long = &HEFC ' Kordinata Git Y
Public Const KO_OFF_Go2 As Long = &H3F0 ' Kordinata Git KO_OFF_MVCHRTYP
Public Const KO_OFF_LOOT As Long = &H8EC
Public Const KO_OFF_AP As Long = &HB38
Public Const KO_OFF_DEFP As Long = &HB40
Public Const KO_OFF_RATTCK As Long = &HF1E
Public Const KO_OFF_NATION As Long = &H6A0
' Party Offsetler
Public Const PartyHP As Long = &H14
Public Const PartyMaxHP As Long = &H18
Public Const PartyID As Long = &H8
Public Const PartyLevel As Long = &HC
Public Const PartyClass As Long = &H10
Public Const PartyCure1 As Long = &H24
Public Const PartyCure2 As Long = &H25
Public Const PartyCure3 As Long = &H26
Public Const PartyCure4 As Long = &H27
Public Const PartySayısı As Long = &H3C0
Public Const PartyAdı As Long = &H30
Public Const PartyOffset As Long = &H1EC
Public Const PartyValue As Long = &H3BC
Public Sub YukarıdaTut(SetOnTop As Boolean)
    Dim lflag
    If SetOnTop Then
        lflag = HWND_TOPMOST
    Else
        lflag = HWND_NOTOPMOST
    End If
    SetWindowPos Form3.hWnd, lflag, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Public Function AttachKO()
KO_ADI = form1.Text1.Text
If form1.Text1.Text <> vbNullString And FindWindow(vbNullString, form1.Text1) <> 0 Then
GetWindowThreadProcessId FindWindow(vbNullString, KO_ADI), KO_PID
KO_HANDLE = OpenProcess(THREAD_ALL_ACCESS, False, KO_PID)
MSName = "\\.\mailslot\ByhOxic" & Hex(GetTickCount)
MSHandle = EstablishMailSlot(MSName)
If KO_HANDLE = 0 Then MsgBox "handle 0": Exit Function
KO_ADR_CHR = LongOku(KO_PTR_CHR)
KO_ADR_DLG = LongOku(KO_PTR_DLG)
OtoSND
form1.Command1.Enabled = False
End If
End Function

Public Sub OtoSND()
Dim EAXval As Byte
Select Case ByteOku(KO_SEND_PTR)
Case &H16: EAXval = 0
Case &H17: EAXval = 1
Case &H14: EAXval = 2
Case &H15: EAXval = 3
Case &H12: EAXval = 4
Case &H13: EAXval = 5
Case &H10: EAXval = 6
Case &H1E: EAXval = 8
Case &H11: EAXval = 7
Case &H1F: EAXval = 9
End Select
KO_SND_FNC = LongOku(LongOku(KO_PTR_PKT) + (EAXval * 4) + &H4008C)
End Sub
Public Function LongOku(addr As Long) As Long
    Dim Value As Long
    ReadProcessMem KO_HANDLE, addr, Value, 4, 0&
    LongOku = Value
End Function
Public Function EstablishMailSlot(ByVal MailSlotName As String, Optional MaxMessageSize As Long = 0, Optional ReadTimeOut As Long = 50) As Long
EstablishMailSlot = CreateMailslot(MailSlotName, MaxMessageSize, ReadTimeOut, ByVal 0&)
End Function
Function ByteOku(pAddy As Long, Optional pHandle As Long) As Byte
    Dim Value As Byte
    If pHandle <> 0 Then
        ReadProcessMem pHandle, pAddy, Value, 1, 0&
    Else
        ReadProcessMem KO_HANDLE, pAddy, Value, 1, 0&
    End If
    ByteOku = Value
End Function
Function YazıOku(ByVal pAddy As Long, ByVal OtoSize As Boolean, Optional ByVal LSize As Long = 1) As String
Dim Value As Byte
Dim tex() As Byte
On Error Resume Next
If OtoSize = True Then
ReadProcessMem KO_HANDLE, pAddy, Value, 1, 0&
LSize = Value
ReDim tex(1 To LSize)
ReadProcessMem KO_HANDLE, pAddy, tex(1), LSize, 0&
YazıOku = StrConv(tex, vbUnicode)
Else
If LSize = 0 Then
MsgBox "Fazla Karakter içeriyor..", vbCritical, "Hata"
Exit Function
Else
ReDim tex(1 To LSize)
ReadProcessMem KO_HANDLE, pAddy, tex(1), LSize, 0&
YazıOku = StrConv(tex, vbUnicode)
End If
End If
End Function
Public Function ModulHandleBul(ModuleName As String) As Long
Dim hModules(1 To 256) As Long
Dim BytesReturned As Long
Dim ModuleNumber As Byte
Dim TotalModules As Byte
Dim Filename As String * 128
Dim ModName As String
EnumProcessModules KO_HANDLE, hModules(1), 1024, BytesReturned
TotalModules = BytesReturned / 4
For ModuleNumber = 1 To TotalModules
GetModuleFileNameExA KO_HANDLE, hModules(ModuleNumber), Filename, 128
ModName = Left(Filename, InStr(Filename, Chr(0)) - 1)
If UCase(Right(ModName, Len(ModuleName))) = UCase(ModuleName) Then
ModulHandleBul = hModules(ModuleNumber)
End If
Next
End Function

Public Sub Paket(pstr As String)
Dim pBytes() As Byte
ConvHEX2ByteArray pstr, pBytes
SendPacket pBytes
End Sub

Function SendPacket(pPacket() As Byte)
Dim ThreadPtr As Long, APIAdr As Long
'APIAdr = GetProcAddress(GetModuleHandle("kernel32.dll"), "GetCurrentThreadId")
Dim pSize As Long
Dim pCode() As Byte
pSize = UBound(pPacket) - LBound(pPacket) + 1
If BytesAddr = 0 Then
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
    WriteByteArray BytesAddr, pPacket, pSize
   '  ConvHEX2ByteArray "608B0D" & AlignDword(KO_PAKET) & "68" & AlignDword(pSize) & "68" & AlignDword(BytesAddr) & "BF" & AlignDword(KO_SEND) & "FFD761C3", pCode
             ConvHEX2ByteArray "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD7C605" & AlignDWORD(KO_PTR_PKT + &HC5) & "0061C3", pCode

    ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function
Function ExecuteRemoteCode(pCode() As Byte, Optional WaitExecution As Boolean = False) As Long
Dim hThread As Long, ThreadID As Long, Ret As Long
Dim FuncPtr As Long
Dim SE As SECURITY_ATTRIBUTES
SE.nLength = Len(SE)
SE.bInheritHandle = False
FuncPtr = KOUSBOT_NEW_MEMORY
ExecuteRemoteCode = 0
If FuncPtr = 0 Then
FuncPtr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If FuncPtr <> 0 Then
    WriteByteArray FuncPtr, pCode, UBound(pCode) - LBound(pCode) + 1
    hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, 0, ByVal FuncPtr, 0&, 0&, ThreadID)
    If hThread Then
    WaitForSingleObject hThread, &HFFFF
    ExecuteRemoteCode = ThreadID
    End If
End If
CloseHandle hThread
End Function
Function HiWord(DWord As Long) As Integer
   HiWord = (DWord And &HFFFF0000) \ &H10000
End Function
Function LoWord(DWord As Long) As Integer
   If DWord And &H8000& Then '
      LoWord = DWord Or &HFFFF0000
   Else
      LoWord = DWord And &HFFFF&
   End If
End Function
Function AlignDWORD(pParam As Long) As String
Dim HiW As Integer
Dim LoW As Integer

Dim HiBHiW As Byte
Dim HiBLoW As Byte

Dim LoBHiW As Byte
Dim LoBLoW As Byte

HiW = HiWord(pParam)
LoW = LoWord(pParam)

HiBHiW = HiByte(HiW)
HiBLoW = HiByte(LoW)

LoBHiW = LoByte(HiW)
LoBLoW = LoByte(LoW)

AlignDWORD = IIf(Len(Hex(LoBLoW)) = 1, "0" & Hex(LoBLoW), Hex(LoBLoW)) & _
         IIf(Len(Hex(HiBLoW)) = 1, "0" & Hex(HiBLoW), Hex(HiBLoW)) & _
         IIf(Len(Hex(LoBHiW)) = 1, "0" & Hex(LoBHiW), Hex(LoBHiW)) & _
         IIf(Len(Hex(HiBHiW)) = 1, "0" & Hex(HiBHiW), Hex(HiBHiW))
End Function
Public Function LoByte(ByVal wParam As Integer) As Byte
    LoByte = wParam And &HFF&
End Function
Public Function HiByte(ByVal wParam As Integer) As Byte
    HiByte = (wParam And &HFF00&) \ (&H100)
End Function
Public Function WriteByteArray(pAddy As Long, pmem() As Byte, pSize As Long)
    WriteProcessMem KO_HANDLE, pAddy, pmem(LBound(pmem)), pSize, 0&
End Function
Public Function Hex2Byte(Paket As String, pByte() As Byte)
On Error Resume Next
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(Paket) / 2)

j = LBound(pByte) - 1
For i = 1 To Len(Paket) Step 2
    j = j + 1
    pByte(j) = CByte("&H" & Mid(Paket, i, 2))
Next
End Function
Public Function FloatOku(addr As Long) As Long
On Error Resume Next
    Dim Value As Single
    ReadProcessMem KO_HANDLE, addr, Value, 4, 0&
    FloatOku = Value
End Function
Public Function FloatYaz(addr As Long, Val As Single)
    WriteProcessMem KO_HANDLE, addr, Val, 4, 0&
End Function
Sub SıraByteOku(addr As Long, pmem() As Byte, pSize As Long)
Dim Value As Byte
On Error Resume Next
ReDim pmem(1 To pSize) As Byte
ReadProcessMem KO_HANDLE, addr, pmem(1), pSize, 0&
End Sub
Sub ByteYaz(addr As Long, pval As Byte)
Dim pbw As Long
WriteProcessMem KO_HANDLE, addr, pval, 1, pbw
End Sub
Function DecFormatla(strHex As String, inLength As Integer)
Dim NewDec As String, byte1 As String, byte2 As String, byte3 As String, byte4 As String
Dim ZeroSpaces As Integer
ZeroSpaces = inLength - Len(strHex)
NewDec = String(ZeroSpaces, "0") + strHex

byte1 = Left(NewDec, 2)
byte2 = Mid(NewDec, 3, 2)
byte3 = Mid(NewDec, 5, 2)
byte4 = Right(NewDec, 2)

Select Case Len(NewDec)
Case 2
NewDec = CDec("&H" & byte1)
Case 4
NewDec = CDec("&H" & byte4 & byte1)
Case 6
NewDec = CDec("&H" & byte4 & byte2 & byte1)
Case 8
NewDec = CDec("&H" & byte4 & byte3 & byte2 & byte1)
End Select

DecFormatla = NewDec
End Function
Public Function ConvHEX2ByteArray(pstr As String, pByte() As Byte)
On Error Resume Next
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(pstr) / 2)
j = LBound(pByte) - 1
For i = 1 To Len(pstr) Step 2
    j = j + 1
    pByte(j) = CByte("&H" & Mid(pstr, i, 2))
Next
End Function
Function FormatHex(strHex As String, inLength As Integer)
On Error Resume Next
Dim newHex As String
Dim ZeroSpaces As Integer
ZeroSpaces = inLength - Len(strHex) '1
newHex = String(ZeroSpaces, "0") + strHex
Select Case Len(newHex)
Case 2
newHex = Left(newHex, 2)
Case 4
newHex = Right(newHex, 2) & Left(newHex, 2)
Case 6
newHex = Right(newHex, 2) & Mid(newHex, 3, 2) & Left(newHex, 2)
Case 8
newHex = Right(newHex, 2) & Mid(newHex, 5, 2) & Mid(newHex, 3, 2) & Left(newHex, 2)
Case Else
End Select
FormatHex = newHex
End Function

Public Function CheckForMessages(MessageCount As Long)
Dim lBytesRead   As Long
Dim lmsgcount    As Long
Dim lNextMsgSize As Long
Dim lpBuffer As String
CheckForMessages = False
GetMailslotInfo MSHandle, ByVal 0&, lNextMsgSize, lmsgcount, ByVal 0&
MessageCount = lmsgcount
CheckForMessages = True
End Function
Public Function ReadMessage(MailMessage As String, MessagesLeft As Long)
Dim lBytesRead As Long
Dim lNextMsgSize As Long
Dim lpBuffer     As String
ReadMessage = False
Call GetMailslotInfo(MSHandle, ByVal 0&, lNextMsgSize, MessagesLeft, ByVal 0&)
If MessagesLeft > 0 And lNextMsgSize <> MAILSLOT_NO_MESSAGE Then
    lBytesRead = 0
    lpBuffer = String$(lNextMsgSize, Chr$(0))
    Call ReadFile(MSHandle, ByVal lpBuffer, Len(lpBuffer), lBytesRead, ByVal 0&)
    If lBytesRead <> 0 Then
        MailMessage = Left(lpBuffer, lBytesRead)
        ReadMessage = True
        Call GetMailslotInfo(MSHandle, ByVal 0&, lNextMsgSize, MessagesLeft, ByVal 0&)
    End If
End If
End Function
Function ReadLong(addr As Long) As Long
    Dim Value As Long
    ReadProcessMem KO_HANDLE, addr, Value, 4, 0&
    ReadLong = Value
End Function

Function ReadFloat(addr As Long) As Long
    Dim Value As Single
    ReadProcessMem KO_HANDLE, addr, Value, 4, 0&
    ReadFloat = Value
End Function
Public Function Hex2Val(pStrHex As String) As Long
Dim TmpStr As String
Dim TmpHex As String
Dim i As Long
TmpStr = ""
For i = Len(pStrHex) To 1 Step -1
    TmpHex = Hex(Asc(Mid(pStrHex, i, 1)))
    If Len(TmpHex) = 1 Then TmpHex = "0" & TmpHex
    TmpStr = TmpStr & TmpHex
Next
Hex2Val = CLng("&H" & TmpStr)
End Function
Public Function LongYaz(addr As Long, Val As Long)
    WriteProcessMem KO_HANDLE, addr, Val, 4, 0&
End Function
Function HexString(EvalString As String) As String
Dim intStrLen As Integer
Dim intLoop As Integer
Dim strHex As String

EvalString = Trim(EvalString)
intStrLen = Len(EvalString)
For intLoop = 1 To intStrLen
strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
Next
HexString = strHex
HexKelime = strHex
End Function
Function HexFormatla(strHex As String, inLength As Integer)
On Error Resume Next
Dim newHex As String, byte1 As String, byte2 As String, byte3 As String, byte4 As String
Dim ZeroSpaces As Integer
'ABC,4
ZeroSpaces = inLength - Len(strHex) '1
newHex = String(ZeroSpaces, "0") + strHex '0ABC
byte1 = Left(newHex, 2)
byte2 = Mid(newHex, 3, 2)
byte3 = Mid(newHex, 5, 2)
byte4 = Right(newHex, 2)
Select Case Len(newHex)
Case 2 '0A
newHex = byte1
Case 4 '0ABC
newHex = byte4 & byte1
Case 6 '000ABC
newHex = byte4 & byte2 & byte1
Case 8 '00000ABC
newHex = byte4 & byte3 & byte2 & byte1
Case Else
End Select
HexFormatla = newHex
'\\
End Function
Sub f_Sleep(pMS As Long, Optional pDoevents As Boolean = False)
Dim pTime As Long
pTime = GetTickCount
Do While pMS + pTime > GetTickCount
If pDoevents = True Then DoEvents
Loop
End Sub

Public Function StrToHex(ByVal Text As String) As String
    Dim tmpArr() As Byte, strArr() As Byte
    Dim a As Long, b As Long, UpperBits As Byte, LowerBits As Byte
    If LenB(Text) = 0 Then Exit Function
    strArr = Text
    ReDim tmpArr(LenB(Text) + LenB(Text) - 1)
    For a = 0 To UBound(strArr) Step 2
        UpperBits = (strArr(a) And &HF0) \ &H10
        LowerBits = strArr(a) And &HF
        b = a + a
        If UpperBits > 10 Then
            tmpArr(b) = (48 Or UpperBits) + 7
        Else
            tmpArr(b) = 48 Or UpperBits
        End If
        b = b + 2
        If LowerBits > 10 Then
            tmpArr(b) = (48 Or LowerBits) + 7
        Else
            tmpArr(b) = 48 Or LowerBits
        End If
    Next a
    StrToHex = tmpArr
End Function

Public Function StringToHex(Str As String) As String
Dim pstr As String, X As Long
For X = 1 To Len(Trim(Str))
pstr = pstr & Hex(Asc(Mid(Str, X, 1)))
Next X
StringToHex = pstr
End Function


Public Function Wait(C_MiliSec As Long): Static C_LstTime As Long: C_LstTime = GetTickCount + C_MiliSec: Do While C_LstTime > GetTickCount: DoEvents: Loop
End Function

Public Sub üstte(TheForm As Form, SetOnTop As Boolean, X As Long)
    SetWindowPos TheForm.hWnd, X - 2, 0, 0, 0, 0, 2 Or 1
End Sub
Public Function HexString22(EvalString As String) As String
Dim intStrLen As Integer
Dim intLoop As Integer
Dim strHex As String

EvalString = Trim(EvalString)
intStrLen = Len(EvalString)
For intLoop = 1 To intStrLen
strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
Next
HexString22 = strHex
End Function
Function SkillOn(skill) As Boolean
Dim Kontrol
Kontrol = Val(SınıfBul & skill)
If GetCurrentSkill(1) <> Kontrol And _
GetCurrentSkill(2) <> Kontrol And _
GetCurrentSkill(3) <> Kontrol And _
GetCurrentSkill(4) <> Kontrol And _
GetCurrentSkill(5) <> Kontrol And _
GetCurrentSkill(6) <> Kontrol And _
GetCurrentSkill(7) <> Kontrol And _
GetCurrentSkill(8) <> Kontrol And _
GetCurrentSkill(9) <> Kontrol And _
GetCurrentSkill(10) <> Kontrol And _
GetCurrentSkill(11) <> Kontrol And _
GetCurrentSkill(12) <> Kontrol And _
GetCurrentSkill(13) <> Kontrol Then
SkillOn = False
Else
SkillOn = True
End If
End Function
Function SınıfBul() As Long
SınıfBul = LongOku(LongOku(KO_PTR_CHR) + KO_OFF_CLASS)
End Function
Function GetCurrentSkill(skillno As Integer)
Dim i As Integer
Dim Ptr As Long, tmpBase As Long
Ptr = ReadLong(KO_PTR_DLG)
tmpBase = ReadLong(Ptr + &H1B8)
tmpBase = ReadLong(tmpBase + &H4)
tmpBase = ReadLong(tmpBase + &HE0)
For i = 1 To skillno
tmpBase = ReadLong(tmpBase + &H0)
Next
tmpBase = ReadLong(tmpBase + &H8)
If tmpBase > 0 Then
tmpBase = ReadLong(tmpBase + &H0)
GetCurrentSkill = tmpBase
Else
GetCurrentSkill = 0
End If
End Function
Public Sub Swift()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul() & "010"), 1, 6)
Paket ("3101" + skillid + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Pause 1.4
Paket ("3103" + skillid + "00" + KarakterID() + KarakterID() + "F7020400AE01000000000000")
End Sub
Public Sub StealthBas()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul() & "645"), 1, 6)
Paket ("3101" + skillid + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Pause 2.65
Paket ("3103" + skillid + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub MagicShieldBas()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul() & "802"), 1, 6)
Paket ("3101" + skillid + "00" + KarakterID() + KarakterID() + "0000000000000000000000000A00")
Pause 0.8
Paket ("3103" + skillid + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub LupineEyesBas()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul() & "735"), 1, 6)
Paket ("3101" + skillid + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Pause 1.8
Paket ("3103" + skillid + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub RogueCureCurse()
On Error Resume Next
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & "736"), 1, 6)
Paket "06" + "0000" + "00"
Paket "3101" + skillid + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Pause 1.5
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"
End Sub
Function RogueZehirKontrol() As Boolean
Dim AA
Dim BB
Dim CC
AA = LongOku(KO_PTR_DLG)
BB = LongOku(AA + &H338)
CC = LongOku(BB + &H110)
If CC = "0" Then RogueZehirKontrol = True Else RogueZehirKontrol = False
End Function
Public Sub EvadeBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "710"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Public Sub LightFeetBas()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul() & "725"), 1, 6)
Paket ("3103" + skillid + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub SafetyBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "730"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Public Sub ScaledSkinBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "760"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Function KarakterX()
KarakterX = FloatOku(KO_ADR_CHR + KO_OFF_X)
End Function

Function KarakterY()
KarakterY = FloatOku(KO_ADR_CHR + KO_OFF_Y)
End Function
Function MobX()
MobX = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H7C)
End Function

Function MobY()
MobY = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H84)
End Function

Public Sub Sprint()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "002"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub

Public Function Pause(ByVal delay As Single)
delay = Timer + delay
  Do
  DoEvents
  Sleep 1
  Loop While delay > Timer
End Function
Public Sub PartyAt(ad As String)
Dim a As String
a = Strings.Mid$(AlignDWORD(Len(ad)), 1, 2)
Paket "2f03" + a + "00" + StringToHex(ad)
Paket "2f01" + a + "00" + StringToHex(ad)
End Sub
Public Function Yürü(X As Single, Y As Single)
LongYaz KO_ADR_CHR + KO_OFF_Go1, 1
FloatYaz KO_ADR_CHR + KO_OFF_MX, X
FloatYaz KO_ADR_CHR + KO_OFF_MY, Y
LongYaz KO_ADR_CHR + KO_OFF_Go2, 2
End Function
Sub AtakBaşlat()
Form3.asasatakci.Enabled = True
Form3.priatakci.Enabled = True
Form3.okcuatakci.Enabled = True
Form3.warrioratakci.Enabled = True
Form3.mageatakci.Enabled = True
End Sub
Sub AtakDurdur()
Form3.asasatakci.Enabled = False
Form3.priatakci.Enabled = False
Form3.okcuatakci.Enabled = False
Form3.warrioratakci.Enabled = False
Form3.mageatakci.Enabled = False
End Sub
Function PaketGönder(pPacket() As Byte)
On Error Resume Next
Dim pSize As Long
Dim pCode() As Byte
pSize = UBound(pPacket) - LBound(pPacket) + 1
If BytesAddr = 0 Then
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
    ByteDizisiYaz BytesAddr, pPacket, pSize
    Hex2Byte "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD7C605" & AlignDWORD(KO_SND_PACKET) & "0061C3", pCode
    UzaktanKodÇalıştır pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function
Function UzaktanKodÇalıştır(pCode() As Byte, Optional WaitExecution As Boolean = False) As Long
Dim hThread As Long, ThreadID As Long, Ret As Long
Dim SE As SECURITY_ATTRIBUTES

SE.nLength = Len(SE)
SE.bInheritHandle = False

UzaktanKodÇalıştır = 0
If FuncPtr = 0 Then
FuncPtr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If FuncPtr <> 0 Then
    ByteDizisiYaz FuncPtr, pCode, UBound(pCode) - LBound(pCode) + 1

   hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, 0, ByVal FuncPtr, 0&, 0&, ThreadID)
   If hThread Then
      Ret = WaitForSingleObject(hThread, INFINITE)
      UzaktanKodÇalıştır = ThreadID
   End If
   CloseHandle hThread
   Ret = VirtualFreeEx(KO_HANDLE, FuncPtr, 0, MEM_RELEASE)
End If
End Function
Public Function ByteDizisiYaz(pAddy As Long, pmem() As Byte, pSize As Long)
    WriteProcessMem KO_HANDLE, pAddy, pmem(LBound(pmem)), pSize, 0&
End Function
Function AutoMobZ() 'Z (Enemy)
'29/04
'// melih (kojd)
If BytesAddr_MobZ = 0 Then
BytesAddr_MobZ = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If

If BytesAddr_MobZ <> 0 Then
Dim xCode() As Byte, xStr As String

xStr = "60" & _
        "8B0D" & _
        AlignDWORD(KO_PTR_DLG) & _
        "BF" & _
        AlignDWORD(ko_fncz) & _
        "FFD761C3"

Hex2Byte xStr, xCode
UzaktanKodÇalıştır xCode, True
End If

'// kojd - Auto select Z mob
'PUSHAD
'MOV ECX,DWORD PTR DS:[KO_PTR_DLG]
'MOV EDI,KO_FNCZ
'CALL EDI
'POPAD
'RETN
'//


VirtualFreeEx KO_HANDLE, BytesAddr_MobZ, 0, MEM_RELEASE&
End Function

Public Sub InventoryOku()
      Dim tmpBase As Long, tmpLng1 As Long, tmpLng2 As Long, tmpLng3 As Long, tmpLng4 As Long
      Dim lngItemID As Long, lngItemID_Ext As Long, lngItemNameLen As Long, AdrItemName As Long
      Dim ItemNameB() As Byte, ItemName As String, i As Integer
      tmpBase = LongOku(KO_PTR_DLG)
      tmpLng1 = LongOku(tmpBase + &H1A0) 'first pointer
      Form3.itemlist.Clear
For i = 16 To 58 'read 0 to 41 inventory slots (0=earring, 1=helmet, 2=earring, 3=necklace, 4=pauldron ....14=first inventory slot)
          tmpLng2 = LongOku(tmpLng1 + (&H134 + (4 * i)))  'inventory slot
          tmpLng3 = LongOku(tmpLng2 + &H38) 'item id adress
          tmpLng4 = LongOku(tmpLng2 + &H3C) 'item id_ext adress

          lngItemID = LongOku(tmpLng3) 'item id value
          lngItemID_Ext = LongOku(tmpLng4) 'item id_ext value
          lngItemID = lngItemID + lngItemID_Ext 'real item id
          lngItemNameLen = LongOku(tmpLng3 + &H10) 'n° characters in item name
          AdrItemName = LongOku(tmpLng3 + &HC) 'item name adress

          ItemName = "" 'reset ItemName variable
          If lngItemNameLen > 0 Then
              SıraByteOku AdrItemName, ItemNameB, lngItemNameLen 'get item name (byte array)
              ItemName = StrConv(ItemNameB, vbUnicode) 'convert it to string
          End If

If Form3.itemlist.ListCount <> "58" Then
Form3.itemlist.AddItem Form3.itemlist.ListCount + 1 & "-) " & ItemName
End If
      Next
End Sub 'ac oyunu
Public Function ItemARA(item As String) As Boolean
Dim i As Integer
For i = 0 To Form3.itemlist.ListCount - 1
If InStr(1, Form3.itemlist.List(i), item) Then ItemARA = True
Next
End Function
Sub PotBAS(PotID As String)
Paket PotID + KarakterID + KarakterID
End Sub
Function KarakterHP()
KarakterHP = LongOku(KO_ADR_CHR + KO_OFF_HP)
End Function

Function KarakterMaxHP()
KarakterMaxHP = LongOku(KO_ADR_CHR + KO_OFF_MAXHP)
End Function
Public Sub CanPot()
Dim SkillSeç As String
Dim skillid As String
If Form3.Combohp.Text = "720" Then
SkillSeç = "014"
End If
If Form3.Combohp.Text = "360" Then
SkillSeç = "013"
End If
If Form3.Combohp.Text = "180" Then
SkillSeç = "012"
End If
If Form3.Combohp.Text = "90" Then
SkillSeç = "011"
End If
If Form3.Combohp.Text = "45" Then
SkillSeç = "010"
End If
skillid = Strings.Mid(AlignDWORD(490 & SkillSeç), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub
Public Sub ManaPot()
Dim SkillSeç As String
Dim skillid As String
If Form3.Combomp.Text = "1920" Then
SkillSeç = "020"
End If
If Form3.Combomp.Text = "960" Then
SkillSeç = "019"
End If
If Form3.Combomp.Text = "480" Then
SkillSeç = "018"
End If
If Form3.Combomp.Text = "180" Then
SkillSeç = "017"
End If
If Form3.Combomp.Text = "90" Then
SkillSeç = "016"
End If
skillid = Strings.Mid(AlignDWORD(490 & SkillSeç), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub

Function KarakterMP()
KarakterMP = LongOku(KO_ADR_CHR + KO_OFF_MP)
End Function

Function KarakterMaxMP()
KarakterMaxMP = LongOku(KO_ADR_CHR + KO_OFF_MAXMP)
End Function
Sub AutoHP()
If Form3.chHP.Value = 1 Then
If KarakterHP < ((KarakterMaxHP * Form3.Texthp.Text) / 100) Then
If ItemARA("Water of favors") = True Then PotBAS "31031E7A0700": Exit Sub
If ItemARA("Water of grace") = True Then PotBAS "31031D7A0700": Exit Sub
If ItemARA("Water of love") = True Then PotBAS "31031C7A0700": Exit Sub
If ItemARA("Water of life") = True Then PotBAS "31031B7A0700": Exit Sub
If ItemARA("Holy water") = True Then PotBAS "31031A7A0700": Exit Sub
End If
End If
End Sub

Sub AutoMP()
If Form3.chMP.Value = 1 Then
If KarakterMP < ((KarakterMaxMP * Form3.Textmp.Text) / 100) Then
If ItemARA("Potion of Soul") = True Then PotBAS "3103247A0700": Exit Sub
If ItemARA("Potion of Wisdom") = True Then PotBAS "3103237A0700": Exit Sub
If ItemARA("Potion of Sagacity") = True Then PotBAS "3103227A0700": Exit Sub
If ItemARA("Potion of Intelligence") = True Then PotBAS "3103217A0700": Exit Sub
If ItemARA("Potion of Spirit") = True Then PotBAS "3103207A0700": Exit Sub
End If
End If
End Sub
Function SkillBase(ByVal skillid As Long) As Long
  Dim addr As Long
  Dim MevcutAddress As Long
  Dim MevcutOffset As Long
  Dim tmpBase As Long
  Dim MevcutPointer As Long
  Dim MevcutID As Long
  addr = ReadLong(KO_SMMB)
  MevcutAddress = ReadLong(addr + &H18)
  MevcutPointer = ReadLong(MevcutAddress + &H4)
  While (MevcutPointer <> 0)
  MevcutID = ReadLong(MevcutPointer + &HC)
  If (MevcutID >= skillid) Then
  If (MevcutID = skillid) Then
  tmpBase = MevcutPointer
  End If
  MevcutPointer = ReadLong(MevcutPointer)
  Else
  MevcutPointer = ReadLong(MevcutPointer + &H8)
  End If
  Wend
  SkillBase = tmpBase
End Function
Public Function MouseX()
MouseX = FloatOku(ReadLong(KO_PTR_CHR) + KO_OFF_MX)
End Function
Public Function MouseY()
MouseY = FloatOku(ReadLong(KO_PTR_CHR) + KO_OFF_MY)
End Function
Attribute VB_Name = "skiller"
Public Sub Minör()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub
Public Function WarriorAtakVur()
If BloodingTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(19) = True Then BloodingTime = 22: WarriorAtak "575": Exit Function
If ManglingTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(14) = True Then ManglingTime = 4: WarriorAtak "550": Exit Function
If MultipleShorkTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(12) = True Then MultipleShorkTime = 4: WarriorAtak "540": Exit Function
If SeverTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(10) = True Then SeverTime = 4: WarriorAtak "530": Exit Function
If LegCuttingTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(8) = True Then LegCuttingTime = 6: WarriorAtak "520": Exit Function
If ShearTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(6) = True Then ShearTime = 4: WarriorAtak "510": Exit Function
If HashTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(4) = True Then HashTime = 4: WarriorAtak "500": Exit Function
If PiercingTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(3) = True Then PiercingTime = 4: WarriorAtak "009": Exit Function
If CrashTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(2) = True Then CrashTime = 4: WarriorAtak "005": Exit Function
If SlashTime <= 0 And MobUzaklıK <= 100 And Form3.warlist.Selected(1) = True Then SlashTime = 4: WarriorAtak "003": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(21) = True Then: WarriorAtak "782": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(20) = True Then: WarriorAtak "580": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(18) = True Then: WarriorAtak "570": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(17) = True Then: WarriorAtak "560": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(16) = True Then: WarriorAtak "557": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(15) = True Then: WarriorAtak "555": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(13) = True Then: WarriorAtak "545": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(11) = True Then: WarriorAtak "535": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(9) = True Then: WarriorAtak "525": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(7) = True Then: WarriorAtak "515": Exit Function
If MobUzaklıK <= 100 And Form3.warlist.Selected(5) = True Then: WarriorAtak "505": Exit Function
If Form3.warlist.Selected(0) = True And MobUzaklıK <= 100 Then: StrokeAtak: Exit Function
End Function
Public Sub WarriorAtak(skillno As String)
On Error Resume Next
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skillno), 1, 6)
If düşmanID <> "FFFF" Then
Paket "3103" + skillid + "00" + KarakterID + düşmanID + "0D020600B7019BFF0000F0000F00"
End If
End Sub
Public Sub StrokeAtak()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & "001"), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + düşmanID + "0100010000000000000000000000"
End Sub
Function KarakterID()
KarakterID = Strings.Mid(AlignDWORD(LongOku(LongOku(KO_PTR_CHR) + KO_OFF_ID)), 1, 4)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ASAS ATAK''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function AsasAtak()
If ThrustTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(8) = True Then ThrustTime = 11: AsasSkill "635": Exit Function
If BeastTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(14) = True Then BeastTime = 41: AsasSkill "680": Exit Function
If StabTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(1) = True Then StabTime = 6: AsasSkill "005": Exit Function
If PierceTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(5) = True Then PierceTime = 11: AsasSkill "615": Exit Function
If CriticalTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(15) = True Then CriticalTime = 61: AsasCritic "685": Exit Function
If BlindingTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(13) = True Then BlindingTime = 61: AsasSkill "675": Exit Function
If BloodyTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(12) = True Then BloodyTime = 6: AsasSkill "670": Exit Function
If SpikeTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(11) = True Then SpikeTime = 12: AsasSkill "655": Exit Function
If Stab2Time <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(2) = True Then Stab2Time = 6: AsasSkill "006": Exit Function
If JabTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(3) = True Then JabTime = 6: AsasSkill "600": Exit Function
If ShockTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(6) = True Then ShockTime = 6: AsasSkill "620": Exit Function
If CutTime <= 0 And MobUzaklıK <= 100 And Form3.lstAsas.Selected(9) = True Then CutTime = 6: AsasSkill "640": Exit Function
If Form3.lstAsas.Selected(0) = True And MobUzaklıK <= 100 Then StrokeAtak: Exit Function
End Function
Public Function AsasSkill(skillno As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skillno), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + düşmanID
End Function
Public Function AsasCritic(skillno As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skillno), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "0D020600B7019BFF0000F0000F00"
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'OKÇU ATAK'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function OkçuAtak()
If FireArrowTime <= 0 Then If Form3.lstokcu.Selected(3) = True Then FireArrowTime = 4: firearrow: Exit Function
If PoisonArrowTime <= 0 Then If Form3.lstokcu.Selected(4) = True Then PoisonArrowTime = 5: poisonarrow: Exit Function
If FireShotTime <= 0 Then If Form3.lstokcu.Selected(7) = True Then FireShotTime = 5: fireshot: Exit Function
If PoisonShotTime <= 0 Then If Form3.lstokcu.Selected(8) = True Then PoisonShotTime = 5: poisonshot: Exit Function
If ExplosiveShotTime <= 0 Then If Form3.lstokcu.Selected(10) = True Then ExplosiveShotTime = 5: explosiveshot: Exit Function
If ViperTime <= 0 Then If Form3.lstokcu.Selected(11) = True Then ViperTime = 5: viper: Exit Function
If CounterStrikeTime <= 0 Then If Form3.lstokcu.Selected(12) = True Then CounterStrikeTime = 61: counterstrike: Exit Function
If IceShotTime <= 0 Then If Form3.lstokcu.Selected(15) = True Then IceShotTime = 7: iceshot: Exit Function
If LightingShotTime <= 0 Then If Form3.lstokcu.Selected(16) = True Then LightingShotTime = 7: lightningshot: Exit Function
If BlindingStrafeTime <= 0 Then If Form3.lstokcu.Selected(19) = True Then BlindingStrafeTime = 61: blindingstrafe: Exit Function
If PowerShotTime <= 0 Then If Form3.lstokcu.Selected(20) = True Then PowerShotTime = 61: powershot: Exit Function
If Form3.lstokcu.Selected(0) = True Then archery: Exit Function
If Form3.lstokcu.Selected(1) = True Then archery2: Exit Function
If Form3.lstokcu.Selected(2) = True Then throughshot: Exit Function
If Form3.lstokcu.Selected(5) = True Then guidedarrow: Exit Function
If Form3.lstokcu.Selected(6) = True Then perfectshot: Exit Function
If Form3.lstokcu.Selected(9) = True Then arcshot: Exit Function
If Form3.lstokcu.Selected(13) = True Then shadowshot: Exit Function
If Form3.lstokcu.Selected(14) = True Then shadowhunter: Exit Function
If Form3.lstokcu.Selected(17) = True Then darkpursuer: Exit Function
If Form3.lstokcu.Selected(18) = True Then blowarrow: Exit Function
End Function
Public Function magetekilatak(skill As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skill), 1, 6)
Paket "3101" & skillid & "00" & KarakterID & düşmanID & "0000000000000000000000000A00"
Pause 0.8
Paket "3103" & skillid & "00" & KarakterID & düşmanID & KarakterX & KarakterY & KarakterZ & "000000000000"
End Function
Public Function castNova(skill As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skill), 1, 6)
Paket "3101" & skillid & "00" & KarakterID & "FFFF" & Mid(AlignDWORD(DüşmanX), 1, 4) & "0400" & Mid(AlignDWORD(DüşmanY), 1, 4) & "0000000000000F00"
Pause 0.8
Paket "3103" & skillid & "00" & KarakterID & "FFFF" & Mid(AlignDWORD(DüşmanX), 1, 4) & "0400" & Mid(AlignDWORD(DüşmanY), 1, 4) & "000000000000"
End Function
Public Function castNovaMouse(skill As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skill), 1, 6)
Paket "3101" & skillid & "00" & KarakterID & "FFFF" & Mid(AlignDWORD(MouseX), 1, 4) & "0400" & Mid(AlignDWORD(MouseY), 1, 4) & "0000000000000F00"
Pause 0.8
Paket "3103" & skillid & "00" & KarakterID & "FFFF" & Mid(AlignDWORD(MouseX), 1, 4) & "0400" & Mid(AlignDWORD(MouseY), 1, 4) & "000000000000"
End Function
Public Function magestaff(skill As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skill), 1, 6)
Paket "3103" & skillid & "00" & KarakterID & düşmanID & "0D020600B7019BFF0000F0000F00"
End Function
Function Mage33At(skillno As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skillno), 1, 6)
Paket "3101" + skillid + "00" + KarakterID + "FFFF" + Strings.Mid(AlignDWORD(DüşmanX), 1, 4) + Strings.Mid(AlignDWORD(DüşmanZ), 1, 4) + Strings.Mid(AlignDWORD(DüşmanY), 1, 4) + KarakterID + "0000000000000F00"
Pause 8
Paket "3102" + skillid + "00" + KarakterID + "FFFF" + Strings.Mid(AlignDWORD(DüşmanX), 1, 4) + Strings.Mid(AlignDWORD(DüşmanZ), 1, 4) + Strings.Mid(AlignDWORD(DüşmanY), 1, 4) + "000000000000"
Pause 1
Paket "3103" + skillid + "00" + KarakterID + "FFFF" + Strings.Mid(AlignDWORD(DüşmanX), 1, 4) + Strings.Mid(AlignDWORD(DüşmanZ), 1, 4) + Strings.Mid(AlignDWORD(DüşmanY), 1, 4) + "0000000000000000"
Pause 1
Paket "3104" + skillid + "00" + KarakterID + "FFFF" + Strings.Mid(AlignDWORD(DüşmanX), 1, 4) + Strings.Mid(AlignDWORD(DüşmanZ), 1, 4) + Strings.Mid(AlignDWORD(DüşmanY), 1, 4) + "9BFF000000000000"
End Function
Function MageGate()
Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "015"), 1, 6) + "00" + KarakterID + KarakterID + KarakterID + "0000000000000000000000000F00"
Pause 0.8
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "015"), 1, 6) + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Function
Function mage33ler()
If flametime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.mage33.Selected(0) = True Then flametime = 2.6: castNova "533": Exit Function
If glastime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.mage33.Selected(1) = True Then glastime = 2.6: castNova "633": Exit Function
If lrtime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.mage33.Selected(2) = True Then lrtime = 2.6: castNova "733": Exit Function

If flametime <= 0 And Form3.Check65.Value = 1 And Form3.mage33.Selected(0) = True Then flametime = 2.6: castNovaMouse "533": Exit Function
If glastime <= 0 And Form3.Check65.Value = 1 And Form3.mage33.Selected(1) = True Then glastime = 2.6: castNovaMouse "633": Exit Function
If lrtime <= 0 And Form3.Check65.Value = 1 And Form3.mage33.Selected(2) = True Then lrtime = 2.6: castNovaMouse "733": Exit Function

End Function
Function MageAtakVur()
'Alan
If icestormtime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(7) = True Then icestormtime = 17: castNova "671": Exit Function
If meteortime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(6) = True Then meteortime = 17: castNova "571": Exit Function
If chatime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(8) = True Then chatime = 17: castNova "771": Exit Function
If frosttime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(1) = True Then frosttime = 17: castNova "660": Exit Function
If novatime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(0) = True Then novatime = 17: castNova "560": Exit Function
If statime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(2) = True Then statime = 17: castNova "760": Exit Function
If blitime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(4) = True Then blitime = 17: castNova "645": Exit Function
If infernotime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(3) = True Then infernotime = 17: castNova "545": Exit Function
If thutime <= 0 And MobUzaklıK <= 100 And Form3.Check65.Value = 0 And Form3.magealan.Selected(5) = True Then thutime = 17: castNova "745": Exit Function

If icestormtime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(7) = True Then icestormtime = 17: castNovaMouse "671": Exit Function
If meteortime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(6) = True Then meteortime = 17: castNovaMouse "571": Exit Function
If chatime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(8) = True Then chatime = 17: castNovaMouse "771": Exit Function
If frosttime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(1) = True Then frosttime = 17: castNovaMouse "660": Exit Function
If novatime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(0) = True Then novatime = 17: castNovaMouse "560": Exit Function
If statime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(2) = True Then statime = 17: castNovaMouse "760": Exit Function
If blitime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(4) = True Then blitime = 17: castNovaMouse "645": Exit Function
If infernotime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(3) = True Then infernotime = 17: castNovaMouse "545": Exit Function
If thutime <= 0 And Form3.Check65.Value = 1 And Form3.magealan.Selected(5) = True Then thutime = 17: castNovaMouse "745": Exit Function


'Zamanlılar
If Igzination <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(14) = True Then Igzination = 23: magetekilatak "575": Exit Function
If VampiricFire <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(13) = True Then VampiricFire = 61: magetekilatak "574": Exit Function
If FreezingDistance <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(28) = True Then FreezingDistance = 61: magetekilatak "674": Exit Function
If Prismatic <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(27) = True Then Prismatic = 22: magetekilatak "670": Exit Function
If StunCloud <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(41) = True Then StunCloud = 22: magetekilatak "770": Exit Function
If Incineration <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(12) = True Then Incineration = 22: magetekilatak "570": Exit Function
If FireImpact <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(11) = True Then FireImpact = 21: magetekilatak "557": Exit Function
If IceImpact <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(26) = True Then IceImpact = 21: magetekilatak "657": Exit Function
If ThunderImpact <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(40) = True Then ThunderImpact = 21: magetekilatak "757": Exit Function
If FireThorn <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(9) = True Then FireThorn = 7: magetekilatak "554": Exit Function
If StaticThorn <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(38) = True Then StaticThorn = 7: magetekilatak "754": Exit Function
If PillarofFire <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(8) = True Then PillarofFire = 6: magetekilatak "554": Exit Function
If IceComet <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(24) = True Then IceComet = 6: magetekilatak "654": Exit Function
If StaticOrb <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(37) = True Then StaticOrb = 6: magetekilatak "754": Exit Function
If HellFire <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(6) = True Then HellFire = 6: magetekilatak "539": Exit Function
If Frostbite <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(22) = True Then Frostbite = 6: magetekilatak "639": Exit Function
If Discharge <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(35) = True Then Discharge = 6: magetekilatak "739": Exit Function
If FireBlast <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(5) = True Then FireBlast = 6: magetekilatak "535": Exit Function
If IceBlast <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(21) = True Then IceBlast = 6: magetekilatak "635": Exit Function
If ThunderBlast <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(42) = True Then ThunderBlast = 6: magetekilatak "735": Exit Function
If FireSpear <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(4) = True Then FireSpear = 6: magetekilatak "527": Exit Function
If IceOrb <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(20) = True Then IceOrb = 6: magetekilatak "627": Exit Function
If Thunder <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(34) = True Then Thunder = 6: magetekilatak "727": Exit Function
If FireBall <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(2) = True Then FireBall = 6: magetekilatak "515": Exit Function
If IceArrow <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(18) = True Then IceArrow = 6: magetekilatak "615": Exit Function
If Lightning <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(32) = True Then Lightning = 6: magetekilatak "715": Exit Function
If Blaze <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(1) = True Then Blaze = 6: magetekilatak "509": Exit Function
If Chill <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(17) = True Then Chill = 6: magetekilatak "609": Exit Function
If CounterSpell <= 0 And MobUzaklıK <= 100 And Form3.magetekil.Selected(31) = True Then CounterSpell = 6: magetekilatak "709": Exit Function
If Spark <= 0 And MobUzaklıK <= 100 And Form3.List1.Selected(4) = True Then Spark = 5: magetekilatak "009": Exit Function
If ColdWave <= 0 And MobUzaklıK <= 100 And Form3.List1.Selected(3) = True Then ColdWave = 5: magetekilatak "007": Exit Function
If Flame <= 0 And MobUzaklıK <= 100 And Form3.List1.Selected(2) = True Then Flame = 5: magetekilatak "005": Exit Function
If Shiver <= 0 And MobUzaklıK <= 100 And Form3.List1.Selected(1) = True Then Shiver = 5: magetekilatak "003": Exit Function
If Flash <= 0 And MobUzaklıK <= 100 And Form3.List1.Selected(0) = True Then Flash = 5: magetekilatak "001": Exit Function
'stafflar
If MobUzaklıK <= 100 And Form3.magestaff.Selected(0) = True Then magestaff "542": Exit Function
If MobUzaklıK <= 100 And Form3.magestaff.Selected(1) = True Then magestaff "642": Exit Function
If MobUzaklıK <= 100 And Form3.magestaff.Selected(2) = True Then magestaff "742": Exit Function
If MobUzaklıK <= 100 And Form3.magestaff.Selected(3) = True Then magestaff "572": Exit Function
If MobUzaklıK <= 100 And Form3.magestaff.Selected(4) = True Then magestaff "672": Exit Function
If MobUzaklıK <= 100 And Form3.magestaff.Selected(5) = True Then magestaff "772": Exit Function
'seriler
If MobUzaklıK <= 100 And Form3.magetekil.Selected(10) = True Then magetekilatak "556": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(25) = True Then magetekilatak "656": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(39) = True Then magetekilatak "756": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(7) = True Then magetekilatak "543": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(23) = True Then magetekilatak "643": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(36) = True Then magetekilatak "743": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(3) = True Then magetekilatak "518": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(19) = True Then magetekilatak "618": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(33) = True Then magetekilatak "718": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(0) = True Then magetekilatak "503": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(16) = True Then magetekilatak "603": Exit Function
If MobUzaklıK <= 100 And Form3.magetekil.Selected(30) = True Then magetekilatak "703": Exit Function
End Function
Public Function AbsolutePower()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "802"), 1, 6) + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Function

Function PriestAtak(skillno As String)
skillid = Strings.Mid(AlignDWORD(SınıfBul & skillno), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + düşmanID + "0D020600B7019BFF0000F0000F00"
End Function
Function PriestAtakVur()
If HellishTime <= 0 And MobUzaklıK <= 100 And Form3.prilist.Selected(4) = True Then HellishTime = 3: PriestAtak "10": Exit Function
If CollapseTime <= 0 And MobUzaklıK <= 100 And Form3.prilist.Selected(8) = True Then CollapseTime = 3: PriestAtak "11": Exit Function
If HadesTime <= 0 And MobUzaklıK <= 100 And Form3.prilist.Selected(12) = True Then HadesTime = 3: PriestAtak "12": Exit Function
If RuinTime <= 0 And MobUzaklıK <= 100 And Form3.prilist.Selected(3) = True Then RuinTime = 2: PriestAtak "7": Exit Function
If HarshTime <= 0 And MobUzaklıK <= 100 And Form3.prilist.Selected(7) = True Then HarshTime = 2: PriestAtak "8": Exit Function
If RavingTime <= 0 And MobUzaklıK <= 100 And Form3.prilist.Selected(11) = True Then RavingTime = 2: PriestAtak "9": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(1) = True Then PriestAtak "511": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(2) = True Then PriestAtak "611": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(3) = True Then PriestAtak "712": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(4) = True Then PriestAtak "520": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(5) = True Then PriestAtak "620": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(6) = True Then PriestAtak "721": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(13) = True Then PriestAtak "802": Exit Function
If MobUzaklıK <= 100 And Form3.prilist.Selected(14) = True Then PriestAtak "815": Exit Function
If Form3.prilist.Selected(0) = True And MobUzaklıK <= 100 Then StrokeAtak: Exit Function
End Function
Public Sub PriestKitap()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & "020"), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub
Public Sub Blasting()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & "529"), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub
Public Sub Wildness()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & "629"), 1, 6)
Paket "3103" + skillid + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub
Public Sub Malice()
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & "703"), 1, 6)
Paket "3101" + skillid + "00" + KarakterID + düşmanID + "000000000000000000000000"
Pause 0.8
Paket "3103" + skillid + "00" + KarakterID + düşmanID + "000000000000000000000000"
End Sub
Public Sub kendinebuFf(skillno As String)
Dim skillid As String
skillid = Strings.Mid(AlignDWORD(SınıfBul & skillno), 1, 6)
Paket "3101" + skillid + "00" + KarakterID + KarakterID + KarakterID + "000000000000000000000000"
Pause 1.2
Paket "3103" + skillid + "00" + KarakterID + KarakterID + KarakterID + "000000000000000000000000"
End Sub
Public Function Kendineacat()
If Form3.Combo5.Text = "insens. skin" Then kendinebuFf "603": Exit Function
If Form3.Combo5.Text = "insens. Shell" Then kendinebuFf "612": Exit Function
If Form3.Combo5.Text = "insens. armor" Then kendinebuFf "621": Exit Function
If Form3.Combo5.Text = "insens. shield" Then kendinebuFf "630": Exit Function
If Form3.Combo5.Text = "insens. barrier" Then kendinebuFf "639": Exit Function
If Form3.Combo5.Text = "insens. protect" Then kendinebuFf "651": Exit Function
If Form3.Combo5.Text = "insens. peel" Then kendinebuFf "660": Exit Function
If Form3.Combo5.Text = "Round insens." Then kendinebuFf "673": Exit Function
If Form3.Combo5.Text = "insens. guard" Then kendinebuFf "674": Exit Function
End Function
Public Function Kendinebuffat()
If Form3.Combo4.Text = "Grace" Then kendinebuFf "606": Exit Function
If Form3.Combo4.Text = "Brave" Then kendinebuFf "615": Exit Function
If Form3.Combo4.Text = "Strong" Then kendinebuFf "624": Exit Function
If Form3.Combo4.Text = "Hardness" Then kendinebuFf "633": Exit Function
If Form3.Combo4.Text = "Mightness" Then kendinebuFf "642": Exit Function
If Form3.Combo4.Text = "Undying" Then kendinebuFf "654": Exit Function
If Form3.Combo4.Text = "Heapness" Then kendinebuFf "655": Exit Function
If Form3.Combo4.Text = "Massiveness" Then kendinebuFf "657": Exit Function
If Form3.Combo4.Text = "impossingness" Then kendinebuFf "670": Exit Function
If Form3.Combo4.Text = "Superioris" Then kendinebuFf "675": Exit Function
End Function
Public Function Kendinefreshat()
If Form3.Combo7.Text = "Resist All" Then kendinebuFf "609": Exit Function
If Form3.Combo7.Text = "Bright mind" Then kendinebuFf "627": Exit Function
If Form3.Combo7.Text = "calm mind" Then kendinebuFf "636": Exit Function
If Form3.Combo7.Text = "fresh mind" Then kendinebuFf "645": Exit Function
End Function
Public Function Kendinehealat()
If Form3.Combo3.Text = "Healing" Then kendinebuFf "509": Exit Function
If Form3.Combo3.Text = "Major Healing" Then kendinebuFf "518": Exit Function
If Form3.Combo3.Text = "Great Healing" Then kendinebuFf "527": Exit Function
If Form3.Combo3.Text = "Massive Healing" Then kendinebuFf "536": Exit Function
If Form3.Combo3.Text = "Superior Healing" Then kendinebuFf "545": Exit Function
End Function

Function düşmanID()
düşmanID = Strings.Mid(AlignDWORD(LongOku(LongOku(KO_PTR_CHR) + KO_OFF_MOB)), 1, 4)
End Function
Sub archery()
Paket "3101" + AlignDWORD(SınıfBul & "003") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "003") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "003") + KarakterID + düşmanID
End Sub
Sub archery2()
Paket "3101" + AlignDWORD(SınıfBul & "007") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "007") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "007") + KarakterID + düşmanID
End Sub
Sub throughshot()
Paket "3101" + AlignDWORD(SınıfBul & "500") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "500") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "500") + KarakterID + düşmanID
End Sub
Sub firearrow()
Paket "3101" + AlignDWORD(SınıfBul & "505") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "505") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "505") + KarakterID + düşmanID
End Sub
Sub poisonarrow()
Paket "3101" + AlignDWORD(SınıfBul & "510") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "510") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "510") + KarakterID + düşmanID
End Sub
Sub guidedarrow()
Paket "3101" + AlignDWORD(SınıfBul & "520") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "520") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "520") + KarakterID + düşmanID
End Sub
Sub perfectshot()
Paket "3101" + AlignDWORD(SınıfBul & "525") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "525") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "525") + KarakterID + düşmanID
End Sub
Sub fireshot()
Paket "3101" + AlignDWORD(SınıfBul & "530") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "530") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "530") + KarakterID + düşmanID
End Sub
Sub poisonshot()
Paket "3101" + AlignDWORD(SınıfBul & "535") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "535") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "535") + KarakterID + düşmanID
End Sub
Sub arcshot()
Paket "3101" + AlignDWORD(SınıfBul & "540") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "540") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "540") + KarakterID + düşmanID
End Sub
Sub explosiveshot()
Paket "3101" + AlignDWORD(SınıfBul & "545") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "545") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "545") + KarakterID + düşmanID
End Sub
Sub viper()
Paket "3101" + AlignDWORD(SınıfBul & "550") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "550") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "550") + KarakterID + düşmanID
End Sub
Sub counterstrike()
Paket "3101" + AlignDWORD(SınıfBul & "552") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "552") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "552") + KarakterID + düşmanID
End Sub
Sub shadowhunter()
Paket "3101" + AlignDWORD(SınıfBul & "557") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "557") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "557") + KarakterID + düşmanID
End Sub
Sub shadowshot()
Paket "3101" + AlignDWORD(SınıfBul & "560") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "560") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "560") + KarakterID + düşmanID
End Sub
Sub iceshot()
Paket "3101" + AlignDWORD(SınıfBul & "562") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "562") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "562") + KarakterID + düşmanID
End Sub
Sub lightningshot()
Paket "3101" + AlignDWORD(SınıfBul & "566") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "566") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "566") + KarakterID + düşmanID
End Sub
Sub darkpursuer()
Paket "3101" + AlignDWORD(SınıfBul & "570") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "570") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "570") + KarakterID + düşmanID
End Sub
Sub blowarrow()
Paket "3101" + AlignDWORD(SınıfBul & "575") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "575") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "575") + KarakterID + düşmanID
End Sub
Sub blindingstrafe()
Paket "3101" + AlignDWORD(SınıfBul & "580") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "580") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "580") + KarakterID + düşmanID
End Sub
Sub powershot()
Paket "3101" + AlignDWORD(SınıfBul & "585") + KarakterID + düşmanID
Pause 0.18
Paket "3102" + AlignDWORD(SınıfBul & "585") + KarakterID + düşmanID
Pause 0.18
Paket "3103" + AlignDWORD(SınıfBul & "585") + KarakterID + düşmanID
End Sub
Function DüşmanX()
DüşmanX = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H7C)
End Function

Function DüşmanY()
DüşmanY = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H84)
End Function
Function DüşmanZ()
DüşmanZ = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H80)
End Function
Form1 = 301, 73, 846, 523, C, -3, -17, 966, 647, C
Module1 = 253, 163, 1008, 612,
Priest = 50, 50, 939, 501, C
Skiller = 153, 113, 1042, 564, C
Tanımlamalar = 100, 100, 989, 551, C
Form2 = 0, 0, 873, 435, C, 200, 200, 1073, 635, C
liste = 200, 200, 1073, 635, C
frmList = 50, 50, 923, 485, C, 25, 25, 898, 460, C
Upgrade = 100, 100, 989, 551, C
bypass = 50, 50, 939, 501, C
Tedarik = 175, 175, 1064, 626, C, 75, 75, 964, 526, C
frmMaden = 162, 156, 1061, 621, C, 40, 40, 939, 641, C