SetParam("use_window", "1")
SetParam("window", "GTA:SA:MP")
SetBatchLines, -1
SetWorkingDir %A_ScriptDir%
#IfWinActive, GTA:SA:MP
#UseHook, On
#SingleInstance, Force
#Persistent
#NoEnv
#NoTrayIcon
global ERROR_OK                        := 0
global ERROR_PROCESS_NOT_FOUND         := 1
global ERROR_OPEN_PROCESS              := 2
global ERROR_INVALID_HANDLE            := 3
global ERROR_MODULE_NOT_FOUND          := 4
global ERROR_ENUM_PROCESS_MODULES      := 5
global ERROR_ZONE_NOT_FOUND            := 6
global ERROR_CITY_NOT_FOUND            := 7
global ERROR_READ_MEMORY               := 8
global ERROR_WRITE_MEMORY              := 9
global ERROR_ALLOC_MEMORY              := 10
global ERROR_FREE_MEMORY               := 11
global ERROR_WAIT_FOR_OBJECT           := 12
global ERROR_CREATE_THREAD             := 13
global ADDR_ZONECODE                   := 0xA49AD4
global ADDR_POSITION_X                 := 0xB6F2E4
global ADDR_POSITION_Y                 := 0xB6F2E8
global ADDR_POSITION_Z                 := 0xB6F2EC
global ADDR_CPED_PTR                   := 0xB6F5F0
global ADDR_CPED_HPOFF                 := 0x540
global ADDR_CPED_ARMOROFF              := 0x548
global ADDR_VEHICLE_PTR                := 0xBA18FC
global ADDR_VEHICLE_HPOFF              := 0x4C0
global ADDR_CPED_MONEY                 := 0xB7CE50
global ADDR_CPED_INTID                 := 0xA4ACE8
global ADDR_VEHICLE_DOORSTATE          := 0x4F8
global ADDR_VEHICLE_ENGINESTATE        := 0x428
global ADDR_VEHICLE_LIGHTSTATE         := 0x584
global ADDR_VEHICLE_MODEL              := 0x22
global ADDR_VEHICLE_TYPE               := 0x590
global ADDR_VEHICLE_DRIVER             := 0x460
global ADDR_VEHICLE_CVEH := 0xB6F980
global ADDR_VEHICLE_SPEED_X := 0x44
global ADDR_VEHICLE_SPEED_Y := 0x48
global ADDR_VEHICLE_SPEED_Z := 0x4C
global oAirplaneModels                 := [417, 425, 447, 460, 469, 476, 487, 488, 497, 511, 512, 513, 519, 520, 548, 553, 563, 577, 592, 593]
global oBikeModels                     := [481,509,510]
global ovehicleNames                   := ["Landstalker","Bravura","Buffalo","Linerunner","Perrenial","Sentinel","Dumper","Firetruck","Trashmaster","Stretch","Manana","Infernus","Voodoo","Pony","Mule","Cheetah","Ambulance","Leviathan","Moonbeam","Esperanto","Taxi","Washington","Bobcat","Whoopee","BFInjection","Hunter","Premier","Enforcer","Securicar","Banshee","Predator","Bus","Rhino","Barracks","Hotknife","Trailer","Previon","Coach","Cabbie","Stallion","Rumpo","RCBandit","Romero","Packer","Monster","Admiral","Squalo","Seasparrow","Pizzaboy","Tram","Trailer","Turismo","Speeder","Reefer","Tropic","Flatbed","Yankee","Caddy","Solair","Berkley'sRCVan","Skimmer","PCJ-600","Faggio","Freeway","RCBaron","RCRaider","Glendale","Oceanic","Sanchez","Sparrow","Patriot","Quad","Coastguard","Dinghy","Hermes","Sabre","Rustler","ZR-350","Walton","Regina","Comet","BMX","Burrito","Camper","Marquis","Baggage","Dozer","Maverick","NewsChopper","Rancher","FBIRancher","Virgo","Greenwood","Jetmax","Hotring","Sandking","BlistaCompact","PoliceMaverick","Boxvillde","Benson","Mesa","RCGoblin","HotringRacerA","HotringRacerB","BloodringBanger","Rancher","SuperGT","Elegant","Journey","Bike","MountainBike","Beagle","Cropduster","Stunt","Tanker","Roadtrain","Nebula","Majestic","Buccaneer","Shamal","hydra","FCR-900","NRG-500","HPV1000","CementTruck","TowTruck","Fortune","Cadrona","FBITruck","Willard","Forklift","Tractor","Combine","Feltzer","Remington","Slamvan","Blade","Freight","Streak","Vortex","Vincent","Bullet","Clover","Sadler","Firetruck","Hustler","Intruder","Primo","Cargobob","Tampa","Sunrise","Merit","Utility","Nevada","Yosemite","Windsor","Monster","Monster","Uranus","Jester","Sultan","Stratum","Elegy","Raindance","RCTiger","Flash","Tahoma","Savanna","Bandito","FreightFlat","StreakCarriage","Kart","Mower","Dune","Sweeper","Broadway","Tornado","AT-400","DFT-30","Huntley","Stafford","BF-400","NewsVan","Tug","Trailer","Emperor","Wayfarer","Euros","Hotdog","Club","FreightBox","Trailer","Andromada","Dodo","RCCam","Launch","PoliceCar","PoliceCar","PoliceCar","PoliceRanger","Picador","S.W.A.T","Alpha","Phoenix","GlendaleShit","SadlerShit","Luggage","Luggage","Stairs","Boxville","Tiller","UtilityTrailer"]
global ADDR_SAMP_INCHAT_PTR            := 0x21A10C
global ADDR_SAMP_INCHAT_PTR_OFF        := 0x55
global ADDR_SAMP_USERNAME              := 0x219A6F
global ADDR_SAMP_CHATMSG_PTR           := 0x21A0E4
global ADDR_SAMP_SHOWDLG_PTR           := 0x21A0B8
global FUNC_SAMP_SENDCMD               := 0x65C60
global FUNC_SAMP_SENDSAY               := 0x57F0
global FUNC_SAMP_ADDTOCHATWND          := 0x64520
global FUNC_SAMP_SHOWGAMETEXT          := 0x9C2C0
global FUNC_SAMP_PLAYAUDIOSTR          := 0x62DA0
global FUNC_SAMP_STOPAUDIOSTR          := 0x629A0
global FUNC_SAMP_SHOWDIALOG            := 0x6B9C0
global FUNC_UPDATESCOREBOARD           := 0x8A10
global SAMP_INFO_OFFSET                     := 0x21A0F8
global SAMP_PPOOLS_OFFSET                   := 0x3CD
global SAMP_PPOOL_PLAYER_OFFSET             := 0x18
global SAMP_SLOCALPLAYERID_OFFSET           := 0x4
global SAMP_ISTRLEN_LOCALPLAYERNAME_OFFSET  := 0x1A
global SAMP_SZLOCALPLAYERNAME_OFFSET        := 0xA
global SAMP_PSZLOCALPLAYERNAME_OFFSET       := 0xA
global SAMP_PREMOTEPLAYER_OFFSET            := 0x2E
global SAMP_ISTRLENNAME___OFFSET            := 0x1C
global SAMP_SZPLAYERNAME_OFFSET             := 0xC
global SAMP_PSZPLAYERNAME_OFFSET            := 0xC
global SAMP_ILOCALPLAYERPING_OFFSET         := 0x26
global SAMP_ILOCALPLAYERSCORE_OFFSET        := 0x2A
global SAMP_IPING_OFFSET                    := 0x28
global SAMP_ISCORE_OFFSET                   := 0x24
global SAMP_ISNPC_OFFSET                    := 0x4
global SAMP_SZIP_OFFSET                     := 0x20
global SAMP_SZHOSTNAME_OFFSET               := 0x121
global SAMP_PLAYER_MAX                      := 1004
global SIZE_SAMP_CHATMSG               := 0xFC
global hGTA                            := 0x0
global dwGTAPID                        := 0x0
global dwSAMP                          := 0x0
global pMemory                         := 0x0
global pParam1                         := 0x0
global pParam2                         := 0x0
global pParam3                         := 0x0
global pParam4                         := 0x0
global pParam5                         := 0x0
global pInjectFunc                     := 0x0
global nZone                           := 1
global nCity                           := 1
global bInitZaC                        := 0
global iRefreshScoreboard              := 0
global oScoreboardData                 := ""
global iRefreshHandles                 := 0
global iUpdateTick                     := 2500
global bCheckSizeOnce                  := 1
isInChat() {
if(!checkHandles())
return -1
dwPtr := dwSAMP + ADDR_SAMP_INCHAT_PTR
dwAddress := readDWORD(hGTA, dwPtr) + ADDR_SAMP_INCHAT_PTR_OFF
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
dwInChat := readDWORD(hGTA, dwAddress)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
if(dwInChat > 0) {
return true
} else {
return false
}
}
getUsername() {
if(!checkHandles())
return ""
dwAddress := dwSAMP + ADDR_SAMP_USERNAME
sUsername := readString(hGTA, dwAddress, 25)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
ErrorLevel := ERROR_OK
return sUsername
}
getId() {
s:=getUsername()
return getPlayerIdByName(s)
}
sendChat(wText) {
wText := "" wText
if(!checkHandles())
return false
dwFunc:=0
if(SubStr(wText, 1, 1) == "/") {
dwFunc := dwSAMP + FUNC_SAMP_SENDCMD
} else {
dwFunc := dwSAMP + FUNC_SAMP_SENDSAY
}
callWithParams(hGTA, dwFunc, [["s", wText]], false)
ErrorLevel := ERROR_OK
return true
}
addChatMessage(wText) {
wText := "" wText
if(!checkHandles())
return false
dwFunc := dwSAMP + FUNC_SAMP_ADDTOCHATWND
dwChatInfo := readDWORD(hGTA, dwSAMP + ADDR_SAMP_CHATMSG_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return false
}
callWithParams(hGTA, dwFunc, [["p", dwChatInfo], ["s", wText]], true)
ErrorLevel := ERROR_OK
return true
}
showGameText(wText, dwTime, dwSize) {
wText := "" wText
dwTime += 0
dwTime := Floor(dwTime)
dwSize += 0
dwSize := Floor(dwSize)
if(!checkHandles())
return false
dwFunc := dwSAMP + FUNC_SAMP_SHOWGAMETEXT
callWithParams(hGTA, dwFunc, [["s", wText], ["i", dwTime], ["i", dwSize]], false)
ErrorLevel := ERROR_OK
return true
}
PlayerInput(text){
s := A_IsSuspended
Suspend On
KeyWait Enter
SendInput t^a{backspace}%text%
Input, var, v, {enter}
SendInput ^a{backspace 100}{enter}
Sleep, 20
if(!s)
Suspend Off
return var
}
showDialog(dwStyle, wCaption, wInfo, wButton1 ) {
dwStyle += 0
dwStyle := Floor(dwStyle)
wCaption := "" wCaption
wInfo := "" wInfo
wButton1 := "" wButton1
if(dwStyle<0 || dwStyle>5 || StrLen(wCaption)>=64 || StrLen(wInfo)>=4096 || StrLen(wButton1)>10)
return false
if(!checkHandles())
return false
dwFunc := dwSAMP + FUNC_SAMP_SHOWDIALOG
dwAddress := readDWORD(hGTA, dwSAMP + ADDR_SAMP_SHOWDLG_PTR)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return false
}
writeString(hGTA, pParam5, wCaption)
if(ErrorLevel)
return false
writeString(hGTA, pParam1, wInfo)
if(ErrorLevel)
return false
writeString(hGTA, pParam5+512, wButton1)
if(ErrorLevel)
return false
dwLen := 5 + 7*5 + 5 + 1
VarSetCapacity(injectData, dwLen, 0)
NumPut(0xB9, injectData, 0, "UChar")
NumPut(dwAddress, injectData, 1, "UInt")
NumPut(0x68, injectData, 5, "UChar")
NumPut(0, injectData, 6, "UInt")
NumPut(0x68, injectData, 10, "UChar")
NumPut(pParam5+StrLen(wCaption), injectData, 11, "UInt")
NumPut(0x68, injectData, 15, "UChar")
NumPut(pParam5+512, injectData, 16, "UInt")
NumPut(0x68, injectData, 20, "UChar")
NumPut(pParam1, injectData, 21, "UInt")
NumPut(0x68, injectData, 25, "UChar")
NumPut(pParam5, injectData, 26, "UInt")
NumPut(0x68, injectData, 30, "UChar")
NumPut(dwStyle, injectData, 31, "UInt")
NumPut(0x68, injectData, 35, "UChar")
NumPut(1, injectData, 36, "UInt")
NumPut(0xE8, injectData, 40, "UChar")
offset := dwFunc - (pInjectFunc + 45)
NumPut(offset, injectData, 41, "Int")
NumPut(0xC3, injectData, 45, "UChar")
writeRaw(hGTA, pInjectFunc, &injectData, dwLen)
if(ErrorLevel)
return false
hThread := createRemoteThread(hGTA, 0, 0, pInjectFunc, 0, 0, 0)
if(ErrorLevel)
return false
waitForSingleObject(hThread, 0xFFFFFFFF)
closeProcess(hThread)
return true
}
playAudioStream(wUrl) {
wUrl := "" wUrl
if(!checkHandles())
return false
dwFunc := dwSAMP + FUNC_SAMP_PLAYAUDIOSTR
patchRadio()
callWithParams(hGTA, dwFunc, [["s", wUrl], ["i", 0], ["i", 0], ["i", 0], ["i", 0], ["i", 0]], false)
unPatchRadio()
ErrorLevel := ERROR_OK
return true
}
stopAudioStream() {
if(!checkHandles())
return false
dwFunc := dwSAMP + FUNC_SAMP_STOPAUDIOSTR
patchRadio()
callWithParams(hGTA, dwFunc, [["i", 1]], false)
unPatchRadio()
ErrorLevel := ERROR_OK
return true
}
blockChatInput() {
if(!checkHandles())
return false
VarSetCapacity(nop, 2, 0)
dwFunc := dwSAMP + FUNC_SAMP_SENDSAY
NumPut(0x04C2,nop,0,"Short")
writeRaw(hGTA, dwFunc, &nop, 2)
dwFunc := dwSAMP + FUNC_SAMP_SENDCMD
writeRaw(hGTA, dwFunc, &nop, 2)
return true
}
unBlockChatInput() {
if(!checkHandles())
return false
VarSetCapacity(nop, 2, 0)
dwFunc := dwSAMP + FUNC_SAMP_SENDSAY
NumPut(0xA164,nop,0,"Short")
writeRaw(hGTA, dwFunc, &nop, 2)
dwFunc := dwSAMP + FUNC_SAMP_SENDCMD
writeRaw(hGTA, dwFunc, &nop, 2)
return true
}
patchRadio() {
if(!checkHandles())
return false
VarSetCapacity(nop, 4, 0)
NumPut(0x90909090,nop,0,"UInt")
dwFunc := dwSAMP + FUNC_SAMP_PLAYAUDIOSTR
writeRaw(hGTA, dwFunc, &nop, 4)
writeRaw(hGTA, dwFunc+4, &nop, 1)
dwFunc := dwSAMP + FUNC_SAMP_STOPAUDIOSTR
writeRaw(hGTA, dwFunc, &nop, 4)
writeRaw(hGTA, dwFunc+4, &nop, 1)
return true
}
unPatchRadio() {
if(!checkHandles())
return false
VarSetCapacity(old, 4, 0)
dwFunc := dwSAMP + FUNC_SAMP_PLAYAUDIOSTR
NumPut(0x74003980,old,0,"UInt")
writeRaw(hGTA, dwFunc, &old, 4)
NumPut(0x39,old,0,"UChar")
writeRaw(hGTA, dwFunc+4, &old, 1)
dwFunc := dwSAMP + FUNC_SAMP_STOPAUDIOSTR
NumPut(0x74003980,old,0,"UInt")
writeRaw(hGTA, dwFunc, &old, 4)
NumPut(0x09,old,0,"UChar")
writeRaw(hGTA, dwFunc+4, &old, 1)
return true
}
getPlayerNameById(dwId) {
dwId += 0
dwId := Floor(dwId)
if(dwId < 0 || dwId >= SAMP_PLAYER_MAX)
return ""
if(!updateOScoreboardData())
return ""
if(oScoreboardData[dwId])
return oScoreboardData[dwId].NAME
return ""
}
getPlayerIdByName(wName) {
wName := "" wName
if(StrLen(wName) < 1 || StrLen(wName) > 20)
return -1
if(!updateOScoreboardData())
return -1
For i, o in oScoreboardData
{
if(InStr(o.NAME,wName)==1)
return i
}
return -1
}
getPlayerScoreById(dwId) {
dwId += 0
dwId := Floor(dwId)
if(dwId < 0 || dwId >= SAMP_PLAYER_MAX)
return ""
if(!updateOScoreboardData())
return ""
if(oScoreboardData[dwId])
return oScoreboardData[dwId].SCORE
return ""
}
getPlayerPingById(dwId) {
dwId += 0
dwId := Floor(dwId)
if(dwId < 0 || dwId >= SAMP_PLAYER_MAX)
return -1
if(!updateOScoreboardData())
return -1
if(oScoreboardData[dwId])
return oScoreboardData[dwId].PING
return -1
}
isNPCById(dwId) {
dwId += 0
dwId := Floor(dwId)
if(dwId < 0 || dwId >= SAMP_PLAYER_MAX)
return -1
if(!updateOScoreboardData())
return -1
if(oScoreboardData[dwId])
return oScoreboardData[dwId].ISNPC
return -1
}
getIP() {
if(!checkHandles())
return ""
dwAddress := readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
ipaddr := readString(hGTA, dwAddress+SAMP_SZIP_OFFSET, 257)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
return ipaddr
}
getHostname() {
if(!checkHandles())
return ""
dwAddress := readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
hostname := readString(hGTA, dwAddress+SAMP_SZHOSTNAME_OFFSET, 259)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
return hostname
}
countOnlinePlayers() {
if(!updateOScoreboardData())
return 0
j := 0
For i, o in oScoreboardData
{
if(isNPCById(i)==0)
j += 1
}
return j
}
updateScoreboardDataEx() {
if(!checkHandles())
return false
dwAddress := readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return false
}
dwFunc := dwSAMP + FUNC_UPDATESCOREBOARD
VarSetCapacity(injectData, 11, 0)
NumPut(0xB9, injectData, 0, "UChar")
NumPut(dwAddress, injectData, 1, "UInt")
NumPut(0xE8, injectData, 5, "UChar")
offset := dwFunc - (pInjectFunc + 10)
NumPut(offset, injectData, 6, "Int")
NumPut(0xC3, injectData, 10, "UChar")
writeRaw(hGTA, pInjectFunc, &injectData, 11)
if(ErrorLevel)
return false
hThread := createRemoteThread(hGTA, 0, 0, pInjectFunc, 0, 0, 0)
if(ErrorLevel)
return false
waitForSingleObject(hThread, 0xFFFFFFFF)
closeProcess(hThread)
return true
}
updateOScoreboardData() {
if(!checkHandles())
return 0
if(iRefreshScoreboard+iUpdateTick > A_TickCount)
return 1
oScoreboardData := []
if(!updateScoreboardDataEx())
return 0
iRefreshScoreboard := A_TickCount
dwAddress := readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwAddress := readDWORD(hGTA, dwAddress + SAMP_PPOOLS_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwPlayers := readDWORD(hGTA, dwAddress + SAMP_PPOOL_PLAYER_OFFSET)
if(ErrorLevel || dwPlayers==0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
wID := readMem(hGTA, dwPlayers + SAMP_SLOCALPLAYERID_OFFSET, 2, "Short")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwPing := readMem(hGTA, dwPlayers + SAMP_ILOCALPLAYERPING_OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwScore := readMem(hGTA, dwPlayers + SAMP_ILOCALPLAYERSCORE_OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwTemp := readMem(hGTA, dwPlayers + SAMP_ISTRLEN_LOCALPLAYERNAME_OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
sUsername := ""
if(dwTemp <= 0xf) {
sUsername := readString(hGTA, dwPlayers + SAMP_SZLOCALPLAYERNAME_OFFSET, 16)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
}
else {
dwAddress := readDWORD(hGTA, dwPlayers + SAMP_PSZLOCALPLAYERNAME_OFFSET)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
sUsername := readString(hGTA, dwAddress, 25)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
}
oScoreboardData[wID] := Object("NAME", sUsername, "ID", wID, "PING", dwPing, "SCORE", dwScore, "ISNPC", 0)
Loop, % SAMP_PLAYER_MAX
{
i := A_Index-1
dwRemoteplayer := readDWORD(hGTA, dwPlayers+SAMP_PREMOTEPLAYER_OFFSET+i*4)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
if(dwRemoteplayer==0)
continue
dwPing := readMem(hGTA, dwRemoteplayer + SAMP_IPING_OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwScore := readMem(hGTA, dwRemoteplayer + SAMP_ISCORE_OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwIsNPC := readMem(hGTA, dwRemoteplayer + SAMP_ISNPC_OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
dwTemp := readMem(hGTA, dwRemoteplayer + SAMP_ISTRLENNAME___OFFSET, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
sUsername := ""
if(dwTemp <= 0xf)
{
sUsername := readString(hGTA, dwRemoteplayer+SAMP_SZPLAYERNAME_OFFSET, 16)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
}
else {
dwAddress := readDWORD(hGTA, dwRemoteplayer + SAMP_PSZPLAYERNAME_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
sUsername := readString(hGTA, dwAddress, 25)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
}
o := Object("NAME", sUsername, "ID", i, "PING", dwPing, "SCORE", dwScore, "ISNPC", dwIsNPC)
oScoreboardData[i] := o
}
ErrorLevel := ERROR_OK
return 1
}
getPlayerHealth() {
if(!checkHandles())
return -1
dwCPedPtr := readDWORD(hGTA, ADDR_CPED_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
dwAddr := dwCPedPtr + ADDR_CPED_HPOFF
fHealth := readFloat(hGTA, dwAddr)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return Round(fHealth)
}
getPlayerArmor() {
if(!checkHandles())
return -1
dwCPedPtr := readDWORD(hGTA, ADDR_CPED_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
dwAddr := dwCPedPtr + ADDR_CPED_ARMOROFF
fHealth := readFloat(hGTA, dwAddr)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return Round(fHealth)
}
getPlayerInteriorId() {
if(!checkHandles())
return -1
iid := readMem(hGTA, ADDR_CPED_INTID, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return iid
}
IsPlayerInAnyInterior() {
if(!checkHandles())
return -1
iid := readMem(hGTA, ADDR_CPED_INTID, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
if(iid == 0)
{
return false
}
else
{
return true
}
}
getPlayerMoney() {
if(!checkHandles())
return ""
money := readMem(hGTA, ADDR_CPED_MONEY, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
ErrorLevel := ERROR_OK
return money
}
getPlayerWanteds() {
if(!checkHandles())
return -1
dwPtr := 0xB7CD9C
dwPtr := readDWORD(hGTA, dwPtr)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
Wanteds := readDWORD(hGTA, dwPtr)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return Wanteds
}
isPlayerInAnyVehicle()
{
if(!checkHandles())
return -1
dwVehPtr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
return (dwVehPtr > 0)
}
isPlayerDriver() {
if(!checkHandles())
return -1
dwAddr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
if(!dwAddr)
return -1
dwCPedPtr := readDWORD(hGTA, ADDR_CPED_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
dwVal := readDWORD(hGTA, dwAddr + ADDR_VEHICLE_DRIVER)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return (dwVal==dwCPedPtr)
}
getVehicleHealth() {
if(!checkHandles())
return -1
dwVehPtr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
dwAddr := dwVehPtr + ADDR_VEHICLE_HPOFF
fHealth := readFloat(hGTA, dwAddr)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return Round(fHealth)
}
getVehicleType() {
if(!checkHandles())
return 0
dwAddr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
if(!dwAddr)
return 0
cVal := readMem(hGTA, dwAddr + ADDR_VEHICLE_TYPE, 1, "Char")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
if(!cVal)
{
mid := getVehicleModelId()
Loop % oAirplaneModels.MaxIndex()
{
if(oAirplaneModels[A_Index]==mid)
return 5
}
return 1
}
else if(cVal==5)
return 2
else if(cVal==6)
return 3
else if(cVal==9)
{
mid := getVehicleModelId()
Loop % oBikeModels.MaxIndex()
{
if(oBikeModels[A_Index]==mid)
return 6
}
return 4
}
return 0
}
getVehicleModelId() {
if(!checkHandles())
return 0
dwAddr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
if(!dwAddr)
return 0
sVal := readMem(hGTA, dwAddr + ADDR_VEHICLE_MODEL, 2, "Short")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return sVal
}
getVehicleModelName() {
id:=getVehicleModelId()
if(id>400 && id <611)
{
return ovehicleNames[id-399]
}
return ""
}
getVehicleLightState() {
if(!checkHandles())
return -1
dwAddr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
if(!dwAddr)
return -1
dwVal := readMem(hGTA, dwAddr + ADDR_VEHICLE_LIGHTSTATE, 4, "Int")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return (dwVal>0)
}
getVehicleEngineState() {
if(!checkHandles())
return -1
dwAddr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
if(!dwAddr)
return -1
cVal := readMem(hGTA, dwAddr + ADDR_VEHICLE_ENGINESTATE, 1, "Char")
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return (cVal==24 || cVal==56 || cVal==88 || cVal==120)
}
getVehicleLockState() {
if(!checkHandles())
return -1
dwAddr := readDWORD(hGTA, ADDR_VEHICLE_PTR)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
if(!dwAddr)
return -1
dwVal := readDWORD(hGTA, dwAddr + ADDR_VEHICLE_DOORSTATE)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
ErrorLevel := ERROR_OK
return (dwVal==2)
}
getCoordinates() {
if(!checkHandles())
return ""
fX := readFloat(hGTA, ADDR_POSITION_X)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
fY := readFloat(hGTA, ADDR_POSITION_Y)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
fZ := readFloat(hGTA, ADDR_POSITION_Z)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return ""
}
ErrorLevel := ERROR_OK
return [fX, fY, fZ]
}
calculateZone(posX, posY, posZ) {
posX += 0
posY += 0
posZ += 0
if ( !bInitZaC )
{
initZonesAndCities()
bInitZaC := 1
}
Loop % nZone-1
{
if (posX >= zone%A_Index%_x1) && (posY >= zone%A_Index%_y1) && (posZ >= zone%A_Index%_z1) && (posX <= zone%A_Index%_x2) && (posY <= zone%A_Index%_y2) && (posZ <= zone%A_Index%_z2)
{
ErrorLevel := ERROR_OK
return zone%A_Index%_name
}
}
ErrorLevel := ERROR_ZONE_NOT_FOUND
return ""
}
calculateCity(posX, posY, posZ) {
posX += 0
posY += 0
posZ += 0
if ( !bInitZaC )
{
initZonesAndCities()
bInitZaC := 1
}
smallestCity := ""
currentCitySize := 0
smallestCitySize := 0
Loop % nCity-1
{
if (posX >= city%A_Index%_x1) && (posY >= city%A_Index%_y1) && (posZ >= city%A_Index%_z1) && (posX <= city%A_Index%_x2) && (posY <= city%A_Index%_y2) && (posZ <= city%A_Index%_z2)
{
currentCitySize := ((city%A_Index%_x2 - city%A_Index%_x1) * (city%A_Index%_y2 - city%A_Index%_y1) * (city%A_Index%_z2 - city%A_Index%_z1))
if (!smallestCity) || (currentCitySize < smallestCitySize)
{
smallestCity := city%A_Index%_name
smallestCitySize := currentCitySize
}
}
}
if(!smallestCity) {
ErrorLevel := ERROR_CITY_NOT_FOUND
} else {
ErrorLevel := ERROR_OK
}
return smallestCity
}
initZonesAndCities() {
if(bInitZaC)
return
AddCity("Las Venturas", 685.0, 476.093, -500.0, 3000.0, 3000.0, 500.0)
AddCity("San Fierro", -3000.0, -742.306, -500.0, -1270.53, 1530.24, 500.0)
AddCity("San Fierro", -1270.53, -402.481, -500.0, -1038.45, 832.495, 500.0)
AddCity("San Fierro", -1038.45, -145.539, -500.0, -897.546, 376.632, 500.0)
AddCity("Los Santos", 480.0, -3000.0, -500.0, 3000.0, -850.0, 500.0)
AddCity("Los Santos", 80.0, -2101.61, -500.0, 1075.0, -1239.61, 500.0)
AddCity("Tierra Robada", -1213.91, 596.349, -242.99, -480.539, 1659.68, 900.0)
AddCity("Red County", -1213.91, -768.027, -242.99, 2997.06, 596.349, 900.0)
AddCity("Flint County", -1213.91, -2892.97, -242.99, 44.6147, -768.027, 900.0)
AddCity("Whetstone", -2997.47, -2892.97, -242.99, -1213.91, -1115.58, 900.0)
AddZone("Avispa Country Club", -2667.810, -302.135, -28.831, -2646.400, -262.320, 71.169)
AddZone("Easter Bay Airport", -1315.420, -405.388, 15.406, -1264.400, -209.543, 25.406)
AddZone("Avispa Country Club", -2550.040, -355.493, 0.000, -2470.040, -318.493, 39.700)
AddZone("Easter Bay Airport", -1490.330, -209.543, 15.406, -1264.400, -148.388, 25.406)
AddZone("Garcia", -2395.140, -222.589, -5.3, -2354.090, -204.792, 200.000)
AddZone("Shady Cabin", -1632.830, -2263.440, -3.0, -1601.330, -2231.790, 200.000)
AddZone("East Los Santos", 2381.680, -1494.030, -89.084, 2421.030, -1454.350, 110.916)
AddZone("LVA Freight Depot", 1236.630, 1163.410, -89.084, 1277.050, 1203.280, 110.916)
AddZone("Blackfield Intersection", 1277.050, 1044.690, -89.084, 1315.350, 1087.630, 110.916)
AddZone("Avispa Country Club", -2470.040, -355.493, 0.000, -2270.040, -318.493, 46.100)
AddZone("Temple", 1252.330, -926.999, -89.084, 1357.000, -910.170, 110.916)
AddZone("Unity Station", 1692.620, -1971.800, -20.492, 1812.620, -1932.800, 79.508)
AddZone("LVA Freight Depot", 1315.350, 1044.690, -89.084, 1375.600, 1087.630, 110.916)
AddZone("Los Flores", 2581.730, -1454.350, -89.084, 2632.830, -1393.420, 110.916)
AddZone("Starfish Casino", 2437.390, 1858.100, -39.084, 2495.090, 1970.850, 60.916)
AddZone("Easter Bay Chemicals", -1132.820, -787.391, 0.000, -956.476, -768.027, 200.000)
AddZone("Downtown Los Santos", 1370.850, -1170.870, -89.084, 1463.900, -1130.850, 110.916)
AddZone("Esplanade East", -1620.300, 1176.520, -4.5, -1580.010, 1274.260, 200.000)
AddZone("Market Station", 787.461, -1410.930, -34.126, 866.009, -1310.210, 65.874)
AddZone("Linden Station", 2811.250, 1229.590, -39.594, 2861.250, 1407.590, 60.406)
AddZone("Montgomery Intersection", 1582.440, 347.457, 0.000, 1664.620, 401.750, 200.000)
AddZone("Frederick Bridge", 2759.250, 296.501, 0.000, 2774.250, 594.757, 200.000)
AddZone("Yellow Bell Station", 1377.480, 2600.430, -21.926, 1492.450, 2687.360, 78.074)
AddZone("Downtown Los Santos", 1507.510, -1385.210, 110.916, 1582.550, -1325.310, 335.916)
AddZone("Jefferson", 2185.330, -1210.740, -89.084, 2281.450, -1154.590, 110.916)
AddZone("Mulholland", 1318.130, -910.170, -89.084, 1357.000, -768.027, 110.916)
AddZone("Avispa Country Club", -2361.510, -417.199, 0.000, -2270.040, -355.493, 200.000)
AddZone("Jefferson", 1996.910, -1449.670, -89.084, 2056.860, -1350.720, 110.916)
AddZone("Julius Thruway West", 1236.630, 2142.860, -89.084, 1297.470, 2243.230, 110.916)
AddZone("Jefferson", 2124.660, -1494.030, -89.084, 2266.210, -1449.670, 110.916)
AddZone("Julius Thruway North", 1848.400, 2478.490, -89.084, 1938.800, 2553.490, 110.916)
AddZone("Rodeo", 422.680, -1570.200, -89.084, 466.223, -1406.050, 110.916)
AddZone("Cranberry Station", -2007.830, 56.306, 0.000, -1922.000, 224.782, 100.000)
AddZone("Downtown Los Santos", 1391.050, -1026.330, -89.084, 1463.900, -926.999, 110.916)
AddZone("Redsands West", 1704.590, 2243.230, -89.084, 1777.390, 2342.830, 110.916)
AddZone("Little Mexico", 1758.900, -1722.260, -89.084, 1812.620, -1577.590, 110.916)
AddZone("Blackfield Intersection", 1375.600, 823.228, -89.084, 1457.390, 919.447, 110.916)
AddZone("Los Santos International", 1974.630, -2394.330, -39.084, 2089.000, -2256.590, 60.916)
AddZone("Beacon Hill", -399.633, -1075.520, -1.489, -319.033, -977.516, 198.511)
AddZone("Rodeo", 334.503, -1501.950, -89.084, 422.680, -1406.050, 110.916)
AddZone("Richman", 225.165, -1369.620, -89.084, 334.503, -1292.070, 110.916)
AddZone("Downtown Los Santos", 1724.760, -1250.900, -89.084, 1812.620, -1150.870, 110.916)
AddZone("The Strip", 2027.400, 1703.230, -89.084, 2137.400, 1783.230, 110.916)
AddZone("Downtown Los Santos", 1378.330, -1130.850, -89.084, 1463.900, -1026.330, 110.916)
AddZone("Blackfield Intersection", 1197.390, 1044.690, -89.084, 1277.050, 1163.390, 110.916)
AddZone("Conference Center", 1073.220, -1842.270, -89.084, 1323.900, -1804.210, 110.916)
AddZone("Montgomery", 1451.400, 347.457, -6.1, 1582.440, 420.802, 200.000)
AddZone("Foster Valley", -2270.040, -430.276, -1.2, -2178.690, -324.114, 200.000)
AddZone("Blackfield Chapel", 1325.600, 596.349, -89.084, 1375.600, 795.010, 110.916)
AddZone("Los Santos International", 2051.630, -2597.260, -39.084, 2152.450, -2394.330, 60.916)
AddZone("Mulholland", 1096.470, -910.170, -89.084, 1169.130, -768.027, 110.916)
AddZone("Yellow Bell Gol Course", 1457.460, 2723.230, -89.084, 1534.560, 2863.230, 110.916)
AddZone("The Strip", 2027.400, 1783.230, -89.084, 2162.390, 1863.230, 110.916)
AddZone("Jefferson", 2056.860, -1210.740, -89.084, 2185.330, -1126.320, 110.916)
AddZone("Mulholland", 952.604, -937.184, -89.084, 1096.470, -860.619, 110.916)
AddZone("Aldea Malvada", -1372.140, 2498.520, 0.000, -1277.590, 2615.350, 200.000)
AddZone("Las Colinas", 2126.860, -1126.320, -89.084, 2185.330, -934.489, 110.916)
AddZone("Las Colinas", 1994.330, -1100.820, -89.084, 2056.860, -920.815, 110.916)
AddZone("Richman", 647.557, -954.662, -89.084, 768.694, -860.619, 110.916)
AddZone("LVA Freight Depot", 1277.050, 1087.630, -89.084, 1375.600, 1203.280, 110.916)
AddZone("Julius Thruway North", 1377.390, 2433.230, -89.084, 1534.560, 2507.230, 110.916)
AddZone("Willowfield", 2201.820, -2095.000, -89.084, 2324.000, -1989.900, 110.916)
AddZone("Julius Thruway North", 1704.590, 2342.830, -89.084, 1848.400, 2433.230, 110.916)
AddZone("Temple", 1252.330, -1130.850, -89.084, 1378.330, -1026.330, 110.916)
AddZone("Little Mexico", 1701.900, -1842.270, -89.084, 1812.620, -1722.260, 110.916)
AddZone("Queens", -2411.220, 373.539, 0.000, -2253.540, 458.411, 200.000)
AddZone("Las Venturas Airport", 1515.810, 1586.400, -12.500, 1729.950, 1714.560, 87.500)
AddZone("Richman", 225.165, -1292.070, -89.084, 466.223, -1235.070, 110.916)
AddZone("Temple", 1252.330, -1026.330, -89.084, 1391.050, -926.999, 110.916)
AddZone("East Los Santos", 2266.260, -1494.030, -89.084, 2381.680, -1372.040, 110.916)
AddZone("Julius Thruway East", 2623.180, 943.235, -89.084, 2749.900, 1055.960, 110.916)
AddZone("Willowfield", 2541.700, -1941.400, -89.084, 2703.580, -1852.870, 110.916)
AddZone("Las Colinas", 2056.860, -1126.320, -89.084, 2126.860, -920.815, 110.916)
AddZone("Julius Thruway East", 2625.160, 2202.760, -89.084, 2685.160, 2442.550, 110.916)
AddZone("Rodeo", 225.165, -1501.950, -89.084, 334.503, -1369.620, 110.916)
AddZone("Las Brujas", -365.167, 2123.010, -3.0, -208.570, 2217.680, 200.000)
AddZone("Julius Thruway East", 2536.430, 2442.550, -89.084, 2685.160, 2542.550, 110.916)
AddZone("Rodeo", 334.503, -1406.050, -89.084, 466.223, -1292.070, 110.916)
AddZone("Vinewood", 647.557, -1227.280, -89.084, 787.461, -1118.280, 110.916)
AddZone("Rodeo", 422.680, -1684.650, -89.084, 558.099, -1570.200, 110.916)
AddZone("Julius Thruway North", 2498.210, 2542.550, -89.084, 2685.160, 2626.550, 110.916)
AddZone("Downtown Los Santos", 1724.760, -1430.870, -89.084, 1812.620, -1250.900, 110.916)
AddZone("Rodeo", 225.165, -1684.650, -89.084, 312.803, -1501.950, 110.916)
AddZone("Jefferson", 2056.860, -1449.670, -89.084, 2266.210, -1372.040, 110.916)
AddZone("Hampton Barns", 603.035, 264.312, 0.000, 761.994, 366.572, 200.000)
AddZone("Temple", 1096.470, -1130.840, -89.084, 1252.330, -1026.330, 110.916)
AddZone("Kincaid Bridge", -1087.930, 855.370, -89.084, -961.950, 986.281, 110.916)
AddZone("Verona Beach", 1046.150, -1722.260, -89.084, 1161.520, -1577.590, 110.916)
AddZone("Commerce", 1323.900, -1722.260, -89.084, 1440.900, -1577.590, 110.916)
AddZone("Mulholland", 1357.000, -926.999, -89.084, 1463.900, -768.027, 110.916)
AddZone("Rodeo", 466.223, -1570.200, -89.084, 558.099, -1385.070, 110.916)
AddZone("Mulholland", 911.802, -860.619, -89.084, 1096.470, -768.027, 110.916)
AddZone("Mulholland", 768.694, -954.662, -89.084, 952.604, -860.619, 110.916)
AddZone("Julius Thruway South", 2377.390, 788.894, -89.084, 2537.390, 897.901, 110.916)
AddZone("Idlewood", 1812.620, -1852.870, -89.084, 1971.660, -1742.310, 110.916)
AddZone("Ocean Docks", 2089.000, -2394.330, -89.084, 2201.820, -2235.840, 110.916)
AddZone("Commerce", 1370.850, -1577.590, -89.084, 1463.900, -1384.950, 110.916)
AddZone("Julius Thruway North", 2121.400, 2508.230, -89.084, 2237.400, 2663.170, 110.916)
AddZone("Temple", 1096.470, -1026.330, -89.084, 1252.330, -910.170, 110.916)
AddZone("Glen Park", 1812.620, -1449.670, -89.084, 1996.910, -1350.720, 110.916)
AddZone("Easter Bay Airport", -1242.980, -50.096, 0.000, -1213.910, 578.396, 200.000)
AddZone("Martin Bridge", -222.179, 293.324, 0.000, -122.126, 476.465, 200.000)
AddZone("The Strip", 2106.700, 1863.230, -89.084, 2162.390, 2202.760, 110.916)
AddZone("Willowfield", 2541.700, -2059.230, -89.084, 2703.580, -1941.400, 110.916)
AddZone("Marina", 807.922, -1577.590, -89.084, 926.922, -1416.250, 110.916)
AddZone("Las Venturas Airport", 1457.370, 1143.210, -89.084, 1777.400, 1203.280, 110.916)
AddZone("Idlewood", 1812.620, -1742.310, -89.084, 1951.660, -1602.310, 110.916)
AddZone("Esplanade East", -1580.010, 1025.980, -6.1, -1499.890, 1274.260, 200.000)
AddZone("Downtown Los Santos", 1370.850, -1384.950, -89.084, 1463.900, -1170.870, 110.916)
AddZone("The Mako Span", 1664.620, 401.750, 0.000, 1785.140, 567.203, 200.000)
AddZone("Rodeo", 312.803, -1684.650, -89.084, 422.680, -1501.950, 110.916)
AddZone("Pershing Square", 1440.900, -1722.260, -89.084, 1583.500, -1577.590, 110.916)
AddZone("Mulholland", 687.802, -860.619, -89.084, 911.802, -768.027, 110.916)
AddZone("Gant Bridge", -2741.070, 1490.470, -6.1, -2616.400, 1659.680, 200.000)
AddZone("Las Colinas", 2185.330, -1154.590, -89.084, 2281.450, -934.489, 110.916)
AddZone("Mulholland", 1169.130, -910.170, -89.084, 1318.130, -768.027, 110.916)
AddZone("Julius Thruway North", 1938.800, 2508.230, -89.084, 2121.400, 2624.230, 110.916)
AddZone("Commerce", 1667.960, -1577.590, -89.084, 1812.620, -1430.870, 110.916)
AddZone("Rodeo", 72.648, -1544.170, -89.084, 225.165, -1404.970, 110.916)
AddZone("Roca Escalante", 2536.430, 2202.760, -89.084, 2625.160, 2442.550, 110.916)
AddZone("Rodeo", 72.648, -1684.650, -89.084, 225.165, -1544.170, 110.916)
AddZone("Market", 952.663, -1310.210, -89.084, 1072.660, -1130.850, 110.916)
AddZone("Las Colinas", 2632.740, -1135.040, -89.084, 2747.740, -945.035, 110.916)
AddZone("Mulholland", 861.085, -674.885, -89.084, 1156.550, -600.896, 110.916)
AddZone("King's", -2253.540, 373.539, -9.1, -1993.280, 458.411, 200.000)
AddZone("Redsands East", 1848.400, 2342.830, -89.084, 2011.940, 2478.490, 110.916)
AddZone("Downtown", -1580.010, 744.267, -6.1, -1499.890, 1025.980, 200.000)
AddZone("Conference Center", 1046.150, -1804.210, -89.084, 1323.900, -1722.260, 110.916)
AddZone("Richman", 647.557, -1118.280, -89.084, 787.461, -954.662, 110.916)
AddZone("Ocean Flats", -2994.490, 277.411, -9.1, -2867.850, 458.411, 200.000)
AddZone("Greenglass College", 964.391, 930.890, -89.084, 1166.530, 1044.690, 110.916)
AddZone("Glen Park", 1812.620, -1100.820, -89.084, 1994.330, -973.380, 110.916)
AddZone("LVA Freight Depot", 1375.600, 919.447, -89.084, 1457.370, 1203.280, 110.916)
AddZone("Regular Tom", -405.770, 1712.860, -3.0, -276.719, 1892.750, 200.000)
AddZone("Verona Beach", 1161.520, -1722.260, -89.084, 1323.900, -1577.590, 110.916)
AddZone("East Los Santos", 2281.450, -1372.040, -89.084, 2381.680, -1135.040, 110.916)
AddZone("Caligula's Palace", 2137.400, 1703.230, -89.084, 2437.390, 1783.230, 110.916)
AddZone("Idlewood", 1951.660, -1742.310, -89.084, 2124.660, -1602.310, 110.916)
AddZone("Pilgrim", 2624.400, 1383.230, -89.084, 2685.160, 1783.230, 110.916)
AddZone("Idlewood", 2124.660, -1742.310, -89.084, 2222.560, -1494.030, 110.916)
AddZone("Queens", -2533.040, 458.411, 0.000, -2329.310, 578.396, 200.000)
AddZone("Downtown", -1871.720, 1176.420, -4.5, -1620.300, 1274.260, 200.000)
AddZone("Commerce", 1583.500, -1722.260, -89.084, 1758.900, -1577.590, 110.916)
AddZone("East Los Santos", 2381.680, -1454.350, -89.084, 2462.130, -1135.040, 110.916)
AddZone("Marina", 647.712, -1577.590, -89.084, 807.922, -1416.250, 110.916)
AddZone("Richman", 72.648, -1404.970, -89.084, 225.165, -1235.070, 110.916)
AddZone("Vinewood", 647.712, -1416.250, -89.084, 787.461, -1227.280, 110.916)
AddZone("East Los Santos", 2222.560, -1628.530, -89.084, 2421.030, -1494.030, 110.916)
AddZone("Rodeo", 558.099, -1684.650, -89.084, 647.522, -1384.930, 110.916)
AddZone("Easter Tunnel", -1709.710, -833.034, -1.5, -1446.010, -730.118, 200.000)
AddZone("Rodeo", 466.223, -1385.070, -89.084, 647.522, -1235.070, 110.916)
AddZone("Redsands East", 1817.390, 2202.760, -89.084, 2011.940, 2342.830, 110.916)
AddZone("The Clown's Pocket", 2162.390, 1783.230, -89.084, 2437.390, 1883.230, 110.916)
AddZone("Idlewood", 1971.660, -1852.870, -89.084, 2222.560, -1742.310, 110.916)
AddZone("Montgomery Intersection", 1546.650, 208.164, 0.000, 1745.830, 347.457, 200.000)
AddZone("Willowfield", 2089.000, -2235.840, -89.084, 2201.820, -1989.900, 110.916)
AddZone("Temple", 952.663, -1130.840, -89.084, 1096.470, -937.184, 110.916)
AddZone("Prickle Pine", 1848.400, 2553.490, -89.084, 1938.800, 2863.230, 110.916)
AddZone("Los Santos International", 1400.970, -2669.260, -39.084, 2189.820, -2597.260, 60.916)
AddZone("Garver Bridge", -1213.910, 950.022, -89.084, -1087.930, 1178.930, 110.916)
AddZone("Garver Bridge", -1339.890, 828.129, -89.084, -1213.910, 1057.040, 110.916)
AddZone("Kincaid Bridge", -1339.890, 599.218, -89.084, -1213.910, 828.129, 110.916)
AddZone("Kincaid Bridge", -1213.910, 721.111, -89.084, -1087.930, 950.022, 110.916)
AddZone("Verona Beach", 930.221, -2006.780, -89.084, 1073.220, -1804.210, 110.916)
AddZone("Verdant Bluffs", 1073.220, -2006.780, -89.084, 1249.620, -1842.270, 110.916)
AddZone("Vinewood", 787.461, -1130.840, -89.084, 952.604, -954.662, 110.916)
AddZone("Vinewood", 787.461, -1310.210, -89.084, 952.663, -1130.840, 110.916)
AddZone("Commerce", 1463.900, -1577.590, -89.084, 1667.960, -1430.870, 110.916)
AddZone("Market", 787.461, -1416.250, -89.084, 1072.660, -1310.210, 110.916)
AddZone("Rockshore West", 2377.390, 596.349, -89.084, 2537.390, 788.894, 110.916)
AddZone("Julius Thruway North", 2237.400, 2542.550, -89.084, 2498.210, 2663.170, 110.916)
AddZone("East Beach", 2632.830, -1668.130, -89.084, 2747.740, -1393.420, 110.916)
AddZone("Fallow Bridge", 434.341, 366.572, 0.000, 603.035, 555.680, 200.000)
AddZone("Willowfield", 2089.000, -1989.900, -89.084, 2324.000, -1852.870, 110.916)
AddZone("Chinatown", -2274.170, 578.396, -7.6, -2078.670, 744.170, 200.000)
AddZone("El Castillo del Diablo", -208.570, 2337.180, 0.000, 8.430, 2487.180, 200.000)
AddZone("Ocean Docks", 2324.000, -2145.100, -89.084, 2703.580, -2059.230, 110.916)
AddZone("Easter Bay Chemicals", -1132.820, -768.027, 0.000, -956.476, -578.118, 200.000)
AddZone("The Visage", 1817.390, 1703.230, -89.084, 2027.400, 1863.230, 110.916)
AddZone("Ocean Flats", -2994.490, -430.276, -1.2, -2831.890, -222.589, 200.000)
AddZone("Richman", 321.356, -860.619, -89.084, 687.802, -768.027, 110.916)
AddZone("Green Palms", 176.581, 1305.450, -3.0, 338.658, 1520.720, 200.000)
AddZone("Richman", 321.356, -768.027, -89.084, 700.794, -674.885, 110.916)
AddZone("Starfish Casino", 2162.390, 1883.230, -89.084, 2437.390, 2012.180, 110.916)
AddZone("East Beach", 2747.740, -1668.130, -89.084, 2959.350, -1498.620, 110.916)
AddZone("Jefferson", 2056.860, -1372.040, -89.084, 2281.450, -1210.740, 110.916)
AddZone("Downtown Los Santos", 1463.900, -1290.870, -89.084, 1724.760, -1150.870, 110.916)
AddZone("Downtown Los Santos", 1463.900, -1430.870, -89.084, 1724.760, -1290.870, 110.916)
AddZone("Garver Bridge", -1499.890, 696.442, -179.615, -1339.890, 925.353, 20.385)
AddZone("Julius Thruway South", 1457.390, 823.228, -89.084, 2377.390, 863.229, 110.916)
AddZone("East Los Santos", 2421.030, -1628.530, -89.084, 2632.830, -1454.350, 110.916)
AddZone("Greenglass College", 964.391, 1044.690, -89.084, 1197.390, 1203.220, 110.916)
AddZone("Las Colinas", 2747.740, -1120.040, -89.084, 2959.350, -945.035, 110.916)
AddZone("Mulholland", 737.573, -768.027, -89.084, 1142.290, -674.885, 110.916)
AddZone("Ocean Docks", 2201.820, -2730.880, -89.084, 2324.000, -2418.330, 110.916)
AddZone("East Los Santos", 2462.130, -1454.350, -89.084, 2581.730, -1135.040, 110.916)
AddZone("Ganton", 2222.560, -1722.330, -89.084, 2632.830, -1628.530, 110.916)
AddZone("Avispa Country Club", -2831.890, -430.276, -6.1, -2646.400, -222.589, 200.000)
AddZone("Willowfield", 1970.620, -2179.250, -89.084, 2089.000, -1852.870, 110.916)
AddZone("Esplanade North", -1982.320, 1274.260, -4.5, -1524.240, 1358.900, 200.000)
AddZone("The High Roller", 1817.390, 1283.230, -89.084, 2027.390, 1469.230, 110.916)
AddZone("Ocean Docks", 2201.820, -2418.330, -89.084, 2324.000, -2095.000, 110.916)
AddZone("Last Dime Motel", 1823.080, 596.349, -89.084, 1997.220, 823.228, 110.916)
AddZone("Bayside Marina", -2353.170, 2275.790, 0.000, -2153.170, 2475.790, 200.000)
AddZone("King's", -2329.310, 458.411, -7.6, -1993.280, 578.396, 200.000)
AddZone("El Corona", 1692.620, -2179.250, -89.084, 1812.620, -1842.270, 110.916)
AddZone("Blackfield Chapel", 1375.600, 596.349, -89.084, 1558.090, 823.228, 110.916)
AddZone("The Pink Swan", 1817.390, 1083.230, -89.084, 2027.390, 1283.230, 110.916)
AddZone("Julius Thruway West", 1197.390, 1163.390, -89.084, 1236.630, 2243.230, 110.916)
AddZone("Los Flores", 2581.730, -1393.420, -89.084, 2747.740, -1135.040, 110.916)
AddZone("The Visage", 1817.390, 1863.230, -89.084, 2106.700, 2011.830, 110.916)
AddZone("Prickle Pine", 1938.800, 2624.230, -89.084, 2121.400, 2861.550, 110.916)
AddZone("Verona Beach", 851.449, -1804.210, -89.084, 1046.150, -1577.590, 110.916)
AddZone("Robada Intersection", -1119.010, 1178.930, -89.084, -862.025, 1351.450, 110.916)
AddZone("Linden Side", 2749.900, 943.235, -89.084, 2923.390, 1198.990, 110.916)
AddZone("Ocean Docks", 2703.580, -2302.330, -89.084, 2959.350, -2126.900, 110.916)
AddZone("Willowfield", 2324.000, -2059.230, -89.084, 2541.700, -1852.870, 110.916)
AddZone("King's", -2411.220, 265.243, -9.1, -1993.280, 373.539, 200.000)
AddZone("Commerce", 1323.900, -1842.270, -89.084, 1701.900, -1722.260, 110.916)
AddZone("Mulholland", 1269.130, -768.027, -89.084, 1414.070, -452.425, 110.916)
AddZone("Marina", 647.712, -1804.210, -89.084, 851.449, -1577.590, 110.916)
AddZone("Battery Point", -2741.070, 1268.410, -4.5, -2533.040, 1490.470, 200.000)
AddZone("The Four Dragons Casino", 1817.390, 863.232, -89.084, 2027.390, 1083.230, 110.916)
AddZone("Blackfield", 964.391, 1203.220, -89.084, 1197.390, 1403.220, 110.916)
AddZone("Julius Thruway North", 1534.560, 2433.230, -89.084, 1848.400, 2583.230, 110.916)
AddZone("Yellow Bell Gol Course", 1117.400, 2723.230, -89.084, 1457.460, 2863.230, 110.916)
AddZone("Idlewood", 1812.620, -1602.310, -89.084, 2124.660, -1449.670, 110.916)
AddZone("Redsands West", 1297.470, 2142.860, -89.084, 1777.390, 2243.230, 110.916)
AddZone("Doherty", -2270.040, -324.114, -1.2, -1794.920, -222.589, 200.000)
AddZone("Hilltop Farm", 967.383, -450.390, -3.0, 1176.780, -217.900, 200.000)
AddZone("Las Barrancas", -926.130, 1398.730, -3.0, -719.234, 1634.690, 200.000)
AddZone("Pirates in Men's Pants", 1817.390, 1469.230, -89.084, 2027.400, 1703.230, 110.916)
AddZone("City Hall", -2867.850, 277.411, -9.1, -2593.440, 458.411, 200.000)
AddZone("Avispa Country Club", -2646.400, -355.493, 0.000, -2270.040, -222.589, 200.000)
AddZone("The Strip", 2027.400, 863.229, -89.084, 2087.390, 1703.230, 110.916)
AddZone("Hashbury", -2593.440, -222.589, -1.0, -2411.220, 54.722, 200.000)
AddZone("Los Santos International", 1852.000, -2394.330, -89.084, 2089.000, -2179.250, 110.916)
AddZone("Whitewood Estates", 1098.310, 1726.220, -89.084, 1197.390, 2243.230, 110.916)
AddZone("Sherman Reservoir", -789.737, 1659.680, -89.084, -599.505, 1929.410, 110.916)
AddZone("El Corona", 1812.620, -2179.250, -89.084, 1970.620, -1852.870, 110.916)
AddZone("Downtown", -1700.010, 744.267, -6.1, -1580.010, 1176.520, 200.000)
AddZone("Foster Valley", -2178.690, -1250.970, 0.000, -1794.920, -1115.580, 200.000)
AddZone("Las Payasadas", -354.332, 2580.360, 2.0, -133.625, 2816.820, 200.000)
AddZone("Valle Ocultado", -936.668, 2611.440, 2.0, -715.961, 2847.900, 200.000)
AddZone("Blackfield Intersection", 1166.530, 795.010, -89.084, 1375.600, 1044.690, 110.916)
AddZone("Ganton", 2222.560, -1852.870, -89.084, 2632.830, -1722.330, 110.916)
AddZone("Easter Bay Airport", -1213.910, -730.118, 0.000, -1132.820, -50.096, 200.000)
AddZone("Redsands East", 1817.390, 2011.830, -89.084, 2106.700, 2202.760, 110.916)
AddZone("Esplanade East", -1499.890, 578.396, -79.615, -1339.890, 1274.260, 20.385)
AddZone("Caligula's Palace", 2087.390, 1543.230, -89.084, 2437.390, 1703.230, 110.916)
AddZone("Royal Casino", 2087.390, 1383.230, -89.084, 2437.390, 1543.230, 110.916)
AddZone("Richman", 72.648, -1235.070, -89.084, 321.356, -1008.150, 110.916)
AddZone("Starfish Casino", 2437.390, 1783.230, -89.084, 2685.160, 2012.180, 110.916)
AddZone("Mulholland", 1281.130, -452.425, -89.084, 1641.130, -290.913, 110.916)
AddZone("Downtown", -1982.320, 744.170, -6.1, -1871.720, 1274.260, 200.000)
AddZone("Hankypanky Point", 2576.920, 62.158, 0.000, 2759.250, 385.503, 200.000)
AddZone("K.A.C.C. Military Fuels", 2498.210, 2626.550, -89.084, 2749.900, 2861.550, 110.916)
AddZone("Harry Gold Parkway", 1777.390, 863.232, -89.084, 1817.390, 2342.830, 110.916)
AddZone("Bayside Tunnel", -2290.190, 2548.290, -89.084, -1950.190, 2723.290, 110.916)
AddZone("Ocean Docks", 2324.000, -2302.330, -89.084, 2703.580, -2145.100, 110.916)
AddZone("Richman", 321.356, -1044.070, -89.084, 647.557, -860.619, 110.916)
AddZone("Randolph Industrial Estate", 1558.090, 596.349, -89.084, 1823.080, 823.235, 110.916)
AddZone("East Beach", 2632.830, -1852.870, -89.084, 2959.350, -1668.130, 110.916)
AddZone("Flint Water", -314.426, -753.874, -89.084, -106.339, -463.073, 110.916)
AddZone("Blueberry", 19.607, -404.136, 3.8, 349.607, -220.137, 200.000)
AddZone("Linden Station", 2749.900, 1198.990, -89.084, 2923.390, 1548.990, 110.916)
AddZone("Glen Park", 1812.620, -1350.720, -89.084, 2056.860, -1100.820, 110.916)
AddZone("Downtown", -1993.280, 265.243, -9.1, -1794.920, 578.396, 200.000)
AddZone("Redsands West", 1377.390, 2243.230, -89.084, 1704.590, 2433.230, 110.916)
AddZone("Richman", 321.356, -1235.070, -89.084, 647.522, -1044.070, 110.916)
AddZone("Gant Bridge", -2741.450, 1659.680, -6.1, -2616.400, 2175.150, 200.000)
AddZone("Lil' Probe Inn", -90.218, 1286.850, -3.0, 153.859, 1554.120, 200.000)
AddZone("Flint Intersection", -187.700, -1596.760, -89.084, 17.063, -1276.600, 110.916)
AddZone("Las Colinas", 2281.450, -1135.040, -89.084, 2632.740, -945.035, 110.916)
AddZone("Sobell Rail Yards", 2749.900, 1548.990, -89.084, 2923.390, 1937.250, 110.916)
AddZone("The Emerald Isle", 2011.940, 2202.760, -89.084, 2237.400, 2508.230, 110.916)
AddZone("El Castillo del Diablo", -208.570, 2123.010, -7.6, 114.033, 2337.180, 200.000)
AddZone("Santa Flora", -2741.070, 458.411, -7.6, -2533.040, 793.411, 200.000)
AddZone("Playa del Seville", 2703.580, -2126.900, -89.084, 2959.350, -1852.870, 110.916)
AddZone("Market", 926.922, -1577.590, -89.084, 1370.850, -1416.250, 110.916)
AddZone("Queens", -2593.440, 54.722, 0.000, -2411.220, 458.411, 200.000)
AddZone("Pilson Intersection", 1098.390, 2243.230, -89.084, 1377.390, 2507.230, 110.916)
AddZone("Spinybed", 2121.400, 2663.170, -89.084, 2498.210, 2861.550, 110.916)
AddZone("Pilgrim", 2437.390, 1383.230, -89.084, 2624.400, 1783.230, 110.916)
AddZone("Blackfield", 964.391, 1403.220, -89.084, 1197.390, 1726.220, 110.916)
AddZone("'The Big Ear'", -410.020, 1403.340, -3.0, -137.969, 1681.230, 200.000)
AddZone("Dillimore", 580.794, -674.885, -9.5, 861.085, -404.790, 200.000)
AddZone("El Quebrados", -1645.230, 2498.520, 0.000, -1372.140, 2777.850, 200.000)
AddZone("Esplanade North", -2533.040, 1358.900, -4.5, -1996.660, 1501.210, 200.000)
AddZone("Easter Bay Airport", -1499.890, -50.096, -1.0, -1242.980, 249.904, 200.000)
AddZone("Fisher's Lagoon", 1916.990, -233.323, -100.000, 2131.720, 13.800, 200.000)
AddZone("Mulholland", 1414.070, -768.027, -89.084, 1667.610, -452.425, 110.916)
AddZone("East Beach", 2747.740, -1498.620, -89.084, 2959.350, -1120.040, 110.916)
AddZone("San Andreas Sound", 2450.390, 385.503, -100.000, 2759.250, 562.349, 200.000)
AddZone("Shady Creeks", -2030.120, -2174.890, -6.1, -1820.640, -1771.660, 200.000)
AddZone("Market", 1072.660, -1416.250, -89.084, 1370.850, -1130.850, 110.916)
AddZone("Rockshore West", 1997.220, 596.349, -89.084, 2377.390, 823.228, 110.916)
AddZone("Prickle Pine", 1534.560, 2583.230, -89.084, 1848.400, 2863.230, 110.916)
AddZone("Easter Basin", -1794.920, -50.096, -1.04, -1499.890, 249.904, 200.000)
AddZone("Leafy Hollow", -1166.970, -1856.030, 0.000, -815.624, -1602.070, 200.000)
AddZone("LVA Freight Depot", 1457.390, 863.229, -89.084, 1777.400, 1143.210, 110.916)
AddZone("Prickle Pine", 1117.400, 2507.230, -89.084, 1534.560, 2723.230, 110.916)
AddZone("Blueberry", 104.534, -220.137, 2.3, 349.607, 152.236, 200.000)
AddZone("El Castillo del Diablo", -464.515, 2217.680, 0.000, -208.570, 2580.360, 200.000)
AddZone("Downtown", -2078.670, 578.396, -7.6, -1499.890, 744.267, 200.000)
AddZone("Rockshore East", 2537.390, 676.549, -89.084, 2902.350, 943.235, 110.916)
AddZone("San Fierro Bay", -2616.400, 1501.210, -3.0, -1996.660, 1659.680, 200.000)
AddZone("Paradiso", -2741.070, 793.411, -6.1, -2533.040, 1268.410, 200.000)
AddZone("The Camel's Toe", 2087.390, 1203.230, -89.084, 2640.400, 1383.230, 110.916)
AddZone("Old Venturas Strip", 2162.390, 2012.180, -89.084, 2685.160, 2202.760, 110.916)
AddZone("Juniper Hill", -2533.040, 578.396, -7.6, -2274.170, 968.369, 200.000)
AddZone("Juniper Hollow", -2533.040, 968.369, -6.1, -2274.170, 1358.900, 200.000)
AddZone("Roca Escalante", 2237.400, 2202.760, -89.084, 2536.430, 2542.550, 110.916)
AddZone("Julius Thruway East", 2685.160, 1055.960, -89.084, 2749.900, 2626.550, 110.916)
AddZone("Verona Beach", 647.712, -2173.290, -89.084, 930.221, -1804.210, 110.916)
AddZone("Foster Valley", -2178.690, -599.884, -1.2, -1794.920, -324.114, 200.000)
AddZone("Arco del Oeste", -901.129, 2221.860, 0.000, -592.090, 2571.970, 200.000)
AddZone("Fallen Tree", -792.254, -698.555, -5.3, -452.404, -380.043, 200.000)
AddZone("The Farm", -1209.670, -1317.100, 114.981, -908.161, -787.391, 251.981)
AddZone("The Sherman Dam", -968.772, 1929.410, -3.0, -481.126, 2155.260, 200.000)
AddZone("Esplanade North", -1996.660, 1358.900, -4.5, -1524.240, 1592.510, 200.000)
AddZone("Financial", -1871.720, 744.170, -6.1, -1701.300, 1176.420, 300.000)
AddZone("Garcia", -2411.220, -222.589, -1.14, -2173.040, 265.243, 200.000)
AddZone("Montgomery", 1119.510, 119.526, -3.0, 1451.400, 493.323, 200.000)
AddZone("Creek", 2749.900, 1937.250, -89.084, 2921.620, 2669.790, 110.916)
AddZone("Los Santos International", 1249.620, -2394.330, -89.084, 1852.000, -2179.250, 110.916)
AddZone("Santa Maria Beach", 72.648, -2173.290, -89.084, 342.648, -1684.650, 110.916)
AddZone("Mulholland Intersection", 1463.900, -1150.870, -89.084, 1812.620, -768.027, 110.916)
AddZone("Angel Pine", -2324.940, -2584.290, -6.1, -1964.220, -2212.110, 200.000)
AddZone("Verdant Meadows", 37.032, 2337.180, -3.0, 435.988, 2677.900, 200.000)
AddZone("Octane Springs", 338.658, 1228.510, 0.000, 664.308, 1655.050, 200.000)
AddZone("Come-A-Lot", 2087.390, 943.235, -89.084, 2623.180, 1203.230, 110.916)
AddZone("Redsands West", 1236.630, 1883.110, -89.084, 1777.390, 2142.860, 110.916)
AddZone("Santa Maria Beach", 342.648, -2173.290, -89.084, 647.712, -1684.650, 110.916)
AddZone("Verdant Bluffs", 1249.620, -2179.250, -89.084, 1692.620, -1842.270, 110.916)
AddZone("Las Venturas Airport", 1236.630, 1203.280, -89.084, 1457.370, 1883.110, 110.916)
AddZone("Flint Range", -594.191, -1648.550, 0.000, -187.700, -1276.600, 200.000)
AddZone("Verdant Bluffs", 930.221, -2488.420, -89.084, 1249.620, -2006.780, 110.916)
AddZone("Palomino Creek", 2160.220, -149.004, 0.000, 2576.920, 228.322, 200.000)
AddZone("Ocean Docks", 2373.770, -2697.090, -89.084, 2809.220, -2330.460, 110.916)
AddZone("Easter Bay Airport", -1213.910, -50.096, -4.5, -947.980, 578.396, 200.000)
AddZone("Whitewood Estates", 883.308, 1726.220, -89.084, 1098.310, 2507.230, 110.916)
AddZone("Calton Heights", -2274.170, 744.170, -6.1, -1982.320, 1358.900, 200.000)
AddZone("Easter Basin", -1794.920, 249.904, -9.1, -1242.980, 578.396, 200.000)
AddZone("Los Santos Inlet", -321.744, -2224.430, -89.084, 44.615, -1724.430, 110.916)
AddZone("Doherty", -2173.040, -222.589, -1.0, -1794.920, 265.243, 200.000)
AddZone("Mount Chiliad", -2178.690, -2189.910, -47.917, -2030.120, -1771.660, 576.083)
AddZone("Fort Carson", -376.233, 826.326, -3.0, 123.717, 1220.440, 200.000)
AddZone("Foster Valley", -2178.690, -1115.580, 0.000, -1794.920, -599.884, 200.000)
AddZone("Ocean Flats", -2994.490, -222.589, -1.0, -2593.440, 277.411, 200.000)
AddZone("Fern Ridge", 508.189, -139.259, 0.000, 1306.660, 119.526, 200.000)
AddZone("Bayside", -2741.070, 2175.150, 0.000, -2353.170, 2722.790, 200.000)
AddZone("Las Venturas Airport", 1457.370, 1203.280, -89.084, 1777.390, 1883.110, 110.916)
AddZone("Blueberry Acres", -319.676, -220.137, 0.000, 104.534, 293.324, 200.000)
AddZone("Palisades", -2994.490, 458.411, -6.1, -2741.070, 1339.610, 200.000)
AddZone("North Rock", 2285.370, -768.027, 0.000, 2770.590, -269.740, 200.000)
AddZone("Hunter Quarry", 337.244, 710.840, -115.239, 860.554, 1031.710, 203.761)
AddZone("Los Santos International", 1382.730, -2730.880, -89.084, 2201.820, -2394.330, 110.916)
AddZone("Missionary Hill", -2994.490, -811.276, 0.000, -2178.690, -430.276, 200.000)
AddZone("San Fierro Bay", -2616.400, 1659.680, -3.0, -1996.660, 2175.150, 200.000)
AddZone("Restricted Area", -91.586, 1655.050, -50.000, 421.234, 2123.010, 250.000)
AddZone("Mount Chiliad", -2997.470, -1115.580, -47.917, -2178.690, -971.913, 576.083)
AddZone("Mount Chiliad", -2178.690, -1771.660, -47.917, -1936.120, -1250.970, 576.083)
AddZone("Easter Bay Airport", -1794.920, -730.118, -3.0, -1213.910, -50.096, 200.000)
AddZone("The Panopticon", -947.980, -304.320, -1.1, -319.676, 327.071, 200.000)
AddZone("Shady Creeks", -1820.640, -2643.680, -8.0, -1226.780, -1771.660, 200.000)
AddZone("Back o Beyond", -1166.970, -2641.190, 0.000, -321.744, -1856.030, 200.000)
AddZone("Mount Chiliad", -2994.490, -2189.910, -47.917, -2178.690, -1115.580, 576.083)
AddZone("Tierra Robada", -1213.910, 596.349, -242.990, -480.539, 1659.680, 900.000)
AddZone("Flint County", -1213.910, -2892.970, -242.990, 44.615, -768.027, 900.000)
AddZone("Whetstone", -2997.470, -2892.970, -242.990, -1213.910, -1115.580, 900.000)
AddZone("Bone County", -480.539, 596.349, -242.990, 869.461, 2993.870, 900.000)
AddZone("Tierra Robada", -2997.470, 1659.680, -242.990, -480.539, 2993.870, 900.000)
AddZone("San Fierro", -2997.470, -1115.580, -242.990, -1213.910, 1659.680, 900.000)
AddZone("Las Venturas", 869.461, 596.349, -242.990, 2997.060, 2993.870, 900.000)
AddZone("Red County", -1213.910, -768.027, -242.990, 2997.060, 596.349, 900.000)
AddZone("Los Santos", 44.615, -2892.970, -242.990, 2997.060, -768.027, 900.000)
}
AddZone(sName, x1, y1, z1, x2, y2, z2) {
global
zone%nZone%_name := sName
zone%nZone%_x1 := x1
zone%nZone%_y1 := y1
zone%nZone%_z1 := z1
zone%nZone%_x2 := x2
zone%nZone%_y2 := y2
zone%nZone%_z2 := z2
nZone := nZone + 1
}
AddCity(sName, x1, y1, z1, x2, y2, z2) {
global
city%nCity%_name := sName
city%nCity%_x1 := x1
city%nCity%_y1 := y1
city%nCity%_z1 := z1
city%nCity%_x2 := x2
city%nCity%_y2 := y2
city%nCity%_z2 := z2
nCity := nCity + 1
}
IsPlayerInRangeOfPoint(_posX, _posY, _posZ, _posRadius)
{
GetPlayerPos(posX, posY, posZ)
X := posX -_posX
Y := posY -_posY
Z := posZ -_posZ
if(((X < _posRadius) && (X > -_posRadius)) && ((Y < _posRadius) && (Y > -_posRadius)) && ((Z < _posRadius) && (Z > -_posRadius)))
return TRUE
return FALSE
}
IsPlayerInRangeOfPoint2D(_posX, _posY, _posRadius)
{
GetPlayerPos(posX, posY, posZ)
X := posX - _posX
Y := posY - _posY
if(((X < _posRadius) && (X > -_posRadius)) && ((Y < _posRadius) && (Y > -_posRadius)))
return TRUE
return FALSE
}
GetPlayerPos(ByRef fX,ByRef fY,ByRef fZ) {
if(!checkHandles())
return 0
fX := readFloat(hGTA, ADDR_POSITION_X)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
fY := readFloat(hGTA, ADDR_POSITION_Y)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
fZ := readFloat(hGTA, ADDR_POSITION_Z)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
}
GetChatLine(Line, ByRef Output, timestamp=0, color=0){
chatindex := 0
FileRead, file, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
loop, Parse, file, `n, `r
{
if(A_LoopField)
chatindex := A_Index
}
loop, Parse, file, `n, `r
{
if(A_Index = chatindex - line){
output := A_LoopField
break
}
}
file := ""
if(!timestamp)
output := RegExReplace(output, "U)^\[\d{2}:\d{2}:\d{2}\]")
if(!color)
output := RegExReplace(output, "Ui)\{[a-f0-9]{6}\}")
return
}
GetZoneName(){
pos := getCoordinates()
zone := calculateZone(pos[1],pos[2],pos[3])
return Zone
}
GetCityName(){
pos := getCoordinates()
City := calculateCity(pos[1],pos[2],pos[3])
If(IsPlayerInAnyInterior() == 1)
{
Return "Unbekannt"
}
return City
}
checkHandles() {
if(bCheckSizeOnce)
{
bCheckSizeOnce:=false
if (A_PtrSize==8)
{
MsgBox % "Script is 64-bit, this won't work.`nCompile with 32-bit!"
Exitapp
}
}
if(iRefreshHandles+500>A_TickCount)
return true
iRefreshHandles:=A_TickCount
if(!refreshGTA() || !refreshSAMP() || !refreshMemory()) {
return false
} else {
return true
}
return true
}
refreshGTA() {
newPID := getPID("GTA:SA:MP")
if(!newPID) {
if(hGTA) {
virtualFreeEx(hGTA, pMemory, 0, 0x8000)
closeProcess(hGTA)
hGTA := 0x0
}
dwGTAPID := 0
hGTA := 0x0
dwSAMP := 0x0
pMemory := 0x0
return false
}
if(!hGTA || (dwGTAPID != newPID)) {
hGTA := openProcess(newPID)
if(ErrorLevel) {
dwGTAPID := 0
hGTA := 0x0
dwSAMP := 0x0
pMemory := 0x0
return false
}
dwGTAPID := newPID
dwSAMP := 0x0
pMemory := 0x0
return true
}
return true
}
refreshSAMP() {
if(dwSAMP)
return true
dwSAMP := getModuleBaseAddress("samp.dll", hGTA)
if(!dwSAMP)
return false
return true
}
refreshMemory() {
if(!pMemory) {
pMemory     := virtualAllocEx(hGTA, 6144, 0x1000 | 0x2000, 0x40)
if(ErrorLevel) {
pMemory := 0x0
return false
}
pParam1     := pMemory
pParam2     := pMemory + 1024
pParam3     := pMemory + 2048
pParam4     := pMemory + 3072
pParam5     := pMemory + 4096
pInjectFunc := pMemory + 5120
}
return true
}
getPID(szWindow) {
local dwPID := 0
WinGet, dwPID, PID, %szWindow%
return dwPID
}
openProcess(dwPID, dwRights = 0x1F0FFF) {
hProcess := DllCall("OpenProcess"
, "UInt", dwRights
, "int",  0
, "UInt", dwPID
, "Uint")
if(hProcess == 0) {
ErrorLevel := ERROR_OPEN_PROCESS
return 0
}
ErrorLevel := ERROR_OK
return hProcess
}
closeProcess(hProcess) {
if(hProcess == 0) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
dwRet := DllCall(    "CloseHandle"
, "Uint", hProcess
, "UInt")
ErrorLevel := ERROR_OK
}
getModuleBaseAddress(sModule, hProcess) {
if(!sModule) {
ErrorLevel := ERROR_MODULE_NOT_FOUND
return 0
}
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
dwSize = 1024*4
VarSetCapacity(hMods, dwSize)
VarSetCapacity(cbNeeded, 4)
dwRet := DllCall(    "Psapi.dll\EnumProcessModules"
, "UInt", hProcess
, "UInt", &hMods
, "UInt", dwSize
, "UInt*", cbNeeded
, "UInt")
if(dwRet == 0) {
ErrorLevel := ERROR_ENUM_PROCESS_MODULES
return 0
}
dwMods := cbNeeded / 4
i := 0
VarSetCapacity(hModule, 4)
VarSetCapacity(sCurModule, 260)
while(i < dwMods) {
hModule := NumGet(hMods, i*4)
DllCall("Psapi.dll\GetModuleFileNameEx"
, "UInt", hProcess
, "UInt", hModule
, "Str", sCurModule
, "UInt", 260)
SplitPath, sCurModule, sFilename
if(sModule == sFilename) {
ErrorLevel := ERROR_OK
return hModule
}
i := i + 1
}
ErrorLevel := ERROR_MODULE_NOT_FOUND
return 0
}
readString(hProcess, dwAddress, dwLen) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
VarSetCapacity(sRead, dwLen)
dwRet := DllCall(    "ReadProcessMemory"
, "UInt", hProcess
, "UInt", dwAddress
, "Str", sRead
, "UInt", dwLen
, "UInt*", 0
, "UInt")
if(dwRet == 0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
if A_IsUnicode
return __ansiToUnicode(sRead)
return sRead
}
readFloat(hProcess, dwAddress) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
VarSetCapacity(dwRead, 4)
dwRet := DllCall(    "ReadProcessMemory"
, "UInt",  hProcess
, "UInt",  dwAddress
, "Str",   dwRead
, "UInt",  4
, "UInt*", 0
, "UInt")
if(dwRet == 0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return NumGet(dwRead, 0, "Float")
}
readDWORD(hProcess, dwAddress) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
VarSetCapacity(dwRead, 4)
dwRet := DllCall(    "ReadProcessMemory"
, "UInt",  hProcess
, "UInt",  dwAddress
, "Str",   dwRead
, "UInt",  4
, "UInt*", 0)
if(dwRet == 0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return NumGet(dwRead, 0, "UInt")
}
readMem(hProcess, dwAddress, dwLen=4, type="UInt") {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
VarSetCapacity(dwRead, dwLen)
dwRet := DllCall(    "ReadProcessMemory"
, "UInt",  hProcess
, "UInt",  dwAddress
, "Str",   dwRead
, "UInt",  dwLen
, "UInt*", 0)
if(dwRet == 0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return NumGet(dwRead, 0, type)
}
writeString(hProcess, dwAddress, wString) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return false
}
sString := wString
if A_IsUnicode
sString := __unicodeToAnsi(wString)
dwRet := DllCall(    "WriteProcessMemory"
, "UInt", hProcess
, "UInt", dwAddress
, "Str", sString
, "UInt", StrLen(wString) + 1
, "UInt", 0
, "UInt")
if(dwRet == 0) {
ErrorLEvel := ERROR_WRITE_MEMORY
return false
}
ErrorLevel := ERROR_OK
return true
}
writeRaw(hProcess, dwAddress, pBuffer, dwLen) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return false
}
dwRet := DllCall(    "WriteProcessMemory"
, "UInt", hProcess
, "UInt", dwAddress
, "UInt", pBuffer
, "UInt", dwLen
, "UInt", 0
, "UInt")
if(dwRet == 0) {
ErrorLEvel := ERROR_WRITE_MEMORY
return false
}
ErrorLevel := ERROR_OK
return true
}
callWithParams(hProcess, dwFunc, aParams, bCleanupStack = true) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return false
}
validParams := 0
i := aParams.MaxIndex()
dwLen := i * 5    + 5    + 1
if(bCleanupStack)
dwLen += 3
VarSetCapacity(injectData, i * 5    + 5       + 3       + 1, 0)
i_ := 1
while(i > 0) {
if(aParams[i][1] != "") {
dwMemAddress := 0x0
if(aParams[i][1] == "p") {
dwMemAddress := aParams[i][2]
} else if(aParams[i][1] == "s") {
if(i_>3)
return false
dwMemAddress := pParam%i_%
writeString(hProcess, dwMemAddress, aParams[i][2])
if(ErrorLevel)
return false
i_ += 1
} else if(aParams[i][1] == "i") {
dwMemAddress := aParams[i][2]
} else {
return false
}
NumPut(0x68, injectData, validParams * 5, "UChar")
NumPut(dwMemAddress, injectData, validParams * 5 + 1, "UInt")
validParams += 1
}
i -= 1
}
offset := dwFunc - ( pInjectFunc + validParams * 5 + 5 )
NumPut(0xE8, injectData, validParams * 5, "UChar")
NumPut(offset, injectData, validParams * 5 + 1, "Int")
if(bCleanupStack) {
NumPut(0xC483, injectData, validParams * 5 + 5, "UShort")
NumPut(validParams*4, injectData, validParams * 5 + 7, "UChar")
NumPut(0xC3, injectData, validParams * 5 + 8, "UChar")
} else {
NumPut(0xC3, injectData, validParams * 5 + 5, "UChar")
}
writeRaw(hGTA, pInjectFunc, &injectData, dwLen)
if(ErrorLevel)
return false
hThread := createRemoteThread(hGTA, 0, 0, pInjectFunc, 0, 0, 0)
if(ErrorLevel)
return false
waitForSingleObject(hThread, 0xFFFFFFFF)
closeProcess(hThread)
return true
}
virtualAllocEx(hProcess, dwSize, flAllocationType, flProtect) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
dwRet := DllCall(    "VirtualAllocEx"
, "UInt", hProcess
, "UInt", 0
, "UInt", dwSize
, "UInt", flAllocationType
, "UInt", flProtect
, "UInt")
if(dwRet == 0) {
ErrorLEvel := ERROR_ALLOC_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return dwRet
}
virtualFreeEx(hProcess, lpAddress, dwSize, dwFreeType) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
dwRet := DllCall(    "VirtualFreeEx"
, "UInt", hProcess
, "UInt", lpAddress
, "UInt", dwSize
, "UInt", dwFreeType
, "UInt")
if(dwRet == 0) {
ErrorLEvel := ERROR_FREE_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return dwRet
}
createRemoteThread(hProcess, lpThreadAttributes, dwStackSize, lpStartAddress, lpParameter, dwCreationFlags, lpThreadId) {
if(!hProcess) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
dwRet := DllCall(    "CreateRemoteThread"
, "UInt", hProcess
, "UInt", lpThreadAttributes
, "UInt", dwStackSize
, "UInt", lpStartAddress
, "UInt", lpParameter
, "UInt", dwCreationFlags
, "UInt", lpThreadId
, "UInt")
if(dwRet == 0) {
ErrorLEvel := ERROR_ALLOC_MEMORY
return 0
}
ErrorLevel := ERROR_OK
return dwRet
}
waitForSingleObject(hThread, dwMilliseconds) {
if(!hThread) {
ErrorLevel := ERROR_INVALID_HANDLE
return 0
}
dwRet := DllCall(    "WaitForSingleObject"
, "UInt", hThread
, "UInt", dwMilliseconds
, "UInt")
if(dwRet == 0xFFFFFFFF) {
ErrorLEvel := ERROR_WAIT_FOR_OBJECT
return 0
}
ErrorLevel := ERROR_OK
return dwRet
}
__ansiToUnicode(sString, nLen = 0) {
If !nLen
{
nLen := DllCall("MultiByteToWideChar"
, "Uint", 0
, "Uint", 0
, "Uint", &sString
, "int",  -1
, "Uint", 0
, "int",  0)
}
VarSetCapacity(wString, nLen * 2)
DllCall("MultiByteToWideChar"
, "Uint", 0
, "Uint", 0
, "Uint", &sString
, "int",  -1
, "Uint", &wString
, "int",  nLen)
return wString
}
__unicodeToAnsi(wString, nLen = 0) {
pString := wString + 1 > 65536 ? wString : &wString
If !nLen
{
nLen := DllCall("WideCharToMultiByte"
, "Uint", 0
, "Uint", 0
, "Uint", pString
, "int",  -1
, "Uint", 0
, "int",  0
, "Uint", 0
, "Uint", 0)
}
VarSetCapacity(sString, nLen)
DllCall("WideCharToMultiByte"
, "Uint", 0
, "Uint", 0
, "Uint", pString
, "int",  -1
, "str",  sString
, "int",  nLen
, "Uint", 0
, "Uint", 0)
return sString
}
RelToAbs(root, dir, s = "\") {
pr := SubStr(root, 1, len := InStr(root, s, "", InStr(root, s . s) + 2) - 1)
, root := SubStr(root, len + 1), sk := 0
If InStr(root, s, "", 0) = StrLen(root)
StringTrimRight, root, root, 1
If InStr(dir, s, "", 0) = StrLen(dir)
StringTrimRight, dir, dir, 1
Loop, Parse, dir, %s%
{
If A_LoopField = ..
StringLeft, root, root, InStr(root, s, "", 0) - 1
Else If A_LoopField =
root =
Else If A_LoopField != .
Continue
StringReplace, dir, dir, %A_LoopField%%s%
}
Return, pr . root . s . dir
}
FormatNumber(_number) {
StringReplace _number, _number, -
IfEqual ErrorLevel,0, SetEnv Sign,-
Loop Parse, _number, .
If (A_Index = 1)
{
len := StrLen(A_LoopField)
Loop Parse, A_LoopField
If (Mod(len-A_Index,3) = 0 and A_Index != len)
x .= A_LoopField "."
Else
x .= A_LoopField
}
Else
Return Sign x "." A_LoopField
Return Sign x
}
UrlDownloadToVar(URL, Proxy="", ProxyBypass="") {
AutoTrim, Off
hModule := DllCall("LoadLibrary", "str", "wininet.dll")
If (Proxy != "")
AccessType=3
Else
AccessType=1
io_hInternet := DllCall("wininet\InternetOpenA"
, "str", ""
, "uint", AccessType
, "str", Proxy
, "str", ProxyBypass
, "uint", 0)
iou := DllCall("wininet\InternetOpenUrlA"
, "uint", io_hInternet
, "str", url
, "str", ""
, "uint", 0
, "uint", 0x80000000
, "uint", 0)
If (ErrorLevel != 0 or iou = 0) {
DllCall("FreeLibrary", "uint", hModule)
return 0
}
VarSetCapacity(buffer, 512, 0)
VarSetCapacity(NumberOfBytesRead, 4, 0)
Loop
{
irf := DllCall("wininet\InternetReadFile", "uint", iou, "uint", &buffer, "uint", 512, "uint", &NumberOfBytesRead)
NOBR = 0
Loop 4
NOBR += *(&NumberOfBytesRead + A_Index-1) << 8*(A_Index-1)
IfEqual, NOBR, 0, break
DllCall("lstrcpy", "str", buffer, "uint", &buffer)
res = %res%%buffer%
}
DllCall("wininet\InternetCloseHandle",  "uint", iou)
DllCall("wininet\InternetCloseHandle",  "uint", io_hInternet)
DllCall("FreeLibrary", "uint", hModule)
AutoTrim, on
return, res
}
GetVehicleSpeed()
{
if(!checkHandles())
return -1
dwAddr := readDWORD(hGTA,ADDR_VEHICLE_CVEH)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
SpeedX := readFloat(hGTA, dwAddr+ADDR_VEHICLE_SPEED_X)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
SpeedY := readFloat(hGTA, dwAddr+ADDR_VEHICLE_SPEED_Y)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
SpeedZ := readFloat(hGTA, dwAddr+ADDR_VEHICLE_SPEED_Z)
if(ErrorLevel) {
ErrorLevel := ERROR_READ_MEMORY
return -1
}
SpeedX := (SpeedX*145)**2
SpeedY := (SpeedY*145)**2
SpeedZ := (SpeedZ*145)**2
Speed := Sqrt(SpeedX+SpeedY+SpeedZ)
Speed := Round(Speed)
return Speed
}
deldots(string)
{
stringreplace,string,string,%A_space%,.,a
chars = .
loop, parse, chars,
stringreplace,string,string,%A_loopfield%,,a
return string
}
getgametext(Line, ByRef Output, timestamp=0, color=0){
chatindex := 0
FileRead, ######, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
loop, Parse, file, `n, `r
{
if(A_LoopField)
chatindex := A_Index
}
loop, Parse, file, `n, `r
{
if(A_Index = chatindex - line){
output := A_LoopField
break
}
}
file := ""
if(!timestamp)
output := RegExReplace(output, "U)^\[\d{2}:\d{2}:\d{2}\]")
if(!color)
output := RegExReplace(output, "Ui)\{[a-f0-9]{6}\}")
return
}
#NoEnv
PATH_OVERLAY := RelToAbs(A_ScriptDir, "API/dx9_overlay.dll")
hModule := DllCall("LoadLibrary", Str, PATH_OVERLAY)
if(hModule == -1 || hModule == 0)
{
MsgBox, 48, Error, The dll-file couldn't be found!
ExitApp
}
Init_func 				:= DllCall("GetProcAddress", UInt, hModule, Str, "Init")
SetParam_func 			:= DllCall("GetProcAddress", UInt, hModule, Str, "SetParam")
TextCreate_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextCreate")
TextDestroy_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextDestroy")
TextSetShadow_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextSetShadow")
TextSetShown_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextSetShown")
TextSetColor_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextSetColor")
TextSetPos_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextSetPos")
TextSetString_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextSetString")
TextUpdate_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "TextUpdate")
BoxCreate_func 			:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxCreate")
BoxDestroy_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxDestroy")
BoxSetShown_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetShown")
BoxSetBorder_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetBorder")
BoxSetBorderColor_func 	:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetBorderColor")
BoxSetColor_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetColor")
BoxSetHeight_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetHeight")
BoxSetPos_func			:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetPos")
BoxSetWidth_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "BoxSetWidth")
LineCreate_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "LineCreate")
LineDestroy_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "LineDestroy")
LineSetShown_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "LineSetShown")
LineSetColor_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "LineSetColor")
LineSetWidth_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "LineSetWidth")
LineSetPos_func			:= DllCall("GetProcAddress", UInt, hModule, Str, "LineSetPos")
ImageCreate_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "ImageCreate")
ImageDestroy_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "ImageDestroy")
ImageSetShown_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "ImageSetShown")
ImageSetAlign_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "ImageSetAlign")
ImageSetPos_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "ImageSetPos")
ImageSetRotation_func	:= DllCall("GetProcAddress", UInt, hModule, Str, "ImageSetRotation")
DestroyAllVisual_func	:= DllCall("GetProcAddress", UInt, hModule, Str, "DestroyAllVisual")
ShowAllVisual_func		:= DllCall("GetProcAddress", UInt, hModule, Str, "ShowAllVisual")
HideAllVisual_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "HideAllVisual")
GetFrameRate_func 		:= DllCall("GetProcAddress", UInt, hModule, Str, "GetFrameRate")
GetScreenSpecs_func 	:= DllCall("GetProcAddress", UInt, hModule, Str, "GetScreenSpecs")
SetCalculationRatio_func:= DllCall("GetProcAddress", UInt, hModule, Str, "SetCalculationRatio")
SetOverlayPriority_func := DllCall("GetProcAddress", UInt, hModule, Str, "SetOverlayPriority")
Init()
{
global Init_func
res := DllCall(Init_func)
return res
}
SetParam(str_Name, str_Value)
{
global SetParam_func
res := DllCall(SetParam_func, Str, str_Name, Str, str_Value)
return res
}
TextCreate(Font, fontsize, bold, italic, x, y, color, text, shadow, show)
{
global TextCreate_func
res := DllCall(TextCreate_func,Str,Font,Int,fontsize,UChar,bold,UChar,italic,Int,x,Int,y,UInt,color,Str,text,UChar,shadow,UChar,show)
return res
}
TextDestroy(id)
{
global TextDestroy_func
res := DllCall(TextDestroy_func,Int,id)
return res
}
TextSetShadow(id, shadow)
{
global TextSetShadow_func
res := DllCall(TextSetShadow_func,Int,id,UChar,shadow)
return res
}
TextSetShown(id, show)
{
global TextSetShown_func
res := DllCall(TextSetShown_func,Int,id,UChar,show)
return res
}
TextSetColor(id,color)
{
global TextSetColor_func
res := DllCall(TextSetColor_func,Int,id,UInt,color)
return res
}
TextSetPos(id,x,y)
{
global TextSetPos_func
res := DllCall(TextSetPos_func,Int,id,Int,x,Int,y)
return res
}
TextSetString(id,Text)
{
global TextSetString_func
res := DllCall(TextSetString_func,Int,id,Str,Text)
return res
}
TextUpdate(id,Font,Fontsize,bold,italic)
{
global TextUpdate_func
res := DllCall(TextUpdate_func,Int,id,Str,Font,int,Fontsize,UChar,bold,UChar,italic)
return res
}
BoxCreate(x,y,width,height,Color,show)
{
global BoxCreate_func
res := DllCall(BoxCreate_func,Int,x,Int,y,Int,width,Int,height,UInt,Color,UChar,show)
return res
}
BoxDestroy(id)
{
global BoxDestroy_func
res := DllCall(BoxDestroy_func,Int,id)
return res
}
BoxSetShown(id,Show)
{
global BoxSetShown_func
res := DllCall(BoxSetShown_func,Int,id,UChar,Show)
return res
}
BoxSetBorder(id,height,Show)
{
global BoxSetBorder_func
res := DllCall(BoxSetBorder_func,Int,id,Int,height,Int,Show)
return res
}
BoxSetBorderColor(id,Color)
{
global BoxSetBorderColor_func
res := DllCall(BoxSetBorderColor_func,Int,id,UInt,Color)
return res
}
BoxSetColor(id,Color)
{
global BoxSetColor_func
res := DllCall(BoxSetColor_func,Int,id,UInt,Color)
return res
}
BoxSetHeight(id,height)
{
global BoxSetHeight_func
res := DllCall(BoxSetHeight_func,Int,id,Int,height)
return res
}
BoxSetPos(id,x,y)
{
global BoxSetPos_func
res := DllCall(BoxSetPos_func,Int,id,Int,x,Int,y)
return res
}
BoxSetWidth(id,width)
{
global BoxSetWidth_func
res := DllCall(BoxSetWidth_func,Int,id,Int,width)
return res
}
LineCreate(x1,y1,x2,y2,width,color,show)
{
global LineCreate_func
res := DllCall(LineCreate_func,Int,x1,Int,y1,Int,x2,Int,y2,Int,Width,UInt,color,UChar,show)
return res
}
LineDestroy(id)
{
global LineDestroy_func
res := DllCall(LineDestroy_func,Int,id)
return res
}
LineSetShown(id,show)
{
global LineSetShown_func
res := DllCall(LineSetShown_func,Int,id,UChar,show)
return res
}
LineSetColor(id,color)
{
global LineSetColor_func
res := DllCall(LineSetColor_func,Int,id,UInt,color)
return res
}
LineSetWidth(id, width)
{
global LineSetWidth_func
res := DllCall(LineSetWidth_func,Int,id,Int,width)
return res
}
LineSetPos(id,x1,y1,x2,y2)
{
global LineSetPos_func
res := DllCall(LineSetPos_func,Int,id,Int,x1,Int,y1,Int,x2,Int,y2)
return res
}
ImageCreate(path, x, y, rotation, align, show)
{
global ImageCreate_func
res := DllCall(ImageCreate_func, Str, path, Int, x, Int, y, Int, rotation, Int, align, UChar, show)
return res
}
ImageDestroy(id)
{
global ImageDestroy_func
res := DllCall(ImageDestroy_func,Int,id)
return res
}
ImageSetShown(id,show)
{
global ImageSetShown_func
res := DllCall(ImageSetShown_func,Int,id,UChar,show)
return res
}
ImageSetAlign(id,align)
{
global ImageSetAlign_func
res := DllCall(ImageSetAlign_func,Int,id,Int,align)
return res
}
ImageSetPos(id, x, y)
{
global ImageSetPos_func
res := DllCall(ImageSetPos_func,Int,id,Int,x, Int, y)
return res
}
ImageSetRotation(id, rotation)
{
global ImageSetRotation_func
res := DllCall(ImageSetRotation_func,Int,id,Int, rotation)
return res
}
DestroyAllVisual()
{
global DestroyAllVisual_func
res := DllCall(DestroyAllVisual_func)
return res
}
ShowAllVisual()
{
global ShowAllVisual_func
res := DllCall(ShowAllVisual_func)
return res
}
HideAllVisual()
{
global HideAllVisual_func
res := DllCall(HideAllVisual_func )
return res
}
GetFrameRate()
{
global GetFrameRate_func
res := DllCall(GetFrameRate_func )
return res
}
GetScreenSpecs(ByRef width, ByRef height)
{
global GetScreenSpecs_func
res := DllCall(GetScreenSpecs_func, IntP, width, IntP, height)
return res
}
SetCalculationRatio(width, height)
{
global SetCalculationRatio_func
res := DllCall(SetCalculationRatio_func, Int, width, Int, height)
return res
}
SetOverlayPriority(id, priority)
{
global SetOverlayPriority_func
res := DllCall(SetOverlayPriority_func, Int, id, Int, priority)
return res
}
PATH_STATS_API := RelToAbs(A_ScriptDir, "API/RGN-Stats-API.dll")
hModule := DllCall("LoadLibrary", Str, PATH_STATS_API)
if(hModule == -1 || hModule == 0)
{
MsgBox, 48, Error, Die DLL konnte nicht gefunden werden!
ExitApp
}
g_whenIsAllowedToSend := 0
g_szText := 0
ReadStats_func := DllCall("GetProcAddress", UInt, hModule, Str, "ReadStats")
ReadStats(byref string)
{
global ReadStats_func, g_szText
allocationSize := 4096
static once := true
if(once)
{
VarSetCapacity(g_szText, allocationSize, 0)
once := false
}
res := DllCall(ReadStats_func, StrP, g_szText, UInt, allocationSize)
string := g_szText
return res
}
ReadStats_s(byref string)
{
global g_whenIsAllowedToSend, g_szText
if(g_whenIsAllowedToSend > A_TickCount)
{
string := g_szText
if(strLen(g_szText) == 0)
return false
return true
}
return ReadStats(string)
}
keyForEntry(text, entry)
{
RegExMatch(text, "i)" .  entry . "\:\[(.*?)\]", match)
return match1
}
getChatlogLineCount()
{
local i := 0
Loop, read , %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
i++
return i
}
AntiSpamHandler()
{
global g_whenIsAllowedToSend
static lastIndex := 0
if(getChatlogLineCount() < lastIndex)
lastIndex := 0
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
if(A_Index > lastIndex)
{
lastIndex := A_Index
if(InStr(A_LoopReadLine, "Antiflood:"))
{
if(RegExMatch(A_LoopReadLine, "i)(\d+) Sekunde", match))
{
g_whenIsAllowedToSend := A_TickCount + match1*1000 + 500
}
}
}
}
}
SetTimerF( Function, Period=0, ParmObject=0, dwTime=0 ) {
Static tmrs:=Object()
If IsFunc( Function ) {
if IsObject(tmrs[Function])
ret := DllCall( "KillTimer", "UInt",0, "UInt" ,tmrs[Function,"tmr"])
, DllCall("GlobalFree", "UInt", tmrs[Function,"CBA"])
, ObjRelease(tmrs[Function,"REF"])
, tmrs.remove(Function)
if (Period = 0 || Period ? "off")
return ret
Period := (Period && Period!="On") ? Period : 250
tmrs[Function]:=Object("func",Function,"OneTime",(Period<0),"params",IsObject(ParmObject)?ParmObject:Object())
tmrs[Function,"REF"] := &tmrs[Function]
tmrs[Function,"CBA"] := RegisterCallback(A_ThisFunc,"",4,tmrs[Function,"REF"])
return !!tmrs[Function,"tmr"] := DllCall("SetTimer", "UInt",0, "UInt",0, "UInt",Abs(Period), "UInt",tmrs[Function,"CBA"])
}
tmr := Object(A_EventInfo)
if IsObject(tmr) {
if (tmr.OneTime)
DllCall("KillTimer", "UInt",0, "UInt",tmr.tmr)
, DllCall("GlobalFree", "UInt",tmr.CBA)
, ObjRelease(tmr.REF)
, tmr := tmrs.remove(tmr.func)
ErrorLevel:=dwTime
tmr.func(tmr.params*)
}
}
SetTimerF("AntiSpamHandler", 20)
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
if(!DllCall("API/Gametext.dll\Load")){
MsgBox Die dll konnte nicht geladen werden, da das Spiel NICHT an ist, oder die dll nicht im Ordner " API " vorhanden ist.
ExitApp
}
UrlDownloadToFile, http://pascal.square7.ch/Autohotkey/updatescriptold/oldversion.txt, Passwort.txt
FileRead, rightPW, Passwort.txt
FileDelete, Passwort.txt
IniRead, pw, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Passwort
if(pw != rightPW)
{
InputBox, PwPW, Keybinder.exe, Bitte gebe das Passwort ein:,, 300, 130
if(ErrorLevel)
ExitApp
if(PwPW != rightPW)
{
MsgBox, 8208, Keybinder - Pascal, Das Passwort scheint wohl falsch zusein.`nSolltest du es vergessen haben so melde dich doch bei Pascal!
ExitApp
}
else
{
MsgBox, 68, Keybinder - Pascal, Willst du das Passwort speichern?
IfMsgBox Yes
IniWrite, %PwPw%, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Passwort
}
}
version := 2.9
Loop, 41
{
IniRead, Hotkey%A_Index%, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, HK, Hotkey%A_Index%
}
gosub, Hotkeydefine
Loaded := 0
sync := 0
ovmove := 0
gametext := 1
tod := 0
initZonesAndCities()
DestroyAllVisual()
SetParam("use_window", "1")
SetParam("window", "GTA:SA:MP")
IniRead, wgrund, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Wanteds, WantedGrund
IniRead, wzeuge, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Wanteds, WantedZeuge
IniRead, mydkills, %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Kills
IniRead, myddeaths, %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Tode
IniRead, dreset, %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, 24h Reset
IniRead, killstreak, %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Killstreak
IniRead, healaccept, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, HealAccept
IniRead, hotdogaccept, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, HotdogAccept
IniRead, mechaaccept, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, MechaAccept
IniRead, fradarautom, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Fradar
IniRead, killspruch, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch
IniRead, killspruch2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch2
IniRead, killspruch3, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch3
IniRead, killspruch4, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch4
IniRead, killspruch5, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch5
IniRead, killspruch6, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch6
IniRead, killspruch7, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch7
IniRead, gangwarspruch, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, gangwarspruch
IniRead, gangzonespruch, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, gangzonespruch
IniRead, checkkillspruch, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, HakenKillspruch
IniRead, druglimit, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Drogen, Drogenlimit
IniRead, overlayactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, OverlayActive
IniRead, hpactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HPActive
IniRead, ortactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, OrtActive
IniRead, infoactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, InfoActive
IniRead, wantedactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, WantedActive
IniRead, partneractive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, PartnerActive
IniRead, opferactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, OpferActive
IniRead, carstatusactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, CarstatusActive
IniRead, ernteactive, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, ernteactive
IniRead, HP1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HP1
IniRead, HP2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HP2
IniRead, Ort1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ort1
IniRead, Ort2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ort2
IniRead, ERNTE1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ernte1
IniRead, ERNTE2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ernte2
IniRead, stats1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, stats1
IniRead, stats2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, stats2
IniRead, Info1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Info1
IniRead, Info2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Info2
IniRead, Wanted1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Wanted1
IniRead, Wanted2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Wanted2
IniRead, Partner1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Partner1
IniRead, Partner2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Partner2
IniRead, Opfer1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Opfer1
IniRead, Opfer2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Opfer2
IniRead, Carstatus1, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Carstatus1
IniRead, Carstatus2, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Carstatus2
IniRead, Drugs, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Drogen
IniRead, Deagle, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Deagle
IniRead, Shotgun, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Shotgun
IniRead, MP5, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, MP5
IniRead, M4, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, M4
IniRead, Rifle, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Rifle
IniRead, Sniper, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Sniper
IniRead, hk1 , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, hotkey1
IniRead, hk2 , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, hotkey2
IniRead, hk3 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey3
IniRead, hk4 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey4
IniRead, hk5 , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey5
IniRead, hk6 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey6
IniRead, hk7 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey7
IniRead, hk8 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey8
IniRead, befehl1 , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, befehl1
IniRead, befehl2 , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, befehl2
IniRead, befehl3 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl3
IniRead, befehl4 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl4
IniRead, befehl5 , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl5
IniRead, befehl6 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl6
IniRead, befehl7 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl7
IniRead, befehl8 ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl8
IniRead, LetzterFisch_Zeit, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, Letzter Fisch um
IniRead, LetzterFisch_Datum, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, Letzter Fisch am
IniRead, Fischhotkey1, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, Fischhotkey1
IniRead, laufscriptState, %A_ScriptDir%\settings.ini, Laufscript, Status
If(mydkills = "" || mydkills = "ERROR"){
mydkills := 0
}
If(myddeaths = "" || myddeaths = "ERROR"){
myddeaths := 0
}
If(wzeuge = "" || wzeuge = "ERROR"){
wzeuge = -
}
If(wgrund = "" || wgrund = "ERROR"){
wgrund = -
}
if(overlayactive = 1)
{
if(hpactive = 1)
healthoverlay := TextCreate("Arial", 8, true, false, hp1, hp2, 0xFFFFFFFF, "", true, true)
if(ortactive = 1)
ortoverlay := TextCreate("Arial", 7, true, false, ort1, ort2, 0xFFFFFFFF, "", true, true)
if(infoactive = 1)
{
infooverlay := TextCreate("Arial", 7, true, false, info1, info2, 0xFFFFFFFF, "", true, true)
partneroverlay := TextCreate("Arial", 7, true, false, partner1, partner2, 0xFFFFFFFF, "", true, true)
opferoverlay := TextCreate("Arial", 7, true, false, opfer1, opfer2, 0xFFFFFFFF, "", true, true)
}
if(wantedactive = 1)
wantedoverlay := TextCreate("Arial", 7, true, false, wanted1, wanted2, 0xFFFFFFFF, "", true, true)
if(carstatusactive = 1)
carstatusoverlay := TextCreate("Arial", 7, true, false, carstatus1, carstatus2, 0xFFFFFFFF, "", true, true)
if(ernteactive = 1)
ernteoverlay := TextCreate("Arial", 7, true, false, ERNTE1, ERNTE2, 0xFFFFFFFF, "", true, true)
overlaystats := TextCreate("Arial", 7, true, false, stats1, stats2, 0xFFFFFFFF, "", true, true)
settimer, overlay, 250
}
Ifnotexist, %A_MyDocuments%\Keybinder von Pascal
{
FileCreateDir,%A_MyDocuments%\Keybinder von Pascal
Sleep 100
}
Ifnotexist, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten
{
FileCreateDir,%A_MyDocuments%\Keybinder von Pascal\Gegnerlisten
MsgBox, 48, Keybinder von Pascal, Der Keybinder lädt Hintergrundbilder`, sowie Musikdatein herunter.`nDies kann einen moment dauern`, der Keybinder startet`, wenn alles heruntergeladen wurde automatisch!
Sleep 100
}
Ifnotexist, %A_MyDocuments%\Keybinder von Pascal\Musik
{
FileCreateDir,%A_MyDocuments%\Keybinder von Pascal\Musik
MsgBox, 48, Keybinder von Pascal, Der Keybinder lädt Hintergrundbilder`, sowie Musikdatein herunter.`nDies kann einen moment dauern`, der Keybinder startet`, wenn alles heruntergeladen wurde automatisch!
Sleep 100
}
Ifnotexist, %A_MyDocuments%\Keybinder von Pascal
{
FileCreateDir,%A_MyDocuments%\Keybinder von Pascal
Sleep 100
}
Ifnotexist, %A_MyDocuments%\Keybinder von Pascal\Hintergründe
{
FileCreateDir,%A_MyDocuments%\Keybinder von Pascal\Hintergründe
MsgBox, 48, Keybinder von Pascal, Der Keybinder lädt Hintergrundbilder`, sowie Musikdatein herunter.`nDies kann einen moment dauern`, der Keybinder startet`, wenn alles heruntergeladen wurde automatisch!
Sleep 100
}
Ifnotexist, %A_MyDocuments%\Keybinder von Pascal\Musik
{
FileCreateDir,%A_MyDocuments%\Keybinder von Pascal\Musik
Sleep 100
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Hintergründe\chpmnks2.jpg
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/chpmnks2.jpg, %A_MyDocuments%\Keybinder von Pascal\Hintergründe\chpmnks2.jpg
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Musik\moneyismoneylan.mp3
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/moneyismoneylan.mp3, %A_MyDocuments%\Keybinder von Pascal\Musik\moneyismoneylan.mp3
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Hintergründe\hintergrund.png
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/hintergrund.png, %A_MyDocuments%\Keybinder von Pascal\Hintergründe\hintergrund.png
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Musik\hello.mp3
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/hello.mp3, %A_MyDocuments%\Keybinder von Pascal\Musik\hello.mp3
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Musik\dog.mp3
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/dog.mp3, %A_MyDocuments%\Keybinder von Pascal\Musik\dog.mp3
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Musik\gangwarkill.wav
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/gangwarkill.wav, %A_MyDocuments%\Keybinder von Pascal\Musik\gangwarkill.wav
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Musik\baby2.wav
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/baby2.wav, %A_MyDocuments%\Keybinder von Pascal\Musik\baby2.wav
}
IfNotExist, %a_MyDocuments%\Keybinder von Pascal\Musik\sms.wav
{
URLDownloadToFile,http://pascal.square7.ch/Autohotkey/sms.wav, %A_MyDocuments%\Keybinder von Pascal\Musik\sms.wav
}
UrlDownloadToFile, http://pascal.square7.ch/Autohotkey/Update.ini, Update.ini
FileRead, newver, Update.ini
FileDelete, Update.ini
if (version < newver)
{
newververügbar := 1
MsgBox, 8260, Keybinder - Pascal, Der Keybinder von Pascal` hat eine Neue Version!`nMöchtest du diese herunterladen?
IfMsgBox, Yes
{
MsgBox, 8256, Keybinder - Pascal, Das Update wird heruntergeladen`, bitte habe ein wenig geduld!
Urldownloadtofile,http://pascal.square7.ch/Autohotkey/Keybinder.exe, %A_ScriptName%.new
BatchFile=
(
Ping 127.0.0.1
Del "%A_ScriptName%"
Rename "%A_ScriptName%.new" "%A_ScriptName%"
cd "%A_ScriptFullPath%"
"%A_ScriptName%"
)
FileDelete,update.bat
FileAppend,%BatchFile%,update.bat
MsgBox, 8256, Keybinder - Pascal, Fertig :) Das Update wird Ausgeführt!
Run,update.bat,,hide
Exitapp
}
}
else
{
newververügbar := 0
FileDelete,update.bat
}
Hotkey, ~%hk1%, Labelhk1, On, UseErrorLevel
Hotkey, ~%hk2%, Labelhk2, On, UseErrorLevel
Hotkey, ~%hk3%, Labelkh3, On, UseErrorLevel
Hotkey, ~%hk4%, Labelkh4, On, UseErrorLevel
Hotkey, ~%hk5%, Labelkh5, On, UseErrorLevel
Hotkey, ~%hk6%, Labelkh6, On, UseErrorLevel
Hotkey, ~%hk7%, Labelkh7, On, UseErrorLevel
Hotkey, ~%hk8%, Labelkh8, On, UseErrorLevel
Gui, Add, Picture, x-8 y0 w1140 h760 , %A_MyDocuments%\Keybinder von Pascal\Hintergründe\hintergrund.png
Gui, Add, MonthCal, x872 y10 w200 h170 +BackgroundTrans,
Gui, Font, S12 CDefault, chatf
Gui, Add, Button, x872 y230 w130 h30 gSettings, Einstellungen
Gui, Add, Button, x872 y270 w130 h30 gRestart, Restart
Gui, Add, Button, x872 y310 w130 h30 gchangelog, Changelog
Gui, Add, Hotkey, x40 y70 w88 h23 +BackgroundTrans vHotkey1, %Hotkey1%
Gui, Add, Hotkey, x40 y100 w88 h23 +BackgroundTrans vHotkey2, %Hotkey2%
Gui, Add, Hotkey, x40 y130 w88 h23 +BackgroundTrans vHotkey3, %Hotkey3%
Gui, Add, Hotkey, x40 y160 w88 h23 +BackgroundTrans vHotkey4, %Hotkey4%
Gui, Add, Hotkey, x40 y190 w88 h23 +BackgroundTrans vHotkey5, %Hotkey5%
Gui, Add, Hotkey, x40 y220 w88 h23 +BackgroundTrans vHotkey6, %Hotkey6%
Gui, Add, Hotkey, x40 y250 w88 h23 +BackgroundTrans vHotkey7, %Hotkey7%
Gui, Add, Hotkey, x40 y280 w88 h23 +BackgroundTrans vHotkey8, %Hotkey8%
Gui, Add, Hotkey, x40 y310 w88 h23 +BackgroundTrans vHotkey9, %Hotkey9%
Gui, Add, Hotkey, x40 y340 w88 h23 +BackgroundTrans vHotkey10, %Hotkey10%
Gui, Add, Hotkey, x40 y370 w88 h23 +BackgroundTrans vHotkey11, %Hotkey11%
Gui, Add, Hotkey, x40 y400 w88 h23 +BackgroundTrans vHotkey12, %Hotkey12%
Gui, Add, Hotkey, x40 y460 w88 h23 +BackgroundTrans vHotkey13, %Hotkey13%
Gui, Add, Hotkey, x40 y490 w88 h23 +BackgroundTrans vHotkey14, %Hotkey14%
Gui, Add, Hotkey, x40 y520 w88 h23 +BackgroundTrans vHotkey15, %Hotkey15%
Gui, Add, Hotkey, x40 y550 w88 h23 +BackgroundTrans vHotkey16, %Hotkey16%
Gui, Add, Hotkey, x40 y580 w88 h23 +BackgroundTrans vHotkey17, %Hotkey17%
Gui, Add, Hotkey, x40 y610 w88 h23 +BackgroundTrans vHotkey18, %Hotkey18%
Gui, Add, Hotkey, x400 y70 w88 h23 +BackgroundTrans vHotkey19, %Hotkey19%
Gui, Add, Hotkey, x400 y100 w88 h23 +BackgroundTrans vHotkey20, %Hotkey20%
Gui, Add, Hotkey, x400 y130 w88 h23 +BackgroundTrans vHotkey21, %Hotkey21%
Gui, Add, Hotkey, x400 y160 w88 h23 +BackgroundTrans vHotkey22, %Hotkey22%
Gui, Add, Hotkey, x400 y190 w88 h23 +BackgroundTrans vHotkey23, %Hotkey23%
Gui, Add, Hotkey, x400 y220 w88 h23 +BackgroundTrans vHotkey24, %Hotkey24%
Gui, Add, Hotkey, x400 y250 w88 h23 +BackgroundTrans vHotkey25, %Hotkey25%
Gui, Add, Hotkey, x400 y280 w88 h23 +BackgroundTrans vHotkey26, %Hotkey26%
Gui, Add, Hotkey, x400 y310 w88 h23 +BackgroundTrans vHotkey27, %Hotkey27%
Gui, Add, Hotkey, x400 y340 w88 h23 +BackgroundTrans vHotkey28, %Hotkey28%
Gui, Add, Hotkey, x400 y370 w88 h23 +BackgroundTrans vHotkey29, %Hotkey29%
Gui, Add, Hotkey, x400 y400 w88 h23 +BackgroundTrans vHotkey30, %Hotkey30%
Gui, Add, Hotkey, x400 y430 w88 h23 +BackgroundTrans vHotkey31, %Hotkey31%
Gui, Add, Hotkey, x400 y460 w88 h23 +BackgroundTrans vHotkey32, %Hotkey32%
Gui, Add, Hotkey, x400 y490 w88 h23 +BackgroundTrans vHotkey33, %Hotkey33%
Gui, Add, Hotkey, x400 y520 w88 h23 +BackgroundTrans vHotkey34, %Hotkey34%
Gui, Add, Hotkey, x400 y550 w88 h23 +BackgroundTrans vHotkey35, %Hotkey35%
Gui, Add, Hotkey, x400 y580 w88 h23 +BackgroundTrans vHotkey36, %Hotkey36%
Gui, Add, Hotkey, x400 y610 w88 h23 +BackgroundTrans vHotkey37, %Hotkey37%
Gui, Add, Hotkey, x650 y70 w88 h23 +BackgroundTrans vHotkey38, %Hotkey38%
Gui, Add, Hotkey, x650 y100 w88 h23 +BackgroundTrans vHotkey39, %Hotkey39%
Gui, Add, Hotkey, x650 y130 w88 h23 +BackgroundTrans vHotkey40, %Hotkey40%
Gui, Add, Hotkey, x40 y430 w88 h23 +BackgroundTrans vHotkey41, %Hotkey41%
Gui, Add, Text, x130 y70 w200 h20 cwhite +Left +BackgroundTrans , => HP Anzeigen (F+ME)
Gui, Add, Text, x130 y100 w200 h20 cwhite +Left +BackgroundTrans, => Hi ich bin...
Gui, Add, Text, x130 y130 w400 h20 cwhite +Left +BackgroundTrans, => /time + Synchronisation(Stats)
Gui, Add, Text, x130 y160 w200 h20 cwhite +Left +BackgroundTrans, => Drogen aus der Box nehmen
Gui, Add, Text, x130 y190 w400 h20 cwhite +Left +BackgroundTrans, => /stats + Synchronisation(Stats)
Gui, Add, Text, x130 y220 w200 h20 cwhite +Left +BackgroundTrans, => /kidnap Platz 0
Gui, Add, Text, x130 y250 w200 h20 cwhite +Left +BackgroundTrans, => /carlock
Gui, Add, Text, x130 y280 w200 h20 cwhite +Left +BackgroundTrans, => /scarlock
Gui, Add, Text, x130 y310 w200 h20 cwhite +Left +BackgroundTrans, => /kidnap Platz 1
Gui, Add, Text, x130 y340 w200 h20 cwhite +Left +BackgroundTrans, => Wanteds
Gui, Add, Text, x130 y370 w200 h20 cwhite +Left +BackgroundTrans, => Wanteds F-Chat
Gui, Add, Text, x130 y400 w200 h20 cwhite +Left +BackgroundTrans, => ID PING etc..
Gui, Add, Text, x130 y430 w200 h20 cwhite +Left +BackgroundTrans, => Fischen
Gui, Add, Text, x130 y460 w200 h20 cwhite +Left +BackgroundTrans, => KD (Nur für dich)
Gui, Add, Text, x130 y490 w200 h20 cwhite +Left +BackgroundTrans, => KD F-Chat
Gui, Add, Text, x130 y520 w200 h20 cwhite +Left +BackgroundTrans, => /engine
Gui, Add, Text, x130 y550 w200 h20 cwhite +Left +BackgroundTrans, => /lights
Gui, Add, Text, x130 y580 w200 h20 cwhite +Left +BackgroundTrans, => /lock
Gui, Add, Text, x130 y610 w200 h20 cwhite +Left +BackgroundTrans, => /notafk
Gui, Add, Text, x490 y70 w200 h20 cwhite +Left +BackgroundTrans , => Enter | Exit
Gui, Add, Text, x490 y100 w200 h20 cwhite +Left +BackgroundTrans, => Countdown
Gui, Add, Text, x490 y130 w200 h20 cwhite +Left +BackgroundTrans, => letzten Befehl wiederholen
Gui, Add, Text, x490 y160 w200 h20 cwhite +Left +BackgroundTrans, => /eatpizza
Gui, Add, Text, x490 y190 w200 h20 cwhite +Left +BackgroundTrans, => Gangwarkill
Gui, Add, Text, x490 y220 w200 h20 cwhite +Left +BackgroundTrans, => Backup rufen
Gui, Add, Text, x490 y250 w200 h20 cwhite +Left +BackgroundTrans, => kein Backup mehr benötigt
Gui, Add, Text, x490 y280 w200 h20 cwhite +Left +BackgroundTrans, => Fake drugs
Gui, Add, Text, x490 y310 w200 h20 cwhite +Left +BackgroundTrans, => Killspruch
Gui, Add, Text, x490 y340 w200 h20 cwhite +Left +BackgroundTrans, => /usedrugs
Gui, Add, Text, x490 y370 w200 h20 cwhite +Left +BackgroundTrans, => Incomming
Gui, Add, Text, x490 y400 w200 h20 cwhite +Left +BackgroundTrans, => kein Incoming
Gui, Add, Text, x490 y430 w200 h20 cwhite +Left +BackgroundTrans, => /orgmembers
Gui, Add, Text, x490 y460 w200 h20 cwhite +Left +BackgroundTrans, => /members
Gui, Add, Text, x490 y490 w200 h20 cwhite +Left +BackgroundTrans, => Fill - /get fuel
Gui, Add, Text, x490 y520 w200 h20 cwhite +Left +BackgroundTrans, => Deagle kaufen
Gui, Add, Text, x490 y550 w200 h20 cwhite +Left +BackgroundTrans, => Shotgun kaufen
Gui, Add, Text, x490 y580 w200 h20 cwhite +Left +BackgroundTrans, => M4 kaufen
Gui, Add, Text, x490 y610 w200 h20 cwhite +Left +BackgroundTrans, => Mp5 kaufen
Gui, Add, Text, x740 y70 w200 h20 cwhite +Left +BackgroundTrans, => Rifle kaufen
Gui, Add, Text, x740 y100 w200 h20 cwhite +Left +BackgroundTrans, => Sniper kaufen
Gui, Add, Text, x740 y130 w200 h20 cwhite +Left +BackgroundTrans, => Drogeninfo
Gui, Add, Button, x872 y350 w130 h30 ghhksave, Speichern
Gui, Show, x127 y87 h700 w1092 , Keybinder - Pascal | v2.9
Gui, Font, S12 CDefault, meins
SetTimer, DrogenE, 100
settimer, chatlog, 100
global fishing = 0
SetTimer, Gardenshop, 150
return
Settings:
if WinExist("Einstellungen") {
return
}
Gui, 2: Submit, NoHide
Gui, 2: Add, Tab, x0 y0 w800 h400, Funktionen|Overlay|Hotkeys|Textbefehle|Einstellungen
Gui, 2: Tab, 1
Gui, 2: Submit, NoHide
Gui, 2: Add, Text, BackgroundTrans x20 y35, Killspruch, wenn du jeamnden killst!
Gui, 2: Add, Edit, x20 y50 w190 h20 vkillspruch, %killspruch%
Gui, 2: Add, Edit, x20 y70 w190 h20 vkillspruch2, %killspruch2%
Gui, 2: Add, Edit, x20 y90 w190 h20 vkillspruch3, %killspruch3%
Gui, 2: Add, Edit, x20 y110 w190 h20 vkillspruch4, %killspruch4%
Gui, 2: Add, Edit, x20 y130 w190 h20 vkillspruch5, %killspruch5%
Gui, 2: Add, Edit, x20 y150 w190 h20 vkillspruch6, %killspruch6%
Gui, 2: Add, Edit, x20 y170 w190 h20 vkillspruch7, %killspruch7%
Gui, 2: Add, Edit, x350 y50 w190 h20 vgangwarspruch, %gangwarspruch%
Gui, 2: Add, Edit, x350 y70 w190 h20 vgangzonespruch, %gangzonespruch%
Gui, 2: Add, Text, BackgroundTrans x20 y190, BSP.: Hahaha du bist down du noob!
Gui, 2: Add, Text, BackgroundTrans x545 y50, <= Gangwar-Spruch im /f Chat
Gui, 2: Add, Text, BackgroundTrans x545 y70, <= Gangzone-Spruch im /f Chat
Gui, 2: Add, Text, BackgroundTrans x350 y100 w300 h500, In diese Felder, gebt ihr einen Spruch ein, der im FCHAT wiedergegeben wird, sobald ihr einen Gangwarkillspruch macht. Wenn ihr jetzt in dieses Kästchen z.B Hurenkill schreibt, gibt der es im F Chat so wieder " Hurenkill 239 " ( 239 sind jetzt indivduelle Zahlen, die bedeuten, wieviele kills du hast. Wenn du möchtest, dass er noch dazu schreibt das diese Zahl deine Killanzahl ist, schreibst du z.B Hurenskill Nr.  in das Kästchen, dan wird es im Fchat so wiedergegeben " Hurenkill Nr.239"
Gui, 2: Add, Checkbox, vcheckkillspruch X220 Y55 Checked%checkkillspruch%, Killspruch?
Gui, 2: Add, Checkbox, vfradarautom X20 Y250 Checked%fradarautom%, Autom. /fradar beim Login?
Gui, 2: Add, Checkbox, vhealaccept X20 Y275 Checked%healaccept%, Autom. Healannahme?
Gui, 2: Add, Checkbox, vhotdogaccept X20 Y300 Checked%hotdogaccept%, Autom. Hotdogannahme?
Gui, 2: Add, Checkbox, vmechaaccept X20 Y325 Checked%mechaaccept%, Autom. Refill + Repairannahme?
Gui, 2: Add, Button, x570 y310 w120 h30 gautomfunk, Speichern
Gui, 2: Tab, 2
Gui, 2: Add, Checkbox, voverlayactive X20 Y35 Checked%overlayactive%, Overlay an?
Gui, 2: Add, Checkbox, vhpactive X20 Y75 Checked%hpactive%, Heal-Overlay an?
Gui, 2: Add, Checkbox, vortactive X20 Y100 Checked%ortactive%, Ort-Overlay an?
Gui, 2: Add, Checkbox, vinfoactive X20 Y125 Checked%infoactive%, Info-Overlay an?
Gui, 2: Add, Checkbox, vwantedactive X20 Y150 Checked%wantedactive%, Wanted-Overlay an?
Gui, 2: Add, Checkbox, vpartneractive X20 Y175 Checked%partneractive%, Partner-Overlay an?
Gui, 2: Add, Checkbox, vopferactive X20 Y200 Checked%opferactive%, Opfer-Overlay an?
Gui, 2: Add, Checkbox, vcarstatusactive X20 Y225 Checked%carstatusactive%, Carstatus-Overlay an?
Gui, 2: Add, Checkbox, vernteactive X20 Y250 Checked%ernteactive%, Erntestatus-Overlay an?
Gui, 2: Add, Text, BackgroundTrans X110 Y35, Overlay verschieben? -> /ovmove
Gui, 2: Add, Button, x570 y310 w120 h30 goverlaysave, Speichern
Gui, 2: Show, x500 y350 h350 w700, Einstellungen
Gui, 2: Tab, 3
Gui,2: Add, hotkey, x22 y30 w100 h30 vhk1, %hk1%
Gui,2: Add, hotkey, x22 y70 w100 h30 vhk2, %hk2%
Gui,2: Add, hotkey, x22 y110 w100 h30 vhk3, %hk3%
Gui,2: Add, hotkey, x22 y150 w100 h30 vhk4, %hk4%
Gui,2: Add, hotkey, x22 y190 w100 h30 vhk5, %hk5%
Gui,2: Add, hotkey, x22 y230 w100 h30 vhk6, %hk6%
Gui,2: Add, hotkey, x22 y270 w100 h30 vhk7, %hk7%
Gui,2: Add, hotkey, x22 y310 w100 h30 vhk8, %hk8%
Gui,2: Add, hotkey, x22 y350 w100 h30 vhk9, %hk9%
Gui,2: Add, edit, x152 y30 w250 h30 vbefehl1, %Befehl1%
Gui,2: Add, edit, x152 y70 w250 h30 vbefehl2, %Befehl2%
Gui,2: Add, edit, x152 y110 w250 h30 vbefehl3, %Befehl3%
Gui,2: Add, edit, x152 y150 w250 h30 vbefehl4, %Befehl4%
Gui,2: Add, edit, x152 y190 w250 h30 vbefehl5, %Befehl5%
Gui,2: Add, edit, x152 y230 w250 h30 vbefehl6, %Befehl6%
Gui,2: Add, edit, x152 y270 w250 h30 vbefehl7, %Befehl7%
Gui,2: Add, edit, x152 y310 w250 h30 vbefehl8, %Befehl8%
Gui, 2: Add, Button, x570 y310 w120 h30 gbindseig, Speichern
Gui, 2: Tab, 4
Gui, 2: Add, Text, x14 y30 w999 h999
textbefehle =
(
/partner => Partner für Kidnap
/opfer => Opfer für Kidnap
/re => alte SMS antworten
/idsms => ID SMS
/idcall => ID CALL
/ud => drogen nehmen
/td => Drogen rausnehmen aus der box
/pd => Drogen in die box packen
/sd => selldrugs (nur id eingeben)
/sc => /spawnchange
/accinf => Account-Informationen
/sync => Synchronisation des Keybinders
/bb => Schönen Tag noch
/zeit => Zeit von Sekunden in Minuten
/laufen an/aus => ;))
/dog => who let the dog out?
/money => Benötige Geld
/fmoney => Benötige Geld (/F)
/gmoney => Benötige Geld (/G)
/kstand => Kontostand
/fstand => Kontostand (/F)
/gstand => Kontostand (/G)
/kd => Zeigt KD an
/fkd => Zeigt KD im /fchat an
)
Gui, 2: Add, Text, x14 y30 w999 h999 +readonly +BackgroundTrans, %textbefehle%
Gui, 2: Add, Text, x250 y30 w999 h100
textbefehle2 =
(
/odete => Zeigt die Detektive in der Orga an
/owd => Zeigt die Waffendealer in der Orga an
/odd => Zeigt die Drogendealer in der Orga an
/ohacker => Zeigt die Hacker in der Orga an
/omanager => Zeigt die Manager in der Orga an
/godete => Sagt die Detektive in der Orga an
/gowd => Sagt die Waffendealer in der Orga an
/godd => Sagt die Drogendealer in der Orga an
/gohacker => Sagt die Hacker in der Orga an
/gomanager => Sagt die Manager in der Orga an
/ilr => Iloveradio
/ilyr => IloveYOU radio
/top100 => Top100 fm Station
/stopradio => Beendet den Radiostream
/unblockchat => Gibt den Chat frei ( Sollte Antispam buggen )
/bk => Backup rufen
/bkend => Backup wird nicht benötigt
/deagle - alle waffen => waffen kaufen als kürzel
/dpartner => Partner für Detektivbinds
/suchen => Suchschleife (Skill 5)
/gfind => Zeigt den gesuchten im GCHAT an
/zeigen => Zeigt dem dpartner eine Person an
/stopfind => Beendet Sucheschleife
)
Gui, 2: Add, Text, x300 y30 w999 h999 +readonly +BackgroundTrans, %textbefehle2%
Gui, 2: Tab, 5
Gui,2: Add, text, x22 y30 w100 h30 +backgroundtrans, Drugs:
Gui,2: Add, text, x22 y70 w100 h30 +backgroundtrans, Deagle Munition:
Gui,2: Add, text, x22 y110 w100 h30 +backgroundtrans, Shotgun Munition:
Gui,2: Add, text, x22 y150 w100 h30 +backgroundtrans, MP5 Munition:
Gui,2: Add, text, x22 y190 w100 h30 +backgroundtrans, M4 Munition:
Gui,2: Add, text, x22 y230 w100 h30 +backgroundtrans, Rifle Munition:
Gui,2: Add, text, x22 y270 w100 h30 +backgroundtrans, Sniper Munition:
Gui,2: Add, edit, x152 y30 w250 h30 vDrugs, %Drugs%
Gui,2: Add, edit, x152 y70 w250 h30 vDeagle, %deagle%
Gui,2: Add, edit, x152 y110 w250 h30 vShotgun, %Shotgun%
Gui,2: Add, edit, x152 y150 w250 h30 vMP5, %MP5%
Gui,2: Add, edit, x152 y190 w250 h30 vM4, %M4%
Gui,2: Add, edit, x152 y230 w250 h30 vRifle, %Rifle%
Gui,2: Add, edit, x152 y270 w250 h30 vSniper, %Sniper%
Gui, 2: Add, Button, x570 y310 w120 h30 gbindseig, Speichern
return
Changelog:
gui,6: Destroy
Gui, Submit, NoHide
Gui,6: Add, Picture, x-528 y-290 w1720 h1140 , %A_MyDocuments%\Keybinder von Pascal\Hintergründe\chpmnks2.jpg
Gui,6: Show, h450 w450 , Changelog
Gui,6: Add, Text, x12 y20 w410 h370 , Changelog
changelog =
(
Changelog:
http://ryanbaretto.wix.com/keybinder-von-pascal
)
Gui,6: Add, Edit,x12 y20 w410 h370 +readonly, %changelog%
colorchange:
return
bindseig:
Hotkey, ~%hk1%, Labelhk1, Off, UseErrorLevel
Hotkey, ~%hk2%, Labelhk2, Off, UseErrorLevel
Hotkey, ~%hk3%, Labelhk3, Off, UseErrorLevel
Hotkey, ~%hk4%, Labelhk4, Off, UseErrorLevel
Hotkey, ~%hk5%, Labelhk5, Off, UseErrorLevel
Hotkey, ~%hk6%, Labelhk6, Off, UseErrorLevel
Hotkey, ~%hk7%, Labelhk7, Off, UseErrorLevel
Hotkey, ~%hk8%, Labelhk8, Off, UseErrorLevel
Gui, Submit, NoHide
Hotkey, ~%hk1%, Labelhk1, On, UseErrorLevel
Hotkey, ~%hk2%, Labelhk2, On, UseErrorLevel
Hotkey, ~%hk3%, Labelhk3, On, UseErrorLevel
Hotkey, ~%hk4%, Labelhk4, On, UseErrorLevel
Hotkey, ~%hk5%, Labelhk5, On, UseErrorLevel
Hotkey, ~%hk6%, Labelhk6, On, UseErrorLevel
Hotkey, ~%hk7%, Labelhk7, On, UseErrorLevel
Hotkey, ~%hk8%, Labelhk8, On, UseErrorLevel
IniWrite, %Drugs% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen, Drogen
IniWrite, %Deagle% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen , Deagle
IniWrite, %Shotgun% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen , Shotgun
IniWrite, %MP5% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen , MP5
IniWrite, %M4% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen , M4
IniWrite, %Rifle% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen , Rifle
IniWrite, %Sniper% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Einstellungen , Sniper
IniWrite, %hk1% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, hotkey1
IniWrite, %hk2% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, hotkey2
IniWrite, %hk3% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey3
IniWrite, %hk4% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey4
IniWrite, %hk5% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey5
IniWrite, %hk6% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey6
IniWrite, %hk7% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey7
IniWrite, %hk8% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , hotkey8
IniWrite, %Befehl1% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, befehl1
IniWrite, %Befehl2% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey, befehl2
IniWrite, %Befehl3% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl3
IniWrite, %Befehl4% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl4
IniWrite, %Befehl5% , %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl5
IniWrite, %Befehl6% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl6
IniWrite, %Befehl7% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl7
IniWrite, %Befehl8% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl8
IniWrite, %Befehl8% ,%A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, EigeneHotkey , befehl8
MsgBox, 8240, Keybinder - Pascal, Du hast die Einstellungen gespeichert!
return
hhksave:
Gui, Submit, NoHide
Loop, 41 {
HHotkey := Hotkey%A_Index%
IniWrite, %HHotkey%, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, HK, Hotkey%A_Index%
}
MsgBox, 8240, Keybinder - Pascal, Du hast die Einstellungen gespeichert!
gosub, Hotkeydefine
Reload
return
automfunk:
Gui, 2: Submit, NoHide
IniWrite,%killspruch%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch
IniWrite,%killspruch2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch2
IniWrite,%killspruch3%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch3
IniWrite,%killspruch4%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch4
IniWrite,%killspruch5%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch5
IniWrite,%killspruch6%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch6
IniWrite,%killspruch7%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Killspruch7
IniWrite,%checkkillspruch%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, HakenKillspruch
IniWrite,%gangwarspruch%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, gangwarspruch
IniWrite,%gangzonespruch%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, gangzonespruch
IniWrite,%healaccept%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, HealAccept
IniWrite,%hotdogaccept%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, HotdogAccept
IniWrite,%mechaaccept%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, MechaAccept
IniWrite,%fradarautom%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Fradar
MsgBox, 8240, Keybinder - Pascal, Du hast die Einstellungen gespeichert!
return
overlaysave:
Gui, 2: Submit, NoHide
IniWrite,%overlayactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, OverlayActive
IniWrite,%hpactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HPActive
IniWrite,%ortactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, OrtActive
IniWrite,%infoactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, InfoActive
IniWrite,%wantedactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, WantedActive
IniWrite,%partneractive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, PartnerActive
IniWrite,%opferactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, OpferActive
IniWrite,%carstatusactive%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, CarstatusActive
MsgBox, 8240, Keybinder - Pascal, Du hast die Einstellungen gespeichert , 5
return
GuiClose:
ExitApp
return
restart:
reload
return
2GuiClose:
Gui, Destroy
return
cmdGuiClose:
Gui, Destroy
return
Hotkeydefine:
Loop, 41
{
HHotkey := Hotkey%A_Index%
Hotkey, ~%HHotkey%, Label%A_Index%, UseErrorLevel
}
return
Label1:
if(isInChat())
return
hp := GetPlayerHealth()
Sendchat("/f - HP: " hp " HP - Wanteds: " mywanteds " Wanteds")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}- HP: {AA6C39}" hp " {FAFAFA}HP - Wanteds: {AA6C39}" mywanteds " {FAFAFA}Wanteds")
return
Label2:
if(isInChat())
return
SendChat("Hi, ich bin " getusername() ", wie gehts?")
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\hello.mp3
return
Label3:
if(isInChat())
return
SendChat("/time")
if(ReadStats_s(text))
{
KillsDM := keyForEntry(text, "Kills \(DM\)")
tode := keyForEntry(text, "Tode")
myrank := keyForEntry(text, "Rang")
myfrak := keyForEntry(text, "Team")
mydrugs := keyForEntry(text, "Drogen")
mywanteds := keyForEntry(text, "WantedLevel")
RegExMatch(KillsDM, "(.*)\((.*)\)" ,kills)
mykills := deldots(kills1)
mydeaths := deldots(tode)
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA} Tode: {AA6C39}" mydeaths " ")
}
return
Label4:
if(IsInChat())
return
Sendchat("/gtake drugs " drugs "")
return
Label5:
if(IsInChat())
return
Sendchat("/stats")
if(ReadStats_s(text))
{
KillsDM := keyForEntry(text, "Kills \(DM\)")
tode := keyForEntry(text, "Tode")
myrank := keyForEntry(text, "Rang")
myfrak := keyForEntry(text, "Team")
mydrugs := keyForEntry(text, "Drogen")
mywanteds := keyForEntry(text, "WantedLevel")
RegExMatch(KillsDM, "(.*)\((.*)\)" ,kills)
mykills := deldots(kills1)
mydeaths := deldots(tode)
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA} Tode: {AA6C39}" mydeaths "{FAFAFA} Drogen: {AA6C39}" mydrugs "{FAFAFA} Wanteds: {AA6C39}"mywanteds " ")
}
return
Label6:
if(IsInChat())
return
SendChat("/kidnap " opferid " " partnerid " 0")
return
Label7:
if(IsInChat())
return
SendChat("/carlock")
return
Label8:
if(IsInChat())
return
SendChat("/scarlock")
return
Label9:
if(IsInChat())
return
SendChat("/kidnap " opferid " " partnerid " 1")
return
Label10:
if(IsInChat())
return
SendChat("" mywanteds " Wanteds - " wgrund " - " wzeuge "")
return
Label11:
if(IsInChat())
return
SendChat("/f " mywanteds " Wanteds - " wgrund " - " wzeuge "")
return
Label12:
if(isInChat())
return
KD := Kills / Tode
myid := getPlayerIdByName(myname)
SendChat("/f HP: " GetPlayerHealth() ", ID: " getid() ", Ping: " getPlayerPingById(getid()) ", Drogen: " mydrugs "g, Wanteds: " mywanteds " ")
return
Label13:
if(IsInChat())
return
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
if(mydkd == "")
{
mydkd = %mydkills%.000
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills ",{FFFFFF} Tode: {AA6C39}" mydeaths ",{FFFFFF} KD: {AA6C39}" round(mykd, 3))
return
Label14:
if(IsInChat())
return
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
if(mydkd == "")
{
mydkd = %mydkills%.000
}
SendChat("/f Kills: " mykills ", Tode: " mydeaths ", KD: " round(mykd, 3))
return
Label15:
if(IsInChat())
return
if(IsPlayerInAnyVehicle() = 0)
{
settimer, warten1, 115
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Motorstart vorgemerkt!")
}
else
SendChat("/engine")
return
Label16:
if(isInChat())
return
SendChat("/lights")
return
Label17:
if(isInChat())
return
SendChat("/lock")
return
Label18:
if(IsInChat())
return
SendInput t/notafk{space}
return
~delete::
Label19:
if(isInChat())
return
if(getplayerinteriorid() != "0")
{
SendChat("/exit")
}
else
{
SendChat("/enter")
}
return
Label20:
if(isInChat())
return
{
SendChat("Countdown wurde gestartet..")
KeyWait, <, D T2
If !ErrorLevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Countdown abgebrochen!")
return
}
}
{
SendChat("» 3 «")
KeyWait, <, D T1
If !ErrorLevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Countdown abgebrochen!")
return
}
}
{
SendChat("» 2 «")
KeyWait, <, D T1
If !ErrorLevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Countdown abgebrochen!")
return
}
}
{
SendChat("» 1 «")
KeyWait, <, D T1
If !ErrorLevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Countdown abgebrochen!")
return
}
}
SendChat("Los!")
KeyWait, <, D T1
If !ErrorLevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Countdown abgebrochen!")
return
}
return
:?:/partner::
Suspend permit
SendInput /id{space}
Input, partnerid, V I M,{enter}
If(partnerid = "")
{
SendInput, {end}+{home}{Del}{Esc}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Keine Eingabe!")
return
}
else
{
sleep 200
{
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ID:
{
RegExMatch(A_LoopReadLine, "ID: \((.*)\) (.*), Level (.*)" ,partnerauslese)
partnerid := partnerauslese1
partnername := partnerauslese2
}
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Neuer Partner: {AA6C39}" partnername "{FAFAFA} - ID: {AA6C39}" partnerid "")
SendChat("/f Ich versuche nun mit " partnername "[ID: " partnerid "] zu nappen. ")
if(partneractive == 1)
{
Textsetstring(partneroverlay, "Partner: " partnername " (ID: " partnerid ")")
}
}
return
:?:/opfer::
Suspend permit
SendInput /id{space}
Input, opferid, V I M,{enter}
If(opferid = "")
{
SendInput, {end}+{home}{Del}{Esc}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Keine Eingabe!")
return
}
else
{
sleep 200
{
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ID:
{
RegExMatch(A_LoopReadLine, "ID: \((.*)\) (.*), Level (.*)" ,opferauslese)
opferid := opferauslese1
opfername := opferauslese2
}
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Neues Kidnapopfer:{AA6C39}" opfername "{FAFAFA} - ID:{AA6C39}" opferid "")
SendChat("/f Ich versuche " opfername "[ID: " opferid "] zu nappen. ")
if(opferactive == 1)
{
Textsetstring(opferoverlay, "Opfer: " opfername " (ID: " opferid ")")
}
}
return
:?:/re::
Suspend permit
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If (!A_LoopReadLine)
Continue
If (InStr(A_LoopReadLine, "SMS: ",12)) {
smstext := SubStr(A_LoopReadLine, 12)
RegExMatch(smstext, "SMS: (.*), Sender: (.*) \((\d+)\)" ,ad)
replytext1 := ad1
replyname1 := ad2
replynumber1 := ad3
}
}
if(replyname1 != "" getUsername() "")
{
replytext := replytext1
replyname := replyname1
replynumber := replynumber1
}
SendInput /sms %replynumber%{space}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} SMS an {AA6C39} " replynumber " ")
return
:?:/sc::
suspend permit
sendinput {enter}
sendchat("/spawnchange")
Suspend Off
return
:?:/sd::
Suspend permit
Sendinput /selldrugs{space}{space}2{space}4000{left}{left}{left}{left}{left}{left}{left}
Suspend Off
return
:?:/td::
Suspend Permit
SendInput /gtake drugs{space}
return
:?:/pd::
suspend permit
sendinput /put drugs{space}
return
:?:/p::
Suspend Permit
SendInput {ESC}
SendChat("/pickup")
SendChat("Hallo, ich bin " getUsername() ", " myrank " der " myfrak ".")
return
:?:/ab::
Suspend Permit
SendInput {ESC}
SendChat("/pickup")
SendChat("Hallo, ich bin " getUsername() " und habe gerade keine Zeit")
SendChat("Schreib mir doch eine SMS")
SendChat("/H")
return
:?:/ohacker::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
ohack := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(chat, "Hacker"))
ohack ++
index ++
var := 1
}
else
{
var := 0
}
}
AddChatMessage("{40FF00} 〉〉 b_B {AA6C39}" ohack "{FFFFFF} Hacker aus der Organisation online.")
return
:?:/gohacker::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
ohack := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(chat, "Hacker"))
ohack ++
index ++
var := 1
}
else
{
var := 0
}
}
SendChat("/g Es sind " ohack " Hacker aus der Organisation online.")
return
:?:/odete::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
odete := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Detektiv"))
odete ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
AddChatMessage("{40FF00} 〉〉 b_B {AA6C39}" odete "{FFFFFF} Detektive aus der Organisation online.")
return
:?:/godete::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
odete := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Detektiv"))
odete ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
SendChat("/g Es sind " odete " Detektive aus der Organisation online.")
return
:?:/odd::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
odd := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Drogendealer"))
odd ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
AddChatMessage("{40FF00} 〉〉 b_B {AA6C39}" odd "{FFFFFF} Drogendealer aus der Organisation online.")
return
:?:/godd::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
odd := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Drogendealer"))
odd ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
SendChat("/g Es sind " odd " Drogendealer aus der Organisation online.")
return
:?:/owd::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
owd := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Waffenhändler"))
owd ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
AddChatMessage("{40FF00} 〉〉 b_B {AA6C39}" owd "{FFFFFF} Waffendealer aus der Organisation online.")
return
:?:/gowd::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
owd := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Waffenhändler"))
owd ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
SendChat("/g Es sind " owd " Waffendealer aus der Organisation online.")
return
:?:/omanager::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
owd := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Manager"))
omg ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
AddChatMessage("{40FF00} 〉〉 b_B {AA6C39}" omg "{FFFFFF} Manager aus der Organisation online.")
return
:?:/gomanager::
suspend permit
Send, {enter}
SendChat("/orgmembers")
sleep , 350
owd := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
if(InstR(text, "Manager"))
omg ++
index ++
var := 1
}
else
{
var := 0
}
}
sleep, 250
SendChat("/g Es sind " omg " Manager aus der Organisation online.")
return
:?:/clearchat::
suspend permit
send, {enter}
loop, 20
AddChatMessage("{FFFFFF} " "")
Suspend off
return
:?:/orginf::
Suspend Permit
SendInput Organisation:{space}
Input,forgname,V I M,{enter}
SendInput t{end}+{home}{esc}
Sendinput t{del}{enter}
SendChat("/g • " forgname " •")
SendChat("/g • Ihr wollt etwas für unsere Organisation tun? •")
SendChat("/g • schreibt Werbungen(/ad) für die Organisation! •")
SendChat("/g • Wir suchen derzeit noch Hacker, Detektive, Drogendealer sowie Anwälte •")
return
:?:/al::
Suspend Permit
SendInput {ESC}
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If InStr(A_LoopReadLine, "/accept drugs")
{
Service = drugs
}
else If InStr(A_LoopReadLine, "/accept sex")
{
Service = sex
}
else If InStr(A_LoopReadLine, "/accept repair")
{
Service = repair
}
else If InStr(A_LoopReadLine, "/accept refill")
{
Service = refill
}
else If InStr(A_LoopReadLine, "/accept heal")
{
Service = heal
}
else If InStr(A_LoopReadLine, "/accept hotdog")
{
Service = hotdog
}
else If InStr(A_LoopReadLine, "/accept ticket")
{
Service = ticket
}
else If InStr(A_LoopReadLine, "/accept lesson")
{
Service = lesson
}
}
SendChat("/accept " Service)
SendChat("Danke brother from another mother ")
return
:?:/wh::
Suspend Permit
SendChat("/service")
sleep 100
SendInput {down 5}{enter}
return
:?:/medic::
Suspend Permit
SendChat("/service")
sleep 100
SendInput {down 1}{enter}
return
:?:/ep::
Suspend Permit
SendInput {ESC}
SendChat("/eatpizza")
return
:?:/ud::
Suspend Permit
SendInput {ESC}
SendChat("/usedrugs")
return
:?:/ff::
Suspend Permit
SendInput /fastfood{space}{space}{space}1{left 2}
return
:?:/sp::
Suspend Permit
SendInput /sellpizza{space}
return
:?:/tp::
Suspend Permit
Input, takepizza, V I M,{enter}
If(takepizza = "" || takepizza > 10 || takepizza < 1)
{
SendInput, {end}+{home}{Del}{Esc}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Überprüfe deine Eingabe")
return
}
else
{
SendInput, {end}+{home}{Del}{Esc}
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kaufe {AA6C39}" takepizza "x {FFFFFF} Pizza.")
Loop, %takepizza%
{
sleep 1200
SendChat("/takepizza")
if(a_index = takepizza)
{
AddChatMessage("{40FF00} 〉〉 b_B {AA6C39}" takepizza "x {FFFFFF}Pizza gekauft.")
}
}
}
}
return
:?:/fgc::
Suspend Permit
SendInput {ESC}
SendChat("/fixgangcar")
return
:?:/lgc::
Suspend Permit
SendInput {ESC}
SendChat("/listgangcars")
return
:?:/hi::
Suspend Permit
SendInput {ESC}
SendChat("Hi, ich bin " getUsername() ", " myrank " der " myfrak ".")
return
:?:/bk::
Suspend Permit
SendInput {ESC}
MyZone := GetZoneName()
SendChat("/f Benötige umgehend Unterstützung! >" myzone ", Health: " myhealth)
Settimer, backup, 5000
return
:?:/bkend::
Suspend Permit
SendInput {ESC}
SendChat("/f Brauche keine Hilfe mehr jungs hab alle")
Settimer, backup, off
return
:?:/gj::
Suspend Permit
SendInput t/gangjail{space}
return
:?:/restart::
reload
return
:?:/guj::
Suspend Permit
SendInput /gangunjail{space}
return
:?:/ein::
Suspend Permit
SendInput {ESC}
SendChat("/atm")
sleep 250
Send {enter}
return
:?:/aus::
Suspend Permit
SendInput {ESC}
SendChat("/atm")
sleep 250
Send {down}
Send {enter}
return
:?:/über::
Suspend Permit
SendInput {ESC}
SendChat("/atm")
sleep 250
Send {down}
Send {down}
Send {enter}
return
:?:/wm::
Suspend Permit
SendInput {ESC}
SendChat("/service")
sleep 100
Send, {down 5}
Send, {enter}
return
:?:/bd::
Suspend Permit
SendInput {ESC}
SendChat("/buydonut")
sleep 250
Send, {enter}
sleep 100
SendInput 1{enter}
return
:?:/bd10::
Suspend Permit
SendInput {ESC}
SendChat("/buydonut")
sleep 250
Send, {enter}
sleep 100
SendInput 10{enter}
return
:?:/anwalt::
Suspend Permit
SendChat("/g Ich suche einen Anwalt im " lastcity " PD! (ID: " myid ")")
return
:?:/reset::
Suspend Permit
SendInput {ESC}
partnername = -
partnerid = -
opfername = -
opferid = -
TextSetString(partneroverlay, "")
TextSetString(opferoverlay, "")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Partner und Opfer zurückgesetzt.")
return
:?:/q::
SendInput, /q{enter}
druglimit = 26
killstreak = 0
IniWrite, %druglimit%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Drogen, Drogenlimit
IniWrite, %killstreak%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Killstreak
return
:?:/resetdrugs::
SendInput, {ESC}
druglimit = 26
IniWrite, %druglimit%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Drogen, Drogenlimit
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogenlimit auf 28g zurückgesetzt.")
return
:?:/accept diceinvite::
Suspend Permit
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}HAHAHAH denk nicht, du kannst dicen")
Sendchat("/me darf keine diceinvites annehmen")
Sendinput, {enter}
Suspend Off
return
:?:/diceinvite::
Suspend Permit
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du wirst auch keinen zum dicen inviten verstanden?!")
Sendchat("/me darf keinem zum dicen inviten")
Sendinput, {enter}
Suspend Off
return
:?:/dice::
Suspend Permit
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du wirst sicherlich nicht dicen!")
Sendchat("/me darf nicht dicen")
Sendinput, {enter}
Suspend Off
return
:?:/hdl::
Suspend Permit
SendInput {ESC}
SendChat("· • • __/\__ · • ·__/\__· • · __/\__· • ·__/\__")
SendChat("· • • ) ICH ( ··· ) HAB ( ·· )DICH( ·· )LIEB(")
SendChat("· • • ¯¯\/¯¯ · • ·¯¯\/¯¯· • · ¯¯\/¯¯· • ·¯¯\/¯¯")
return
:?:/money::
Sendinput {enter}
Suspend Permit
SendChat("Ich habe Minus Geld auf der Hand, kann mir jemand bitte etwas geben? $$")
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\moneyismoneylan.mp3
return
:?:/fmoney::
Sendinput {enter}
Suspend Permit
SendChat("/f Ich habe Minus Geld auf der Hand, kann mir jemand bitte etwas geben? $$")
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\moneyismoneylan.mp3
return
:?:/fhdl::
Suspend Permit
SendInput {ESC}
SendChat("/f · • • __/\__ · • ·__/\__· • · __/\__· • ·__/\__")
SendChat("/f · • • ) ICH ( ··· ) HAB ( ·· )DICH( ·· )LIEB(")
SendChat("/f · • • ¯¯\/¯¯ · • ·¯¯\/¯¯· • · ¯¯\/¯¯· • ·¯¯\/¯¯")
return
:?:/dpartner::
Suspend permit
SendInput /id{space}
Input, detepartnerid, V I M,{enter}
If(detepartnerid = "")
{
SendInput, {end}+{home}{Del}{Esc}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Keine Eingabe!")
return
}
else
{
sleep 200
{
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ID:
{
RegExMatch(A_LoopReadLine, "ID: \((.*)\) (.*), Level (.*)" ,detepartnerauslese)
detepartnerid := detepartnerauslese1
detepartnername := detepartnerauslese2
}
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Detektiv Partner -> {AA6C39}" detepartnername "{FFFFFF}; ID {AA6C39}" detepartnerid " ")
}
return
:?:/zeigen::
Suspend Permit
SendInput {ESC}
If(detepartnerid = "")
{
SendInput, {end}+{home}{Del}{Esc}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du musst per /dpartner einen Detektiv Parnter eingeben du Jodler!")
return
}
else
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Gebe die ID an, die gesucht werden soll!")
SendInput t^a/showpos{space}%detepartnerid%{space}
Input ID2, V I M,{enter}
ShowGameText("~w~ Suche ~g~gestartet!",2000,4)
Sleep 200
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du zeigst{AA6C39}" detepartnername "{FFFFFF} ID: {AA6C39}" id2 "{FFFFFF} an.")
SendChat("/showpos " . detepartnerid . " " . ID2 . " ")
settimer, zeigen, 7000
return
zeigen:
SendChat("/showpos " . detepartnerid . " " . ID2 . " ")
return
:?:/suchen::
Suspend Permit
SendInput /find{space}
Input,fID,V I M,{enter}
global suchid := fID
global Playername := GetPlayerNameById(suchid)
settimer, suchen, 7000
return
suchen:
SendChat("/find " suchid)
return
global gchat := 0
Settimer, GChatlog, 100
:?:/gfind::
Suspend Permit
SendInput /find{space}
Input,fID,V I M,{enter}
global suchid := fID
global Playername := GetPlayerNameById(suchid)
gchat := 1
settimer, gchat, 7000
settimer, gchatlog, 250
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Du sucht nun nach " Playername " (ID:" suchid ")")
Sendchat("/g Die Suche nach " Playername " (ID:" suchid ") wird gestartet!")
Suspend Off
Return
:?:/stopfind::
Sendinput {enter}
Suspend Permit
global gchat := 0
settimer, gchat, off
settimer, suchen, off
settimer, zeigen, off
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Du sucht nun nicht mehr nach " Playername " (ID:" suchid ")")
suspend off
Return
gchat:
SendChat("/find " suchid)
return
GChatlog:
GetChatline(0,aktuellerchat0)
If(InStr(aktuellerchat0, "Der Spieler ist in") && gchat == 1)
{
RegExMatch(aktuellerchat0, "Der Spieler ist in (.*)", cafindregexMatch)
Sendchat("/g Der gesuchte " Playername " (ID:" suchid ") ist in " . cafindregexMatch1 "")
}
return
:?:/dog::
Suspend Permit
SendInput {ESC}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} WHO LET THE DOG OUT")
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\dog.mp3
Suspend off
return
Label21:
if(isInChat())
return
SendInput t{up}{enter}
return
Label22:
if(isInChat())
return
SendChat("/eatpizza")
return
:?:/sync::
Sendinput,{enter}
if(ReadStats_s(text))
{
KillsDM := keyForEntry(text, "Kills \(DM\)")
tode := keyForEntry(text, "Tode")
myrank := keyForEntry(text, "Rang")
myfrak := keyForEntry(text, "Team")
mydrugs := keyForEntry(text, "Drogen")
mywanteds := keyForEntry(text, "WantedLevel")
RegExMatch(KillsDM, "(.*)\((.*)\)" ,kills)
mykills := deldots(kills1)
mydeaths := deldots(tode)
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "")
}
return
:?:/accinf::
SendInput,{enter}
if(ReadStats_s(text))
{
level := keyForEntry(text, "Level")
payday := keyForEntry(text, "Minuten seit Payday")
bank := keyForEntry(text, "Bank")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Level: {AA6C39}" level "{FAFAFA} | Zeit seit Payday: {AA6C39}" payday "{FAFAFA} | Bankvermögen: {AA6C39}" bank " ")
}
return
:?:/fstand::
SendInput,{enter}
if(ReadStats_s(text))
{
bank := keyForEntry(text, "Bank")
SendChat("/f Ich hab ein Bankvermögen von: " bank "")
}
return
:?:/kstand::
SendInput,{enter}
if(ReadStats_s(text))
{
bank := keyForEntry(text, "Bank")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Ich hab ein Bankvermögen von: {AA6C39}" bank "")
}
return
:?:/gstand::
SendInput,{enter}
if(ReadStats_s(text))
{
bank := keyForEntry(text, "Bank")
SendChat("/g Ich hab ein Bankvermögen von: " bank "")
}
return
Label23:
if(isInChat())
return
mykills +=1
mydkills++
killstreak++
mykd := mykills / mydeaths
SendChat("/f " gangwarspruch " " round(mykills, 0) "")
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\gangwarkill.wav
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA}| KD: {AA6C39}" round(mykd, 3))
if(killstreak == 3) {
SendChat("/f " killstreak "er Killstreak erreicht!")
} else if(killstreak == 6) {
SendChat("/f " killstreak "er Killstreak erreicht!")
} else if(killstreak == 9) {
SendChat("/f " killstreak "er Killstreak erreicht!")
} else if(killstreak == 12) {
SendChat("/f " killstreak "er Killstreak erreicht!")
}
IniWrite, %mydkills%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Kills
IniWrite, %killstreak%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Killstreak
if(checkkillspruch == 1)
{
Random, var, 1, 7
Gosub, Spruch%var%
}
Textsetstring(overlaystats, "{FFFFFF}" mykills " Kills {FFFFFF}| " mydeaths " Tode | KD: " mykd "")
return
Label24:
if(isInChat())
return
myzone := GetZoneName()
SendChat("/f BRAUCHE B A C K U P IN >" myzone ", Health: " myhealth)
Settimer, backup, 5000
return
Label25:
if(isInChat())
return
SendChat("/f ich brauche kein Backup mehr!")
Settimer, backup, off
return
Label26:
if(isInChat())
return
Sendchat("/Me pfeift sich 2 Gramm Drogen rein.")
return
Label27:
if(isInChat())
return
Random, var, 1, 7
Gosub, Spruch%var%
Return
Spruch1:
SendChat(""killspruch5 " ")
Return
Spruch2:
SendChat(""killspruch6 " ")
Return
Spruch3:
SendChat(""killspruch7 " ")
return
Spruch4:
SendChat(""killspruch " ")
return
Spruch5:
SendChat(""killspruch2 " ")
return
Spruch6:
SendChat(""killspruch3 " ")
return
Spruch7:
SendChat(""killspruch4 " ")
return
Label28:
Sendchat("/usedrugs")
return
Label29:
if(isinChat())
return
myzone := GetZoneName()
SendChat("/f I N C O M I N G Standort: " myzone)
SendChat("/f I N C O M I N G Standort: " myzone)
SendChat("/f I N C O M I N G Standort: " myzone)
return
Label30:
if(isinChat())
return
myzone := GetZoneName()
SendChat("/f Wir sind nichtmehr unterwegs! Standort: " myzone)
return
Label31:
if(isinChat())
return
SendChat("/orgmembers")
sleep , 350
orgmembers := 0
var := 1
index := 0
while ( var == 1 )
{
GetChatLine(index, text)
if ( InStr(text, "(Tel."))
{
orgmembers ++
index ++
var := 1
}
else
{
var := 0
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind {AA6C39}" orgmembers "{FFFFFF} Member der Organisation online.")
return
Label32:
if(isinChat())
return
SendChat("/members")
Sleep 800
loop{
GetChatLine(A_Index - 1, chat)
if(InStr(chat, ", Rank:") OR InStr(chat, ", Leader"))
members := A_Index
else
break
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind {AA6C39}" members "{FFFFFF} Members online.")
Suspend Off
return
Label33:
if(isInChat())
return
SendChat("/fill")
sleep 2500
SendChat("/get fuel")
return
Label34:
if(isInChat())
return
SendChat("/buygun deagle " deagle " ")
return
Label35:
if(isInChat())
return
Sendchat("/buygun shotgun " shotgun " ")
return
Label36:
if(isInChat())
return
Sendchat("/buygun m4 " m4 " ")
return
Label37:
if(isInChat())
return
Sendchat("/buygun mp5 " mp5 " ")
return
Label38:
if(isInChat())
return
Sendchat("/buygun rifle " rifle " ")
return
Label39:
if(isInChat())
return
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Sniper kaufen? Aber das wird teuer !! Drücke {FAFAFA}'{AA6C39}O{FAFAFA}' um zu bestätigen.")
KeyWait, o, D T5
If !Errorlevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Sniper gekauft.")
SendChat("/buygun sniper " sniper " ")
}
else
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Sniper nicht gekauft.")
}
Return
Labelhk1:
if(isInChat())
Return
Sendchat(befehl1)
Return
Labelhk2:
if(isInChat())
Return
Sendchat(befehl2)
Return
Labelhk3:
if(isInChat())
Return
Sendchat(befehl3)
Return
Labelhk4:
if(isInChat())
Return
Sendchat(befehl4)
Return
Labelhk5:
if(isInChat())
Return
Sendchat(befehl5)
Return
Labelhk6:
if(isInChat())
Return
Sendchat(befehl6)
Return
Labelhk7:
if(isInChat())
Return
Sendchat(befehl7)
Return
Labelhk8:
if(isInChat())
Return
Sendchat(befehl8)
Return
chatlog_zeile := -1
chatlog:
myhealth := GetPlayerHealth()
mycardl := GetVehicleHealth()
myname := getUsername()
myid := getPlayerIdByName(myname)
myping := getPlayerPingById(myid)
mycardl := getVehicleHealth()
mymoney := getPlayerMoney()
If(GetPlayerHealth() != Healthalt)
{
Schaden := Healthalt - GetPlayerHealth()
Healthalt := GetPlayerHealth()
if(Schaden < 200 AND Schaden > 2) {
AddChatMessage("{0D4D4D} 〉〉 b_B {B40431}- " Schaden "{FFFFFF} HP verloren, noch {33AA33}" GetPlayerHealth()"{FFFFFF} HP übrig.")
if(GetPlayerHealth() <= 47 AND GetPlayerHealth() > 0)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {B40431}ONE HIT ONE HIT ONE HIT ONIE HIT ONE HIT")
}
}
}
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If (chatlog_zeile >= A_Index)
{
Continue
}
else
{
IfInString, A_LoopReadLine, Du hast wegen deines Todes
{
tod := 1
mydeaths ++
myddeaths ++
killstreak := 0
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
SoundSetWaveVolume, 50
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\baby2.wav
SoundSetWaveVolume, 100
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein killstreak wurde resetet. ")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA}, Tode: {AA6C39}" mydeaths ", {FAFAFA}KD: {AA6C39}" mykd)
mydrugs = 0
druglimit = 26
backup := 1
if(mymoney < 101)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dir den nächsten Besuch im Ammunation {AA6C39}nicht {FFFFFF}leisten!")
}
if(myzone = "")
{
SendChat("/f down - im Interior ")
}
else
{
SendChat("/f down - in " myzone "")
}
}
IfInString, A_LoopReadLine, Sender:
{
if(CheckSMS == 0)
return
else
{
{
{
name := getUsername()
If !InStr(A_LoopReadLine, ", Sender: "name)
index1 := a_index
}
}
if (index2 < index1)
{
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\sms.wav
index2 := index1
}
}
}
IfInString, A_LoopReadLine, Antiflood: Achtung!
{
BlockChatInput()
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Antispammkick aktiviert.")
Sleep, 2000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst nun wieder in den Chat schreiben!")
unBlockChatInput()
}
IfInString, A_LoopReadLine, Du hast deine Schuld gegenüber der Gesellschaft beglichen
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du bist Frei!!.")
myzone := GetZoneName()
SendChat("/f bin aus dem Knast! Brauche Abholung in: " myzone " ")
}
IfInString, A_LoopReadLine, Sender:
{
{
{
name := getUsername()
If !InStr(A_LoopReadLine, ", Sender: "name)
index1 := a_index
}
}
if (index2 < index1)
{
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\sms.wav
index2 := index1
}
}
IfInString, A_LoopReadLine, SERVER: Willkommen
{
if(fradar == 0)
return
{
SendChat("/fradar")
}
}
IfInString, A_LoopReadLine, bietet dir eine Heilung
{
if(healaccept == 0)
return
{
SendChat("/accept heal")
SendChat("Danke brother from another mother ")
}
}
IfInString, A_LoopReadLine, bietet dir die Betankung deines Autos mit
{
if(mechaaccept == 0)
return
{
SendChat("/accept refill")
SendChat("Danke brother from another mother ")
}
}
IfInString, A_LoopReadLine,bietet dir eine Reparatur deines Wagens für
{
if(mechaaccept == 0)
return
{
SendChat("/accept repair")
}
}
IfInString, A_LoopReadLine, bietet dir einen Hotdog für
{
if(hotdogaccept == 0)
return
{
SendChat("/accept hotdog")
SendChat("Danke brother from another mother ")
}
}
IfInString, A_LoopReadLine, Aktuelles Wantedlevel
IfInString, A_LoopReadLine, sagt:
{
Continue
}
else
{
{
RegExMatch(A_LoopReadLine, "A).*Aktuelles Wantedlevel: (.*)",wanted)
mywanteds := wanted1
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Neues Wantedlevel erkannt.")
}
IfInString, A_LoopReadLine, gelöscht. Grund:
IfInString, A_LoopReadLine, sagt:
{
Continue
}
else
{
IfInString, A_LoopReadLine, hat dein Beschusswanted gelöscht.
{
mywanteds := mywanteds - 2
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dir wurde dein Beschusswanted gelöscht! {FAFAFA}Wantedlevel: {AA6C39}" mywanteds)
}
else
{
RegExMatch(A_LoopReadLine, "hat dir (.*) (.*) gelöscht.",clear)
sleep 250
mywanteds := mywanteds - clear1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dir wurden {AA6C39}" clear1 " " clear2 "{FFFFFF} gelöscht! Wantedlevel: {AA6C39}" mywanteds)
}
}
IfInString, A_LoopReadLine, hat sich in deine Polizeiakte gehackt
{
{
RegExMatch(A_LoopReadLine, "hat sich in deine Polizeiakte gehackt und (.*) (.*)",hack)
mywanteds := mywanteds - hack1
}
}
IfInString, A_LoopReadLine, Du hast folgendes Verbrechen begangen:
IfInString, A_LoopReadLine, sagt:
{
Continue
}
else
{
RegExMatch(A_LoopReadLine, "Du hast folgendes Verbrechen begangen: \[(.*)\], Zeuge: (.*)",grund)
wgrund := grund1
wzeuge := grund2
IniWrite, %wgrund%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, Wanteds, WantedGrund
IniWrite, %wzeuge%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, Wanteds, WantedZeuge
}
IfInString, A_LoopReadLine, Sekunden eingesperrt
{
IfInString, A_LoopReadLine, Sekunden eingesperrt und verlierst wegen Flucht und Kill durch einen
{
RegExMatch(A_LoopReadLine, "Du wurdest für (.*) Sekunden",knastinfo)
minutenknastzeit := knastinfo2 / 60
StringSplit, minutenknastzeit2, minutenknastzeit, `.,
SendChat("/f Sitze für " minutenknastzeit2 " Minuten im " lastcity " PD")
mywanteds = 0
}
else
{
RegExMatch(A_LoopReadLine, "Du wurdest von (.*) für (.*) Sekunden eingesperrt." ,knastinfo)
minutenknastzeit := knastinfo2 / 60
StringSplit, minutenknastzeit2, minutenknastzeit, `.,
SendChat("/f Ich wurde von " knastinfo1 " für " minutenknastzeit21 " Minuten eingesperrt!")
mywanteds = 0
}
}
IfInString, A_LoopReadLine, Du hast 2 Gramm Drogen genommen
{
Settimer, usedrugs, 20000
mydrugs--
mydrugs--
druglimit--
druglimit--
IniWrite, %druglimit%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, Drogen, Drogenlimit
}
IfInString, A_LoopReadLine, Weil du gestorben bist, hast du die Drogen, die du dabei hattest, verloren.
{
mydrugs = 0
}
IfInString, A_LoopReadLine, Du musstest in die Entzugsklinik.
{
druglimit = 26
IniWrite, %druglimit%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, Drogen, Drogenlimit
}
IfInString, A_LoopReadLine, hat dir deine Drogen abgenommen.
{
mydrugs = 0
}
IfInString, A_LoopReadLine, Drogen aus der SafeBox genommen!
{
RegExMatch(A_LoopReadLine, "\* (.*) Drogen ",drogen)
sleep 250
mydrugs := mydrugs + drogen1
}
IfInString, A_LoopReadLine, Drogen in der SafeBox hinterlegt!
{
RegExMatch(A_LoopReadLine, "\* (.*) Drogen",drogen)
sleep 250
mydrugs := mydrugs - drogen1
}
IfInString, A_LoopReadLine, in den Kofferraum gelegt.
{
RegExMatch(A_LoopReadLine, "\* (.*)g Drogen",drogen)
sleep 250
mydrugs := mydrugs - drogen1
}
IfInString, A_LoopReadLine, Drogen aus dem Kofferraum genommen.
{
RegExMatch(A_LoopReadLine, "\* (.*)g Drogen",drogen)
sleep 250
mydrugs := mydrugs + drogen1
}
IfInString, A_LoopReadLine, Gramm abgekauft, die Summe von
{
RegExMatch(A_LoopReadLine, "hat dir (.*) Gramm abgekauft, die Summe" ,selldrugs)
mydrugs := mydrugs - selldrugs1
}
IfInString, A_LoopReadLine, Du warst in der Entzugsklinik
{
druglimit = 26
IniWrite, %druglimit%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Einstellungen, Drogenlimit
}
chatlog_zeile := A_Index
}
}
If(mydrugs < 0)
{
mydrugs = 0
}
If(!getplayerinteriorid() != "0")
{
lastcity := GetCityName()
}
if(mywanteds == 0)
{
wgrund = -
wzeuge = -
IniWrite, %wgrund%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, Wanteds, WantedGrund
IniWrite, %wzeuge%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, Wanteds, WantedZeuge
}
If(sync == 0)
{
sleep 1500
if(ReadStats_s(text))
{
KillsDM := keyForEntry(text, "Kills \(DM\)")
tode := keyForEntry(text, "Tode")
myrank := keyForEntry(text, "Rang")
myfrak := keyForEntry(text, "Team")
mydrugs := keyForEntry(text, "Drogen g (")
mywanteds := keyForEntry(text, "WantedLevel")
level := keyForEntry(text, "Level")
payday := keyForEntry(text, "Minuten seit Payday")
bank := keyForEntry(text, "Bank")
RegExMatch(KillsDM, "(.*)\((.*)\)" ,kills)
mykills := deldots(kills1)
mydeaths := deldots(tode)
IniWrite, %mykills%,  %A_MyDocuments%\Keybinder von Pascal\kills.ini, Kills, Anzahl
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
}
SoundBeep, 450, 500
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Du benutzt den Keybinder von billy, Viel Spaß")
Textsetstring(overlaystats, "" mykills " Kills | " mydeaths " Tode ")
sync := 1
}
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
{
If (gametext >= A_Index)
{
Continue
}
else
{
IfInString,A_LoopReadLine, ~g~gangwarkill
{
mykills +=1
mydkills++
killstreak++
mykd := mykills / mydeaths
SendChat("/f " gangwarspruch " " round(mykills, 0) "")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA}| KD: {AA6C39}" round(mykd, 3))
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\gangwarkill.wav
if(killstreak == 3) {
SendChat("/f hab nen " killstreak "er Killstreak erreicht mois =D")
} else if(killstreak == 6) {
SendChat("/F hab nen " killstreak "er Killstreak erreicht mois =D")
} else if(killstreak == 9) {
SendChat("/f hab nen " killstreak "er Killstreak erreicht mois =D")
} else if(killstreak == 12) {
SendChat("/f hab nen " killstreak "er Killstreak erreicht mois =D")
}
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
IniWrite, %mydkills%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Kills
IniWrite, %killstreak%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Killstreak
if(checkkillspruch == 1)
{
Random, var, 1, 7
Gosub, Spruch%var%
}
FileAppend, ###### ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
Textsetstring(overlaystats, "{FFFFFF}" mykills " Kills {FFFFFF}| " mydeaths " Tode |")
}
}
IfInstring, A_Loopreadline, ~g~aus der Klinik entlassen
{
tod := 0
}
IfInString,A_LoopReadLine, ~r~gangwarkill
{
if(tod == 1) {
tod := 0
} else {
mydeaths ++
myddeaths ++
killstreak := 0
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
SoundSetWaveVolume, 50
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\baby2.wav
SoundSetWaveVolume, 100
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein killstreak wurde resetet. ")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA}, Tode: {AA6C39}" mydeaths ", {FAFAFA}KD: {AA6C39}" mykd)
druglimit = 26
backup := 1
GuiControl, , guiinfos, Name: %myname%`nRank: %myrank%`nKills: %mykills%`n(Heutige Kills: %mydkills%)`nTode: %mydeaths%`n(Heutige Tode: %myddeaths%)`nKD: %mykd%`n(DKD: %mydkd%)
IniWrite, %myddeaths%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Tode
FileAppend, ###### ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
if(mymoney < 101)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dir den nächsten Besuch im Ammunation {AA6C39}nicht {FFFFFF}leisten!")
}
if(myzone = "")
{
SendChat("/f down - im Interior ")
}
else
{
SendChat("/f down - in " myzone "")
}
}
}
IfInString,A_LoopReadLine, ~g~gangzonekill
{
mykills +=1
mydkills++
killstreak++
mykd := mykills / mydeaths
SendChat("/f " gangzonespruch " " round(mykills, 0) "")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA}| KD: {AA6C39}" round(mykd, 3))
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\gangwarkill.wav
if(killstreak == 3) {
SendChat("/f hab nen " killstreak "er Killstreak erreicht mois =D")
} else if(killstreak == 6) {
SendChat("/F hab nen " killstreak "er Killstreak erreicht mois =D")
} else if(killstreak == 9) {
SendChat("/f hab nen " killstreak "er Killstreak erreicht mois =D")
} else if(killstreak == 12) {
SendChat("/f hab nen " killstreak "er Killstreak erreicht mois =D")
}
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
IniWrite, %mydkills%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Kills
IniWrite, %killstreak%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Killstreak
FileAppend, ###### ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
Textsetstring(overlaystats, "{FFFFFF}" mykills " Kills {FFFFFF}| " mydeaths " Tode |")
}
IfInString,A_LoopReadLine, ~r~gangzonekill
{
mydeaths ++
myddeaths ++
killstreak := 0
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
SoundSetWaveVolume, 50
SoundPlay, %A_MyDocuments%\Keybinder von Pascal\Musik\baby2.wav
SoundSetWaveVolume, 100
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein killstreak wurde resetet. ")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills "{FAFAFA}, Tode: {AA6C39}" mydeaths ", {FAFAFA}KD: {AA6C39}" mykd)
druglimit = 26
backup := 1
GuiControl, , guiinfos, Name: %myname%`nRank: %myrank%`nKills: %mykills%`n(Heutige Kills: %mydkills%)`nTode: %mydeaths%`n(Heutige Tode: %myddeaths%)`nKD: %mykd%`n(DKD: %mydkd%)
IniWrite, %myddeaths%,  %A_MyDocuments%\Keybinder von Pascal\settings.ini, DM-Infos, Tägliche Tode
FileAppend, ###### ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\gametexts.txt
if(mymoney < 101)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dir den nächsten Besuch im Ammunation {AA6C39}nicht {FFFFFF}leisten!")
}
if(myzone = "")
{
SendChat("/f Ich bin GANGZONE down")
}
else
{
SendChat("/f Ich bin GANGZONE in " myzone " down")
}
}
gametext := A_Index
}
return
overlay:
myhealth := GetPlayerHealth()
mycardl := GetVehicleHealth()
myname := getUsername()
myid := getPlayerIdByName(myname)
myping := getPlayerPingById(myid)
mycardl := getVehicleHealth()
mymoney := getPlayerMoney()
myzone := myzone := GetZoneName()
if(overlayactive == 1)
{
if(hpactive == 1)
Textsetstring(healthoverlay, "" myhealth)
if(ortactive == 1)
Textsetstring(ortoverlay, "" myzone)
if(infoactive == 1)
Textsetstring(infooverlay, "Drogen: " mydrugs "")
if(wantedactive == 1)
Textsetstring(wantedoverlay, "Wanteds: " mywanteds "`nGrund: " wgrund "`nZeuge: "wzeuge)
if(ernteactive == 1)
Textsetstring(ernteoverlay, "Erntezeit:" Plantstimer " ")
if(carstatusactive == 1)
{
if(isPlayerInAnyVehicle() == 1)
{
if(getVehicleEngineState() == 1 && getVehicleLockState() == 1)
{
Textsetstring(carstatusoverlay, "Fahrzeug an und abgeschlossen! (" mycardl "DL)")
}
if(getVehicleEngineState() == 0 && getVehicleLockState() == 1)
{
Textsetstring(carstatusoverlay, "Fahrzeug aus und abgeschlossen! (" mycardl "DL)")
}
if(getVehicleEngineState() == 1 && getVehicleLockState() == 0)
{
Textsetstring(carstatusoverlay, "{FF0000}Fahrzeug an und aufgeschlossen! {FFFFFF}(" mycardl "DL)")
}
if(getVehicleEngineState() == 0 && getVehicleLockState() == 0)
{
Textsetstring(carstatusoverlay, "Fahrzeug aus und aufgeschlossen! (" mycardl "DL)")
}
}
else
{
Textsetstring(carstatusoverlay, "")
}
}
}
return
warten1:
if(IsPlayerInAnyVehicle() = 1)
{
settimer, warten1, off
sleep 25
SendChat("/engine")
}
return
warten2:
if(IsPlayerInAnyVehicle() = 1)
{
settimer, warten2, off
sleep 25
SendChat("/engine")
SendChat("/lock")
}
return
backup:
myzone := GetZoneName()
SendChat("/f BRAUCHE B A C K U P IN >" myzone ", Health: " myhealth)
If(backup == 1)
{
SendChat("/f Ich bin down man, brauche jetzt keine hilfe mehr!.")
backup := 0
settimer, backup, off
}
return
usedrugs:
if(druglimit < 2)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Beim nächsten Drogenkonsum wirst du {AA6C39}stoned!")
settimer, usedrugs, off
}
if(druglimit < 4)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst wieder Drogen nehmen! HP: {AA6C39}" myhealth)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du hast noch {AA6C39}" mydrugs "{FFFFFF}g Drogen dabei und kannst nurnoch {AA6C39}" druglimit "{FFFFFF}g Drogen einnehmen.")
settimer, usedrugs, off
}
else
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst wieder Drogen nehmen! HP: {AA6C39}" myhealth)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du hast noch {AA6C39}" mydrugs "{FFFFFF}g Drogen dabei und kannst noch {AA6C39}" druglimit "{FFFFFF}g Drogen einnehmen.")
settimer, usedrugs, off
}
return
:?:/ovsave::
Suspend Permit
SendInput, {ESC}
allgmove := 0
if(hpmove == 1)
{
hpmove := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(ortmove == 1)
{
ortmove := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(infomove == 1)
{
infomove := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(wantedmove == 1)
{
wantedmove := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(partnermove == 1)
{
partnermove  := 0
Textsetstring(partneroverlay, "")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(opfermove == 1)
{
opfermove  := 0
Textsetstring(opferoverlay, "")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(carstatusmove == 1)
{
carstatusmove  := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(erntemove == 1)
{
erntemove  := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
if(statsmove == 1)
{
statsmove  := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dein Overlay wurde gespeichert!")
}
return
:?:/ovmove::
Suspend Permit
if(allgmove == 1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du verschiebst bereits ein Overlay!")
return
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}________________________________________________________")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}HP Overlay verschieben -> hp")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Ort Overlay verschieben -> ort")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Info Overlay verschieben -> info")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Wanted Overlay verschieben -> wanted")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Partner Overlay verschieben -> partner")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Opfer Overlay verschieben -> opfer")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Carstatus Overlay verschieben -> carstatus")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Ernte Overlay verschieben -> ernteoverlay")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Stats Overlay verschieben -> statsoverlay")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}________________________________________________________")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Gebe ein, welches Overlay du verschieben willst.")
SendInput, Overlay:{space}
Input, ovmove, V I M,{enter}
SendInput {end}+{home}{Del}{Esc}
IfInString, ovmove, hp
{
allgmove := 1
hpmove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein HP-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, ort
{
allgmove := 1
ortmove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Orts-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, info
{
allgmove := 1
infomove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Info-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, wanted
{
allgmove := 1
wantedmove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Wanted-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, partner
{
allgmove := 1
partnermove := 1
Textsetstring(partneroverlay, "Partner: SERGEN (ID: 88)")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Partner-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, opfer
{
allgmove := 1
opfermove := 1
Textsetstring(opferoverlay, "Opfer: SERGEN (ID: 88)")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Opfer-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, carstatus
{
allgmove := 1
carstatusmove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Carstatus-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, ernteoverlay
{
allgmove := 1
erntemove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein Ernteoverlay-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfInString, ovmove, statsoverlay
{
allgmove := 1
statsmove := 1
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dein KD-Overlay mit den Pfeiltasten verschieben!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Speichern mit /ovsave.")
}
IfNotInString, ovmove, hp
IfNotInString, ovmove, ort
IfNotInString, ovmove, info
IfNotInString, ovmove, wanted
IfNotInString, ovmove, partner
IfNotInString, ovmove, opfer
IfNotInString, ovmove, carstatus
IfNotInString, ovmove, ernteoverlay
IfNotInString, ovmove, statsoverlay
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Falsche Eingabe.")
}
return
~Up::
if(hpmove == 1)
{
HP2--
IniWrite, %HP2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HP2
TextSetPos(healthoverlay, HP1, HP2)
}
if(erntemove == 1)
{
ERNTE2--
IniWrite, %ERNTE2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ernte2
TextSetPos(ernteoverlay, ernte1, ernte2)
}
if(statsmove == 1)
{
stats2--
IniWrite, %stats2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, stats2
TextSetPos(overlaystats, stats1, stats2)
}
if(ortmove == 1)
{
Ort2--
IniWrite,%Ort2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ort2
TextSetPos(ortoverlay, Ort1, Ort2)
}
if(infomove == 1)
{
Info2--
IniWrite,%Info2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Info2
TextSetPos(infooverlay, info1, info2)
}
if(wantedmove == 1)
{
wanted2--
IniWrite, %wanted2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Wanted2
TextSetPos(wantedoverlay, wanted1, wanted2)
}
if(partnermove == 1)
{
partner2--
IniWrite, %partner2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Partner2
TextSetPos(partneroverlay, partner1, partner2)
}
if(opfermove == 1)
{
opfer2--
IniWrite, %opfer2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Opfer2
TextSetPos(opferoverlay, opfer1, opfer2)
}
if(carstatusmove == 1)
{
carstatus2--
IniWrite, %carstatus2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Carstatus2
TextSetPos(carstatusoverlay, carstatus1, carstatus2)
}
return
~Down::
if(hpmove == 1)
{
HP2++
IniWrite,%HP2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HP2
TextSetPos(healthoverlay, HP1, HP2)
}
if(erntemove == 1)
{
ERNTE2++
IniWrite, %ERNTE2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ernte2
TextSetPos(ernteoverlay, ernte1, ernte2)
}
if(statsmove == 1)
{
stats2++
IniWrite, %stats2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, stats2
TextSetPos(overlaystats, stats1, stats2)
}
if(ortmove == 1)
{
Ort2++
IniWrite, %Ort2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ort2
TextSetPos(ortoverlay, Ort1, Ort2)
}
if(infomove == 1)
{
info2++
IniWrite, %info2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Info2
TextSetPos(infooverlay, info1, info2)
}
if(wantedmove == 1)
{
wanted2++
IniWrite, %wanted2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Wanted2
TextSetPos(wantedoverlay, wanted1, wanted2)
}
if(partnermove == 1)
{
partner2++
IniWrite, %partner2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Partner2
TextSetPos(partneroverlay, partner1, partner2)
}
if(opfermove == 1)
{
opfer2++
IniWrite, %opfer2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Opfer2
TextSetPos(opferoverlay, opfer1, opfer2)
}
if(carstatusmove == 1)
{
carstatus2++
IniWrite, %carstatus2%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, carstatus2
TextSetPos(carstatusoverlay, carstatus1, carstatus2)
}
return
~Left::
if(hpmove == 1)
{
HP1--
IniWrite, %HP1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HP1
TextSetPos(healthoverlay, HP1, HP2)
}
if(erntemove == 1)
{
ERNTE1--
IniWrite, %ERNTE1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ernte1
TextSetPos(ernteoverlay, ernte1, ernte2)
}
if(statsmove == 1)
{
stats1--
IniWrite, %stats1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, stats1
TextSetPos(overlaystats, stats1, stats2)
}
if(ortmove == 1)
{
Ort1--
IniWrite, %Ort1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ort1
TextSetPos(ortoverlay, Ort1, Ort2)
}
if(infomove == 1)
{
info1--
IniWrite, %info1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Info1
TextSetPos(infooverlay, info1, info2)
}
if(wantedmove == 1)
{
wanted1--
IniWrite, %wanted1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Wanted1
TextSetPos(wantedoverlay, wanted1, wanted2)
}
if(partnermove == 1)
{
partner1--
IniWrite, %partner1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Partner1
TextSetPos(partneroverlay, partner1, partner2)
}
if(opfermove == 1)
{
opfer1--
IniWrite, %opfer1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Opfer1
TextSetPos(opferoverlay, opfer1, opfer2)
}
if(carstatusmove == 1)
{
carstatus1--
IniWrite, %carstatus1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Carstatus1
TextSetPos(carstatusoverlay, carstatus1, carstatus2)
}
return
~Right::
if(hpmove == 1)
{
HP1++
IniWrite,%HP1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, HP1
TextSetPos(healthoverlay, HP1, HP2)
}
if(erntemove == 1)
{
ERNTE1++
IniWrite, %ERNTE1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ernte1
TextSetPos(ernteoverlay, ernte1, ernte2)
}
if(statsmove == 1)
{
stats1++
IniWrite, %stats1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, stats1
TextSetPos(overlaystats, stats1, stats2)
}
if(ortmove == 1)
{
Ort1++
IniWrite, %Ort1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Ort1
TextSetPos(ortoverlay, Ort1, Ort2)
}
if(infomove == 1)
{
info1++
IniWrite, %info1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Info1
TextSetPos(infooverlay, info1, info2)
}
if(wantedmove == 1)
{
wanted1++
IniWrite, %wanted1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Wanted1
TextSetPos(wantedoverlay, wanted1, wanted2)
}
if(partnermove == 1)
{
partner1++
IniWrite, %partner1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Partner1
TextSetPos(partneroverlay, partner1, partner2)
}
if(opfermove == 1)
{
opfer1++
IniWrite, %opfer1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Opfer1
TextSetPos(opferoverlay, opfer1, opfer2)
}
if(carstatusmove == 1)
{
carstatus1++
IniWrite, %carstatus1%, %A_MyDocuments%\Keybinder von Pascal\settings.ini, Overlay, Carstatus1
TextSetPos(carstatusoverlay, carstatus1, carstatus2)
}
return
:?:/lbs::
Suspend, Permit
sendinput, Fischgewicht(LBS):{space}
Input LBS,V I M, {enter}{rShift}
SendInput t{end}+{home}{esc}
Sendinput t{del}{enter}
If LBS is not Number
{
IniRead, LBS,  %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, LBS
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Ungültige Eingabe! Bitte eine Zahl Eingeben! Neuer Standart: {AA6C39}" LBS "{FAFAFA} LBS")
return
}
Iniwrite, %LBS%,  %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, LBS
SendInput t{end}+{home}{esc}
Sendinput t{del}{enter}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Neues Fischgewicht: {AA6C39}" . LBS . " {FAFAFA}LBS")
iniwrite, %LBS%,  %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, LBS
Suspend, Off
return
Label40:
if(isInChat())
return
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst noch " druglimit " g Drogen nehmen.")
SendChat("/me kann noch " druglimit " g Drogen nehmen.")
return
Label41:
if(isInChat())
return
fishes = 0
if(fishing = 0)
{
SendChat("/me fängt an zu angeln.")
sleep 50
fishing = 1
settimer, fischen, 120000
goto fischen
}
else if(fishing = 1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du bist schon am Fischen!" "")
return
}
Suspend off
return
fischen:
IfWinNotExist, GTA:SA:MP
return
iniread, LBS, %A_MyDocuments%\Keybinder von Pascal\Keybinder.ini, Fischen, LBS
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Fischschleife wurde gestartet!" "")
sleep 750
loop,
{
IfWinNotActive, GTA:SA:MP
{
setTimer, Fischen, Off
fishing = 0
return
}
SendChat("/fish")
sleep 125
GetChatLine(0,fished)
sleep 125
If InStr(fished, "Du hast einen")
{
RegExMatch(fished, "\* Du hast einen (.*) gefangen, Gewicht (.*) Lbs." ,fishinfo)
if(fishinfo2 >= LBS && fishes != 5)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} " fishinfo1 " mit " fishinfo2 " LBS in die Kühlbox gepackt.")
fishes ++
}
else
{
SendChat("/throwback")
}
}
else if(instr(getcash,"Du hast eine Geldbörse mit"))
{
sleep 125
regexmatch(getcash,"\* Du hast eine Geldbörse mit \$(.*) an Land gezogen.",fishing)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Finanzstatus aktualisiert!" "")
get_fish += %fishing1%
get_geldbeutel += 1
sleep 50
IniWrite, %get_fish%, %FinanzPfad%, Einnahmen, Angeln
}
else if instr(fished, "Du hast bereits 5 Fische")
{
if(fishes = 5)
{
fishing = 0
Sendchat("/me hat 5 Fische gefangen!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife beendet!" "")
settimer, fischen, off
ShowGameText("~w~5 Fische gefangen!", 2000, 3)
sleep 500
return
}
else if(fishes != 5)
{
fishing = 0
Sendchat("/me hat 5 Fische gefangen!")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife beendet!" "")
settimer, fischen, off
sleep 500
return
}
}
else if instr(fished, "Zu viele Fische gefangen, warte eine Weile")
{
if(fishes != 5)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife für 1 Minute pausiert!" "")
Sleep 60000
}
else if(fishes = 5)
{
fishing = 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife beendet!" "")
settimer, fischen, off
ShowGameText("~w~5 Fische gefangen!", 2000, 3)
sleep 500
return
}
}
else if instr(fished, "Du bist nicht am richtigen Ort")
{
fishing = 0
settimer, fischen, off
ShowGameText("~w~Falscher Ort!", 2000, 3)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife beendet!" "")
sleep 500
settimer, fischen, off
return
}
else if instr(fished, "Du bist in keinem der Fischgebiete")
{
fishing = 0
settimer, fischen, off
ShowGameText("~w~Falscher Ort!", 2000, 3)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife beendet!" "")
settimer, fischen, off
sleep 500
return
}
else if instr(fished, "Tipp: du musst auf dem Boot stehen und darfst es nicht fahren")
{
fishing = 0
settimer, fischen, off
ShowGameText("~w~Falscher Ort!", 2000, 3)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Fischschleife beendet!" "")
settimer, fischen, off
sleep 500
return
}
sleep 1200
}
Suspend off
return
:?:/triadenadd::
suspend permit
SendInput /add{Space}
Input, name, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
text := getplayernamebyid(name)
myname := getusername()
if (text=myname)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dich nicht selbst zur Gegnerliste hinzufügen!")
return
}
if (text == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
IniRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
If InStr(Liste, text)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " ist bereits vorhanden!")
}
else
{
FileAppend, `n%text%, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " {FFFFFF}erfolgreich als Triade hinzugefügt!")
}
return
:?:/triadendel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triadenn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triadenn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/triaden::
suspend permit
SendInput, {Enter}
feindetriaden := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}|___________________{013ADF}Triaden{FFFFFF}___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindetriaden ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Online: {56bfeb} "A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind " (feindetriaden ? "{56bfeb}" feindetriaden : "{FF2200}keine") "{FFFFFF} Triaden online")
if(gchange == 1){
SendChat("/f Es sind " (feindetriaden ?  feindetriaden : "keine") " Triaden online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindetriaden ?  feindetriaden : "keine") " Triaden online")
}
return
:?:/ftriaden::
suspend permit
SendInput, {Enter}
feindetriaden := 0
SendChat("/f |___________________Triaden___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Triaden.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindetriaden ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
Loop, Read, Triaden.txt
{
StringSplit, split, A_LoopReadLine, |
idname := getPlayerIdByName(split1)
if(idname != -1)
{
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
sleep 1005
runner_on++
}
runner++
}
sleep 1005
}
}
SendChat("/f Es sind " (feindetriaden ? "{56bfeb}" feindetriaden : "{FF2200}keine") "{FFFFFF} Triaden online")
if(gchange == 1){
SendChat("/f Es sind " (feindetriaden ?  feindetriaden : "keine") " Triaden online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindetriaden ?  feindetriaden : "keine") " Triaden online")
}
return
:?:/ckdel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ckn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ckn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/ckadd::
suspend permit
SendInput /add{Space}
Input, name, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
text := getplayernamebyid(name)
myname := getusername()
if (text=myname)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dich nicht selbst zur Gegnerliste hinzufügen!")
return
}
if (text == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
IniRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
If InStr(Liste, text)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " ist bereits vorhanden!")
}
else
{
FileAppend, `n%text%, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text "erfolgreich als Ckler hinzugefügt!")
}
return
:?:/ckdel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ckn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ckn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/ck::
suspend permit
SendInput, {Enter}
feindeck := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}|___________________{AA6C39}Cali Kartell{FFFFFF}___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeck ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind " (feindeck ? "{56bfeb}" feindeck : "{FF2200}keine") "{FFFFFF} Cali Kartell Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeck ?  feindeck : "keine") " Cali Kartell Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeck ?  feindeck : "keine") " Cali Kartell Member online")
}
return
:?:/fck::
suspend permit
SendInput, {Enter}
feindeck := 0
SendChat("/f |___________________Cali Kartell___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ck.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeck ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
Loop, Read, ck.txt
{
StringSplit, split, A_LoopReadLine, |
idname := getPlayerIdByName(split1)
if(idname != -1)
{
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
sleep 1005
runner_on++
}
runner++
}
sleep 1005
}
}
SendChat("/f Es sind " (feindeck ? "{56bfeb}" feindeck : "{FF2200}keine") "{FFFFFF} Cali Kartell Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeck ?  feindeck : "keine") " Cali Kartell Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeck ?  feindeck : "keine") " Cali Kartell Member online")
}
return
:?:/ICFdel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICFn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICFn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/ICFadd::
suspend permit
SendInput /add{Space}
Input, name, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
text := getplayernamebyid(name)
myname := getusername()
if (text=myname)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dich nicht selbst zur Gegnerliste hinzufügen!")
return
}
if (text == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
IniRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
If InStr(Liste, text)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " ist bereits vorhanden!")
}
else
{
FileAppend, `n%text%, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " {FFFFFF}erfolgreich als ICF*ler hinzugefügt!")
}
return
:?:/ICFdel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICFn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICFn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/ICF::
suspend permit
SendInput, {Enter}
feindeICF := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}|___________________{0b3b24}ICF{FFFFFF}___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeICF ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind " (feindeICF ? "{56bfeb}" feindeICF : "{FF2200}keine") "{FFFFFF} ICF Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeICF ?  feindeICF : "keine") " ICF Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeICF ?  feindeICF : "keine") " ICF Member online")
}
return
:?:/fICF::
suspend permit
SendInput, {Enter}
feindeICF := 0
SendChat("/f |___________________ICF___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\ICF.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeICF ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
Loop, Read, ICF.txt
{
StringSplit, split, A_LoopReadLine, |
idname := getPlayerIdByName(split1)
if(idname != -1)
{
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
sleep 1005
runner_on++
}
runner++
}
sleep 1005
}
}
SendChat("/f Es sind " (feindeICF ? "{56bfeb}" feindeICF : "{FF2200}keine") "{FFFFFF} ICF Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeICF ?  feindeICF : "keine") " ICF Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeICF ?  feindeICF : "keine") " ICF Member online")
}
return
:?:/Ballasdel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballasn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballasn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/Ballasadd::
suspend permit
SendInput /add{Space}
Input, name, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
text := getplayernamebyid(name)
myname := getusername()
if (text=myname)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dich nicht selbst zur Gegnerliste hinzufügen!")
return
}
if (text == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
IniRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
If InStr(Liste, text)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " ist bereits vorhanden!")
}
else
{
FileAppend, `n%text%, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " {FFFFFF}erfolgreich als Ballas Member hinzugefügt!" )
}
return
:?:/Ballasdel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballasn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballasn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/Ballas::
suspend permit
SendInput, {Enter}
feindeBallas := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}|___________________{ff0080}Ballas{FFFFFF}___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeBallas ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Online: {56bfeb} " A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind " (feindeBallas ? "{56bfeb}" feindeBallas : "{FF2200}keine") "{FFFFFF} Ballas Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeBallas ?  feindeBallas : "keine") " Ballas Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeBallas ?  feindeBallas : "keine") " Ballas Member online")
}
return
:?:/fBallas::
suspend permit
SendInput, {Enter}
feindeBallas := 0
SendChat("/f |___________________Ballas___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Ballas.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeBallas ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
Loop, Read, Ballas.txt
{
StringSplit, split, A_LoopReadLine, |
idname := getPlayerIdByName(split1)
if(idname != -1)
{
SendChat("/f Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
sleep 1005
runner_on++
}
runner++
}
sleep 1005
}
}
SendChat("/f Es sind " (feindeBallas ? "{56bfeb}" feindeBallas : "{FF2200}keine") "{FFFFFF} Ballas Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeBallas ?  feindeBallas : "keine") " Ballas Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeBallas ?  feindeBallas : "keine") " Ballas Member online")
}
return
:?:/Atzendel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzenn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzenn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/Atzenadd::
suspend permit
SendInput /add{Space}
Input, name, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
text := getplayernamebyid(name)
myname := getusername()
if (text=myname)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dich nicht selbst zur Gegnerliste hinzufügen!")
return
}
if (text == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
IniRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
If InStr(Liste, text)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " ist bereits vorhanden!")
}
else
{
FileAppend, `n%text%, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " {FFFFFF}erfolgreich als Atzen hinzugefügt!")
}
return
:?:/Atzendel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Gegnerliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzenn.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzenn.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")
}
return
:?:/Atzen::
suspend permit
SendInput, {Enter}
feindeAtzen := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}|___________________{00bfff}Aztecas{FFFFFF}___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Atzen.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindeAtzen ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind " (feindeAtzen ? "{56bfeb}" feindeAtzen : "{FF2200}keine") "{FFFFFF} Aztecas Member online")
if(gchange == 1){
SendChat("/f Es sind " (feindeAtzen ?  feindeAtzen : "keine") " Aztecas Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (feindeAtzen ?  feindeAtzen : "keine") " Aztecas Member online")
}
return
:?:/cons::
suspend permit
SendInput, {Enter}
feindecon := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}|___________________{00bfff}Contractliste{FFFFFF}___________________|")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
feindecon ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Es sind " (Feindecon ? "{56bfeb}" Feindecon : "{FF2200}keine") "{FFFFFF}User online, auf die du ein Hitman beauftragen möchtest.")
if(gchange == 1){
SendChat("/f Es sind " (Feindecon ?  Feindecon : "keine") " Aztecas Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (Feindecon ?  Feindecon : "keine") " Aztecas Member online")
}
return
:?:/condel::
suspend permit
SendInput /del{space}
Input, name, V I M, {enter}
sendinput {end}+{home}{Del}{esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
textdel := getplayernamebyid(name)
if (textdel == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
FileRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
If not InStr(Liste, textdel)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel " {ffffff}ist nicht in der Contractliste vorhanden!")
return
}
else
{
Loop, read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
{
IfInString, A_Loopreadline, %textdel%
continue
if(A_LoopReadLine!="")
{
FileAppend, %a_loopreadline%`n, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract2.txt
}
}
FileDelete, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
FileMove, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract2.txt, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" textdel "{FFFFFF} wurde erfolgreich aus der Contractliste gelöscht!")
}
return
:?:/conadd::
suspend permit
SendInput /add{Space}
Input, name, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
if name is not number
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bitte gültige eine ID eingeben!")
return
}
text := getplayernamebyid(name)
myname := getusername()
if (text=myname)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst dich nicht selbst zur Contractliste hinzufügen!")
return
}
if (text == -1)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Dieser Spieler ist nicht online!")
return
}
IniRead, Liste, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
If InStr(Liste, text)
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " ist bereits vorhanden!")
}
else
{
FileAppend, `n%text%, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" text " {FFFFFF}erfolgreich zur Contractliste hinzugefügt!")
}
return
:?:/givecons::
Suspend Permit
SendInput Preis:{space}
Input,contractpreis,V I M,{enter}
SendInput t{end}+{home}{esc}
Sendinput t{del}{enter}
Feindecon := 0
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Möchtests du auf die folgenden User ein Hitman beauftragen?")
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
{
if(!A_LoopReadLine)
continue
if((id := GetPlayerIdByName(A_LoopReadLine)) > -1){
Feindecon ++
score := GetPlayerScoreById(id)
ping := GetPlayerPingById(id)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Online: {56bfeb}" A_LoopReadLine "{FFFFFF}, ID: {56bfeb}" id "{FFFFFF}, Level: {56bfeb}" score "{FFFFFF}, Ping: {56bfeb}" ping)
}
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Es sind " (Feindecon ? "{56bfeb}" Feindecon : "{FF2200}keine") "{FFFFFF} User online, auf die du ein Hitman beauftragen kannst.")
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drücke {FAFAFA}'{AA6C39}J{FAFAFA}' um zu bestätigen.")
KeyWait, J, D T5
If !Errorlevel
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Hitmans werden beauftragen.")
goto givecons
}
else
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Hitmans wurden nicht beauftragen.")
}
if(gchange == 1){
SendChat("/f Es sind " (Feindecon ?  Feindecon : "keine") " Aztecas Member online")
}
if(gchange == 0){
SendChat("/g Es sind " (Feindecon ?  Feindecon : "keine") " Aztecas Member online")
}
return
givecons:
loop, Read, %A_MyDocuments%\Keybinder von Pascal\Gegnerlisten\Contract.txt
{
SendChat("/contract " A_LoopReadLine " " contractpreis " ")
Sleep, 1000
}
return
:?:/idsms::
Suspend Permit
SendInput ID:{Space}
Input, id, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
SendInput t/number %id%
sleep 300
GetChatLine(0,number)
sleep 50
RegExMatch(number, "Ph: (.*)", tel)
SendInput t/sms %tel1%{space}
Suspend On
Keywait, Enter, D
Suspend Off
return
:?:/idcall::
Suspend Permit
SendInput ID:{Space}
Input, id, V I M, {enter}
SendInput {end}+{home}{Del}{Esc}
SendInput t/number %id%
sleep 300
GetChatLine(0,number)
sleep 50
RegExMatch(number, "Ph: (.*)", tel)
SendInput t/call %tel1%{Enter}
Suspend On
Keywait, Enter, D
Suspend Off
return
~space::
if(isInChat() || IsPlayerInAnyVehicle() || laufscriptState == "off")
return
while GetKeyState("Space", "P")
{
Send {space down}
Sleep 12
Send {space up}
Sleep 1
}
return
:?:/laufen::
Suspend, permit
SendInput /laufen{SPACE}
input,newState,V I M,{enter}
if(newState == "an") {
laufscriptState := "on"
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Laufen;){19FF00}angeschaltet")
} else if(newState = "aus") {
laufscriptState := "off"
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Laufen;){D70000}ausgeschaltet")
} else {
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Unbekannte Aktion - nutze: /laufen [an aus]")
}
IniWrite, %laufscriptState%, %A_ScriptDir%\settings.ini, Laufscript, Status
SendInput {end}+{home}+{Del}+{Esc}
return
Gardenshop:
if(IsPlayerInRangeOfPoint(-2562.0955,310.1070,15.9453, 2))
{
SendChat("/gardenshop")
Sleep 100
SendInput {enter}
Sleep 100
SendInput {enter}
Sleep 100
SendInput {enter}
Sleep 100
SendInput {enter}
Sleep 100
SendInput {enter}
Sleep 100
SendInput {esc}
sleep 60000
If(GetPlayerMoney() < 12500)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA} Du hast für die Nächsten Samen nicht Genug Geld Dabei!")
}
Suspend Off
return
DrogenE:
GetChatline(0,aktuellerchat0)
If(InStr(aktuellerchat0, "Du hast 2500 Samen eingepflanzt. In 15 Minuten kannst du sie ernten."))
{
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 13 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 12 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 11 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 10 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 9 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 8 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 7 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 6 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 5 Minuten")
ShowGameText("~w~Ernte in 5 Minuten!",3000,3)
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 4 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 3 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 2 Minuten")
sleep 60000
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Drogen erntbereit in:{00FF00} 1 Minuten")
sleep 60000
ShowGameText("~w~Pflanzen koennen geerntet werden!",3000,3)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Du kannst deine Drogen nun ernten.")
sleep 1000
}
return
:?:/bb::
Suspend, Permit
Sendinput, {enter}
if(A_Hour >= 6 and A_Hour < 12)
SendChat("Vielen Dank, ich wünsche dir noch einen schönen Tag")
else if(A_Hour >= 12 and A_Hour < 18)
SendChat("Vielen Dank, ich wünsche dir noch einen schönen Tag")
else if(A_Hour >= 18 )
SendChat("Vielen Dank, ich wünsche dir noch einen schönen Abend")
else
SendChat("Vielen Dank, ich wünsche dir noch eine gute Nacht")
Suspend, Off
return
:?:/zeit::
suspend permit
Sendinput Zeit in Sekunden:{space}
Input minutenrechner,V I M,{enter}
SendInput {end}+{home}{Del}{esc}
sleep 250
minutes := minutenrechner//60,-1
seconds := minutenrechner-(minutes*60)
sleep 250
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}" minutenrechner " Sekunden sind " minutes " Minuten und " seconds " Sekunden")
return
:?:/fgrenze::
Suspend Permit
pName := GetUserName()
SendInput {enter}
fintxt2 := "Level:["
fintxt3 := "Respekt:["
fintxt4 := "Geld:["
fintxt5 := "Bank:["
fintxt6 := "Gesamtvermögen:["
gefunden := false
Loop, Read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
lzeile1 := A_Index
}
Sendchat("/finances " pName " ")
while (gefunden == false) {
Loop, Read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
lzeile2 := A_Index
if (InStr(A_LoopReadLine,fintxt2) && InStr(A_LoopReadLine,fintxt3) && InStr(A_LoopReadLine,fintxt4) && InStr(A_LoopReadLine,fintxt5) && InStr(A_LoopReadLine,fintxt6) && (lzeile2 > lzeile1)) {
gefunden := true
RegExMatch(A_LoopReadLine,"Gesamtvermögen:\[\$\d+",Gesamtvermögen)
RegExMatch(Gesamtvermögen,"\d+",Gesamtvermögen)
zw1 := 2147483647/Gesamtvermögen
rw1 := log(zw1)
rw2 := log(1.01)
res := Round(rw1/rw2)
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Bis zur deiner Geldgrenze benötigst du noch " res " Paydays.")
SendChat("/f * INFO: Bis zur meiner Geldgrenze benötigte ich noch " res " Paydays.")
SendChat("/time")
}
}
}
Suspend off
return
:?:/ilr::
Suspend Permit
SendInput {ESC}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Radio: ILoveRadio gestartet!")
playAudioStream("http://stream01.iloveradio.de/iloveradio1.mp3")
return
:?:/ilyr::
Suspend Permit
SendInput {ESC}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Radio: ILoveYOU gestartet!")
playAudioStream("http://stream01.iloveradio.de/iloveradio10.mp3")
return
:?:/top100::
Suspend Permit
SendInput {ESC}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Radio: TOP100 gestartet!")
playAudioStream("http://www.top100station.de/switch/vtuner.pls")
return
:?:/unblockchat::
Suspend Permit
SendInput {ESC}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Chat wieder frei")
unBlockChatInput()
return
:?:/stopradio::
Suspend Permit
SendInput {ESC}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Radio: gestoppt!")
stopAudioStream()
return
:?:/deagle::
Suspend Permit
SendInput {ESC}
SendChat("/buygun deagle " deagle " ")
return
:?:/shotgun::
Suspend Permit
SendInput {ESC}
SendChat("/buygun shotgun " shotgun " ")
return
:?:/m4::
Suspend Permit
SendInput {ESC}
SendChat("/buygun m4 " m4 " ")
return
:?:/mp5::
Suspend Permit
SendInput {ESC}
SendChat("/buygun mp5 " mp5 " ")
return
:?:/sniper::
Suspend Permit
SendInput {ESC}
SendChat("/buygun sniper " sniper " ")
return
:?:/rifle::
Suspend Permit
SendInput {ESC}
SendChat("/buygun rifle " rifle " ")
return
:?:/katana::
Suspend Permit
SendInput {ESC}
SendChat("/buygun katana 1 ")
return
:?:/baseball::
Suspend Permit
SendInput {ESC}
SendChat("/buygun baseball 1 ")
return
:?:/kd::
Suspend Permit
SendInput {ESC}
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
if(mydkd == "")
{
mydkd = %mydkills%.000
}
AddChatMessage("{0D4D4D} 〉〉 b_B {FAFAFA}Kills: {AA6C39}" mykills ",{FFFFFF} Tode: {AA6C39}" mydeaths ",{FFFFFF} KD: {AA6C39}" round(mykd, 3))
return
:?:/fkd::
Suspend Permit
SendInput {ESC}
mykd := mykills / mydeaths
mydkd := mydkills / myddeaths
if(mydkd == "")
{
mydkd = %mydkills%.000
}
SendChat("/f Kills: " mykills ", Tode: " mydeaths ", KD: " round(mykd, 3))
return