10-11-2005, 06:45 AM
Code:
dim shared player$(52,52)
screen 18,32
dim shared comp$(20)
dim shared plyr$(20)
dim shared lftpile$(5)
dim shared rghtpile$(5)
type pile
x as integer
y as integer
cardname as string
end type
dim shared pile1 as pile
dim shared pile2 as pile
pile1.x=185
pile2.x=380
pile1.y=100
pile2.y=100
for i=1 to 20 'deals comp
comp$(i)=player$(1,i)
next
for i=21 to 40 'deals player
plyr$(i)=player$(1,i)
next
for i=41 to 45 'deals rightpile
rghtpile$(i)=player$(1,i)
next
for i= 46 to 50 'deals left
lftpile$(i)=player$(1,i)
next
print pile2.y
sleep
Well when i run this it freezes. However when i have the other shiz in there (theres an included file) it prints on 32 wich is not what i originally had in there
umm... help