Today you are going to learn how to make a self reload spammer. There is not going to be any no name, there isn't any full screen spamming, just a one line of spamm that spams when ever you reload.
You will need the following:
Trainer Module 6
Mr.A's Record Engine Spam Module
Vb6
Some BHD pointers from IcameIsawIcheated
Some knowlege of VB
Ok, to start everything off. Find the game
- Code:
-
CurrentProcess = "Delta Force, V1.5.0.5"
and Define the variables
- Code:
-
Dim Pointer As Long
Dim Weapon As Long
Dim reload As Long
Dim wname As String
Dim Whatweapon As String
It doesn't matter how you want the on or off button, but the check needs to be in a timer. probaly some what around a interval of 100 will be good.
For the timer, this will be the important part. Lets set what our variables will be
- Code:
-
Pointer = ReadMemory(&HMYBASE, 4)
Weapon = ReadMemory(Pointer + 376, 4)
wname = ReadText(Pointer + 200)
So now we set the Pointer variable to Mybase, weapon variable to pointer + 376 wname to pointer + 200
Now, we can just spam "Your name" is reloading his weapon, or we can also add what weapon it is. Thats why we have a weapon variable and whatweapon variable. The whatweapon variable is going to be used to store the weapon name, the weapon variable is going to be used to get the weapon number.
- Code:
-
Select Case Weapon
Case "1"
Whatweapon = "Knife"
Case "2"
Whatweapon = "Colt"
Case "3"
Whatweapon = "Berreta"
Case "4"
Whatweapon = "Shotgun"
.......
End Select
More Numbers can be get from icameisawicheated's list of pointer and offset.
So now, when you take out your weapon knife for example, your weapon number is going to be 1, when is 1, the word "Knife" is going to be saved into the whatweapon variable, so we know your weapon.
Now, is the part where we check and spams it. There are 2 ways of doing it, check to see if you are reloading by reading from &HMYBASE + 515 and see if the value <> 255 That is how we should do it, however, it is a bit glitchy. There is another way of doing it, checking if the R key is pressed and if the ammo is out, by using
- Code:
-
If GetKeyPress(vbKeyR) Or reload = 0 Then
but then you need to dim reload as long and let reload read from the Current ammo value.
Both Way works, find out which way works best for you. After it is found out that the person is reloading, you need to spam it. so
- Code:
-
Call SendChat("<cFF0000>" + wname + " is reloading his weapon! "(" & Whatweapon & ")", &H9)
That is using the sendchat founction to spam in red that "your name" is reloading his weapon! ("weapon") in debug. wname is already define at the start.
So now, when it is found out that you are reloading, it will spam that you are reloading your weapon and what weapon it is.
And that conclude this tutorial, have a nice day.