Invisibility by BlackHat SOURCE

Invisibility by BlackHat 

SOURCE

 {$CLEO}  
 //this made By blackhat - for invisibility hacking  
 // press numpad 1 for active/ numpad 2 for deactive  
 //this is decrypted By Mr.Ze - for CLEO hacking  
 // press cleo-sourcehack.blogspot.com for all  
 0000:   
 wait 1000  
 :first  
 wait 0  
 if and  
      actor.Driving($PLAYER_ACTOR)  
      056E:  car $offcar defined   
      0184:  actor $PLAYER_ACTOR health <> 0  
      then  
      jump @second // Do you always use jumps in highcode?  
      end  
 if and  
  0256: $PLAYER_ACTOR //is actor defined?  
   actor.Driving($PLAYER_ACTOR)  
   0AB0: 49 //1 key  
   0AB0: 16 //shift key               
   0184:  actor $PLAYER_ACTOR health <> 0  
   jf @third  
   0ACD: show_text_highpriority "~B~INVISIBILITY ~w~- ~g~ON" time 1000  
   04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0  // 1@ = x , 2@ = y , 3@ =z     
   03C0: $car = actor $PLAYER_ACTOR car  
   0441: $model = car $car model  
   0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 3@  
    00AB: put_car $car at 0.0 0.0 +2.0   
    00A5: $offcar = create_car $model at 1@ 2@ 3@  
    $T_ANGLE = Actor.Angle($PLAYER_ACTOR)  
    Car.Angle($offcar) = $T_ANGLE  
      wait 500  
     036A: put_actor $PLAYER_ACTOR in_car $offcar   
     0373: set_camera_directly_behind_player    
    053F: set_car $offcar tires_vulnerability 0 //You had nothing else to do so you did that?   
    0224: set_car $offcar health_to 99999999  // To boost your lines count?  
   car.RemoveReferences($offcar)  
   wait 1000  
     0ACD: show_text_highpriority "~B~Decrypted by Mr.Ze" time 1000  
    jump @second  
 :second  
 wait 0  
 if and   
 actor.Driving($PLAYER_ACTOR)  
  0184:  actor $PLAYER_ACTOR health <> 0  
  0AB0: 50 //2 key  
 0AB0: 16 //shift key    
 then    
  0ACD: show_text_highpriority "~B~INVISIBILITY ~w~- ~r~OFF" time 1000  
  04C4: store_coords_to 4@ 5@ 6@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0 // 1@ = x , 2@ = y , 3@ =z <- you really needed that?           
 02E3: 7@ = car $offcar speed  // such global variables  
 00AB: put_car $offcar at 0.0 0.0 0.0  
 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 4@ 5@ 6@  
 wait 2000   
 00AB: put_car $car at 4@ 5@ 6@  
 036A: put_actor $PLAYER_ACTOR in_car $car  
 Car.SetSpeedInstantly($car, 7@)  
 04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0  // 1@ = x , 2@ = y , 3@ =z  
 00A1: put_actor $PLAYER_ACTOR at 8@ 9@ 10@                   
 0373: set_camera_directly_behind_player  
 wait 1000                  
  0ACD: show_text_highpriority "~B~Decrypted by Mr.Ze" time 1000  
  end  
 jump @test // Jump higher, yes, jump on your tests, mmmmm, you're not a noob at all!  
 :third  
 wait 0  
 if and   
 0256: $PLAYER_ACTOR //is actor defined? <- So is actor defined?  
 044B:  actor $PLAYER_ACTOR on_foot  
 0AB0: 49 //1 key  
 0AB0: 16 //shift key  
 0184:  actor $PLAYER_ACTOR health <> 0 // Seriously? Why?!  
 then  
 0ACD: show_text_highpriority "~B~INVISIBILITY ~w~- ~g~ON" time 1000  
 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0  // 1@ = x , 2@ = y , 3@ =z    
 //car.Create($offcar , 1@ , 2@ , 3@)  
 00A5: $offcar2 = create_car #BULLET at 1@ 2@ 3@        
  $T_ANGLE = Actor.Angle($PLAYER_ACTOR) // Too much global variables  
    Car.Angle($offcar2) = $T_ANGLE   
      wait 500  
     036A: put_actor $PLAYER_ACTOR in_car $offcar2     
    053F: set_car $offcar2 tires_vulnerability 0    
   car.RemoveReferences($offcar2)   
    0224: set_car $offcar2 health_to 99999999  
    0373: set_camera_directly_behind_player  
   wait 1000 // Such wait for so many reasons  
     0ACD: show_text_highpriority "~B~Decrypted by Mr.Ze" time 1000  
     end  
     jump @test  // Do you always jump after end?  
 :test  
 wait 0   
 if and  
 044B:  actor $PLAYER_ACTOR on_foot  
 056E:  car $offcar defined                 
 jf @test2  
 0ACD: show_text_highpriority "~B~INVISIBILITY ~w~- ~r~OFF" time 1000  
 00A6: destroy_car $offcar // Yes, destory that global variable hard, yes, yes!  
 0373: set_camera_directly_behind_player    
 wait 1000  
 0ACD: show_text_highpriority "~B~Decrypted by Mr.Ze" time 1000  
 jump @first  
 // Nice test  
 :test2  
 wait 0   
 if and  
 044B:  actor $PLAYER_ACTOR on_foot  
 056E:  car $offcar2 defined                 
 jf @test3  
 0ACD: show_text_highpriority "~B~INVISIBILITY ~w~- ~r~OFF" time 1000  
 00A6: destroy_car $offcar2  
 0373: set_camera_directly_behind_player  
 wait 1000  
 0ACD: show_text_highpriority "~B~Decrypted by Mr.Ze" time 1000  
 jump @first  
 // Nice test 2  
 :test3  
 wait 0   
 if and  
 044B:  actor $PLAYER_ACTOR on_foot  
 056E:  car $car defined                 
 then  
 0ACD: show_text_highpriority "~B~INVISIBILITY ~w~- ~r~OFF" time 1000  
 00A6: destroy_car $car   
 0373: set_camera_directly_behind_player  
 wait 1000  
  0ACD: show_text_highpriority "~B~Decrypted by Mr.Ze" time 1000  
  end  
 jump @first  
 // Nice jump after "END", really makes a difference! Adds 5kb to your code!  

Compiled scripts

Hacked and decrypted by Mr.Ze

Search Post

Label :