stackserial = Target.PromptTarget("Select stack to split 1 by 1")

stackitem = Items.FindBySerial(stackserial)

itemid = 0;
s = 0
if not stackitem:
    Misc.SendMessage("Missing stack", 50)
else:
    itemid = stackitem.ItemID
    while True:

        for i in Player.Backpack.Contains:
            if i.ItemID == itemid:
                s = i.Serial
            else:
                Misc.NoOperation()

        if Items.FindBySerial(s).Amount >= 1:
            Misc.SendMessage('--> Splitted, Left: %i' % (Items.FindBySerial(s).Amount), 66)
            Items.Move(s, Player.Backpack.Serial, 1 , 50, 50)
            Misc.Pause(800)

        else:
            break;
    Misc.SendMessage("Split Done", 50)