06-28-2005, 01:47 AM
Pages: 1 2
06-28-2005, 02:02 AM
06-28-2005, 02:12 AM
06-28-2005, 02:43 AM
06-28-2005, 03:19 AM
06-28-2005, 03:34 AM
06-28-2005, 03:59 AM
06-28-2005, 05:41 AM
Not exactly a tutorial (you should be able to find billions of them, everybody seems to think he has the greatest mouse routine ever 
), but here's a simple bit of code:
), but here's a simple bit of code:Code:
option explicit
#include "dos/dpmi.bi"
#define MOUSE &H33
dim regs as __dpmi_regs
dim x as integer, y as integer, b as integer
width 80, 25
for y = 1 to 25
for x = 1 to 80
locate y, x
color int(rnd * 16)
print chr(176);
next x
next y
' turn off text cursor
locate , , 0
' initialize mouse
regs.x.ax = 0
__dpmi_int(MOUSE, @regs)
' show mouse
regs.x.ax = 1
__dpmi_int(MOUSE, @regs)
do until len(inkey)
' get mouse position
regs.x.ax = 3
__dpmi_int(MOUSE, @regs)
x = regs.x.cx \ 8 ' divide by 8 - char width = 8
y = regs.x.dx \ 8 ' divide by 8 - char height = 8
b = regs.x.bx
locate 1, 1
print using "### ### //"; x, y, bin(b)
loop
' hide mouse
regs.x.ax = 2
__dpmi_int(MOUSE, @regs)
color 7, 0
cls06-28-2005, 07:02 AM
06-28-2005, 06:41 PM
Hey, kids! English lesson time! 'Everybody' is singular; therefore, I couldn't say "Everybody thinks they have ...", but instead must use "Everybody thinks he has...", where 'he' refers to 'everybody' In other words, everyone who writes a mouse handler thinks that the mouse handler he or she has written is uber-great etc. 
Does that code help you do what you want?
'Everybody' is singular; therefore, I couldn't say "Everybody thinks they have ...", but instead must use "Everybody thinks he has...", where 'he' refers to 'everybody' In other words, everyone who writes a mouse handler thinks that the mouse handler he or she has written is uber-great etc. Does that code help you do what you want?
Pages: 1 2