Function gold()


For i=1 To 100
gold_.item =New item


gold_\mesh=LoadMesh("gfx/dings.3ds")

gold_\art=Gold
gold_\menge=Rnd(1,10)
gold_\x=Rnd(1,1000)
gold_\y=EntityY(terrain)
gold_\z=Rnd(1,1000)
PositionEntity gold_\mesh,gold_\x,gold_\y,gold_\z
ScaleEntity gold_\mesh,0.01,0.01,0.01
goldtext=LoadTexture("gfx/gold.jpg")
EntityTexture gold_\mesh,goldtext
EntityType gold_\mesh,gold_col
EntityRadius gold_\mesh,10
Next

End Function

Function itemcol()


For gold_.item = Each item

If EntityDistance(pivot,gold_\mesh)<10 Then gold_counter=gold_counter+1

Next

End Function