 городские работы |
  Сообщений: 3319 Рег. 19.11.2013 |
 17 мая 2017 12:43 Сообщение #21
|
Elsinor, Тут как бы в "интонации" и подходу к игре проблема. Если бы написал - вот скрипт, работает не так как надо, подскажите где подкрутить - то думаю быстрее подсказали бы. Но ему надо что бы поставил чара на скрипт и пошел смотреть кино/гулять/пить пиво и т.п.. Если, например, у меня не было необходимости стоять на работах мне придется найти все точки с работами (это от получаса до нескольких часов ползания по игре), набросать скрипт в черновом варианте, протестировать его для добавления всяких внештатных ситуаций, возможно меня даже несколько раз убьют - я потеряю ресурсы и опыт. То есть затратив несколько часов ничего не делания я получу пруфит для своего чара. Нужно будет скрипт еще настроить на заказчика. Если посчитать что час охоты может принести только золотом в районе 200К да + всякие артефакты то и выходим на сумму около 1К кредорублей за день работы над скриптом. Опять же зависит от продуманности действий - ему же видишь надо что бы он летал, чето там еще делал. И от программы на которой написано - в идеале будет на стелсе, там и ходилка лучше и сканер окружения четче. А если на вскидку сравнить зарплаты в реале программиста на паскале/делфи и на C# то становится понятно что тем сложнее язык и навороченнее программа тем больше она будет стоить. PS что то изменить в готовом скрипте чаще проще чем писать с нуля (по крайней мере на стелсе и инжекте). Опять таки найдется мало людей кто купив что то за реал выложит это в доступ. Сдаеца мне тирекс не платил за пак скриптов Зомби и соответственно ценности они для него не представляли. Ну и к чему это привело? |
|
|
|
|
|
17 мая 2017 12:49 Сообщение #22
|
|
Joanne d`Arc, Чудище , ты бы хоть ник сменил , не позорь девушку) |
|
|
|
|
  Сообщений: 25 Рег. 1.03.2016 |
17 мая 2017 13:30 Сообщение #23
|
Найти бы еще у кого купить скриптов. |
|
|
|
|
Сообщений: 276 Рег. 21.09.2013 |
17 мая 2017 14:18 Сообщение #24
|
T-ReXX, Тяфку прикрой свою, с отбросами общаюсь на вашем языке мусор... По нормальному вы не понимаете... |
|
|
|
|
|
Сообщений: 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 дерева, и больше не копаю и не рублю. Хотя у меня есть скрипт на чек фатиги. кому-то написать скрипт не составит труда и времени, а кому-то это п...ц как влом -)))) |
|
|
|
|
|
17 мая 2017 16:34 Сообщение #26
|
|
Joanne d`Arc, Для общения на языке мусора тут есть услуга смены имини, девушка везде играет этим ником, и некогда так как ты не общалась не где, на сколько я ее знаю. |
|
|
|
|
|
Сообщений: 3319 Рег. 19.11.2013 |
17 мая 2017 22:17 Сообщение #27
|
Это муж вроде как. |
|
|
|
|
|
18 мая 2017 00:54 Сообщение #28
|
|
Цитата: Mirage Это муж вроде как. :D |
|
|
|
|
|
Сообщений: 276 Рег. 21.09.2013 |
18 мая 2017 05:54 Сообщение #29
|
T-ReXX, Не вопрос, след раз что-бы послать тебя или твоих пососников которые между прочим сами агр включают за неимением мозгов и нормы общения, я буду переключать ник :) |
|
|
|
|
|
18 мая 2017 10:02 Сообщение #30
|
|
Joanne d`Arc, Мун ты че не признал чтоли , я вообще не разу тя задеть не хотел , во первых не знал что это ты, во вторых я тут вообще покачто больше не играю уже давно ,о каких "пососников" идет реч ? Я просто написал не довольство что с Викиного ника тут уями когото кроют ) |
|
|
|
|
|
Сообщений: 276 Рег. 21.09.2013 |
18 мая 2017 10:10 Сообщение #31
|
T-ReXX, Ну дак я Хуями крою того кто это заслуживает, у Нинки пожизненный абонемент на это, так как человек даун и не умеет нормально общаться, а тут еще ты в лез для его защиты... |
|
|
|
|
|
18 мая 2017 11:01 Сообщение #32
|
|
Цитата: Joanne d`Arc а тут еще ты в лез для его защиты... Для защиты нины ?:D Хорошая шутеечка ))) Не, исключительно сагрился что матершину с ака Вики увидел , не более ) |
|
|
|
|
|
Сообщений: 276 Рег. 21.09.2013 |
18 мая 2017 11:37 Сообщение #33
|
T-ReXX, Да не вопрос, сори что на тебя на гнал, я то хз кто что, помню трекса и райдера, но может это и не ты поэтому и на тебя агр ответный пошел :) Не впорос сорян :) |
|
|
|
|
|
Сообщений: 612 Рег. 21.02.2013 |
18 мая 2017 14:32 Сообщение #34
|
Цитата: Joanne d`Arc райдера ты чет перепутал, райдер никакого отношения к этому ракамакафо трексу не имеет отношения. райдер кентил с тризом, но не с тирексом. тирекс - это крыса, которую выкинули из м1, но при этом ему дали пакет скриптов, чтобы не был раком, а он его выложил - а мог бы попробовать продать -))) стать таким же как ты барышкой воздуха -) |
|
|
|
|
|
18 мая 2017 19:04 Сообщение #35
|
|
Elsinor, нинусь ты уже какую сотню чаров тут зарегил , скоро до тыщи ?) |
|
|
|
|
Последние посетители (0):
| Сейчас: 23 ноября 2024 23:04 |