городские работы
Лейтенант (4548828)10 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
17 мая 2017 12:43
Сообщение #21
Elsinor,
Тут как бы в "интонации" и подходу к игре проблема.
Если бы написал - вот скрипт, работает не так как надо, подскажите где подкрутить - то думаю быстрее подсказали бы. Но ему надо что бы поставил чара на скрипт и пошел смотреть кино/гулять/пить пиво и т.п..
Если, например, у меня не было необходимости стоять на работах мне придется найти все точки с работами (это от получаса до нескольких часов ползания по игре), набросать скрипт в черновом варианте, протестировать его для добавления всяких внештатных ситуаций, возможно меня даже несколько раз убьют - я потеряю ресурсы и опыт. То есть затратив несколько часов ничего не делания я получу пруфит для своего чара. Нужно будет скрипт еще настроить на заказчика. Если посчитать что час охоты может принести только золотом в районе 200К да + всякие артефакты то и выходим на сумму около 1К кредорублей за день работы над скриптом. Опять же зависит от продуманности действий - ему же видишь надо что бы он летал, чето там еще делал. И от программы на которой написано - в идеале будет на стелсе, там и ходилка лучше и сканер окружения четче. А если на вскидку сравнить зарплаты в реале программиста на паскале/делфи и на C# то становится понятно что тем сложнее язык и навороченнее программа тем больше она будет стоить.
PS что то изменить в готовом скрипте чаще проще чем писать с нуля (по крайней мере на стелсе и инжекте).

Опять таки найдется мало людей кто купив что то за реал выложит это в доступ. Сдаеца мне тирекс не платил за пак скриптов Зомби и соответственно ценности они для него не представляли. Ну и к чему это привело?

Гости
Сообщений: 72
Рег. 17.05.2017
17 мая 2017 12:49
Сообщение #22
Joanne d`Arc,
Чудище , ты бы хоть ник сменил , не позорь девушку)
Старший Сержант (911115)8 лет
Ranger
Сообщений: 25
Рег. 1.03.2016
17 мая 2017 13:30
Сообщение #23
Найти бы еще у кого купить скриптов.
Лейтенант (4131914)10 лет
Vampire
Сообщений: 276
Рег. 21.09.2013
17 мая 2017 14:18
Сообщение #24
T-ReXX,

Тяфку прикрой свою, с отбросами общаюсь на вашем языке мусор... По нормальному вы не понимаете...
11 лет
Monk
Сообщений: 612
Рег. 21.02.2013
17 мая 2017 15:15
Сообщение #25
Mirage, ну смотри у меня есть друг, я с ним в политехе познакомился, он когда-то играл в уо в начале 2000. так вот, знаю что он программист, я его попросил написать скрипт на стелсе. Он мне сказал, что впадлу т.к, это надо уо ставить итд, ему влом. Игаерт в майнкрафт и меня туда звал. Я объяснил ему, что надо сделать отвечалку и все - скинул скрин самое первой капчи антимакроса и уехал на рыбалку. Он через минут 40 мне в коробку скинул готовый скрипт и в скайп бомбил, ну че работает, работает?

а вот и скрипт:
#include <Array.au3>
#include <GuiConstantsEx.au3>
#Include <WinAPI.au3>

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
Opt("SendKeyDelay", 5)
Opt("SendKeyDownDelay", 5)
HotKeySet('!{ESC}','Close')
TrayTip("UO cheat script", "Выход [Alt]+[Esc]", 5, 1)

Global Const $tagBITMAPINFOHEADER = 'dword biSize;long biWidth;long biHeight;ushort biPlanes;ushort biBitCount;dword biCompression;dword biSizeImage;long biXPelsPerMeter;long biYPelsPerMeter;dword biClrUsed;dword biClrImportant;'
Global $tBIHDR, $pBits
$tBIHDR = DllStructCreate($tagBITMAPINFOHEADER)
DllStructSetData($tBIHDR,'biSize',DllStructGetSize($tBIHDR))
DllStructSetData($tBIHDR,'biWidth',200)
DllStructSetData($tBIHDR,'biHeight',50)
DllStructSetData($tBIHDR,'biPlanes',1)
DllStructSetData($tBIHDR,'biBitCount',32)
DllStructSetData($tBIHDR,'biCompression',0)

Dim $Mask[14], $MaskString[12]
$Mask[0]  = "  ##  #####   #####  ##  ##  ######   #####  #######  #####   #####   #####                                                                                   "
$Mask[1]  = " ### ### ### ### ### ##  ##  ##  ##  ###     ##   ## ##   ## ### ### ### ###                                                                                  "
$Mask[2]  = "  ## ##   ## ##   ## ##  ##  ##      ##          ### ##   ## ##   ## ##   ##                                                                                  "
$Mask[3]  = "  ## ##   ##     ##  ##  ##  ##      ######      ##   ## ### ##   ## ##   ##                                                                                  "
$Mask[4]  = "  ##     ###    ##   ##  ##  ######  ### ###    ###    ###   ##   ## ##   ## ########  ####### #### ####   ##### ###   #### ###  ### ###  ### #### ###  ##### "
$Mask[5]  = "  ##    ###    ####  ##  ##      ### ##   ##    ##    #####  ### ### ##   ##  ##  ##    #  ##   ## ##  ## ##  ##  ### ####   ## ###   ##  ##   ##   #  ##  ## "
$Mask[6]  = "  ##   ###       ### #######      ## ##   ##   ###   ##   ##  ###### ##   ##  ##  ##    #  ##   ## ##  ## ##      ########   ######   ######    #  ##  ##     "
$Mask[7]  = "  ##  ###    ##   ##     ##  ##   ## ##   ##   ##    ##   ##      ## ##   ##  ##  ##   ##  ##   #####  ## ##      # ### ##   ### ##   ##  ##    ## #   ##     "
$Mask[8]  = "  ## ###     ### ###     ##  ### ### ### ###   ##    ##   ##     ### ### ###  ##  ##   #   ##   ## ##  ## ##  ##  #  #  ##   ##  ##   ##  ##     ###   ##  ## "
$Mask[9]  = "  ## #######  #####      ##   #####   #####    ##     #####   #####   #####  ###  ### ##  #### #### ####   ####  ###   #### ###  ### ###  ###    ##     ####  "
$Mask[10] = "                                                                                                                                                ##            "
$Mask[11] = "                                                                                                                                              ###             "
$Mask[12] = "                                                                                                                                              ##              "
$Mask[13] = " 111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 0000000 +++++++++++++++++++++++++++++++++++ -------------------------------------------- "
$Chars = "1234567890+-"
$Title = "[REGEXPTITLE:UO.*?; CLASS:Ultima Online]"
$UOx = 251
$UOy = 370

For $i = 0 to StringLen($Mask[13]) - 1
    $im = StringMid($Mask[13], $i, 1)
    $ic = StringInStr($Chars, $im)
    If $ic > 0 Then
        $in = 0
        For $ii = 0 to 12
            $ib = StringMid($Mask[$ii], $i, 1)
            If $ib = "#" Then $in += 2 ^ $ii
        Next
        If NOT $MaskString[$ic - 1] Then $MaskString[$ic - 1] = "|"
        $MaskString[$ic - 1] &= $in & "|"
    EndIf
Next

While True
    WinWaitActive($Title)
    $hUO = WinGetHandle($Title)

;    $TestPoint = PixelSearch(0, 0, $UOCsize[0] - 1, $UOCsize[1] - 1, 0xF7DEBD)
;    If NOT @error Then
;    331.125

    If (PixelGetColor($UOx + 80, $UOy - 243, $hUO) = 0x18E700) and (PixelGetColor($UOx, $UOy, $hUO) = 0xF7DEBD) Then
        $Expression = ""
        $Result = 0
        $Error = 0
        $TestString = "|"

        $hDDC = _WinAPI_GetDC($hUO)
        $hCDC = _WinAPI_CreateCompatibleDC($hDDC)
        DllStructSetData($tBIHDR, 'biWidth', 100)
        DllStructSetData($tBIHDR, 'biHeight', 13)
        $ScreenBitmap = _WinAPI_CreateDIBSection(0, $tBIHDR, 0, $pBits)
        $ScreenBits = DllStructCreate('dword[1300]', $pBits)
        _WinAPI_SelectObject($hCDC, $ScreenBitmap)
        _WinAPI_BitBlt($hCDC, 0, 0, 100, 13, $hDDC, $UOx + 150, $UOy, 0x00CC0020)
        For $ix = 0 to 99
            $in = 0
            For $iy = 0 to 12
                If DllStructGetData($ScreenBits, 1, $ix + ((12 - $iy) * 100) + 1) = 0xEFEF8C Then $in += 2 ^ $iy
            Next
            $TestString &= $in & "|"
        Next
        _WinAPI_DeleteObject($ScreenBitmap)
        _WinAPI_ReleaseDC($hUO,$hDDC)
        _WinAPI_DeleteDC($hCDC)

        $TestStringLen = StringLen($TestString) - 1
        For $i = 0 to $TestStringLen
            For $ii = 0 to 11
                $MaskStringLen = StringLen($MaskString[$ii])
                If ($i + $MaskStringLen) < $TestStringLen Then
                    If $MaskString[$ii] = StringMid($TestString, $i, $MaskStringLen) Then $Expression &= StringMid($Chars, $ii + 1, 1)
                EndIf
            Next
        Next
        If StringInStr($Expression, "+") Then
            $i = StringSplit($Expression, "+")
            $Result = Number($i[1]) + Number($i[2])
            If $i[1] = "" or $i[2] = "" Then $Error = 1
        Else
            If StringInStr($Expression, "-") Then
                $i = StringSplit($Expression, "-")
                $Result = Number($i[1]) - Number($i[2])
                If $i[1] = "" or $i[2] = "" Then $Error = 1
            Else
                $Error = 2
            EndIf
        EndIf

        If $Error > 0 Then
            TrayTip("UO cheat script Error #" & $Error, $Expression & " = " & $Result, 3, 3)
            SoundPlay(@WindowsDir & '\media\Windows Error.wav')
            Sleep(5000)
        Else
            BlockInput(1)
            Sleep(100)
            MouseClick("left", $UOx + 300,$UOy)
            Send("{BS 20}")
            For $i = 1 to StringLen($Result)
                $ii = StringMid($Result, $i, 1)
                Send("{NUMPAD" & $ii & "}")
            Next
            MouseClick("left", $UOx - 28,$UOy + 6)
            MouseMove($UOx - 28,$UOy + 66)
            Sleep(100)
            TrayTip("UO cheat script", $Expression & " = " & $Result, 3, 1)
            BlockInput(0)
            Sleep(2000)
        EndIf
    EndIf
WEnd

;_ArrayDisplay($MaskString,"Test")

Func Close()
    Exit 0
EndFunc

Func _WinAPI_CreateDIBSection($hDC, ByRef $tBITMAPINFO, $iUsage, ByRef $pBits, $hSection = 0, $iOffset = 0)
    $pBits = 0
    Local $Ret = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'hwnd', $hDC, 'ptr', DllStructGetPtr($tBITMAPINFO), 'uint', $iUsage, 'ptr*', 0, 'ptr', $hSection, 'dword', $iOffset)
    If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, 0)
    $pBits = $Ret[4]
    Return $Ret[0]
EndFunc ;==>_WinAPI_CreateDIBSection

потом я познакомился с Драбаданом на форуме стелса и он залипил скрипт, который выложил на том же форуме, когда ушел с беста, но при этом спросил меня, выкладывать в общий доступ или нет. Я ответил, что он хозяин скрипта, не я же -).

Позже, в гильде был Андрей ака dfs он сварганил на работы скрипт. Я ставил норм чаров:

но поставил еще больше, чтобы быстрее собрать к-т слогер

собрал слогер к-т... мне не зачем ставить ботов. также и с макросом на ламбер и мининг - я собрал себе 2 дерева, и больше не копаю и не рублю. Хотя у меня есть скрипт на чек фатиги.

кому-то написать скрипт не составит труда и времени, а кому-то это п...ц как влом -))))

Гости
Сообщений: 72
Рег. 17.05.2017
17 мая 2017 16:34
Сообщение #26
Joanne d`Arc,
Для общения на языке мусора тут есть услуга смены имини, девушка везде играет этим ником, и некогда так как ты не общалась не где, на сколько я ее знаю.
Лейтенант (4548828)10 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
17 мая 2017 22:17
Сообщение #27
Это муж вроде как.

Гости
Сообщений: 72
Рег. 17.05.2017
18 мая 2017 00:54
Сообщение #28
Цитата: Mirage
Это муж вроде как.


:D
Лейтенант (4131914)10 лет
Vampire
Сообщений: 276
Рег. 21.09.2013
18 мая 2017 05:54
Сообщение #29
T-ReXX,

Не вопрос, след раз что-бы послать тебя или твоих пососников которые между прочим сами агр включают за неимением мозгов и нормы общения, я буду переключать ник :)

Гости
Сообщений: 72
Рег. 17.05.2017
18 мая 2017 10:02
Сообщение #30
Joanne d`Arc,
Мун ты че не признал чтоли , я вообще не разу тя задеть не хотел , во первых не знал что это ты, во вторых я тут вообще покачто больше не играю уже давно ,о каких "пососников" идет реч ? Я просто написал не довольство что с Викиного ника тут уями когото кроют )
Лейтенант (4131914)10 лет
Vampire
Сообщений: 276
Рег. 21.09.2013
18 мая 2017 10:10
Сообщение #31
T-ReXX,

Ну дак я Хуями крою того кто это заслуживает, у Нинки пожизненный абонемент на это, так как человек даун и не умеет нормально общаться, а тут еще ты в лез для его защиты...

Гости
Сообщений: 72
Рег. 17.05.2017
18 мая 2017 11:01
Сообщение #32
Цитата: Joanne d`Arc
а тут еще ты в лез для его защиты...

Для защиты нины ?:D Хорошая шутеечка ))) Не, исключительно сагрился что матершину с ака Вики увидел , не более )
Лейтенант (4131914)10 лет
Vampire
Сообщений: 276
Рег. 21.09.2013
18 мая 2017 11:37
Сообщение #33
T-ReXX,

Да не вопрос, сори что на тебя на гнал, я то хз кто что, помню трекса и райдера, но может это и не ты поэтому и на тебя агр ответный пошел :) Не впорос сорян :)
11 лет
Monk
Сообщений: 612
Рег. 21.02.2013
18 мая 2017 14:32
Сообщение #34
Цитата: Joanne d`Arc
райдера
ты чет перепутал, райдер никакого отношения к этому ракамакафо трексу не имеет отношения. райдер кентил с тризом, но не с тирексом. тирекс - это крыса, которую выкинули из м1, но при этом ему дали пакет скриптов, чтобы не был раком, а он его выложил - а мог бы попробовать продать -))) стать таким же как ты барышкой воздуха -)

Гости
Сообщений: 72
Рег. 17.05.2017
18 мая 2017 19:04
Сообщение #35
Elsinor,
нинусь ты уже какую сотню чаров тут зарегил , скоро до тыщи ?)
Последние посетители (0):

 
Сейчас: 28 марта 2024 09:16