BorderGame
Informazione - Versione stampabile

+- BorderGame (https://www.bordergame.it)
+-- Forum: Programmazione (/Forum-Programmazione--158)
+--- Forum: Programmazione (/Forum-Programmazione)
+--- Discussione: Informazione (/Thread-Informazione)



Informazione - Origano - 08-12-2011 11:59 PM

Ciao raga volevo sapere come si fanno a creare hack minigame lvl 5 0 punti grz mille (va bene anche una piccola guida)


RE: Informazione - тυттσмαχ - 09-12-2011 02:23 PM

devi trovare i pointer poi devi conoscere c++ o vb.net o autoit.. insomma un linguaggio programmazione per modificarli

tagga gli elite coder


RE: Informazione - Lawliet - 09-12-2011 03:39 PM

Guarda qua, c'è un po di tutto..
Citazione:#RequireAdmin

Global $Taglialegnax99_Var = 0,$Cavax99_Var = 0,$Sparax99_Var = 0,$Stagnox99_Var = 0,$Combox10_Var = 0,$Munizioniillimitatespara_Var = 0, $Lv_5_0_Punti_Var = 0, $Roccia_Illuminata_Var = 0
Global $Taglialegnax99_g = 1,$Cavax99_g = 1,$Sparax99_g = 1,$Stagnox99_g = 1,$Combox10_g = 1,$Munizioniillimitatespara_g = 1, $Lv_5_0_Punti_g = 1, $Roccia_Illuminata_g = 1

$P = IniRead("Settings.ini", "Global", "Nostale_Processo", "1")
If $P = "1" Then
$P = InputBox("Processo di Nostale", "Inserisci il processo di nostale consigliato: " & @CRLF & " - NostaleX.dat")
If Not ProcessExists($P) Then
MsgBox(0, "Riprova", "Devi aprire prima nostale")
Exit
EndIf
IniWrite("Settings.ini", "Global", "Nostale_Processo", $P)
EndIf
AdlibRegister("Aggiornamento",20)

#include <StructureConstants.au3>
#include <Misc.au3>
#include <GDIplus.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NosLib.au3>

Dim $TAGLIALEGNAVITE_ARRAY[3] = [0x0,0x18,0x9C4]
Dim $CAVAVITE_ARRAY[3] = [0x0,0x18,0xFBC]
Dim $STAGNOVITE_ARRAY[3] = [0x0,0x18,0x16EC]
Dim $SPARAVITE_ARRAY[3] = [0x0,0x18,0x8C4]

#region _Memory

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 160, 258, 0, 0, BitOR($WS_POPUP, $WS_BORDER))
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor(0x7a7a7a)
$Group1 = GUICtrlCreateGroup("Minigame Hack", 0, 0, 121, 137)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Taglialegna = GUICtrlCreateCheckbox("Taglialegna x99", 8, 16, 97, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Cava = GUICtrlCreateCheckbox("Cava x99", 8, 32, 97, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Stagno = GUICtrlCreateCheckbox("Stagno x99", 8, 48, 97, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Sparapolli = GUICtrlCreateCheckbox("Sparapolli x99", 8, 64, 97, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Combo = GUICtrlCreateCheckbox("Combo x10", 8, 80, 97, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Munizioni = GUICtrlCreateCheckbox("Munizioni Illimitate", 8, 96, 105, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
$Roccia = GUICtrlCreateCheckbox("Roccia Illuminata", 8, 112, 97, 17)
GUICtrlSetBkColor(-1, 0x7a7a7a)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### END Koda GUI section ###+

$Sito = TrayCreateItem("Nostrucchi.altervista.org")
TrayCreateItem("")
$Esci = TrayCreateItem("Esci")

WinSetTrans($Form1, "", "153")

TrayTip("CREDITI", "Hack creato da SCL", 5000)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Taglialegna
If $Taglialegnax99_Var = 1 Then
$Taglialegnax99_Var = 0
GUICtrlSetBkColor($Taglialegna,0x7a7a7a)
Else
$Taglialegnax99_Var = 1
GUICtrlSetBkColor($Taglialegna,0x18DF18)
EndIf
Case $Cava
If $Cavax99_Var = 1 Then
$Cavax99_Var = 0
GUICtrlSetBkColor($Cava,0x7a7a7a)
Else
$Cavax99_Var = 1
GUICtrlSetBkColor($Cava,0x18DF18)
EndIf
Case $Sparapolli
If $Sparax99_Var = 1 Then
$Sparax99_Var = 0
GUICtrlSetBkColor($Sparapolli,0x7a7a7a)
Else
$Sparax99_Var = 1
GUICtrlSetBkColor($Sparapolli,0x18DF18)
EndIf
Case $Stagno
If $Stagnox99_Var = 1 Then
$Stagnox99_Var = 0
GUICtrlSetBkColor($Stagno,0x7a7a7a)
Else
$Stagnox99_Var = 1
GUICtrlSetBkColor($Stagno,0x18DF18)
EndIf
Case $Combo
If $Combox10_Var = 1 Then
$Combox10_Var = 0
GUICtrlSetBkColor($Combo,0x7a7a7a)
Else
$Combox10_Var = 1
GUICtrlSetBkColor($Combo,0x18DF18)
EndIf
Case $Munizioni
If $Munizioniillimitatespara_Var = 1 Then
$Munizioniillimitatespara_Var = 0
GUICtrlSetBkColor($Munizioni,0x7a7a7a)
Else
$Munizioniillimitatespara_Var = 1
GUICtrlSetBkColor($Munizioni,0x18DF18)
EndIf
Case $Roccia
If $Roccia_Illuminata_Var = 1 Then
$Roccia_Illuminata_Var = 0
GUICtrlSetBkColor($Roccia,0x7a7a7a)
Else
$Roccia_Illuminata_Var = 1
GUICtrlSetBkColor($Roccia,0x18DF18)
EndIf
Case $Esci
Exit 0
Case $Sito
ShellExecute("www.nostrucchi.altervista.org")
EndSwitch
WEnd

Func Aggiornamento()
If $Taglialegnax99_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$Taglialegnax99_Array,9999,"DWORD")
$Taglialegnax99_g = 0
Else
If $Taglialegnax99_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$Taglialegnax99_Array,2,"DWORD")
$Taglialegnax99_g = 1
EndIf
EndIf
If $Cavax99_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$Cavax99_Array,9999,"DWORD")
$Cavax99_g = 0
Else
If $Cavax99_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$Cavax99_Array,3,"DWORD")
$Cavax99_g = 1
EndIf
EndIf
If $Sparax99_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$Sparax99_Array,9999,"DWORD")
$Sparax99_g = 0
Else
If $Sparax99_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$Sparax99_Array,2,"DWORD")
$Sparax99_g = 1
EndIf
EndIf
If $Stagnox99_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$Stagnox99_Array,9999,"DWORD")
$Stagnox99_g = 0
Else
If $Stagnox99_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$Stagnox99_Array,2,"DWORD")
$Stagnox99_g = 1
EndIf
EndIf
If $Combox10_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$Combox10_Array,9,"DWORD")
$Combox10_g = 0
Else
If $Combox10_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$Combox10_Array,2,"DWORD")
$Combox10_g = 1
EndIf
EndIf
If $Munizioniillimitatespara_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$Munizioniillimitatespara_Array,9999,"DWORD")
$Munizioniillimitatespara_g = 0
Else
If $Munizioniillimitatespara_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$Munizioniillimitatespara_Array,10,"DWORD")
$Munizioniillimitatespara_g = 1
EndIf
EndIf
If $Roccia_Illuminata_Var = 1 Then
_MemoryPointerWrite(0x007D264C,$P,$RocciaLuccicante_Array,9999,"DWORD")
$Roccia_Illuminata_g = 0
Else
If $Roccia_Illuminata_g = 0 Then
_MemoryPointerWrite(0x007D264C,$P,$RocciaLuccicante_Array,0,"DWORD")
$Roccia_Illuminata_g = 1
EndIf
EndIf
EndFunc



RE: Informazione - Horizone - 09-12-2011 11:31 PM

cera qualche elite coder che impartiva lezioni xD


RE: Informazione - Yoshitoki - 04-03-2012 09:19 PM

Closed