just check for the value of the mousewheel, simple example follows
set text opaque
dim weapon$(5)
for i=1 to 5
read x$
weapon$(i)=x$
next i
data "club","catapult","lance","chaingun","nuclear missile"
oldwheel=0:item=1
do
wheeldirection=mousez()
if wheeldirection>oldwheel
inc item
endif
if wheeldirection<oldwheel
dec item
endif
if item>5 then item=1
if item<1 then item=5
oldwheel=wheeldirection
text 0,0,weapon$(item)+" "
wait 100
loop
this just changes the value of item and displays the items name, you could use the item value to change your weapons, you would also remove the wait 100 from real code, I just put it in so that you can see the values do change in sequence, otherwise it would alter so fast it might look like the weapons where changing at random.
Mentor.
PC1: P4 3ghz, 1gig mem, 2x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.
