إضافة خاصية الإتنقال إلى الثمن المراد تلاوته في المشروع ؟

كود:
result = Input.GetText("Input1");
  sel = ListBox.GetSelected("ListBox1");
  items = ListBox.GetItemData("ListBox1", sel[1]);
  if String.ToNumber(result)~=0 then
      edit=true
      ap=0
  end

كود:
if edit==true then
ap=ap+1
  if ap~=String.ToNumber(result) then
    MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..items..".mp3");
    elseif ap==String.ToNumber(result) then
      ListBox.SelectItem("ListBox1", sel[1]+1);
      edit=false
  end
else
  nItemsInListBox = ListBox.GetCount("ListBox1");
  if nItemsInListBox ~= 0 then
    tSelected = ListBox.GetSelected("ListBox1");
    sJustFinishFile = ListBox.GetItemData("ListBox1", tSelected[1]);
    nFileIndex = ListBox.FindItem("ListBox1", -1, 1, sJustFinishFile);
    nNextFileIndex = nFileIndex+1;
    if nFileIndex == nItemsInListBox or nFileIndex > nItemsInListBox then
        ListBox.SelectItem("ListBox1", 1);
        sFileName = ListBox.GetItemData("ListBox1", 1);
        else
          sFileName = ListBox.GetItemText("ListBox1", nNextFileIndex);
          result = ListBox.GetItemData("ListBox1", nNextFileIndex);
          ListBox.SelectItem("ListBox1", nNextFileIndex);
          nSelect = ComboBox.GetText("ComboBox1");
    end
  end
end