Post by Azan on May 17, 2005 19:08:14 GMT -5
Heres some code (riddled with errors) that most people would say COOL!, but not me, because im making it specificaly for something and its not working the way I want it to, but I figured I would share it anyways :)
Graphics 800,600,32,2
SetBuffer BackBuffer()
Type Line1
Field mx,my,mx2,my2,clicked,cx,cy
End Type
While Not KeyHit(1)
Text 10,10,"To make a line hit left, to end a line hit right"
pline1()
WaitMouse()
pline2()
Flip
Cls
Wend
End
Function pline1()
If MouseHit(1) Then
l.Line1=New Line1
l\mx=MouseX()
l\my=MouseY()
l\clicked=0
EndIf
End Function
Function pline2()
For l.Line1=Each Line1
If l\clicked=0 Then
l\mx2=MouseX()
l\my2=MouseY()
l\clicked=1
EndIf
Line l\mx,l\my,l\mx2,l\my2
Next
End Function
Function setdest()
If KeyHit(57) Then
Oval MouseX(),MouseY(),10,10
EndIf
End Function