Quote:
Originally Posted by marius1000
yeah the buffs sistem is fked up!!!
|
Try this:
[Only registered and activated users can see links. Click Here To Register...]
(buffer) its from VB and i didnt try it also i doubt it will work well (Extremely tired)
but give it a try if u want
Code:
Private Sub Buff1Timer_Timer()
SendKeys Label2.Caption
SendKeys Text1.Text
SendKeys Label2.Caption
SendKeys Text1.Text
Buff2Timer = True
Buff1Timer = False
End Sub
Private Sub Buff2Timer_Timer()
SendKeys Label2.Caption
SendKeys Text2.Text
SendKeys Label2.Caption
SendKeys Text2.Text
Buff3Timer = True
Buff2Timer = False
End Sub
Private Sub Buff3Timer_Timer()
SendKeys Label2.Caption
SendKeys Text3.Text
SendKeys Label2.Caption
SendKeys Text3.Text
Buff4Timer = True
Buff3Timer = False
End Sub
Private Sub Buff4Timer_Timer()
SendKeys Label2.Caption
SendKeys Text4.Text
SendKeys Label2.Caption
SendKeys Text4.Text
Buff1Timer = True
Buff4Timer = False
End Sub
Private Sub Command1_Click()
Command1.Visible = False
Slider1.Enabled = False
Form1.Height = 3705
End Sub
Private Sub Command2_Click()
Buff1Timer.Interval = Text5.Text
Buff1Timer = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub
Private Sub Command3_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Buff1Timer = False
Buff2Timer = False
Buff3Timer = False
Buff4Timer = False
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub slidertimer_Timer()
If Slider1.Value = "1" Then
Label2.Caption = "F1"
End If
If Slider1.Value = "2" Then
Label2.Caption = "F2"
End If
If Slider1.Value = "3" Then
Label2.Caption = "F3"
End If
If Slider1.Value = "4" Then
Label2.Caption = "F4"
End If
End Sub
edit: umm, no delay between using the buffs so only 1 buff will go on i think xD just use cheat engine search for "100" and change the delay between the timers
edit2: Im possibly the biggest noob in coding so dont trust the program to much :P