Jump to content

Добро пожаловать на форум проекта RP GameWorld!

[AHK] Полезные бинды


Kangaroo

Recommended Posts

8/13/2020 в 3:44 AM, Kangaroo сказал:

Ребят, давайте срач не в этой теме делать, я на нее подписан до сих пор, чтобы отвечать на вопросы ?

ты кто по жизни? ответь на вопрос 👊

Link to comment
Share on other sites

  • 2 months later...

Сегодня закончился мой путь на "gw". Проходил в пользователях 14,5 лет. Оставляю напоследок 2 ахк скрипта.

Авто-рыбалка
 

F10:: Reload
F9:: Pause

Numpad9::
While true
{
  SendMessage, 0x50,, 0x4190419,, A
  Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  {
    If A_LoopReadLine
      MyLastString := A_LoopReadLine
  }
  StringTrimLeft, MyLastString, MyLastString, 13
  List := ["Вы устали ловить рыбу, Вам надо отдохнуть.", "Нет места для рыбы, избавьтесь от неё (выбросите или продайте).", "У Вас нет червей, купите их в магазине снастей для рыбалки.", "У Вас сломалась удочка, купите новую в магазине снастей для рыбалки.", "У Вас порвалась леска, купите новую в магазине снастей для рыбалки.","У Вас сломалась катушка, купите новую в магазине снастей для рыбалки."]
  for i, element in list
  {
    If (MyLastString == element)
    {
      SendInput, {F6}/b{enter}
      Sleep, 1150
      SoundPlay, C:\Users\Alex\Music\komarovo.mp3, wait
      break
    }
  }
  RegExMatch(MyLastString, "(.*)\.(.*)\.", MyTreasure)
  If (MyTreasure1 == "Вы поймали на крючок сундук и нашли клад")
  {
      SendInput, {F6}/gr %MyLastString%{enter}
      Sleep, 1150
      SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
      break
  }
  If (MyLastString == "Сорвалась...")
  {
    SendInput, {F6}/b{enter}
    Sleep, 1150
    SendInput, {F6}/fish{enter}
    Sleep, 1150
    continue
  }
  List := ["Вы поймали: Куртка (1 кг).", "Вы поймали: Туфли (1 кг).", "Вы поймали: Мусор (2 кг).", "Вы поймали: Брюки (1 кг)."]
  for i, element in list
  {
    If (MyLastString == element)
    {
      SendInput, {F6}/releasefish{enter}
      Sleep, 1150
      SendInput, {F6}/fish{enter}
      Sleep, 1150
      continue 2
    }
  }
  RegExMatch(MyLastString, "(.*):", MyFish)
  If (MyFish == "Вы поймали:")
  {
    SendInput, {F6}/b{enter}
    Sleep, 1150
    SendInput, {F6}/fish{enter}
    Sleep, 1150
    continue
  }
  RegExMatch(MyLastString, "(.*)\.(.*)\.", MoneyBag)
  If (MoneyBag1 == "Вы поймали сумку с деньгами")
  {
    SendInput, {F6}/b{enter}
    Sleep, 1150
    SendInput, {F6}/fish{enter}
    Sleep, 1150
    continue
  }
}


АФК фарм кейсов на ярмарке (отслеживание онлайна через сайт)
 

F9:: ExitApp

Numpad1::
Loop
{
nick1 = Wayne_Static
nick2 = Ksenia_Sobchak
nick3 = Sovetskiy_Souz
nick4 = Shaman_King
nick5 = Vladimir_Lenin
Send, {F5}
Sleep, 10000
Send, ^a
Send, ^c
Click
IfInString, Clipboard, %nick1%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick2%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick3%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick4%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick5%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
clipboard = ;
}


Желаю удачи в ваших приключениях на "gw"
Всем пока!

GmlB6SF.png

  • I like it (+1) 1
Link to comment
Share on other sites

5/22/2024 в 8:45 PM, Sex Pistols сказал:

Сегодня закончился мой путь на "gw". Проходил в пользователях 14,5 лет. Оставляю напоследок 2 ахк скрипта.

Авто-рыбалка
 

F10:: Reload
F9:: Pause

Numpad9::
While true
{
  SendMessage, 0x50,, 0x4190419,, A
  Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  {
    If A_LoopReadLine
      MyLastString := A_LoopReadLine
  }
  StringTrimLeft, MyLastString, MyLastString, 13
  List := ["Вы устали ловить рыбу, Вам надо отдохнуть.", "Нет места для рыбы, избавьтесь от неё (выбросите или продайте).", "У Вас нет червей, купите их в магазине снастей для рыбалки.", "У Вас сломалась удочка, купите новую в магазине снастей для рыбалки.", "У Вас порвалась леска, купите новую в магазине снастей для рыбалки.","У Вас сломалась катушка, купите новую в магазине снастей для рыбалки."]
  for i, element in list
  {
    If (MyLastString == element)
    {
      SendInput, {F6}/b{enter}
      Sleep, 1150
      SoundPlay, C:\Users\Alex\Music\komarovo.mp3, wait
      break
    }
  }
  RegExMatch(MyLastString, "(.*)\.(.*)\.", MyTreasure)
  If (MyTreasure1 == "Вы поймали на крючок сундук и нашли клад")
  {
      SendInput, {F6}/gr %MyLastString%{enter}
      Sleep, 1150
      SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
      break
  }
  If (MyLastString == "Сорвалась...")
  {
    SendInput, {F6}/b{enter}
    Sleep, 1150
    SendInput, {F6}/fish{enter}
    Sleep, 1150
    continue
  }
  List := ["Вы поймали: Куртка (1 кг).", "Вы поймали: Туфли (1 кг).", "Вы поймали: Мусор (2 кг).", "Вы поймали: Брюки (1 кг)."]
  for i, element in list
  {
    If (MyLastString == element)
    {
      SendInput, {F6}/releasefish{enter}
      Sleep, 1150
      SendInput, {F6}/fish{enter}
      Sleep, 1150
      continue 2
    }
  }
  RegExMatch(MyLastString, "(.*):", MyFish)
  If (MyFish == "Вы поймали:")
  {
    SendInput, {F6}/b{enter}
    Sleep, 1150
    SendInput, {F6}/fish{enter}
    Sleep, 1150
    continue
  }
  RegExMatch(MyLastString, "(.*)\.(.*)\.", MoneyBag)
  If (MoneyBag1 == "Вы поймали сумку с деньгами")
  {
    SendInput, {F6}/b{enter}
    Sleep, 1150
    SendInput, {F6}/fish{enter}
    Sleep, 1150
    continue
  }
}


АФК фарм кейсов на ярмарке (отслеживание онлайна через сайт)
 

F9:: ExitApp

Numpad1::
Loop
{
nick1 = Wayne_Static
nick2 = Ksenia_Sobchak
nick3 = Sovetskiy_Souz
nick4 = Shaman_King
nick5 = Vladimir_Lenin
Send, {F5}
Sleep, 10000
Send, ^a
Send, ^c
Click
IfInString, Clipboard, %nick1%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick2%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick3%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick4%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
IfInString, Clipboard, %nick5%
{
	Sleep, 12000
}
else
{
	SoundPlay, C:\Users\Alex\Music\ltw.mp3, wait
	break
}
clipboard = ;
}


Желаю удачи в ваших приключениях на "gw"
Всем пока!

GmlB6SF.png

А онлайн что бы пользоваться ими, я буду поднимать?

  • GW UP! 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...