Post by Azan on Jul 5, 2005 16:59:46 GMT -5
Graphics 800,600
SetBuffer BackBuffer()
Global dragging=False
Type ob
Field x,y,sx,sy,name$,clicked
End Type
ClsColor 155,155,155
createob(50,50,"Player")
createob(150,50,"Monster")
createob(250,50,"Door")
While Not KeyHit(1)
Flip
Cls
updateob()
Wend
Function createob(x,y,name$)
b.ob=New ob
b\x=x
b\y=y
b\name$=name$
b\clicked=False
End Function
Function updateob()
For b.ob=Each ob
mx=MouseX()
my=MouseY()
If MouseDown(1) And mx<=b\x+30 And mx>=b\x And my<=b\y+30 And my>=b\y And dragging=False Then
b\clicked=True
dragging=True
EndIf
If Not MouseDown(1) Then
b\clicked=False
dragging=False
EndIf
If b\clicked=True Then
b\x=mx-15
b\y=my-15
EndIf
Color 0,0,0
Rect b\x,b\y,30,30
Color 255,255,255
Text b\x,b\y,b\name$
Next
End Function
this is incredibly crappy (made in only 5 minuets) but it is possibly the start of an online D&D (note that I will need images of the D&D icons)
so far the posibility of this working is quite good (the networking and everything will be our biggest challenge but ive already made some online demos and this is pretty easy
)DMs will have alot of powers like seeing the history of a player (where they moved etc.) and the possibilities are endless, note that if NZ does start this in the end stages we will need an experienced D&D player *Cough kiddo *cough to add on little extra things, or tidbits that would help
