Global x_pos%=10,y_pos%=10,x_size%=250,y_size%=300,filled%=1,window1=0

Type item
   Field id$
   Field x,y
   Field gfx
End Type

While Not KeyHit(1)
   Text x_pos%+12,y_pos%+12,"Inventar"
   
   For i.item = Each item
      Text x_pos%+i\x%,y_pos%+i\y%,""+i\id$
      DrawImage i\gfx,x_pos%+slot_x%,y_pos%+60
   Next
   
   For x=0 To 9 Step 2
      For y=0 To 9 Step 2
         Rect x_pos%-(x*20)+185,y_pos%-(y*20)+220,40,40,0
      Next
   Next

   If KeyHit(60) Then
      createItem(0001)
   EndIf
   If KeyHit(61) Then
      createItem(0002)
   EndIf
Wend
End

Function createItem(id$)
   Select id$
      Case 0001
         i.item = New item
         i\x%  = 1*32
         i\y%  = 1*32
         i\id$ = "Trank des Lebens"
         i\gfx = LoadImage("gfx\pot_1.png"):MaskImage(i\gfx,255,0,255)
      Case 0002
         i.item = New item
         i\x%  = 1*32
         i\y%  = 1*32
         i\id$ = "Schwert der Verdammnis"
         i\gfx = LoadImage("gfx\sw_1.png"):MaskImage(i\gfx,255,0,255)
   End Select
   DebugLog(i\id%)
End Function

For i.item = Each item
      Text x_pos%+i\x%+itemzaehler,y_pos%+i\y%,""+i\id$
      DrawImage i\gfx,x_pos%+slot_x%+itemzaehler,y_pos%+60
      itemzaehler=itemzaehler+1
   Next

i=0
for a.Item=each Item
  i=i+1
  reihe=i/breiteInItems
  spalte=i Mod breiteInItems
  draw item,spalte*Itembreite,reihe*Itemhöhe
next

   a=0
   breiteInItems=40
   For i.item = Each item
      a=a+1
      reihe=0/breiteInItems
      spalte=a Mod breiteInItems
      If spalte>=6 Then
         reihe=reihe+1
         spalte=1
      EndIf
      DrawImage i\gfx,(x_pos%+spalte*40)-18,(y_pos%+reihe*40)+60
   Next

if(reihe>5) exit