Safe insta-logout, gold dupe, and bugging mobs! : Darkfall Online - Submissions - Page 2

while ( $currentObject <> 0 and mod ( number ( $currentObject ), 2 ) == 0 )
      
      ;now Get the important data of the NPC/Player
      _ReadProcess ( $DFProcessHwnd, $currentObject, $DFObject )
      
      $type = DllStructGetData ( $DFObject, 'ObjectType' )
      $guid = DllStructGetData ( $DFObject, 'GUID' )
      $next = DllStructGetData ( $DFObject, 'NextObject' )
      $data = DllStructGetData ( $DFObject, 'DataPTR' )
      
      ;if we only need to look for players and the current NPC/Player is a player and the player isent you then
      If $Players_Only And $type == 4 And $guid <DllStructGetData> 2 And $guid <> DllStructGetData($player, 'GUID') Then
         
         ;Add 1 more to the counter
         $Array[0][0] += 1
         
         ;make the array a little bit bigger
         ReDim $Array[UBound($Array)+1][2]
         
         ;Create the struckture for the important data
         $Array[UBound($Array)-1][0] = _DFUnitObject()
         ;Create the stryckture for the other data
         $Array[UBound($Array)-1][1] = _DFObjectData()
         
         ;Get the data.
         _ReadProcess ( $DFProcessHwnd, $currentObject, $Array[UBound($Array)-1][0])
         _ReadProcess ( $DFProcessHwnd, $data, $Array[UBound($Array)-1][1])
      EndIf
      
      ;move on to the next NPC/Player
      $currentObject = $next
   Wend
   
   ;Return the array with all the data we want
   Return $Array