Skip to content

Instantly share code, notes, and snippets.

@nadalao
Created September 14, 2018 16:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nadalao/551d13961a4f21fd8572e10d327c03c9 to your computer and use it in GitHub Desktop.
Save nadalao/551d13961a4f21fd8572e10d327c03c9 to your computer and use it in GitHub Desktop.
nadalao files v1
SCRIPT_START
{
LVAR_INT scplayer início carro michael dia horas minutos vida0 vida1 vida2 colete1 colete2 morte grupo tempo iDay[2] onMission
LVAR_FLOAT x[3] y[3] z[3]
GET_PLAYER_CHAR 0 scplayer
IF IS_AUSTRALIAN_GAME
CREATE_CHAR PEDTYPE_SPECIAL SPECIAL07 0.0 0.0 0.0 michael
ENDIF
//-2624.5 573.3 14.6 y-
//-2609.9 692.4 27.8 y+
//-2624.2 631.2 14.4 c
main_loop:
WAIT 0
GET_CURRENT_DAY_OF_WEEK dia
GET_CURRENT_DAY_OF_WEEK iDay[0]
GET_TIME_OF_DAY horas minutos
READ_MEMORY 0x96ABA0 1 0 onMission
IF NOT iDay[0] = iDay[1]
AND horas >= 0
AND horas <= 5
AND onMission = FALSE
SWITCH dia
CASE 1
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2624.2 631.2 60.0 50.0 FALSE //hospital
GOTO michael0
ENDIF
BREAK
CASE 2
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2790.0 1087.95 50.0 20.0 FALSE //parque
GOTO michael0
ENDIF
BREAK
CASE 3
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2063.7 932.0 30.0 15.0 FALSE //zigzag
GOTO michael0
ENDIF
BREAK
CASE 4
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2338.9 176.6 40.0 40.0 FALSE //baseball
GOTO michael0
ENDIF
BREAK
CASE 5
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2440.0 -268.5 50.0 15.0 FALSE //golf
GOTO michael0
ENDIF
BREAK
CASE 6
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2066.2 -859.0 30.0 20.0 FALSE //gekko
GOTO michael0
ENDIF
BREAK
CASE 7
IF LOCATE_CHAR_ANY_MEANS_2D scplayer -2503.8 -624.0 20.0 20.0 FALSE //transmissor
GOTO michael0
ENDIF
BREAK
ENDSWITCH
ENDIF
GOTO main_loop
michael0:
SET_PED_DENSITY_MULTIPLIER 0.0
SET_CAR_DENSITY_MULTIPLIER 0.0
SET_WANTED_MULTIPLIER 0.0
LOAD_SPECIAL_CHARACTER 7 mod05
WHILE NOT HAS_SPECIAL_CHARACTER_LOADED 7
WAIT 0
ENDWHILE
REQUEST_MODEL KNIFECUR
WHILE NOT HAS_MODEL_LOADED KNIFECUR
WAIT 0
ENDWHILE
GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS scplayer 0.0 -1000.0 0.0 x[0] y[0] z[0]
IF NOT DOES_CHAR_EXIST michael
CREATE_CHAR PEDTYPE_MISSION1 SPECIAL07 x[0] y[0] z[0] michael
ENDIF
SET_CHAR_VISIBLE michael FALSE
GOSUB area
GENERATE_RANDOM_INT_IN_RANGE 8000 12000 tempo
timera = 0
IF NOT morte = 0
tempo = 3000
ENDIF
WHILE NOT timera > tempo
WAIT 0
ENDWHILE
WHILE CLEO_CALL visão 0 scplayer michael
WAIT 0
GOSUB area
ENDWHILE
SET_CHAR_VISIBLE michael TRUE
UNLOAD_SPECIAL_CHARACTER 7
GIVE_WEAPON_TO_CHAR michael WEAPONTYPE_KNIFE 999
MARK_MODEL_AS_NO_LONGER_NEEDED KNIFECUR
SET_CHAR_ACCURACY michael 200
SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY michael TRUE
SET_CHAR_PROOFS michael 0, 1, 0, 1, 0
SET_CHAR_SUFFERS_CRITICAL_HITS michael FALSE
SWITCH morte
CASE 0
SET_CHAR_HEALTH michael 1000
BREAK
CASE 1
SET_CHAR_HEALTH michael 2000
BREAK
CASE 2
SET_CHAR_HEALTH michael 3000
BREAK
DEFAULT
SET_CHAR_HEALTH michael 2000
BREAK
ENDSWITCH
SET_CHAR_SHOOT_RATE michael 100
SET_CHAR_DROPS_WEAPONS_WHEN_DEAD michael FALSE
CREATE_GROUP 0 grupo
SET_GROUP_MEMBER grupo michael
SET_CAR_DENSITY_MULTIPLIER 0.0
SET_PED_DENSITY_MULTIPLIER 0.0
WHILE LOCATE_CHAR_ANY_MEANS_CHAR_2D scplayer michael 200.0 200.0 FALSE
WAIT 0
TASK_KILL_CHAR_ON_FOOT michael scplayer
GET_CHAR_HEALTH scplayer vida1
GET_CHAR_ARMOUR scplayer colete1
vida2 = vida1
colete2 = colete1
WHILE vida2 <= vida1
AND colete2 <= colete1
AND LOCATE_CHAR_ANY_MEANS_CHAR_2D scplayer michael 200.0 200.0 FALSE
WAIT 0
GET_CHAR_HEALTH scplayer vida1
GET_CHAR_ARMOUR scplayer colete1
IF IS_CHAR_DEAD scplayer
GOTO release
ENDIF
IF IS_CHAR_DEAD michael
WHILE IS_CHAR_ON_SCREEN michael
WAIT 0
ENDWHILE
IF DOES_CHAR_EXIST michael
REMOVE_CHAR_FROM_GROUP michael
MARK_CHAR_AS_NO_LONGER_NEEDED michael
DELETE_CHAR michael
ENDIF
morte += 1
IF NOT morte >= 3
GOTO michael0
ENDIF
GOTO release
ENDIF
ENDWHILE
CLEO_CALL dano_michael 0 scplayer michael morte
ENDWHILE
release:
SET_PED_DENSITY_MULTIPLIER 1.0
SET_CAR_DENSITY_MULTIPLIER 1.0
SET_WANTED_MULTIPLIER 1.0
morte = 0
iDay[1] = iDay[0]
IF DOES_CHAR_EXIST michael
REMOVE_CHAR_ELEGANTLY michael
ENDIF
REMOVE_CHAR_FROM_GROUP michael
REMOVE_GROUP grupo
SET_CAR_DENSITY_MULTIPLIER 1.0
SET_PED_DENSITY_MULTIPLIER 1.0
GOTO main_loop
area:
GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS scplayer 0.0 0.0 0.0 x[0] y[0] z[0]
GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS scplayer 0.0 0.0 0.0 x[1] y[1] z[1]
x[0] -= 20.0
y[0] -= 20.0
x[1] += 20.0
y[1] += 20.0
GENERATE_RANDOM_FLOAT_IN_RANGE x[0] x[1] x[2]
GENERATE_RANDOM_FLOAT_IN_RANGE y[0] y[1] y[2]
SET_CHAR_COORDINATES michael x[2] y[2] z[0]
RETURN
}
{
LVAR_INT scplayer michael morte dano
dano_michael:
SWITCH morte
CASE 0
dano = 20
BREAK
CASE 1
dano = 40
BREAK
CASE 2
dano = 60
BREAK
DEFAULT
dano = 40
BREAK
ENDSWITCH
IF HAS_CHAR_BEEN_DAMAGED_BY_CHAR scplayer michael
DAMAGE_CHAR scplayer dano 1
ENDIF
CLEO_RETURN 0
}
{
LVAR_INT scplayer michael
LVAR_FLOAT x[2] y[2] z[2] distância
visão:
GET_CHAR_COORDINATES michael x[0] y[0] z[0]
GET_CHAR_COORDINATES scplayer x[1] y[1] z[1]
GET_DISTANCE_BETWEEN_COORDS_2D x[0] y[0] x[1] y[1] distância
IF z[0] <= 1.0
OR distância < 10.0
OR distância > 60.0
IS_PC_VERSION
ELSE
IF IS_CHAR_ON_SCREEN michael
AND HAS_CHAR_SPOTTED_CHAR michael scplayer
IS_PC_VERSION
ELSE
IS_AUSTRALIAN_GAME
ENDIF
ENDIF
CLEO_RETURN 0
}
SCRIPT_END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment