Type Spieler
Field inventar.gegenstand
End Type

Type gegenstand
Field id
Field naechster_gegenstand.gegenstand
End Type

aktueller_gegenstand = spieler\inventargegnstand
While aktueller_gegenstand\naechster_gegenstand >< Null
          aktueller_gegnstand = aktueller_gegenstand\naechster_gegenstand
Wend

Const ITEM_MAX = 16; Falls du ein maximum für gegenstände haben willst 

Global iventar_image = LoadImage(".\gfx\wieauchimmer.png"); Nehmen wir an, das wäre dein Inventarhintergund und gehen davon aus, das es in 4X4 Spalten angeordnet ist und das die abstände zwischen den plätzen gleich sind

Type Figur

Field x
Field y
;.... und was der sonst noch so kann
Field inventar.item; Hier kann also die Adresse eines Types von typ item gespeichert werden
Field item_anzahl ; Falls du möchtest das du nur 16 plätze hast ist diese Variable sinnvoll, sonst eher nicht
End Type

Type item
Field n.item; N für nächstes item und für schreibfaule ana's, also hier kommt das folge item hinein
Field v.item; V für vorgänger, das spart ein wenig rechenzeit, auch wenn es nicht absolut notwendig ist
Field ID ; Für jeden gegenstand kommt hier eine nummer rein, Essen 1, Schwert 2, singendes Kaninchen 3 usw
Field menge ; Wie viele gegenstände es gibt
Field image ; und wie sie ausssehen sollen.

End Type

Function Item_erstellen.item(image,ID,menge) ; Eine Funktion die ein "ITEM" zurück gibt (.item)
	i.item = New item
	i\id = id
	i\menge = menge
	i\image = image
End Function

Function Item_Add_GRUNDGERUEST(f.figur,i.item) ; Hier erstmal der Grundgedanke
	If f\inventar = Null Then 
		f\inventar = i 					; Für den falls dass das inventar leer war, wird einfach das erste item in dem field gespeichert
		f\item_anzahl = item_anzahl + 1 ; und ein platz wird als vergeben angegeben
	Else 								; Spannender ist es schon,wenn wir bereits einen oder mehrere items haben
		aki.item = f\inventar 			; AKI = AKtuellesItem das brauchen wir für unsere while schleife
			While aki\n <> Null 		; Also solange das item noch einen nachfolger hat
					aki = aki\n 		; ... wird der nachfolger aki
			Wend 						; wenn die schleife also terminiert, haben wir das letzte item in der liste in aki gespeichert
		aki\n = i 						; und unser neues item i, wird nun dran gehängt
		i\v = aki						; und der vorgänger von i wird dann das zuvor letzte
	EndIf
End Function


Function Item_Add(f.figur,i.item) 		; Und nun kommt noch die option dazu, dass wir gegenstände die schon im inventar sind auf die vorhanden addieren
	If f\inventar = Null Then 
		f\inventar = i 					; kenn ich ja schon ...
		f\item_anzahl = item_anzahl + 1 ; langweilig ....
	Else 								; kommt da auch noch was neues ...
		aki.item = f\inventar 			; Achtung!!!
			While aki\n <> Null 		; Gleich kommt was neues!!!
;--------------Eingefügt------------------------------------------------------
				If aki\id = i\id						; Wenn die beiden also vom selben typ sind
					If aki\menge + i\menge > 0 Then 	; Das macht sinn wenn wir diese funktion auch zum entfernen einiger gegenstände verwenden wollen, also wird hier geschaut ob wir nicht - 3 Brote in der Tasche haben am ende
						aki\menge = aki\menge + i\menge ; Also hier falls wir eine positive anzahl angegenständen haben
						Return True						; Abbruch der Funktion, es ist ja schon alles getan
					ElseIf aki\menge + i\menge = 0 		; Also wenn wir nichts mehr davon im inventar haben
						If aki\v <>	Null 				;Falls es das erste in der Liste ist, hat es ja keinen vorgänger und programmiersprachen fehlt bei nullreferenz ja immer ein wenig die sponanität
							aki\v\n = aki\n 			; Nun setzen wir den nachfolger von aki's vorgänger auf den Nachfolger von aki, damit aki aus der kette genommen wird
						EndIf
						If aki\n <> Null 				; Analog zu oben, nur halt für nachfolger
							aki\n\v = aki\v 			; und umgekehrt natürlich auch
						EndIf
						Delete aki 						; nun wo aki seine nachfolge geregelt hat kann es von uns gehen, wie bei alten menschen 
						Return True
					Else
						DebugLog "Du versucht gerade eine negative menge zu tragen!" ; in dem fall sollten wir nichts tun, außer ein false zurück geben
						Return False
					EndIf
				EndIf
;Hier wie gewohnt weiter ----------------------------				
				aki = aki\n 
			Wend
		aki\n = i
		i\v = aki\n
		Return True ; Die True's geben an, dass wir hier eine gültige inventaroperation gemacht haben, die false das du zu wenig von dem gegenstand hast um soviel abziehen zu können.
	EndIf
End Function

;Okay erstmal wieder der Grundgedanke
Function Iventar_draw_Grundgedanke(f.figur,x,y,spalten = 4) ; Zeichnet die gegenstände aus dem Inventar von F ab der stelle x,y, optional kannst du in spalten noch angeben wie viele hinter einander gemalt werden bis eine neue zeile kommt, wenn du nichts einträgst gehen wir von der 4er sache aus
	aki.item = f\inventar ;Hey Aki kennen ich schon, schön dich wiederzusehen =)
		While aki <> Null ;diesemal gehen wir soweit das wir alle items durch gehen und am ende aki = null sein wird, da wir es nach der schleifen nicht mehr brauchen
			DrawImage aki\image,x + ((xount Mod spalten) * ImageWidth(aki\image) * 1.2),y + xount/spalten * ImageHeight(aki\image) * 1.2; Hier wird also gezeichnet, okay eventuell klappt das hier nicht so und man könnte es länger und einfacher schreiben, aber im grunde ist der gedanke bei x und y anfangen, bie x kommt der rest bei der division durch die spalten (also 0 bis spalten - 1) und dann halt der abstand der bilder, bei y wird die gerundete division verwendet um die höhe zu bestimmen 
			xount = xount + 1 ;xount ist die coole kombination von x und count :D also die anzahl der items "di mia scho packt ham"
		Wend
End Function

;und hier noch ein wenig komfortkrams, wie z.b das wir das gerade mit der maus angeklickte item bekommen, hier geh ich davon aus, dass es eine globale variable gibt die jeden schleifen durchlauf = mousehit(1) gesetzt wird, nenn ich mal einfach maus1
Function Iventar_draw.item(f.figur,x,y,spalten = 4) ; Zeichnet die gegenstände aus dem Inventar von F ab der stelle x,y, optional kannst du in spalten noch angeben wie viele hinter einander gemalt werden bis eine neue zeile kommt, wenn du nichts einträgst gehen wir von der 4er sache aus
	aki.item = f\inventar 
		While aki <> Null
			AK_x = x + ((xount Mod spalten) * ImageWidth(aki\image) * 1.2) ; Diesmal brauchen wir die aktuelle x,y koordinaten dann öfter also zwischen speicher, imagewidth und so sollte man eh immer mit bedenken nutzen weil sie nicht soooo schnell sind
			Ak_y = y + xount/spalten * ImageHeight(aki\image) * 1.2
			DrawImage aki\image,AK_x,AK_y; Hier wird also gezeichnet, okay eventuell klappt das hier nicht so und man könnte es länger und einfacher schreiben, aber im grunde ist der gedanke bei x und y anfangen, bie x kommt der rest bei der division durch die spalten (also 0 bis spalten - 1) und dann halt der abstand der bilder, bei y wird die gerundete division verwendet um die höhe zu bestimmen 
			If maus1; Also wenn geklickt wird dann checken wir das ganze sonst kann man sich das sparen, im gegensatz zu Bmax geht BB nicht daonv aus das wenn man schon eine notwendigkeit nicht stimmt, das der rest gar nicht erst überprüft werden muss
				If MouseX() > ak_x And MouseX()< ak_x + ImageWidth(aki\image) And MouseY() > ak_y And MouseY() < Ak_y + ImageHeight(aki\image);Hier schauen wir ob die maus irgendwo auf dem image ist, (das kann man rechen zeit schonender machen, aber ich wollte nicht noch mehr variablen drin haben, aber imagewidth,mousex() usw, müsste man nur einmal berechnen)
					return_item.item = aki; falls ja wird aki gespeichert, man könnte es auch gleich zurück geben mit return aber dann würde der rest nicht gezeichnet werden für einen frame, also vermeiden wir das damit es nicht nach flimmern aussieht
				EndIf
			EndIf
			xount = xount + 1 ;xount ist die coole kombination von x und count :D also die anzahl der items "di mia scho packt ham"
		Wend
	Return Return_item.item ; Falls nichts angeklickt wird also Null sonst halt das item
End Function