example by jayd00

// example by jayd00

      {$CLEO .cs}
      03A4: name_thread 'RASENGAN'

      while true
      wait 0
      if
        Player.Defined($PLAYER_CHAR)
      then
          if
          0ADC: test_cheat "RASENGAN"
          then
          0ACA: show_text_box "on"
          04ED: load_animation "BSKTBALL"
          0247: load_model 3106  /// 8 ball - pool

          while true
          if and
              84EE:   not animation "BSKTBALL" loaded
              8248:   not model 3106 available
          jf break
              wait 0
          end

          04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 421.1
          0107: 5@ = create_object 3106 at 1@ 2@ 3@
          04D9: object 5@ set_scripted_collision_check 0
          0382: set_object 5@ collision_detection 0
          0750: set_object 5@ visibility 1
          070A: AS_actor $PLAYER_ACTOR attach_to_object 5@ offset 0.06 0.04 0 on_bone 6 16 perform_animation "NULL" IFP_file "NULL" time -1

          0812: AS_actor $PLAYER_ACTOR perform_animation "BBALL_def_loop" IFP_file "BSKTBALL" 4.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1 // versionB
          wait 500
          066E: create_particle "nbluesphere" attached_to_object 5@ with_offset 0.0 0.0 0.2 rotation 0.0 0.0 0.0 flag 1 handle_as 17@
          064C: make_particle 17@ visible
          wait 2000
          0792: disembark_instantly_actor $PLAYER_ACTOR
          ///0687: clear_actor $PLAYER_ACTOR task     ///I don't know which one will work fine..

          repeat
           wait 0
          until  0AB0: key_pressed 32     // spacebar

          0812: AS_actor $PLAYER_ACTOR perform_animation "BBALL_def_loop" IFP_file "BSKTBALL" 1.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1
          wait 1000
          0792: disembark_instantly_actor $PLAYER_ACTOR
          0108: destroy_object 5@
          0976: destroy_particle 17@

          04EF: release_animation "BSKTBALL"
          0249: release_model 1598
          end
      end
      end