autopay - /apay

[Magov1733]

Всем привет. Думаю по названию темы уже догадались. Надо скрипт на передачу денег. Скрипт на автомате передаёт нужное кол-во денег игроку.
Пример:

/apay ID summa
/pay ID summa
/pay ID summa
Передано денег: summa

С обходом антифлуда. "Не флудите"
Максимальная сумма одной передачи - $5000

 

[darksoor]

Всем привет. Думаю по названию темы уже догадались. Надо скрипт на передачу денег. Скрипт на автомате передаёт нужное кол-во денег игроку.
Пример:

/apay ID summa
/pay ID summa
/pay ID summa
Передано денег: summa

С обходом антифлуда. "Не флудите"
Максимальная сумма одной передачи - $5000

x:= summa
while (x > 5000)
{
    SendChat("/pay " id " 5000")
    x := x - 5000
    Sleep, 3000
    getChatLine(0, payz)
    getChatLine(1, payz1)
    if payz contains Не флудите
    {
        SendChat("Кхм..")
        Sleep, 1100
        SendChat("/pay " id " 5000")
        Sleep, 2700
    }
    Sleep, 200
    if payz1 contains Не флудите
    {
        SendChat("Кхм..")
        Sleep, 1100
        SendChat("/pay " id " 5000")
        Sleep, 2700
    }
}
Sleep, 250
SendChat("/pay " id " " x)
getChatLine(0, payzz)
getChatLine(1, payzz1)
    if payzz contains Не флудите
    {
        SendChat("Кхм..")
        Sleep, 1100
        SendChat("/pay " id " " x)
        Sleep, 2700
    }
    Sleep, 200
    if payzz1 contains Не флудите
    {
        SendChat("Кхм..")
        Sleep, 1100
        SendChat("/pay " id " " x)
        Sleep, 2700
    }
Return