Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
[help]solution make code shorter [help]solution make code shorter
You last visited: Today at 06:57

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[help]solution make code shorter

Discussion on [help]solution make code shorter within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2011
Posts: 1
Received Thanks: 0
[help]solution make code shorter

my code is very long and it didnt work well when i add more than 6 function. How can I make it better?


Code:
#include <GUIConstants.au3>
#include <NomadMemory.au3> ;because you need this for _memread functions
dim $a
GUICreate("My GUI Button")
;mob 23////////////////////////////////////////////
$Label_1 = GUICtrlCreateLabel("unknown",15, 105,100,15)
$Label_2 = GUICtrlCreateLabel("0/0",15, 120,100,15)
$Label_3 = GUICtrlCreateLabel("0/0",15, 135,100,15)
;//////////////////////////////////////////////////
;mob 13////////////////////////////////////////////
$Label_131 = GUICtrlCreateLabel("unknown",100, 105,100,15)
$Label_132 = GUICtrlCreateLabel("0/0",100, 120,100,15)
$Label_133 = GUICtrlCreateLabel("0/0",100, 135,100,15)
;//////////////////////////////////////////////////
;mob 24////////////////////////////////////////////
$Label_241 = GUICtrlCreateLabel("unknown",15, 150,100,15)
$Label_242 = GUICtrlCreateLabel("0/0",15, 165,100,15)
$Label_243 = GUICtrlCreateLabel("0/0",15, 180,100,15)
;//////////////////////////////////////////////////
;mob 14////////////////////////////////////////////
$Label_141 = GUICtrlCreateLabel("unknown",100, 150,100,15)
$Label_142 = GUICtrlCreateLabel("0/0",100, 165,100,15)
$Label_143 = GUICtrlCreateLabel("0/0",100, 180,100,15)
;//////////////////////////////////////////////////
;mob 22////////////////////////////////////////////
$Label_221 = GUICtrlCreateLabel("unknown",15, 60,100,15)
$Label_222 = GUICtrlCreateLabel("0/0",15, 75,100,15)
$Label_223 = GUICtrlCreateLabel("0/0",15, 90,100,15)
;//////////////////////////////////////////////////
;mob 12////////////////////////////////////////////
$Label_121 = GUICtrlCreateLabel("unknown",100, 60,100,15)
$Label_122 = GUICtrlCreateLabel("0/0",100, 75,100,15)
$Label_123 = GUICtrlCreateLabel("0/0",100, 90,100,15)
;//////////////////////////////////////////////////
;mob 25////////////////////////////////////////////
$Label_251 = GUICtrlCreateLabel("unknown",15, 195,100,15)
$Label_252 = GUICtrlCreateLabel("0/0",15, 210,100,15)
$Label_253 = GUICtrlCreateLabel("0/0",15, 225,100,15)
;//////////////////////////////////////////////////
;mob 15////////////////////////////////////////////
$Label_151 = GUICtrlCreateLabel("unknown",100, 195,100,15)
$Label_152 = GUICtrlCreateLabel("0/0",100, 210,100,15)
$Label_153 = GUICtrlCreateLabel("0/0",100, 225,100,15)
;//////////////////////////////////////////////////
;mob 21////////////////////////////////////////////
$Label_211 = GUICtrlCreateLabel("unknown",15, 15,100,15)
$Label_212 = GUICtrlCreateLabel("0/0",15, 30,100,15)
$Label_213 = GUICtrlCreateLabel("0/0",15, 45,100,15)
;//////////////////////////////////////////////////
;mob 11////////////////////////////////////////////
$Label_111 = GUICtrlCreateLabel("unknown",100, 15,100,15)
$Label_112 = GUICtrlCreateLabel("0/0",100, 30,100,15)
$Label_113 = GUICtrlCreateLabel("0/0",100, 45,100,15)
;//////////////////////////////////////////////////

;//////////////////////////////////////////////////
;char 23////////////////////////////////////////////
$Label_1char = GUICtrlCreateLabel("unknown",300, 105,100,15)
$Label_2char = GUICtrlCreateLabel("0/0",300, 120,100,15)
$Label_3char = GUICtrlCreateLabel("0/0",300, 135,100,15)
;//////////////////////////////////////////////////
;char 13////////////////////////////////////////////
$Label_1char13 = GUICtrlCreateLabel("unknown",200, 105,100,15)
$Label_2char13 = GUICtrlCreateLabel("0/0",200, 120,100,15)
$Label_3char13 = GUICtrlCreateLabel("0/0",200, 135,100,15)
;//////////////////////////////////////////////////
;char 24////////////////////////////////////////////
$Label_1char24 = GUICtrlCreateLabel("unknown",300, 150,100,15)
$Label_2char24 = GUICtrlCreateLabel("0/0",300, 165,100,15)
$Label_3char24 = GUICtrlCreateLabel("0/0",300, 180,100,15)
;//////////////////////////////////////////////////
;char 14////////////////////////////////////////////
$Label_1char14 = GUICtrlCreateLabel("unknown",200, 150,100,15)
$Label_2char14 = GUICtrlCreateLabel("0/0",200, 165,100,15)
$Label_3char14 = GUICtrlCreateLabel("0/0",200, 180,100,15)
;//////////////////////////////////////////////////
;char 25////////////////////////////////////////////
$Label_1char25 = GUICtrlCreateLabel("unknown",300, 195,100,15)
$Label_2char25 = GUICtrlCreateLabel("0/0",300, 210,100,15)
$Label_3char25 = GUICtrlCreateLabel("0/0",300, 225,100,15)
;//////////////////////////////////////////////////
;char 15////////////////////////////////////////////
$Label_1char15 = GUICtrlCreateLabel("unknown",200, 195,100,15)
$Label_2char15 = GUICtrlCreateLabel("0/0",200, 210,100,15)
$Label_3char15 = GUICtrlCreateLabel("0/0",200, 225,100,15)
;//////////////////////////////////////////////////
;char 22////////////////////////////////////////////
$Label_1char22 = GUICtrlCreateLabel("unknown",300, 60,100,15)
$Label_2char22 = GUICtrlCreateLabel("0/0",300, 75,100,15)
$Label_3char22 = GUICtrlCreateLabel("0/0",300, 90,100,15)
;//////////////////////////////////////////////////
;char 12////////////////////////////////////////////
$Label_1char12 = GUICtrlCreateLabel("unknown",200, 60,100,15)
$Label_2char12 = GUICtrlCreateLabel("0/0",200, 75,100,15)
$Label_3char12 = GUICtrlCreateLabel("0/0",200, 90,100,15)
;//////////////////////////////////////////////////
;char 21////////////////////////////////////////////
$Label_1char21 = GUICtrlCreateLabel("unknown",300, 15,100,15)
$Label_2char21 = GUICtrlCreateLabel("0/0",300, 30,100,15)
$Label_3char21 = GUICtrlCreateLabel("0/0",300, 45,100,15)
;//////////////////////////////////////////////////
;char 11////////////////////////////////////////////
$Label_1char11 = GUICtrlCreateLabel("unknown",200, 15,100,15)
$Label_2char11 = GUICtrlCreateLabel("0/0",200, 30,100,15)
$Label_3char11 = GUICtrlCreateLabel("0/0",200, 45,100,15)
;//////////////////////////////////////////////////
GUISetState ()

$Process1 = WinGetProcess("[CLASS:##RAYSDDWNDCLASS20010705##]") ;the window to get PID

While 1
    $msg = GUIGetMsg()
    if $msg = $GUI_EVENT_CLOSE Then
            ExitLoop

	else
		 char23()
		char13()
	   char22()
	   char12()
	   char24()
	   char14()
	  char25()
	   char15()
	   char11()
	  char12()
       mob23()
	   mob13()
	   mob24()
	   mob14()
	   mob22()
	  mob12()
	  mob25()
	  mob15()
	  mob11()
	  mob21()

    EndIf
Wend

Func mob23()
	local 	$checking_mob = 0x01313A18; checking mob
			$name = 0x01313A20 ;mob name
			$hp =	0x01313A3C ; mob hp
			$maxhp = 0x01313A38 ; mob maxhp
			$mp = 0x01313A44 ; mob mp
			$maxmp = 0x01313A40 ; mob maxmp
	Global $mob1check[6]
			; finding values of all variables
			$Mem_Open23 = _MemoryOpen($Process1) ;must open before you can read address
			$mob1check[0] = _MemoryRead($checking_mob, $Mem_Open23) ;reads value to check mob exist or not at memory address
			$mob1check[1] = _MemoryRead($name, $Mem_Open23, "char[255]")
			$mob1check[2] = _MemoryRead($hp, $Mem_Open23)
			$mob1check[3] = _MemoryRead($maxhp, $Mem_Open23)
			$mob1check[4] = _MemoryRead($mp, $Mem_Open23)
			$mob1check[5] = _MemoryRead($maxmp, $Mem_Open23)
			_MemoryClose($Mem_Open23) ;close it afterwards
	if $mob1check[0]=1 Then
			GUICtrlSetData($Label_1, $mob1check[1])
			GUICtrlSetData($Label_2, $mob1check[2] &" / "&$mob1check[3])
			GUICtrlSetData($Label_3, $mob1check[4] &" / "&$mob1check[5])


EndIf
EndFunc

Func mob13()
	local 	$checking_mob13 = 0x01313bec; checking mob
			$name13 = 0x01313A20 + 0x1D4 ;mob name
			$hp13 =	0x01313C10; mob hp
			$maxhp13 = 0x01313C0C; mob maxhp
			$mp13 = 0x01313C18 ; mob mp
			$maxmp13 = 0x01313C14; mob maxmp
	Global		$mob13check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob13check[0] = _MemoryRead($checking_mob13, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob13check[1] = _MemoryRead($name13, $Mem_Open, "char[255]")
			$mob13check[2] = _MemoryRead($hp13, $Mem_Open)
			$mob13check[3] = _MemoryRead($maxhp13, $Mem_Open)
			$mob13check[4] = _MemoryRead($mp13, $Mem_Open)
			$mob13check[5] = _MemoryRead($maxmp13, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob13check[0]=1 Then
			GUICtrlSetData($Label_131, $mob13check[1])
			GUICtrlSetData($Label_132, $mob13check[2] &" / "&$mob13check[3])
			GUICtrlSetData($Label_133, $mob13check[4] &" / "&$mob13check[5])


EndIf
EndFunc

Func mob24()
	local 	$checking_mob24 = 0x01313bec + 0x1D4; checking mob
			$name24 = 0x01313A20 + 0x1D4 + 0x1D4 ;mob name
			$hp24 =	0x01313C10 + 0x1D4; mob hp
			$maxhp24 = 0x01313C0C + 0x1D4; mob maxhp
			$mp24= 0x01313C18 + 0x1D4; mob mp
			$maxmp24 = 0x01313C14 + 0x1D4; mob maxmp
	Global		$mob24check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob24check[0] = _MemoryRead($checking_mob24, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob24check[1] = _MemoryRead($name24, $Mem_Open, "char[255]")
			$mob24check[2] = _MemoryRead($hp24, $Mem_Open)
			$mob24check[3] = _MemoryRead($maxhp24, $Mem_Open)
			$mob24check[4] = _MemoryRead($mp24, $Mem_Open)
			$mob24check[5] = _MemoryRead($maxmp24, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob24check[0]=1 Then
			GUICtrlSetData($Label_241, $mob24check[1])
			GUICtrlSetData($Label_242, $mob24check[2] &" / "&$mob24check[3])
			GUICtrlSetData($Label_243, $mob24check[4] &" / "&$mob24check[5])


EndIf
EndFunc

Func mob14()
	local 	$checking_mob14 = 0x01313bec + 0x1D4*2; checking mob
			$name14 = 0x01313A20 + 0x1D4 + 0x1D4*2 ;mob name
			$hp14 =	0x01313C10 + 0x1D4*2; mob hp
			$maxhp14 = 0x01313C0C + 0x1D4*2; mob maxhp
			$mp14= 0x01313C18 + 0x1D4*2; mob mp
			$maxmp14 = 0x01313C14 + 0x1D4*2; mob maxmp
	Global		$mob14check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob14check[0] = _MemoryRead($checking_mob14, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob14check[1] = _MemoryRead($name14, $Mem_Open, "char[255]")
			$mob14check[2] = _MemoryRead($hp14, $Mem_Open)
			$mob14check[3] = _MemoryRead($maxhp14, $Mem_Open)
			$mob14check[4] = _MemoryRead($mp14, $Mem_Open)
			$mob14check[5] = _MemoryRead($maxmp14, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob14check[0]=1 Then
			GUICtrlSetData($Label_141, $mob14check[1])
			GUICtrlSetData($Label_142, $mob14check[2] &" / "&$mob14check[3])
			GUICtrlSetData($Label_143, $mob14check[4] &" / "&$mob14check[5])


EndIf
EndFunc

Func mob22()
	local 	$checking_mob22 = 0x01313bec + 0x1D4*3; checking mob
			$name22 = 0x01313A20 + 0x1D4 + 0x1D4*3 ;mob name
			$hp22 =	0x01313C10 + 0x1D4*3; mob hp
			$maxhp22 = 0x01313C0C + 0x1D4*3; mob maxhp
			$mp22= 0x01313C18 + 0x1D4*3; mob mp
			$maxmp22 = 0x01313C14 + 0x1D4*3; mob maxmp
	Global		$mob22check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob22check[0] = _MemoryRead($checking_mob22, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob22check[1] = _MemoryRead($name22, $Mem_Open, "char[255]")
			$mob22check[2] = _MemoryRead($hp22, $Mem_Open)
			$mob22check[3] = _MemoryRead($maxhp22, $Mem_Open)
			$mob22check[4] = _MemoryRead($mp22, $Mem_Open)
			$mob22check[5] = _MemoryRead($maxmp22, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob22check[0]=1 Then
			GUICtrlSetData($Label_221, $mob22check[1])
			GUICtrlSetData($Label_222, $mob22check[2] &" / "&$mob22check[3])
			GUICtrlSetData($Label_223, $mob22check[4] &" / "&$mob22check[5])


EndIf
EndFunc

Func mob12()
	local 	$checking_mob12 = 0x01313bec + 0x1D4*4; checking mob
			$name12 = 0x01313A20 + 0x1D4 + 0x1D4*4 ;mob name
			$hp12 =	0x01313C10 + 0x1D4*4; mob hp
			$maxhp12 = 0x01313C0C + 0x1D4*4; mob maxhp
			$mp12= 0x01313C18 + 0x1D4*4; mob mp
			$maxmp12 = 0x01313C14 + 0x1D4*4; mob maxmp
	Global		$mob12check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob12check[0] = _MemoryRead($checking_mob12, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob12check[1] = _MemoryRead($name12, $Mem_Open, "char[255]")
			$mob12check[2] = _MemoryRead($hp12, $Mem_Open)
			$mob12check[3] = _MemoryRead($maxhp12, $Mem_Open)
			$mob12check[4] = _MemoryRead($mp12, $Mem_Open)
			$mob12check[5] = _MemoryRead($maxmp12, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob12check[0]=1 Then
			GUICtrlSetData($Label_121, $mob12check[1])
			GUICtrlSetData($Label_122, $mob12check[2] &" / "&$mob12check[3])
			GUICtrlSetData($Label_123, $mob12check[4] &" / "&$mob12check[5])


EndIf
EndFunc

Func mob25()
	local 	$checking_mob25 = 0x01313bec + 0x1D4*5; checking mob
			$name25 = 0x01313A20 + 0x1D4 + 0x1D4*5 ;mob name
			$hp25 =	0x01313C10 + 0x1D4*5; mob hp
			$maxhp25 = 0x01313C0C + 0x1D4*5; mob maxhp
			$mp25= 0x01313C18 + 0x1D4*5; mob mp
			$maxmp25 = 0x01313C14 + 0x1D4*5; mob maxmp
	Global		$mob25check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob25check[0] = _MemoryRead($checking_mob25, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob25check[1] = _MemoryRead($name25, $Mem_Open, "char[255]")
			$mob25check[2] = _MemoryRead($hp25, $Mem_Open)
			$mob25check[3] = _MemoryRead($maxhp25, $Mem_Open)
			$mob25check[4] = _MemoryRead($mp25, $Mem_Open)
			$mob25check[5] = _MemoryRead($maxmp25, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob25check[0]=1 Then
			GUICtrlSetData($Label_251, $mob25check[1])
			GUICtrlSetData($Label_252, $mob25check[2] &" / "&$mob25check[3])
			GUICtrlSetData($Label_253, $mob25check[4] &" / "&$mob25check[5])


EndIf
EndFunc

Func mob15()
	local 	$checking_mob15 = 0x01313bec + 0x1D4*6; checking mob
			$name15 = 0x01313A20 + 0x1D4 + 0x1D4*6 ;mob name
			$hp15 =	0x01313C10 + 0x1D4*6; mob hp
			$maxhp15 = 0x01313C0C + 0x1D4*6; mob maxhp
			$mp15= 0x01313C18 + 0x1D4*6; mob mp
			$maxmp15 = 0x01313C14 + 0x1D4*6; mob maxmp
	Global		$mob15check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob15check[0] = _MemoryRead($checking_mob15, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob15check[1] = _MemoryRead($name15, $Mem_Open, "char[255]")
			$mob15check[2] = _MemoryRead($hp15, $Mem_Open)
			$mob15check[3] = _MemoryRead($maxhp15, $Mem_Open)
			$mob15check[4] = _MemoryRead($mp15, $Mem_Open)
			$mob15check[5] = _MemoryRead($maxmp15, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob15check[0]=1 Then
			GUICtrlSetData($Label_151, $mob15check[1])
			GUICtrlSetData($Label_152, $mob15check[2] &" / "&$mob15check[3])
			GUICtrlSetData($Label_153, $mob15check[4] &" / "&$mob15check[5])


EndIf
EndFunc

Func mob21()
	local 	$checking_mob21 = 0x01313bec + 0x1D4*7; checking mob
			$name21 = 0x01313A20 + 0x1D4 + 0x1D4*7 ;mob name
			$hp21 =	0x01313C10 + 0x1D4*7; mob hp
			$maxhp21 = 0x01313C0C + 0x1D4*7; mob maxhp
			$mp21= 0x01313C18 + 0x1D4*7; mob mp
			$maxmp21 = 0x01313C14 + 0x1D4*7; mob maxmp
	Global		$mob21check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob21check[0] = _MemoryRead($checking_mob21, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob21check[1] = _MemoryRead($name21, $Mem_Open, "char[255]")
			$mob21check[2] = _MemoryRead($hp21, $Mem_Open)
			$mob21check[3] = _MemoryRead($maxhp21, $Mem_Open)
			$mob21check[4] = _MemoryRead($mp21, $Mem_Open)
			$mob21check[5] = _MemoryRead($maxmp21, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob21check[0]=1 Then
			GUICtrlSetData($Label_211, $mob21check[1])
			GUICtrlSetData($Label_212, $mob21check[2] &" / "&$mob21check[3])
			GUICtrlSetData($Label_213, $mob21check[4] &" / "&$mob21check[5])


EndIf
EndFunc


Func mob11()
	local 	$checking_mob11 = 0x01313bec + 0x1D4*8; checking mob
			$name11 = 0x01313A20 + 0x1D4 + 0x1D4*8 ;mob name
			$hp11 =	0x01313C10 + 0x1D4*8; mob hp
			$maxhp11 = 0x01313C0C + 0x1D4*8; mob maxhp
			$mp11= 0x01313C18 + 0x1D4*8; mob mp
			$maxmp11 = 0x01313C14 + 0x1D4*8; mob maxmp
	Global		$mob11check[6]
			; finding values of all variables
			$Mem_Open = _MemoryOpen($Process1) ;must open before you can read address
			$mob11check[0] = _MemoryRead($checking_mob11, $Mem_Open) ;reads value to check mob exist or not at memory address
			$mob11check[1] = _MemoryRead($name11, $Mem_Open, "char[255]")
			$mob11check[2] = _MemoryRead($hp11, $Mem_Open)
			$mob11check[3] = _MemoryRead($maxhp11, $Mem_Open)
			$mob11check[4] = _MemoryRead($mp11, $Mem_Open)
			$mob11check[5] = _MemoryRead($maxmp11, $Mem_Open)
			_MemoryClose($Mem_Open) ;close it afterwards
	if $mob11check[0]=1 Then
			GUICtrlSetData($Label_111, $mob11check[1])
			GUICtrlSetData($Label_112, $mob11check[2] &" / "&$mob11check[3])
			GUICtrlSetData($Label_113, $mob11check[4] &" / "&$mob11check[5])


EndIf
EndFunc
;///////////////////////////////////////////////////////////

Func char23()
	local 	$checking_char = 0x01313A18 - 0x1248; checking mob
			$namechar = 0x01313A20 - 0x1248;mob name
			$hpchar =	0x01313A3C - 0x1248; mob hp
			$maxhpchar = 0x01313A38 - 0x1248; mob maxhp
			$mpchar = 0x01313A44 - 0x1248; mob mp
			$maxmpchar = 0x01313A40 - 0x1248; mob maxmp
	Global $char1check[6]
			; finding values of all variables
			$Mem_Openc23 = _MemoryOpen($Process1) ;must open before you can read address
			$char1check[0] = _MemoryRead($checking_char, $Mem_Openc23) ;reads value to check mob exist or not at memory address
			$char1check[1] = _MemoryRead($namechar, $Mem_Openc23, "char[255]")
			$char1check[2] = _MemoryRead($hpchar, $Mem_Openc23)
			$char1check[3] = _MemoryRead($maxhpchar, $Mem_Openc23)
			$char1check[4] = _MemoryRead($mpchar, $Mem_Openc23)
			$char1check[5] = _MemoryRead($maxmpchar, $Mem_Openc23)
			_MemoryClose($Mem_Openc23) ;close it afterwards
	if $char1check[0]=1 Then
			GUICtrlSetData($Label_1char, $char1check[1])
			GUICtrlSetData($Label_2char, $char1check[2] &" / "&$char1check[3])
			GUICtrlSetData($Label_3char, $char1check[4] &" / "&$char1check[5])


EndIf
EndFunc

Func char13()
	local 	$checking_char13 = 0x01313A18 - 0x1248 +0x1D4; checking mob
			$namechar13 = 0x01313A20 - 0x1248+0x1D4;mob name
			$hpchar13 =	0x01313A3C - 0x1248+0x1D4; mob hp
			$maxhpchar13 = 0x01313A38 - 0x1248+0x1D4; mob maxhp
			$mpchar13 = 0x01313A44 - 0x1248+0x1D4; mob mp
			$maxmpchar13 = 0x01313A40 - 0x1248+0x1D4; mob maxmp
	Global $char13check[6]
			; finding values of all variables
			$Mem_Openc13 = _MemoryOpen($Process1) ;must open before you can read address
			$char13check[0] = _MemoryRead($checking_char13, $Mem_Openc13) ;reads value to check mob exist or not at memory address
			$char13check[1] = _MemoryRead($namechar13, $Mem_Openc13, "char[255]")
			$char13check[2] = _MemoryRead($hpchar13, $Mem_Openc13)
			$char13check[3] = _MemoryRead($maxhpchar13, $Mem_Openc13)
			$char13check[4] = _MemoryRead($mpchar13, $Mem_Openc13)
			$char13check[5] = _MemoryRead($maxmpchar13, $Mem_Openc13)
			_MemoryClose($Mem_Openc13) ;close it afterwards
	if $char13check[0]=1 Then
			GUICtrlSetData($Label_1char13, $char13check[1])
			GUICtrlSetData($Label_2char13, $char13check[2] &" / "&$char13check[3])
			GUICtrlSetData($Label_3char13, $char13check[4] &" / "&$char13check[5])


EndIf
EndFunc

Func char24()
	local 	$checking_char24 = 0x01313A18 - 0x1248 +0x1D4*2; checking mob
			$namechar24 = 0x01313A20 - 0x1248+0x1D4*2;mob name
			$hpchar24 =	0x01313A3C - 0x1248+0x1D4*2; mob hp
			$maxhpchar24 = 0x01313A38 - 0x1248+0x1D4*2; mob maxhp
			$mpchar24 = 0x01313A44 - 0x1248+0x1D4*2; mob mp
			$maxmpchar24 = 0x01313A40 - 0x1248+0x1D4*2; mob maxmp
	Global $char24check[6]
			; finding values of all variables
			$Mem_Openc24 = _MemoryOpen($Process1) ;must open before you can read address
			$char24check[0] = _MemoryRead($checking_char24, $Mem_Openc24) ;reads value to check mob exist or not at memory address
			$char24check[1] = _MemoryRead($namechar24, $Mem_Openc24, "char[255]")
			$char24check[2] = _MemoryRead($hpchar24, $Mem_Openc24)
			$char24check[3] = _MemoryRead($maxhpchar24, $Mem_Openc24)
			$char24check[4] = _MemoryRead($mpchar24, $Mem_Openc24)
			$char24check[5] = _MemoryRead($maxmpchar24, $Mem_Openc24)
			_MemoryClose($Mem_Openc24) ;close it afterwards
	if $char24check[0]=1 Then
			GUICtrlSetData($Label_1char24, $char24check[1])
			GUICtrlSetData($Label_2char24, $char24check[2] &" / "&$char24check[3])
			GUICtrlSetData($Label_3char24, $char24check[4] &" / "&$char24check[5])


EndIf
EndFunc

Func char14()
	local 	$checking_char14 = 0x01313A18 - 0x1248 +0x1D4*3; checking mob
			$namechar14 = 0x01313A20 - 0x1248+0x1D4*3;mob name
			$hpchar14 =	0x01313A3C - 0x1248+0x1D4*3; mob hp
			$maxhpchar14 = 0x01313A38 - 0x1248+0x1D4*3; mob maxhp
			$mpchar14 = 0x01313A44 - 0x1248+0x1D4*3; mob mp
			$maxmpchar14 = 0x01313A40 - 0x1248+0x1D4*3; mob maxmp
	Global $char14check[6]
			; finding values of all variables
			$Mem_Openc14 = _MemoryOpen($Process1) ;must open before you can read address
			$char14check[0] = _MemoryRead($checking_char14, $Mem_Openc14) ;reads value to check mob exist or not at memory address
			$char14check[1] = _MemoryRead($namechar14, $Mem_Openc14, "char[255]")
			$char14check[2] = _MemoryRead($hpchar14, $Mem_Openc14)
			$char14check[3] = _MemoryRead($maxhpchar14, $Mem_Openc14)
			$char14check[4] = _MemoryRead($mpchar14, $Mem_Openc14)
			$char14check[5] = _MemoryRead($maxmpchar14, $Mem_Openc14)
			_MemoryClose($Mem_Openc14) ;close it afterwards
	if $char14check[0]=1 Then
			GUICtrlSetData($Label_1char14, $char14check[1])
			GUICtrlSetData($Label_2char14, $char14check[2] &" / "&$char14check[3])
			GUICtrlSetData($Label_3char14, $char14check[4] &" / "&$char14check[5])


EndIf
EndFunc

Func char22()
	local 	$checking_char22 = 0x01313A18 - 0x1248 +0x1D4*4; checking mob
			$namechar22 = 0x01313A20 - 0x1248+0x1D4*4;mob name
			$hpchar22 =	0x01313A3C - 0x1248+0x1D4*4; mob hp
			$maxhpchar22 = 0x01313A38 - 0x1248+0x1D4*4; mob maxhp
			$mpchar22 = 0x01313A44 - 0x1248+0x1D4*4; mob mp
			$maxmpchar22 = 0x01313A40 - 0x1248+0x1D4*4; mob maxmp
	Global $char22check[6]
			; finding values of all variables
			$Mem_Openc22 = _MemoryOpen($Process1) ;must open before you can read address
			$char22check[0] = _MemoryRead($checking_char22, $Mem_Openc22) ;reads value to check mob exist or not at memory address
			$char22check[1] = _MemoryRead($namechar22, $Mem_Openc22, "char[255]")
			$char22check[2] = _MemoryRead($hpchar22, $Mem_Openc22)
			$char22check[3] = _MemoryRead($maxhpchar22, $Mem_Openc22)
			$char22check[4] = _MemoryRead($mpchar22, $Mem_Openc22)
			$char22check[5] = _MemoryRead($maxmpchar22, $Mem_Openc22)
			_MemoryClose($Mem_Openc22) ;close it afterwards
	if $char22check[0]=1 Then
			GUICtrlSetData($Label_1char22, $char22check[1])
			GUICtrlSetData($Label_2char22, $char22check[2] &" / "&$char22check[3])
			GUICtrlSetData($Label_3char22, $char22check[4] &" / "&$char22check[5])


EndIf
EndFunc

Func char12()
	local 	$checking_char12 = 0x01313A18 - 0x1248 +0x1D4*5; checking mob
			$namechar12 = 0x01313A20 - 0x1248+0x1D4*5;mob name
			$hpchar12 =	0x01313A3C - 0x1248+0x1D4*5; mob hp
			$maxhpchar12 = 0x01313A38 - 0x1248+0x1D4*5; mob maxhp
			$mpchar12 = 0x01313A44 - 0x1248+0x1D4*5; mob mp
			$maxmpchar12 = 0x01313A40 - 0x1248+0x1D4*5; mob maxmp
	Global $char12check[6]
			; finding values of all variables
			$Mem_Openc12 = _MemoryOpen($Process1) ;must open before you can read address
			$char12check[0] = _MemoryRead($checking_char12, $Mem_Openc12) ;reads value to check mob exist or not at memory address
			$char12check[1] = _MemoryRead($namechar12, $Mem_Openc12, "char[255]")
			$char12check[2] = _MemoryRead($hpchar12, $Mem_Openc12)
			$char12check[3] = _MemoryRead($maxhpchar12, $Mem_Openc12)
			$char12check[4] = _MemoryRead($mpchar12, $Mem_Openc12)
			$char12check[5] = _MemoryRead($maxmpchar12, $Mem_Openc12)
			_MemoryClose($Mem_Openc12) ;close it afterwards
	if $char12check[0]=1 Then
			GUICtrlSetData($Label_1char12, $char12check[1])
			GUICtrlSetData($Label_2char12, $char12check[2] &" / "&$char12check[3])
			GUICtrlSetData($Label_3char12, $char12check[4] &" / "&$char12check[5])


EndIf
EndFunc

Func char25()
	local 	$checking_char25 = 0x01313A18 - 0x1248 +0x1D4*6; checking mob
			$namechar25 = 0x01313A20 - 0x1248+0x1D4*6;mob name
			$hpchar25 =	0x01313A3C - 0x1248+0x1D4*6; mob hp
			$maxhpchar25 = 0x01313A38 - 0x1248+0x1D4*6; mob maxhp
			$mpchar25 = 0x01313A44 - 0x1248+0x1D4*6; mob mp
			$maxmpchar25 = 0x01313A40 - 0x1248+0x1D4*6; mob maxmp
	Global $char25check[6]
			; finding values of all variables
			$Mem_Openc25 = _MemoryOpen($Process1) ;must open before you can read address
			$char25check[0] = _MemoryRead($checking_char25, $Mem_Openc25) ;reads value to check mob exist or not at memory address
			$char25check[1] = _MemoryRead($namechar25, $Mem_Openc25, "char[255]")
			$char25check[2] = _MemoryRead($hpchar25, $Mem_Openc25)
			$char25check[3] = _MemoryRead($maxhpchar25, $Mem_Openc25)
			$char25check[4] = _MemoryRead($mpchar25, $Mem_Openc25)
			$char25check[5] = _MemoryRead($maxmpchar25, $Mem_Openc25)
			_MemoryClose($Mem_Openc25) ;close it afterwards
	if $char25check[0]=1 Then
			GUICtrlSetData($Label_1char25, $char25check[1])
			GUICtrlSetData($Label_2char25, $char25check[2] &" / "&$char25check[3])
			GUICtrlSetData($Label_3char25, $char25check[4] &" / "&$char25check[5])


EndIf
EndFunc

Func char15()
	local 	$checking_char15 = 0x01313A18 - 0x1248 +0x1D4*7; checking mob
			$namechar15 = 0x01313A20 - 0x1248+0x1D4*7;mob name
			$hpchar15 =	0x01313A3C - 0x1248+0x1D4*7; mob hp
			$maxhpchar15 = 0x01313A38 - 0x1248+0x1D4*7; mob maxhp
			$mpchar15 = 0x01313A44 - 0x1248+0x1D4*7; mob mp
			$maxmpchar15 = 0x01313A40 - 0x1248+0x1D4*7; mob maxmp
	Global $char15check[6]
			; finding values of all variables
			$Mem_Openc15 = _MemoryOpen($Process1) ;must open before you can read address
			$char15check[0] = _MemoryRead($checking_char15, $Mem_Openc15) ;reads value to check mob exist or not at memory address
			$char15check[1] = _MemoryRead($namechar15, $Mem_Openc15, "char[255]")
			$char15check[2] = _MemoryRead($hpchar15, $Mem_Openc15)
			$char15check[3] = _MemoryRead($maxhpchar15, $Mem_Openc15)
			$char15check[4] = _MemoryRead($mpchar15, $Mem_Openc15)
			$char15check[5] = _MemoryRead($maxmpchar15, $Mem_Openc15)
			_MemoryClose($Mem_Openc15) ;close it afterwards
	if $char15check[0]=1 Then
			GUICtrlSetData($Label_1char15, $char15check[1])
			GUICtrlSetData($Label_2char15, $char15check[2] &" / "&$char15check[3])
			GUICtrlSetData($Label_3char15, $char15check[4] &" / "&$char15check[5])


EndIf
EndFunc

Func char21()
	local 	$checking_char21 = 0x01313A18 - 0x1248 +0x1D4*8; checking mob
			$namechar21 = 0x01313A20 - 0x1248+0x1D4*8;mob name
			$hpchar21 =	0x01313A3C - 0x1248+0x1D4*8; mob hp
			$maxhpchar21 = 0x01313A38 - 0x1248+0x1D4*8; mob maxhp
			$mpchar21 = 0x01313A44 - 0x1248+0x1D4*8; mob mp
			$maxmpchar21 = 0x01313A40 - 0x1248+0x1D4*8; mob maxmp
	Global $char21check[6]
			; finding values of all variables
			$Mem_Openc21 = _MemoryOpen($Process1) ;must open before you can read address
			$char21check[0] = _MemoryRead($checking_char21, $Mem_Openc21) ;reads value to check mob exist or not at memory address
			$char21check[1] = _MemoryRead($namechar21, $Mem_Openc21, "char[255]")
			$char21check[2] = _MemoryRead($hpchar21, $Mem_Openc21)
			$char21check[3] = _MemoryRead($maxhpchar21, $Mem_Openc21)
			$char21check[4] = _MemoryRead($mpchar21, $Mem_Openc21)
			$char21check[5] = _MemoryRead($maxmpchar21, $Mem_Openc21)
			_MemoryClose($Mem_Openc21) ;close it afterwards
	;if $char21check[0]=1 Then
			GUICtrlSetData($Label_1char21, $char21check[1])
			GUICtrlSetData($Label_2char21, $char21check[2] &" / "&$char21check[3])
			GUICtrlSetData($Label_3char21, $char21check[4] &" / "&$char21check[5])


;EndIf
EndFunc

Func char11()
	local 	$checking_char11 = 0x01313A18 - 0x1248 +0x1D4*9; checking mob
			$namechar11 = 0x01313A20 - 0x1248+0x1D4*9;mob name
			$hpchar11 =	0x01313A3C - 0x1248+0x1D4*9; mob hp
			$maxhpchar11 = 0x01313A38 - 0x1248+0x1D4*9; mob maxhp
			$mpchar11 = 0x01313A44 - 0x1248+0x1D4*9; mob mp
			$maxmpchar11 = 0x01313A40 - 0x1248+0x1D4*9; mob maxmp
	Global $char11check[6]
			; finding values of all variables
			$Mem_Openc11 = _MemoryOpen($Process1) ;must open before you can read address
			$char11check[0] = _MemoryRead($checking_char11, $Mem_Openc11) ;reads value to check mob exist or not at memory address
			$char11check[1] = _MemoryRead($namechar11, $Mem_Openc11, "char[255]")
			$char11check[2] = _MemoryRead($hpchar11, $Mem_Openc11)
			$char11check[3] = _MemoryRead($maxhpchar11, $Mem_Openc11)
			$char11check[4] = _MemoryRead($mpchar11, $Mem_Openc11)
			$char11check[5] = _MemoryRead($maxmpchar11, $Mem_Openc11)
			_MemoryClose($Mem_Openc11) ;close it afterwards
	;if $char11check[0]=1 Then
			GUICtrlSetData($Label_1char11, $char11check[1])
			GUICtrlSetData($Label_2char11, $char11check[2] &" / "&$char11check[3])
			GUICtrlSetData($Label_3char11, $char11check[4] &" / "&$char11check[5])


;EndIf
EndFunc
nicolasdo is offline  
Reply

« [S]uche Autoit F5 klicker oder Reloaded klicker | [frage] Paketbot sicher machen? »

Similar Threads Similar Threads
Solution to make RTE 10 year's quest with any clan
04/10/2010 - 9Dragons - 9 Replies
ok i saw some people post can't repeat this quest on WT or begger clan base's etc. lol this have simple solution... make sure when you are on white side don't enter on any clan, if you enter will not work. when you are vagabond you can move for all clan base's, so if you want make 10 year's just move from WT clan base to MY and start quest there. you will need start again from part 1 buy item's till get 3rd part after tick on HD, (3) years, 50 delay + quick send and see you geting...
[Help] Can i make this shorter?
07/10/2009 - CO2 Private Server - 8 Replies
Can any help me with the cps command How can i send cps to every registered users
Solution Make Place on Server
05/12/2008 - SRO Private Server - 7 Replies
How to make DC staller Make you thief suit, use a bandit den return scroll and then look at the stall, then when the scroll if finish the staller is deconnecting from the server, for every player do this 5 times a day. Thx
[Request]Solution for Error Code 6
04/29/2008 - Cabal Online - 7 Replies
I've just started to box some monsters for a while, once I came back, I received an error that kicked me out everytime I try to move, equip weapons, drop items and anything that involves the movement of the character. Is there a solution to this? This error only affects 1 of the characters on my account? Do I just sit and log in another time? or something or is there a solution to this sort of issue?:confused: http://img404.imageshack.us/img404/5117/87990208d j8.png
Solution for Error code 2 and 5!!!
04/26/2008 - SRO Private Server - 6 Replies
For those who have that error!!! Download this RapidShare: 1-Click Webhosting Thnx me!:D:D



All times are GMT +2. The time now is 06:58.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.