ititit Posted August 25, 2008 Share Posted August 25, 2008 (edited) iTiTiT Multimod 1.6 bug fixed (i think) in this topic we need build new ideas for my mod (my intent is to make a mode big as spaceeinstein mod but for cleo and self contained(when i cant add to it i will use one more cs file)) i someone can optimize it a bit making it more clear i will be grateful sorry for my crap english thats the code CRUISE CONTROL IMPLEMENTED Activate cruise control with pagedown TURRET MODE ON THE CAR IMPLEMENTED turret mode will be activated with car1 cheat INFINITE AMMO 'ammo' cheat when in rage mode press fire to make anything near you explode not uncrontrolled like before when you press aim you enter into a light bullet time mode when you release the buttohn the time will normalize {$CLEO .cs}//-------------MAIN---------------thread 'ITITITMOD' [email protected] = 0 // SUPER HEALTH KEEP AFTER RAGE [email protected] = 0 // RAGEMODE [email protected] = 0 // SUPERHEALTH [email protected] = 0 // CRUISECONTROL [email protected] = 0 // SUPERCAR FLAG:ITITITMODwait 100 if Player.Defined($PLAYER_CHAR)jf @ITITITMOD [email protected] = Actor.Health($PLAYER_ACTOR)[email protected] += 1Actor.Health($PLAYER_ACTOR) = [email protected]: [email protected] = read_memory 0x00969110 size 4 virtual_protect 0if [email protected] == 0x414d4d4f // ammothen 0A8D: [email protected] = read_memory 0x00969178 size 4 virtual_protect 0 if [email protected] == 0 then 0AB1: call_scm_func @SubStrings 1 @txtammo1 0A8C: write_memory 0x00969178 size 4 value 1 virtual_protect 0 else 0AB1: call_scm_func @SubStrings 1 @txtammo0 0A8C: write_memory 0x00969178 size 4 value 0 virtual_protect 0 end 0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 endif04A4: [email protected] == 0x4D4F5645 // movethen0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 077E: get_active_interior_to [email protected] and Player.Controllable($PLAYER_CHAR) not Actor.Driving($PLAYER_ACTOR) [email protected] == [email protected] = Actor.Angle($PLAYER_ACTOR)0AB6: store_target_marker_coords_to [email protected] [email protected] [email protected] // IF and SET 0169: set_fade_color_RGB 0 0 0 fade 0 500 wait 500 Player.CanMove($PLAYER_CHAR) = Falseselect_interior 0 04FA: reset_interior 0 colors 057E: set_radar_grey 0 04E4: unknown_refresh_game_renderer_at [email protected] [email protected] Camera.SetAtPos([email protected], [email protected], [email protected])if Player.Defined($PLAYER_CHAR)then 0860: link_actor $PLAYER_ACTOR to_interior 0 Actor.PutAt($PLAYER_ACTOR, [email protected], [email protected], -100.0)Actor.Angle($PLAYER_ACTOR) = [email protected] not Player.Defined($PLAYER_CHAR)wait 0endwait 1500 fade 1 1000 while fading wait 0 endwhile not Player.Defined($PLAYER_CHAR)wait 0endPlayer.CanMove($PLAYER_CHAR) = TrueCamera.SetBehindPlayerCamera.Restore_WithJumpCut0AB1: call_scm_func @SubStrings 1 @txtteleportendendif 04A4: [email protected] == 0x53544154 // stat then03E5: show_text_box 'CHEAT1' // Cheat activated0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 062A: change_float_stat 165 to 1000.0 062A: change_float_stat 23 to 1000.0 062A: change_float_stat 24 to 1000.0 062A: change_float_stat 21 to 0.0 062A: change_float_stat 22 to 1000.0 062A: change_float_stat 225 to 1000.0 062A: change_float_stat 229 to 1000.0 062A: change_float_stat 230 to 1000.0 062A: change_float_stat 223 to 1000.0 062A: change_float_stat 160 to 1000.0 0629: change_integer_stat 80 to 2000 0629: change_integer_stat 68 to 2000 0629: change_integer_stat 181 to 4 062A: change_float_stat 69 to 1000.0 062A: change_float_stat 70 to 1000.0 062A: change_float_stat 71 to 1000.0 062A: change_float_stat 72 to 1000.0 062A: change_float_stat 73 to 1000.0 062A: change_float_stat 74 to 1000.0 062A: change_float_stat 75 to 1000.0 062A: change_float_stat 76 to 1000.0 062A: change_float_stat 77 to 1000.0 062A: change_float_stat 78 to 1000.0 Player.Build($PLAYER_CHAR)[email protected] = Player.Money($PLAYER_CHAR)0A8F: [email protected] = 2000000 - [email protected] // int Player.Money($PLAYER_CHAR) += [email protected] 04A4: [email protected] == 0x474F4430 // god0then0AB1: call_scm_func @SubStrings 1 @txtgod00A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 [email protected] = 0 endif 04A4: [email protected] == 0x474F4431 // god1then0AB1: call_scm_func @SubStrings 1 @txtgod10A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 [email protected] = 1 endif [email protected] == 0 thenActor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)04D8: set_actor $PLAYER_ACTOR drowns_in_water 1 Player.InfiniteRun($PLAYER_CHAR) = False endif [email protected] == 1 thenActor.Health($PLAYER_ACTOR) = 250Actor.Armour($PLAYER_ACTOR) = 250Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)04D8: set_actor $PLAYER_ACTOR drowns_in_water 0 Player.InfiniteRun($PLAYER_CHAR) = Trueendif and [email protected] == 1 [email protected] == 1 not Actor.Driving($PLAYER_ACTOR) 00E1: player 0 pressed_key 17 thenwait 300Actor.StorePos($PLAYER_ACTOR, [email protected], [email protected], [email protected]) 0565: create_soundless_explosion_at [email protected] [email protected] [email protected] type 80565: create_soundless_explosion_at [email protected] [email protected] [email protected] type 80565: create_soundless_explosion_at [email protected] [email protected] [email protected] type 80565: create_soundless_explosion_at [email protected] [email protected] [email protected] type 8endif 00E1: player 0 pressed_key 6 then015D: set_gamespeed 0.80while 00E1: player 0 pressed_key 6wait 100end015D: set_gamespeed 1.0 endif and04A4: [email protected] == 0x52414745 // rage [email protected] == 0 then [email protected] = 1 if [email protected] == 1 then [email protected] = 1 end [email protected] = 1 0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 0AB1: call_scm_func @SubStrings 1 @txtrage1 [email protected] = 0 endif and04A4: [email protected] == 0x52414745 // rage [email protected] == 1 [email protected] = 0 [email protected] = 0 if [email protected] == 1 then [email protected] = 1 [email protected] = 0 end0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 0AB1: call_scm_func @SubStrings 1 @txtrage0endif 04A4: [email protected] == 0x53415645 // savethen03D8: show_save_screen 0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 endif Actor.Driving($PLAYER_ACTOR)thenif [email protected] == [email protected] = 00AB1: call_scm_func @SubStrings 1 @txtrage0end03C0: [email protected] = actor $PLAYER_ACTOR car if 056E: car [email protected] defined thengosub @NOSORFLY endif 84A4: not [email protected] == 0x43415231 // car1jf @SUPERCARCHEAT endif and [email protected] == 1 not Actor.Driving($PLAYER_ACTOR) [email protected] = 0endif not Actor.Driving($PLAYER_ACTOR) thenif 04A4: [email protected] == 0x4155544F // autothen2[email protected] = #INFERNUS jump @VEHICLESPAWNER endif 04A4: [email protected] == 0x4D4F544F // moto [email protected] = #PCJ600 jump @VEHICLESPAWNER endif 04A4: [email protected] == 0x42494b45 // [email protected] = #BMX jump @VEHICLESPAWNER endif 04A4: [email protected] == 0x424F4154 // boat [email protected] = #VORTEX jump @VEHICLESPAWNER endendjump @ITITITMOD :VEHICLESPAWNER0AB1: call_scm_func @SubStrings 1 @txtcarspawn0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 Model.Load([email protected])038B: load_requested_models while not Model.Available([email protected]) wait 20 endActor.StorePos($PLAYER_ACTOR, [email protected], [email protected], [email protected])[email protected] = Car.Create([email protected], [email protected], [email protected], [email protected])[email protected] = Actor.Angle($PLAYER_ACTOR)Car.Angle([email protected]) = [email protected]: put_actor $PLAYER_ACTOR in_car [email protected] Model.Destroy([email protected])jump @ITITITMOD :SUPERCARCHEAT03C0: [email protected] = actor $PLAYER_ACTOR car 0A30: repair_car [email protected] Car.SetImmunities([email protected], 1, 1, 1, 1, 1)053F: set_car [email protected] tires_vulnerability 0 01EC: make_car [email protected] very_heavy 1 0AB1: call_scm_func @SubStrings 1 @txtsupercar10A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 0A8C: write_memory 0x00969179 size 4 value 1 virtual_protect 0 //FULLAIM [email protected] = 1 while Actor.Driving($PLAYER_ACTOR) wait 100 if 056E: car [email protected] defined then gosub @NOSORFLY if and 01F4: car [email protected] flipped 01C1: car [email protected] stopped [email protected] == 1 then Car.StorePos([email protected], [email protected], [email protected], [email protected]) [email protected] += 2 [email protected] = Car.Angle([email protected]) Car.PutAt([email protected], [email protected], [email protected], [email protected]) Car.Angle([email protected]) = [email protected] end endendif 056E: car [email protected] defined then Car.SetImmunities([email protected], 0, 0, 0, 0, 0) 053F: set_car [email protected] tires_vulnerability 1 01EC: make_car [email protected] very_heavy 0 0AB1: call_scm_func @SubStrings 1 @txtsupercar0 if [email protected] == 1 then [email protected] = 0 [email protected] = 0 0A8C: write_memory 0x00969179 size 4 value 0 virtual_protect 0 0A8C: write_memory 0x00969110 size 4 value 0 virtual_protect 0 jump @ITITITMOD :NOSORFLYif or0AB0: key_pressed 0x30 0AB0: key_pressed 0x23 then02E3: [email protected] = car [email protected] speed [email protected] += 10.0 Car.SetSpeedInstantly([email protected], [email protected])endif or0AB0: key_pressed 0x39 0AB0: key_pressed 0x2E thenCar.SetSpeedInstantly([email protected], 0.0)[email protected] == 0thenif or0AB0: key_pressed 0x38 0AB0: key_pressed 0x22then02E3: [email protected] = car [email protected] [email protected] = 10AB1: call_scm_func @SubStrings 1 @txtcruise1wait 200endelseif and81F3: not car [email protected] in_air 82BF: not car [email protected] sunk 80E1: not player 0 pressed_key 680E1: not player 0 pressed_key 14then Car.SetSpeedInstantly([email protected], [email protected])elsewait 1000endif or0AB0: key_pressed 0x38 0AB0: key_pressed [email protected] = 00AB1: call_scm_func @SubStrings 1 @txtcruise0wait 200endendreturn :SubStrings // do not edit this routine, only strings below0A9F: [email protected] = [email protected] += 0x100A8D: [email protected] = read_memory [email protected] size 4 virtual_protect 00062: [email protected] -= [email protected] // [email protected] is the label @[email protected] += 40AA5: call 0x588BE0 num_params 4 pop 4 0 0 0 [email protected]: ret 0:txtgod00900: "GOD MODE DEACTIVATED":txtgod10900: "GOD MODE ACTIVATED":txtsupercar00900: "SUPERCAR MODE DEACTIVATED":txtsupercar10900: "SUPERCAR MODE ACTIVATED":txtrage00900: "RAGE MODE DEACTIVATED":txtrage10900: "RAGE MODE ACTIVATED":txtcruise10900: "CRUISE CONTROL ENABLED":txtcruise00900: "CRUISE CONTROL DISABLED":txtcarspawn0900: "VEHICLE SPAWNED":txtteleport0900: "PLAYER TELEPORTED":txtammo10900: "INFINITE AMMO ACTIVATED":txtammo00900: "INFINITE AMMO DEACTIVATED"0000: null_termitator Edited August 28, 2008 by ititit Link to comment Share on other sites More sharing options...
Mc Simmo Posted August 25, 2008 Share Posted August 25, 2008 Cruise control for cars? Press a button and it sets the cars speed to the speed that your drivin at but you can still turn n stuff. Spawn more weapons. Boost ramps? Link to comment Share on other sites More sharing options...
ZAZ Posted August 25, 2008 Share Posted August 25, 2008 Dont use globals because they can corrupt globals of main.scm and invers CLEO MODS CLEO Script Tutorial Link to comment Share on other sites More sharing options...
ititit Posted August 25, 2008 Author Share Posted August 25, 2008 (edited) i'm italian what you mean with cruise control mc simmo? thanks zaz for the info now the script works with locals! ehi zaz do you know any opcode that make an explosion without sound,particles,shake a bit like the opcode createsoundlessexplosion type 8 but i want to remove camera shake for my rage mode Edited August 25, 2008 by ititit Link to comment Share on other sites More sharing options...
james227uk Posted August 25, 2008 Share Posted August 25, 2008 i'm italian what you mean with cruise control mc simmo?thanks zaz for the info now the script works with locals! ehi zaz do you know any opcode that make an explosion without sound,particles,shake a bit like the opcode createsoundlessexplosion type 8 but i want to remove camera shake for my rage mode I think you will have to use globals at some stage. There are only 33 locals alailable to cleo. When you run out, use globals that would never get used by the SCM, like $JAMES227uk $ITIS $ARMAX That's my trick Link to comment Share on other sites More sharing options...
ititit Posted August 26, 2008 Author Share Posted August 26, 2008 thanks james when i run out i will use globals thgis way $ITITITGODFLAG with a prefix that the game doesnt even think Link to comment Share on other sites More sharing options...
Mc Simmo Posted August 26, 2008 Share Posted August 26, 2008 Cruise control, it gets the cars current speed, say you're going 60mph, press cruise control, the speed stays at 60 but you can stilll turn ect Link to comment Share on other sites More sharing options...
Mc Simmo Posted August 28, 2008 Share Posted August 28, 2008 (edited) Nice, you did it, ima go test it when i been in teh bath. *edit* I like... Very much...[/borat] Now I just to need to make a turret mode on the car your driving XD *Edit* You work fast bud lol Edited August 29, 2008 by Mc Simmo Link to comment Share on other sites More sharing options...
cj360 Posted August 29, 2008 Share Posted August 29, 2008 If u take out the fullaim cheat line does the car god mog still work just without the tueret mode? Link to comment Share on other sites More sharing options...
ititit Posted August 30, 2008 Author Share Posted August 30, 2008 yes Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now