+ -

Pages

Visit my blog where I release all kinds of hacks!

http://ze-samphacks.blogspot.com/

06/03/2015

Multiple Objects Search Hack by m1zg4rd SOURCE

Multiple Objects Search Hack by m1zg4rd
SOURCE



Original:
{$CLEO .cs}
if
  8AAB:   file_exists "CLEO\MOSH_bY_m1zg4rd.cs"
else_jump @SETTINGS_1
print "~R~DONT STEAL MY SCRIPT" 5000
004E: end_thread

//IF YOU DECRYPTED THIS, THEN FINE, YOU ARE ENOUGH SMART TO READ MY CODE
//BUT IF YOU READ THIS BY DOWNLOADED PROGRAM/DECRYPTER, THEN YOU ARE JUST POOR SCRIPT KIDDIE, DIE

//3@ - indeks/ilość znalezionych obiektów
//29@, 30@, 31@ - zmienne przeznaczone do skanowania
//0@, 1@, 2@ - coordy znalezionego obiektu
//4@v - nazwy kluczy do zapisu coordów obiektu

//19@ - ID szukanego obiektu
//5@ - system wykrywania pułapek (0 lub 1)

//7@ - markery
//8@ - zmienna kroku w pętli usuwajcej markery
//9@ - pomocniczy obiekt do systemu wykrywania pułapek

//10@ - pomocnicza zmienna float

//11@ - decyduje czy wyszukiwanie przerwano, czy anulowano wyświetlanie markerów (0 lub 1)

//12@ - pomocnicza zmienna integer
//13@ - pomocnicza zmienna integer
//14@ - pomocnicza zmienna integer

//15@, 16@, 17@ - coordy gracza (odmierzanie dystansu)
//18@ - dystans gracza od obiektu (float)

//20@ - pierwszy klawisz aktywacji/deaktywacji
//21@ - drugi klawisz aktywacji/deaktywacji

//22@ - wykrywanie obiektów położonych pod teksturami
//23@ - jeżeli system ma wykrywać zbyt wysoko położone obiekty
//24@ - wykrywaj, jeżli obiekt jest pod dnem morskim (0 lub 1)
//25@ - spróbuj wykryć czy obiekt jest w budynku (testowe)

:SETTINGS_1
wait 50 
if 
0AAB:   file_exists "CLEO\MOSH_configuration.iNi" 
else_jump @SETTINGS_2
wait 5 
3@ = 0.0
0AF0: 20@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" 
0AF0: 21@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" 
0AF0: 19@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" 
0AF0: 5@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR"
0AF0: 22@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP"
0AF0: 23@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP"
0AF0: 24@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP"
0AF0: 25@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP"
//0AF0: 26@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP"
jump @ACTIVATE_1

:SETTINGS_2
wait 10 
0AF1: write_int 57 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" //domyślnie 9
0AF1: write_int 80 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" //domyślnie P
0AF1: write_int 1210 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" //domyślnie obiekt walizki
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP" //domyślnie właczony 
//0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP" //domyślnie właczony
0AF1: write_int 0 to_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT" //brak obiektów do wykluczenia
jump @SETTINGS_1

:ACTIVATE_1
wait 10
if and
  key_down 20@
  key_down 21@
else_jump @ACTIVATE_1
wait 10
jump @ACTIVATE_2

:ACTIVATE_2
wait 10
if and
  key_up 20@
  key_up 21@
else_jump @ACTIVATE_2
wait 10
13@ = 0
14@ = 0
jump @FINDER_1 
  
:FINDER_1
wait 0 
11@ = 0 //0 - wyszukiwanie przerwano
00BE: text_clear_all

if
  0039:   13@ == 1
then
  print "~Y~SEARCHING FOR OBJECTS" 3500
else
  print "~W~SEARCHING FOR OBJECTS" 3500
end
if
  14@ > 40
then
  if
    0039:   13@ == 1
  then
    13@ = 0
  else
    13@ = 1
  end
  14@ = 0
else
  14@ += 1
end

0A8D: 29@ = read_memory 12010652 size 4 virtual_protect 0 
29@ += 4 
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0 
30@ = 0 

:FINDER_2
0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0 
29@ += 1 
if and
  31@ >= 0 
  128 > 31@ 
else_jump @FINDER_3 
005A: 31@ += 30@ // (int)
if and
  key_down 20@
  key_down 21@
then
  jump @DRAWING_2 
end
if 
   Object.Model(31@) == 19@
else_jump @FINDER_3 

1@ = 0
0AF0: 2@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT"
for 12@ = 1 to 2@ step 1
  0093: 0@ = integer 12@ to_float
  0AED: 4@v = float 0@ to_string_format "%.15gX"
  0AF2: 15@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gY"
  0AF2: 16@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gZ"
  0AF2: 17@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  
  if
    04E6:   object 31@ near_point 15@ 16@ 17@ radius 2.0 2.0 2.0 flag 0
  then
    1@ = 1
    12@ = 2@
  end
end

if 
  0039:   1@ == 0 
else_jump @FINDER_3

Object.StorePos(31@, 0@, 1@, 2@)
000B: 3@ += 1.0

0AED: 4@v = float 3@ to_string_format "%.15gX"
0AF3: write_float 0@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gY"
0AF3: write_float 1@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gZ"
0AF3: write_float 2@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

7@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
0AED: 4@v = float 3@ to_string_format "%.15gM"
0AF1: write_int 7@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

0AED: 4@v = float 3@ to_string_format "%.15gO"
0AF1: write_int 31@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

:FINDER_3
30@ += 256
if //oryginalnie: 89344 
  30@ > 256000 //jeżeli już wszystkie przeszukał
else_jump @FINDER_2
//wracamy i szukamy od nowa
if
0021:   3@ > 0.0
else_jump @FINDER_1
00BE: text_clear_all
0092: 0@ = float 3@ to_integer
if
  0039:   0@ == 1
then
  printf "~Y~%d ~G~OBJECT FOUND ~Y~:3" 2500 0@
else
  printf "~Y~%d ~G~OBJECTS FOUND ~Y~:3" 2500 0@
end
jump @DRAWING_1

:DRAWING_1
wait 10
if and
  key_down 20@ //wyłaczamy wszystkie markery i usuwamy obiekty z listy
  key_down 21@
else_jump @ANTITRAP_1
wait 10
11@ = 1 //1 - wyłaczono markery
jump @DRAWING_2

:DRAWING_2
wait 10
if and
  key_up 20@
  key_up 21@
else_jump @DRAWING_2
0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 7@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0164: disable_marker 7@
end

00BE: text_clear_all 
if
  0039:   11@ == 1
then
  print "~R~MARKERS DELETED" 1300
else
  print "~R~SEARCHING ABORTED" 1300
end
3@ = 0.0
jump @ACTIVATE_1

:ANTITRAP_1 //system wykrywa podejrzanie umieszczone obiekty, jeżeli takowy wykryje,
wait 10     //zmienia jego ikonę na radarze z 56 na 19 (czerwona flaga)
if
  0039:   5@ == 1  
else_jump @DRAWING_1
if
  001B:   50 > 13@
then
  13@ +=1
  jump @DRAWING_1
end

0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  7@ = 0
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gX"
  0AF2: 0@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gY"
  0AF2: 1@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gZ"
  0AF2: 2@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

  02CE: 14@ = ground_z_at 0@ 1@ 2@
  
  if and
    0039:   22@ == 1 //0 - sprawdzaj, czy obiekt nie jest pod teksturami
    //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
    0043:   14@ == 0.0
  then
    7@ = 1
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)
    if and
      0039:   23@ == 1 //1 - sprawdzaj, czy obiekt nie jest za wysoko
      //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
      0021:   18@ > 8.0
    then
      7@ = 1
    end  
  end   
  
  092E: get_water_height_at 0@ 1@ ignore_waves 1 store_to 14@
  
  if
    0021:   14@ > -1000.0
  then
    7@ = 0
  end
  
  if and
    0039:   24@ == 1
    0021:   14@ > -1000.0
    0023:   -67.0 > 2@
  then
    7@ = 2
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)    
    if and
      0039:   23@ == 1
      0021:   14@ > -1000.0
      0021:   18@ > 8.0
      06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 0.0 solid 1 car 0 actor 0 object 0 particle 0
    then
      0092: 2@ = float 2@ to_integer
      0092: 18@ = float 18@ to_integer
      7@ = 2
    end
  end 
                         
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  
  //tu jeszcze będzie system wykrywania obiektu w budynku (26@)
  
  if
    0039:   7@ == 1 
  then 
    04C4: store_coords_to 15@ 16@ 17@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
    050A: 18@ = distance_between_XYZ 15@ 16@ 17@ and_XYZ 0@ 1@ 2@ 
    if
      0023:   130.0 > 18@
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    end
  else
    if
      0039:   7@ == 2
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    else
      if
        25@ == 1
      then
        09E8: 14@ = actor $PLAYER_ACTOR active_interior
        0AED: 4@v = float 10@ to_string_format "%.15gO"
        0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
        if
          03CA:   object 9@ exists
        then 
          0AB1: @GetObjectInterior 1 OBJECT_HANDLE 9@ STORE_TO 18@
          
          if
            0039:   18@ == 13
          then
            18@ = 0
          end
          
          if
            0039:   14@ == 13
          then
            14@ = 0
          end
          
          if
            003B:   14@ == 18@  // (int)
          then
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
         else
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v  
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v     
          end
        else
          0AED: 4@v = float 10@ to_string_format "%.15gM"
          0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
          0164: disable_marker 9@
          9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
          0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
        end
      else  
        0164: disable_marker 9@
        9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
        0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
      end
    end  
  end
end
13@ = 0
jump @DRAWING_1

//0AB1: @GetObjectInterior 1 OBJECT_HANDLE 0@ STORE_TO 1@
:GetObjectInterior 
0A98: 1@ = object 0@ struct
1@ += 47
0A8D: 2@ = read_memory 1@ size 1 virtual_protect 1
0AB2: ret 1 2@

Replaced key_up:
{$CLEO .cs}
if
  8AAB:   file_exists "CLEO\MOSH_bY_m1zg4rd.cs"
else_jump @SETTINGS_1
print "~R~DONT STEAL MY SCRIPT" 5000
004E: end_thread

//IF YOU DECRYPTED THIS, THEN FINE, YOU ARE ENOUGH SMART TO READ MY CODE
//BUT IF YOU READ THIS BY DOWNLOADED PROGRAM/DECRYPTER, THEN YOU ARE JUST POOR SCRIPT KIDDIE, DIE

//3@ - indeks/ilość znalezionych obiektów
//29@, 30@, 31@ - zmienne przeznaczone do skanowania
//0@, 1@, 2@ - coordy znalezionego obiektu
//4@v - nazwy kluczy do zapisu coordów obiektu

//19@ - ID szukanego obiektu
//5@ - system wykrywania pułapek (0 lub 1)

//7@ - markery
//8@ - zmienna kroku w pętli usuwajcej markery
//9@ - pomocniczy obiekt do systemu wykrywania pułapek

//10@ - pomocnicza zmienna float

//11@ - decyduje czy wyszukiwanie przerwano, czy anulowano wyświetlanie markerów (0 lub 1)

//12@ - pomocnicza zmienna integer
//13@ - pomocnicza zmienna integer
//14@ - pomocnicza zmienna integer

//15@, 16@, 17@ - coordy gracza (odmierzanie dystansu)
//18@ - dystans gracza od obiektu (float)

//20@ - pierwszy klawisz aktywacji/deaktywacji
//21@ - drugi klawisz aktywacji/deaktywacji

//22@ - wykrywanie obiektów położonych pod teksturami
//23@ - jeżeli system ma wykrywać zbyt wysoko położone obiekty
//24@ - wykrywaj, jeżli obiekt jest pod dnem morskim (0 lub 1)
//25@ - spróbuj wykryć czy obiekt jest w budynku (testowe)

:SETTINGS_1
wait 50 
if 
0AAB:   file_exists "CLEO\MOSH_configuration.iNi" 
else_jump @SETTINGS_2
wait 5 
3@ = 0.0
0AF0: 20@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" 
0AF0: 21@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" 
0AF0: 19@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" 
0AF0: 5@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR"
0AF0: 22@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP"
0AF0: 23@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP"
0AF0: 24@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP"
0AF0: 25@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP"
//0AF0: 26@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP"
jump @ACTIVATE_1

:SETTINGS_2
wait 10 
0AF1: write_int 57 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" //domyślnie 9
0AF1: write_int 80 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" //domyślnie P
0AF1: write_int 1210 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" //domyślnie obiekt walizki
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP" //domyślnie właczony 
//0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP" //domyślnie właczony
0AF1: write_int 0 to_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT" //brak obiektów do wykluczenia
jump @SETTINGS_1

:ACTIVATE_1
wait 10
if and
  key_down 20@
  key_down 21@
else_jump @ACTIVATE_1
wait 10
jump @ACTIVATE_2

:ACTIVATE_2
wait 10
if and
  not key_down 20@
  not key_down 21@
else_jump @ACTIVATE_2
wait 10
13@ = 0
14@ = 0
jump @FINDER_1 
  
:FINDER_1
wait 0 
11@ = 0 //0 - wyszukiwanie przerwano
00BE: text_clear_all

if
  0039:   13@ == 1
then
  print "~Y~SEARCHING FOR OBJECTS" 3500
else
  print "~W~SEARCHING FOR OBJECTS" 3500
end
if
  14@ > 40
then
  if
    0039:   13@ == 1
  then
    13@ = 0
  else
    13@ = 1
  end
  14@ = 0
else
  14@ += 1
end

0A8D: 29@ = read_memory 12010652 size 4 virtual_protect 0 
29@ += 4 
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0 
30@ = 0 

:FINDER_2
0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0 
29@ += 1 
if and
  31@ >= 0 
  128 > 31@ 
else_jump @FINDER_3 
005A: 31@ += 30@ // (int)
if and
  key_down 20@
  key_down 21@
then
  jump @DRAWING_2 
end
if 
   Object.Model(31@) == 19@
else_jump @FINDER_3 

1@ = 0
0AF0: 2@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT"
for 12@ = 1 to 2@ step 1
  0093: 0@ = integer 12@ to_float
  0AED: 4@v = float 0@ to_string_format "%.15gX"
  0AF2: 15@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gY"
  0AF2: 16@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gZ"
  0AF2: 17@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  
  if
    04E6:   object 31@ near_point 15@ 16@ 17@ radius 2.0 2.0 2.0 flag 0
  then
    1@ = 1
    12@ = 2@
  end
end

if 
  0039:   1@ == 0 
else_jump @FINDER_3

Object.StorePos(31@, 0@, 1@, 2@)
000B: 3@ += 1.0

0AED: 4@v = float 3@ to_string_format "%.15gX"
0AF3: write_float 0@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gY"
0AF3: write_float 1@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gZ"
0AF3: write_float 2@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

7@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
0AED: 4@v = float 3@ to_string_format "%.15gM"
0AF1: write_int 7@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

0AED: 4@v = float 3@ to_string_format "%.15gO"
0AF1: write_int 31@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

:FINDER_3
30@ += 256
if //oryginalnie: 89344 
  30@ > 256000 //jeżeli już wszystkie przeszukał
else_jump @FINDER_2
//wracamy i szukamy od nowa
if
0021:   3@ > 0.0
else_jump @FINDER_1
00BE: text_clear_all
0092: 0@ = float 3@ to_integer
if
  0039:   0@ == 1
then
  printf "~Y~%d ~G~OBJECT FOUND ~Y~:3" 2500 0@
else
  printf "~Y~%d ~G~OBJECTS FOUND ~Y~:3" 2500 0@
end
jump @DRAWING_1

:DRAWING_1
wait 10
if and
  key_down 20@ //wyłaczamy wszystkie markery i usuwamy obiekty z listy
  key_down 21@
else_jump @ANTITRAP_1
wait 10
11@ = 1 //1 - wyłaczono markery
jump @DRAWING_2

:DRAWING_2
wait 10
if and
  not key_down 20@
  not key_down 21@
else_jump @DRAWING_2
0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 7@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0164: disable_marker 7@
end

00BE: text_clear_all 
if
  0039:   11@ == 1
then
  print "~R~MARKERS DELETED" 1300
else
  print "~R~SEARCHING ABORTED" 1300
end
3@ = 0.0
jump @ACTIVATE_1

:ANTITRAP_1 //system wykrywa podejrzanie umieszczone obiekty, jeżeli takowy wykryje,
wait 10     //zmienia jego ikonę na radarze z 56 na 19 (czerwona flaga)
if
  0039:   5@ == 1  
else_jump @DRAWING_1
if
  001B:   50 > 13@
then
  13@ +=1
  jump @DRAWING_1
end

0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  7@ = 0
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gX"
  0AF2: 0@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gY"
  0AF2: 1@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gZ"
  0AF2: 2@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

  02CE: 14@ = ground_z_at 0@ 1@ 2@
  
  if and
    0039:   22@ == 1 //0 - sprawdzaj, czy obiekt nie jest pod teksturami
    //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
    0043:   14@ == 0.0
  then
    7@ = 1
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)
    if and
      0039:   23@ == 1 //1 - sprawdzaj, czy obiekt nie jest za wysoko
      //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
      0021:   18@ > 8.0
    then
      7@ = 1
    end  
  end   
  
  092E: get_water_height_at 0@ 1@ ignore_waves 1 store_to 14@
  
  if
    0021:   14@ > -1000.0
  then
    7@ = 0
  end
  
  if and
    0039:   24@ == 1
    0021:   14@ > -1000.0
    0023:   -67.0 > 2@
  then
    7@ = 2
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)    
    if and
      0039:   23@ == 1
      0021:   14@ > -1000.0
      0021:   18@ > 8.0
      06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 0.0 solid 1 car 0 actor 0 object 0 particle 0
    then
      0092: 2@ = float 2@ to_integer
      0092: 18@ = float 18@ to_integer
      7@ = 2
    end
  end 
                         
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  
  //tu jeszcze będzie system wykrywania obiektu w budynku (26@)
  
  if
    0039:   7@ == 1 
  then 
    04C4: store_coords_to 15@ 16@ 17@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
    050A: 18@ = distance_between_XYZ 15@ 16@ 17@ and_XYZ 0@ 1@ 2@ 
    if
      0023:   130.0 > 18@
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    end
  else
    if
      0039:   7@ == 2
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    else
      if
        25@ == 1
      then
        09E8: 14@ = actor $PLAYER_ACTOR active_interior
        0AED: 4@v = float 10@ to_string_format "%.15gO"
        0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
        if
          03CA:   object 9@ exists
        then 
          0AB1: @GetObjectInterior 1 OBJECT_HANDLE 9@ STORE_TO 18@
          
          if
            0039:   18@ == 13
          then
            18@ = 0
          end
          
          if
            0039:   14@ == 13
          then
            14@ = 0
          end
          
          if
            003B:   14@ == 18@  // (int)
          then
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
         else
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v  
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v     
          end
        else
          0AED: 4@v = float 10@ to_string_format "%.15gM"
          0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
          0164: disable_marker 9@
          9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
          0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
        end
      else  
        0164: disable_marker 9@
        9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
        0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
      end
    end  
  end
end
13@ = 0
jump @DRAWING_1

//0AB1: @GetObjectInterior 1 OBJECT_HANDLE 0@ STORE_TO 1@
:GetObjectInterior 
0A98: 1@ = object 0@ struct
1@ += 47
0A8D: 2@ = read_memory 1@ size 1 virtual_protect 1
0AB2: ret 1 2@


Hacked and decrypted by Mr.Ze
5 SourceHack: Multiple Objects Search Hack by m1zg4rd SOURCE Multiple Objects Search Hack by m1zg4rd SOURCE Original: {$CLEO .cs} if 8AAB: file_exists "CLEO\MOSH_bY_m1zg4rd.cs...

No comments:

Post a Comment

< >