[Программа] Trainer By Adrimsss v0.2

[Archirus]

Лично у меня XP x32(86) всё работает, но иногда, почему то, с 3-го и даже с 7-го раза запускается =3

[dssquall]

Как ни странно, крашистя на хрюшке у меня, причем прошлые версии работали.
Пока не ковырялся и не искал причину, вечером займусь, но после запуска не появляется блокнотик с коментариями автора и после выбора функций программа не объявляет о своей готовности, в отличии от семерки.

[Доброе утро]

у мнея хрюшка все работает отлично. Абсолютно без сбоев

[IZEROI]

В аркаде все мобы с этими же читами)

[Archirus]

Скажи другу создать аркаду, что бы он мастером был, а ты с трейнером и играйте!

[sektorrr]

А может ли ктонибудь добавить опцию снижения дмг ?) было бы круто, тот кто создает игру врубает мелкий дамаг а второй наоборот, в итоге аркаду вообще в афк можно проходить будет спокойно =)

[masimic2000]

икс трап палит или надо с обходом?

[sektorrr]

не палит но 1 раз помню выбило в самой игре какуюто хрень триал хак аттемптет или типо того однако акк живой до сих пор )

[masimic2000]

сектор напиши свой скайп покажи плиззз не могу и все п

[sektorrr]

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

[Archirus]

Если кому надо, то вот развёрнутый, упрощённый код этого трейнера:

#Region
#AutoIt3Wrapper_Icon=icono.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#Region _Memory

Func _TRANSS($WINNAME, $SOP = 0, $ADDOP = 10, $SLEEP = 100)
    WinSetTrans($WINNAME, "", 0)
    For $AOP = $SOP To 255 Step +$ADDOP
        WinSetTrans($winname, "", $aop)
        Sleep($sleep)
    Next
EndFunc
FileInstall("C:\firma.jpg", @TempDir & "\firma.jpg", 1)
FileInstall("C:\001.mp3", @TempDir & "\001.mp3", 1)
FileInstall("C:\002.mp3", @TempDir & "\002.mp3", 1)
FileInstall("C:\start.bmp", @TempDir & "\start.bmp", 1)
FileInstall("C:\credits.bmp", @TempDir & "\credits.bmp", 1)
FileInstall("C:\web.bmp", @TempDir & "\web.bmp", 1)
FileInstall("C:\cabecerablanca.jpg", @TempDir & "\cabecerablanca.jpg", 1)
FileInstall("C:\barra.jpg", @TempDir & "\barra.jpg", 1)
FileInstall("C:\adrims.jpg", @TempDir & "\adrims.jpg", 1)
FileInstall("C:\adrims.jpg", @TempDir & "\adrims.jpg", 1)
SoundPlay(@TempDir & "\002.mp3")
$FORM1 =  GUICreate("Trainer by Adrims v1.0",409, 158, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
FileInstall("C:\firma.jpg", @TempDir & "\firma.jpg", 1)
$PIC1 =  GUICtrlCreatePic(@TempDir & "\firma.jpg", 0, 0, 409, 158, 0)
GUISetState(@SW_SHOW)
_transs($form1)
#EndRegion ### END Koda GUI section ###
Sleep("5000")
GUIDelete($form1)
SoundPlay(@TempDir & "\001.mp3")
$FORM3_1 =  GUICreate("Trainer by Adrims v1.0", 409, 513, -1,-1)
GUISetBkColor(0xF0F0F0)
$PIC1 =  GUICtrlCreatePic(@tempdir & "\cabecerablanca.jpg", 0, 0, 409, 41)
$PIC2 =  GUICtrlCreatePic(@tempdir & "\barra.jpg", 0, 480, 40, 33)
$PIC3 =  GUICtrlCreatePic(@tempdir & "\barra.jpg", 129, 480, 14, 33)
$PIC4 =  GUICtrlCreatePic(@tempdir & "\barra.jpg", 249, 480, 23, 33)
$PIC5 =  GUICtrlCreatePic(@tempdir & "\barra.jpg", 377, 480, 33, 33)
$START =  GUICtrlCreatebutton("C:\Users\Adrian\Pictures\start.jpg", 140, 480, 113, 33, $bs_bitmap)
GUICtrlSetImage(-1, @tempdir & "\start.bmp", -1)
$WEB =  GUICtrlCreatebutton("C:\Users\Adrian\Pictures\web.jpg", 20, 480, 113, 33, $bs_bitmap)
GUICtrlSetImage(-1, @tempdir & "\web.bmp", -1)
$CREDITS =  GUICtrlCreatebutton("C:\Users\Adrian\Pictures\credits.jpg", 264, 480, 113, 33, $bs_bitmap)
GUICtrlSetImage(-1, @tempdir & "\credits.bmp", -1)
$PIC7 =  GUICtrlCreatePic(@tempdir & "\adrims.jpg", 48, 0, 300, 41)
$GROUP1 =  GUICtrlCreateGroup("Normal Hacks", 16, 56, 377, 193)
$CHECKBOX1 =  GUICtrlCreateCheckbox("1 Hit Kill", 32, 80, 97, 17)
$CHECKBOX2 =  GUICtrlCreateCheckbox("Damage x2", 32, 104, 97, 17)
$CHECKBOX3 =  GUICtrlCreateCheckbox("Instant Respawn", 32, 128, 97, 17)
$CHECKBOX4 =  GUICtrlCreateCheckbox("Dodge Range", 32, 152, 97, 17)
$CHECKBOX5 =  GUICtrlCreateCheckbox("Dodge Speed", 32, 176, 97, 17)
$CHECKBOX6 =  GUICtrlCreateCheckbox("Inf Dodges", 32, 200, 97, 17)
$CHECKBOX7 =  GUICtrlCreateCheckbox("Reverse WJ", 152, 104, 97, 17)
$CHECKBOX8 =  GUICtrlCreateCheckbox("Walljump x2", 152, 128, 97, 17)
$CHECKBOX9 =  GUICtrlCreateCheckbox("Block Delay", 152, 200, 97, 17)
$CHECKBOX10 =  GUICtrlCreateCheckbox("Sentry Range", 152, 152, 97, 17)
$CHECKBOX11 =  GUICtrlCreateCheckbox("Fastfire", 272, 80, 97, 17)
$CHECKBOX12 =  GUICtrlCreateCheckbox("MultiHit", 272, 104, 97, 17)
$CHECKBOX13 =  GUICtrlCreateCheckbox("Anchor Range", 272, 128, 97, 17)
$CHECKBOX14 =  GUICtrlCreateCheckbox("Anchor Speed", 272, 152, 97, 17)
$CHECKBOX15 =  GUICtrlCreateCheckbox("No Blast", 272, 176, 97, 17)
$CHECKBOX16 =  GUICtrlCreateCheckbox("Shop Fake", 152, 80, 97, 17)
$CHECKBOX17 =  GUICtrlCreateCheckbox("No Sky", 152, 176, 97, 17)
$CHECKBOX18 =  GUICtrlCreateCheckbox("No Slang", 272, 200, 97, 17)
$CHECKBOX21 =  GUICtrlCreateCheckbox("Wallshoot", 32, 224, 97, 17)
$CHECKBOX22 =  GUICtrlCreateCheckbox("No Rules", 152, 224, 97, 17)
$CHECKBOX23 =  GUICtrlCreateCheckbox("No Laser", 272, 224, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP5 =  GUICtrlCreateGroup("New!!!! Change the normal effects to others!!", 16, 264, 377, 193)
$GROUP6 =  GUICtrlCreateGroup("Walljump change..", 24, 288, 113, 153)
$RADIO1 =  GUICtrlCreateRadio("Twin effect", 32, 312, 81, 17)
$RADIO2 =  GUICtrlCreateRadio("Invoke Stairs", 32, 336, 89, 17)
$RADIO3 =  GUICtrlCreateRadio("Invoke Guardian", 32, 360, 97, 17)
$RADIO4 =  GUICtrlCreateRadio("Breake Block", 32, 384, 89, 17)
$RADIO5 =  GUICtrlCreateRadio("Mode Box", 32, 408, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP7 =  GUICtrlCreateGroup("Run Fast change..", 144, 288, 113, 153)
$RADIO6 =  GUICtrlCreateRadio("Mode Cinema", 152, 312, 89, 17)
$RADIO7 =  GUICtrlCreateRadio("Waterfall", 152, 336, 73, 17)
$RADIO8 =  GUICtrlCreateRadio("Boss Fog", 152, 360, 73, 17)
$RADIO9 =  GUICtrlCreateRadio("Breake ground", 152, 384, 97, 17)
$RADIO10 =  GUICtrlCreateRadio("Invoke Shield", 152, 408, 89, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP8 =  GUICtrlCreateGroup("Jump change...", 264, 288, 113, 153)
$RADIO11 =  GUICtrlCreateRadio("Beautiful...", 272, 312, 81, 17)
$RADIO12 =  GUICtrlCreateRadio("Ray", 272, 336, 57, 17)
$RADIO13 =  GUICtrlCreateRadio("Card Jump", 272, 360, 73, 17)
$RADIO14 =  GUICtrlCreateRadio("Gun Hit", 272, 384, 73, 17)
$RADIO15 =  GUICtrlCreateRadio("Wave", 272, 408, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
_transs($form3_1)
Run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
Send("IMPORTANT READ PLEASE: {ENTER}{ENTER}")
Sleep(1000)
Send("WHAT CAN YOU DO IF DOESN'T WORK FOR YOU?{ENTER}{ENTER}")
Sleep(500)
Send("-Reboot your computer{ENTER}{ENTER}")
Sleep(500)
Send("-Disable your antivirus{ENTER}{ENTER}")
Sleep(500)
Send("-Close all the things(Programs) that you aren't going to use{ENTER}{ENTER}")
Sleep(500)
Send("NOTHING CHANGES? {ENTER}{ENTER}")
Sleep(500)
Send("-First select what you want and then click start{ENTER}{ENTER}")
Sleep(500)
Send("-This trainer is for the last S4 patch? current version of S4: 1163(7/03/12){ENTER}{ENTER}")
Sleep(500)
Send("DO YOU WANT TO GET THE NEW VERSION BEFORE ANYONE ELSE? {ENTER}{ENTER}")
Sleep(500)
Send("1- Click thanks in my post (elitepvpers) {ENTER}{ENTER}")
Sleep(500)
Send("2- Registrer in s4hk.foroactivo.com {ENTER}{ENTER}")
Sleep(500)
Send("THIS TRAINER IS FROM S4HK.FOROACTIVO.COM AND elitepvpers.com{ENTER}{ENTER}")
Sleep(500)
Send("THANKS TO USE ADRIMS TRAINER, ALL RIGHTS COPYRIGHT{ENTER}{ENTER}")
Sleep(500)
Send("Greetings from Adrims{ENTER}{ENTER}")
Sleep(500)
#EndRegion ### END Koda GUI section ###
While 1
    $NMSG =  GUIGetMsg()
    Switch $NMSG
        Case $GUI_EVENT_CLOSE
            Exit
        Case $WEB
            msgbox(0,"Registrer", "Please enter and registrer")
            shellExecute("http:\\www.s4hk.foroactivo.com")
        Case $CREDITS
            msgbox(0,"Credits", " All credits go to Adrimsss, s4hk.foroactivo.com and elitepvpers.com")
        Case $START
            AdlibRegister("_ToolTip", 1000)
            _START()
    EndSwitch
WEnd
Func _START()
    $PID = ProcessWait("S4Client.exe")
    $OPEN = _MEMORYOPEN($PID)
    Sleep(500)
    If GUICtrlRead($CHECKBOX1) = 1 Then
        _MemoryWrite(0x00767e5c,$OPEN,"206408452", "long")
    EndIf
    If GUICtrlRead($CHECKBOX2) = 1 Then
        _MEMORYWRITE(0x00767e5c,$OPEN,"206408450","long")
    EndIf
    If GUICtrlRead($CHECKBOX3) = 1 Then
        _MEMORYWRITE(0x005950c0,$OPEN,"4885408","long")
    EndIf
    If GUICtrlRead($CHECKBOX4) = 1 Then
        _MEMORYWRITE(0x005862b1,$OPEN,"3024981254","long")
    EndIf
    If GUICtrlRead($CHECKBOX5) = 1 Then
        _MEMORYWRITE(0x0058619d,$OPEN,"3427634576","long")
    EndIf
    If GUICtrlRead($CHECKBOX6) = 1 Then
        _MEMORYWRITE(0x0058666c,$OPEN,"2332060224","long")
    EndIf
    If GUICtrlRead($CHECKBOX7) = 1 Then
        _MEMORYWRITE(0x0057f0c4,$OPEN,"3024456960","long")
    EndIf
    If GUICtrlRead($CHECKBOX8) = 1 Then
        _MEMORYWRITE(0x0057f174,$OPEN,"2421001526","long")
    EndIf
    If GUICtrlRead($CHECKBOX9) = 1 Then
        _MEMORYWRITE(0x0071e2e4,$OPEN,"1006390667","long")
    EndIf
    If GUICtrlRead($CHECKBOX10) = 1 Then
        _MEMORYWRITE(0x004fa820,$OPEN,"4265990652","long")
    EndIf
    If GUICtrlRead($CHECKBOX11) = 1 Then
        _MEMORYWRITE(0x005249c9,$OPEN,"990136973","long")
    EndIf
    If GUICtrlRead($CHECKBOX12) = 1 Then
        _MEMORYWRITE(0x005249c9,$OPEN,"990136973","long")
    EndIf
    If GUICtrlRead($CHECKBOX13) = 1 Then
        _memorywrite(0x0059c801, $open, "138951427", "long")
    EndIf
    If GUICtrlRead($CHECKBOX14) = 1 Then
        _MEMORYWRITE(0x0059c734,$OPEN,"3767896327","long")
    EndIf
    If GUICtrlRead($CHECKBOX15) = 1 Then
        _MEMORYWRITE(0x00FC53A4,$OPEN,"0","char[5]")
        _MEMORYWRITE(0x00FC53C0,$OPEN,"0","char[5]")
        _MEMORYWRITE(0x00FC53F0,$OPEN,"0","char[5]")
        _MEMORYWRITE(0x00FC543C,$OPEN,"0","char[5]")
    EndIf
    If GUICtrlRead($CHECKBOX16) = 1 Then
        _MEMORYWRITE(0x01059ad8,$OPEN,"onon","char[5]")
        _MEMORYWRITE(0x01059b10,$OPEN,"onon","char[5]")
        _MEMORYWRITE(0x01059cf0,$OPEN,"onon","char[5]")
        _MEMORYWRITE(0x01059d5c,$OPEN,"onon","char[5]")
    EndIf
    If GUICtrlRead($CHECKBOX17) = 1 Then
        _MEMORYWRITE(0x0048b110,$OPEN,"1265250410","long")
    EndIf
    If GUICtrlRead($CHECKBOX18) = 1 Then
        _MEMORYWRITE(0x00406df3,$OPEN,"1701458026","long")
        _MEMORYWRITE(0x00406efe,$OPEN,"1701458026","long")
        _MEMORYWRITE(0x00406fef,$OPEN,"1701458026","long")
    EndIf
    If GUICtrlRead($CHECKBOX21) = 1 Then
        _MEMORYWRITE(0x00fc3fc0,$OPEN,"1065353216","long")
    EndIf
    If GUICtrlRead($CHECKBOX22) = 1 Then
        _MemoryWrite(0x0102b930,$OPEN,"4285144", "long")
        _MemoryWrite(0x0102b82c,$OPEN,"4295641", "long")
        _MemoryWrite(0x0102b830,$OPEN,"4295641", "long")
        _MemoryWrite(0x0102b83c,$OPEN,"4275113", "long")
    EndIf
    If GUICtrlRead($CHECKBOX23) = 1 Then
        _MEMORYWRITE(0x00491768,$OPEN,"1785031216","long")
        _MEMORYWRITE(0x00491c2c,$OPEN,"1785031216","long")
        _MEMORYWRITE(0x004915f0,$OPEN,"1785031216","long")
    EndIf
    If GUICtrlRead($RADIO1) = 1 Then
        _MEMORYWRITE(0x00fcda52,$OPEN,"chain_12.seq","char[19]")
    EndIf
    If GUICtrlRead($RADIO2) = 1 Then
        _MEMORYWRITE(0x00fcda52,$OPEN,"tuto_stair01.seq","char[19]")
    EndIf
    If GUICtrlRead($RADIO3) = 1 Then
        _MEMORYWRITE(0x00fcda52,$OPEN,"tuto_001.seq","char[19]")
    EndIf
    If GUICtrlRead($RADIO4) = 1 Then
        _MEMORYWRITE(0x00fcda52,$OPEN,"eff_target_green.seq","char[20]")
    EndIf
    If GUICtrlRead($RADIO5) = 1 Then
        _MEMORYWRITE(0x00fcda52,$OPEN,"mapeffect_blast_bo*****q","char[25]")
    EndIf
    If GUICtrlRead($RADIO6) = 1 Then
        _MEMORYWRITE(0x00fce992,$OPEN,"cinemaline.seq","char[18]")
        _MEMORYWRITE(0x00fcfa82,$OPEN,"cinemaline.seq","char[18]")
    EndIf
    If GUICtrlRead($RADIO7) = 1 Then
        _MEMORYWRITE(0x00fce992,$OPEN,"waterfall01.seq","char[18]")
        _MEMORYWRITE(0x00fcfa82,$OPEN,"waterfall01.seq","char[18]")
    EndIf
    If GUICtrlRead($RADIO8) = 1 Then
        _MEMORYWRITE(0x00fce992,$OPEN,"pve_boss_fog01.seq","char[20]")
        _MEMORYWRITE(0x00fcfa82,$OPEN,"pve_boss_fog01.seq","char[20]")
    EndIf
    If GUICtrlRead($RADIO9) = 1 Then
        _MEMORYWRITE(0x00fce992,$OPEN,"pve_chain.seq","char[18]")
        _MEMORYWRITE(0x00fcfa82,$OPEN,"pve_chain.seq","char[18]")
    EndIf
    If GUICtrlRead($RADIO10) = 1 Then
        _MEMORYWRITE(0x00fce992,$OPEN,"guard_start.seq","char[18]")
        _MEMORYWRITE(0x00fcfa82,$OPEN,"guard_start.seq","char[18]")
    EndIf
    If GUICtrlRead($RADIO11) = 1 Then
        _MEMORYWRITE(0x00fcf046,$OPEN,"addteat.seq","char[20]")
        _MEMORYWRITE(0x00fcf066,$OPEN,"addteat.seq","char[20]")
        _MEMORYWRITE(0x00fd176e,$OPEN,"addteat.seq","char[20]")
        _MEMORYWRITE(0x01000dda,$OPEN,"addteat.seq","char[20]")
        _MEMORYWRITE(0x010019a2,$OPEN,"addteat.seq","char[20]")
    EndIf
    If GUICtrlRead($RADIO12) = 1 Then
        _MEMORYWRITE(0x00fcf046,$OPEN,"1.seq","char[20]")
        _MEMORYWRITE(0x00fcf066,$OPEN,"1.seq","char[20]")
        _MEMORYWRITE(0x00fd176e,$OPEN,"1.seq","char[20]")
        _MEMORYWRITE(0x01000dda,$OPEN,"1.seq","char[20]")
        _MEMORYWRITE(0x010019a2,$OPEN,"1.seq","char[20]")
    EndIf
    If GUICtrlRead($RADIO13) = 1 Then
        _MEMORYWRITE(0x00fcf046,$OPEN,"card_wall_attack.seq","char[22]")
        _MEMORYWRITE(0x00fcf066,$OPEN,"card_wall_attack.seq","char[22]")
        _MEMORYWRITE(0x00fd176e,$OPEN,"card_wall_attack.seq","char[22]")
        _MEMORYWRITE(0x01000dda,$OPEN,"card_wall_attack.seq","char[22]")
        _MEMORYWRITE(0x010019a2,$OPEN,"card_wall_attack.seq","char[22]")
    EndIf
    If GUICtrlRead($RADIO14) = 1 Then
        _MEMORYWRITE(0x00fcf046,$OPEN,"gun_hit4.seq","char[20]")
        _MEMORYWRITE(0x00fcf066,$OPEN,"gun_hit4.seq","char[20]")
        _MEMORYWRITE(0x00fd176e,$OPEN,"gun_hit4.seq","char[20]")
        _MEMORYWRITE(0x01000dda,$OPEN,"gun_hit4.seq","char[20]")
        _MEMORYWRITE(0x010019a2,$OPEN,"gun_hit4.seq","char[20]")
    EndIf
    If GUICtrlRead($RADIO15) = 1 Then
        _MEMORYWRITE(0x00fcf046,$OPEN,"pve_item.seq","char[20]")
        _MEMORYWRITE(0x00fcf066,$OPEN,"pve_item.seq","char[20]")
        _MEMORYWRITE(0x00fd176e,$OPEN,"pve_item.seq","char[20]")
        _MEMORYWRITE(0x01000dda,$OPEN,"pve_item.seq","char[20]")
        _MEMORYWRITE(0x010019a2,$OPEN,"pve_item.seq","char[20]")
    EndIf
    shellExecute("http:\\www.s4hk.foroactivo.com")
    Exit
EndFunc
Func _TOOLTIP()
    STATIC Local $I = 1
    Switch $I
        Case 1
            ToolTip("Start s4 league [Adrims Trainer].", 0, 0)
        Case 2
            ToolTip("Start s4 league [Adrims Trainer]..", 0, 0)
        Case 3
            ToolTip("Start s4 league [Adrims Trainer]...", 0, 0)
            $I =  0
    EndSwitch
    $I +=  1
EndFunc

[sektorrr]

Цитата: Сообщение от archangel312 Если кому надо, то вот развёрнутый, упрощённый код этого трейнера:

КАк!!! я вставил код проги запустил, и... и.....!!!! она запустилась вместе с музыкой картинками и прочим как оригинал > < (п.с. я программингом не увлекаюсь) она что экстрасенс оО... и да как поменять дмг, просто уменьшить значение этой 206408450 штуки ? и ещё интересно чем можно посмотреть какое оно по дефолту в игре... )

спустя некоторое время....
ААААА зато при конвертации арет что файлов нету )))))

спустя...
Сорри автор пришлось убрать картинки > <

спустя...
О я нашел русскую справку по АутоИТу....

спустя...
Вроде сделал ) мобы теперь просто в роли анимации, эм... если есть такие же извращенцы как я то [Ссылки могут видеть только зарегистрированные пользователи. ] и да автор прости! > < я удалил все картинки и музыку и открывалку сайтика TT

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Archirus]

sektorrr
Будь добр, прикрепи пожалуйста [Ссылки могут видеть только зарегистрированные пользователи. ] к своему сообщению, а то его удалить могут =\

[sasha1994360]

При открытии чита у меня выскакивает окно блокнота и пишется текст...
Как убрать это?

[sektorrr]

Можешь отредактированную мной извращенную версию скачать да простит меня автор... выше через 1 сообщение она находится )