Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1681
Советник
Сообщений: 784
Статус: Offline
Suharik, ищи, он где-то был. В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика! Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1682
Советник
Сообщений: 728
Статус: Offline
ЦитатаSuharik ()
Нужен код кордмастера который тпхает на заданные координаты с любого места ( как в собейте ).
В конец скрипта:
Код
:coordmaster 0acd: "CoordMaster ON" 500 0087: 15@ = 0@ 0087: 16@ = 1@ while true wait 0 if 12@ == 12 then 12@ = 0 break end 0087: 0@ = 15@ 0087: 1@ = 16@ actor.StorePos($PLAYER_ACTOR,9@,10@,11@) 0509: 6@ = distance_between_XY 0@ 1@ and_XY 9@ 10@ if 6@ <= 120.0 then 02CE: 11@ = ground_z_at 0@ 1@ 999.0 09bc: $PLAYER_ACTOR 0@ 1@ 11@ if actor.Driving($PLAYER_ACTOR) then 5@ = actor.CurrentCar($PLAYER_ACTOR) car.LockInCurrentPosition(5@,0) else actor.LockInCurrentPosition($PLAYER_ACTOR,0) end break else 0061: 0@ -= 9@ 0061: 1@ -= 10@ 0604: get_Z_angle_for_point 0@ 1@ store_to 6@ if actor.Driving($PLAYER_ACTOR) then 5@ = actor.CurrentCar($PLAYER_ACTOR) car.LockInCurrentPosition(5@,1) car.Angle(5@) = 6@ else actor.LockInCurrentPosition($PLAYER_ACTOR,1) actor.Angle($PLAYER_ACTOR) = 6@ end 04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 2@ 0.0 // 70.0 - расстояние прыжка 09bc: $PLAYER_ACTOR 8@ 9@ 3@ 32@ = 0 while 0025: 4@ > 32@ wait 0 if 0adc: "OFF" // Дезактивация then 0acd: "CoordMaster OFF" 500 actor.StorePos($PLAYER_ACTOR,8@,9@,10@) 02CE: 11@ = ground_z_at 8@ 9@ 999.0 11@ += 1.0 00a1: $PLAYER_ACTOR 8@ 9@ 11@ if actor.Driving($PLAYER_ACTOR) then 5@ = actor.CurrentCar($PLAYER_ACTOR) car.LockInCurrentPosition(5@,0) else actor.LockInCurrentPosition($PLAYER_ACTOR,0) end 12@ = 12 break end end end end 0ab2: ret 0
Вызов:
Код
0ab1: call @coordmaster 5 X 34.1 Y 26.3 Length 70.0 Depth -80.0 Delay 1100 // 34.1 - координаты по оси X, 26.3 - координаты по оси Y, 70.0 - длинна прыжка, -80.0 - глубина(под землей), 1100 - задержка между ТП
Пример:
Код
while true wait 0 if and 0ab0: 53 0ab0: 54 then 0ab1: call @coordmaster 5 X 34.1 Y 26.3 Length 70.0 Depth -80.0 Delay 1100 while true wait 0 if or 8ab0: 53 8ab0: 54 then break end end end
:coordmaster 0acd: "CoordMaster ON" 500 0087: 15@ = 0@ 0087: 16@ = 1@ while true wait 0 if 12@ == 12 then 12@ = 0 break end 0087: 0@ = 15@ 0087: 1@ = 16@ actor.StorePos($PLAYER_ACTOR,9@,10@,11@) 0509: 6@ = distance_between_XY 0@ 1@ and_XY 9@ 10@ if 6@ <= 120.0 then 02CE: 11@ = ground_z_at 0@ 1@ 999.0 09bc: $PLAYER_ACTOR 0@ 1@ 11@ if actor.Driving($PLAYER_ACTOR) then 5@ = actor.CurrentCar($PLAYER_ACTOR) car.LockInCurrentPosition(5@,0) else actor.LockInCurrentPosition($PLAYER_ACTOR,0) end break else 0061: 0@ -= 9@ 0061: 1@ -= 10@ 0604: get_Z_angle_for_point 0@ 1@ store_to 6@ if actor.Driving($PLAYER_ACTOR) then 5@ = actor.CurrentCar($PLAYER_ACTOR) car.LockInCurrentPosition(5@,1) car.Angle(5@) = 6@ else actor.LockInCurrentPosition($PLAYER_ACTOR,1) actor.Angle($PLAYER_ACTOR) = 6@ end 04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 2@ 0.0 09bc: $PLAYER_ACTOR 8@ 9@ 3@ 32@ = 0 while 0025: 4@ > 32@ wait 0 if 0adc: "OFF" // Дезактивация then 0acd: "CoordMaster OFF" 500 actor.StorePos($PLAYER_ACTOR,8@,9@,10@) 02CE: 11@ = ground_z_at 8@ 9@ 999.0 11@ += 1.0 00a1: $PLAYER_ACTOR 8@ 9@ 11@ if actor.Driving($PLAYER_ACTOR) then 5@ = actor.CurrentCar($PLAYER_ACTOR) car.LockInCurrentPosition(5@,0) else actor.LockInCurrentPosition($PLAYER_ACTOR,0) end 12@ = 12 break end end end end 0ab2: ret 0
Дезактивация:
Код
0adc: "OFF" //OFF не в чат
Говнокодище ппц. Мб,допилю
Дурак дает,умный берет.
Сообщение отредактировал Toplivo - Суббота, 15.02.2014, 22:32
Добавлено (15.02.2014, 22:52) --------------------------------------------- Как блин так пишешь? Я походу 1 такой, который пишет как декомпилятор.
Добавлено (15.02.2014, 22:53) --------------------------------------------- И главно не путаешься
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика! Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1685
Советник
Сообщений: 784
Статус: Offline
Toplivo, ты на самую высокую гору так смогёшь тпшнуться без кика? В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика! Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Сообщение отредактировал RAKSHA1337 - Суббота, 15.02.2014, 22:57
Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1687
Советник
Сообщений: 728
Статус: Offline
ЦитатаRAKSHA1337 ()
Как блин так пишешь?
Код взял из своего кордмастера(там код получше выглядит) и на скорую руку переделал под call. Лень было возиться с ним, т.к юзать все-равно никто не будет Дурак дает,умный берет.
да я про эти всякие while true if then end break else В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика! Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1691
Любитель
Сообщений: 35
Статус: Offline
Спасибо огромное :3
Добавлено (16.02.2014, 12:15) --------------------------------------------- Только когда я становлюсь на пикап он не тпхает в координаты которые мне нужны, а именно на 223.50 1931.45 17.64, а тпхает по всей карте кругами
>> Скупаю аккаунты Advance RP | Быстро, анонимно, безопасно << Статус VK -
:say 00D6: if 0AA2: 4@ = load_library "kernel32.dll" // IF and SET 004D: jump_if_false @ErrorLib 00D6: if 0AA4: 1@ = get_proc_address "GetModuleHandleA" library 4@ // IF and SET 004D: jump_if_false @end 0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 4@ 4@ += 0x4CA0 0AA5: call 4@ num_params 1 pop 0 0@ 0485: return_true
:ErrorLib 0AA3: free_library 4@
:end 059A: return_false
p.s. Не проверял, но вдруг получится. В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика! Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
