Finger drum mapping for Maschine MIDI mode / KONTAKT multi script

FingerDrumMapping.ksp

on init
  declare %map[128]
  declare $n := 0
  while($n < 128)
    %map[$n] := $n
    inc($n)
  end while

  %map[13] := 36 { BD }
  %map[14] := 36 { BD }

  %map[16] := 53 { Ride }
  %map[17] := 38 { SD }
  %map[18] := 38 { SD }
  %map[19] := 51 { Ride }

  %map[20] := 42 { Close HH }
  %map[21] := 45 { H Tom }
  %map[22] := 46 { Open HH }
  %map[23] := 42 { Close HH }

  %map[24] := 57 { Cymbal 2 }
  %map[25] := 43 { L Tom }
  %map[26] := 41 { F Tom }
  %map[27] := 49 { Cymbal 1 }
end on

on midi_in
  if ($MIDI_COMMAND = $MIDI_COMMAND_NOTE_ON or $MIDI_COMMAND = $MIDI_COMMAND_NOTE_OFF)
    ignore_midi
    set_midi($MIDI_CHANNEL, $MIDI_COMMAND, %map[$MIDI_BYTE_1], $MIDI_BYTE_2)
  end if
end on