method Open takes BAGSYS bs, integer pos, integer r returns nothing
        local integer i = .MaxCount-1
        set .open = true
        set .BS = bs
        call .ResetPosition(pos)
        call .Win.SetTexture('D201'+r)
        call .Win.Show(true, bs.Camera)
        loop
            exitwhen i < 0
            if (.Slot[i] != null) then
                call .WinSlot[i].SetTexture(GetItemTexture(GetItemTypeId(.Slot[i])))
            else
                if i!=100 then 
                call .WinSlot[i].SetTexture(TypeTextureBlank)
                endif
                if i==100 then
                call .WinSlot[i].SetTexture(RNG)
                endif
            endif
            call .WinSlot[i].Show(true, bs.Camera)
            set i = i - 1
        endloop
    endmethod