Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|398\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Making Block?
Mon, 10 Sep 2007, 12:18
Hotshot	Hiya there, What I am trying to do is making some block by using the mouse Put whatever block positions or size of the block. for example If I made small block then I move them in the middle and if I make another block then I put it somewhere(like right or left or top or bottom). But at the moment...I only got one block....how do you make muti blocks? Graphics (640,480,16,2) SetBuffer BackBuffer() Dim x(100) Dim y(100) Dim Target_X(100) Dim Target_y(100) While Not KeyDown(1) Cls If MouseHit(1) i=i+1 Color 255,0,0 X(i)=MouseX() Y(i)=MouseY() Target_X(i)=MouseX() Target_y(i)=MouseY() EndIf Color 255,0,0 Rect X(i),Y(i),Target_X(i),Target_Y(i) Color 255,255,0 Text X(i),Y(i),"Block "+i Flip Wend --v
Mon, 10 Sep 2007, 12:45
JL235	First I don't know what you mean. This is kinda a guess, but I'd like to ask you to explain again or further. Maybe draw an example of what you want to achieve. Second, i will eventually increment greater then the size of the array and you'll (hopefully) get an array index out of bounds (although I'm finding here it's only caught in the debugger which is a HUGE flaw). So you should check if the size is valid (but arrays can't store their size so it's up to you to do this code). Third, is something like this what your after? Graphics (640,480,16,2) SetBuffer BackBuffer() Const SIZE = 100 Dim X(SIZE) Dim Y(SIZE) Dim Target_X(SIZE) Dim Target_y(SIZE) Local count = 0 While Not KeyDown(1) Cls If MouseHit(1) count = count+1 Local i = count Mod SIZE Color 255,0,0 X(200)=MouseX() Y(i)=MouseY() Target_X(i)=MouseX() Target_y(i)=MouseY() EndIf For j = 0 To SIZE If Not (x(j) = 0 And y(j) = 0 And Target_X(j) = 0 And Target_Y(j) = 0) Color 255 - (j8 Mod 255), j5 Mod 255, 0 Rect X(j),Y(j),Target_X(j),Target_Y(j) Color 0, 0, 0 Rect X(j),Y(j),Target_X(j),Target_Y(j), False Color 255, 255, 0 Text X(j),Y(j),"Block "+j EndIf Next Flip Wend --v
Mon, 10 Sep 2007, 13:33
JL235	Or do you mean something like: Graphics (640,480,16,2) SetBuffer BackBuffer() Type Rectangle Field x Field y Field width Field height End Type Local lastRectangle.Rectangle = Null While Not KeyDown(1) Cls If MouseHit(1) If lastRectangle = Null lastRectangle = newRectangle(MouseX(), MouseY()) ElseIf isValidRectangle(lastRectangle) lastRectangle = newRectangle(MouseX(), MouseY()) Else setRectangleWidth(lastRectangle, MouseX(), MouseY()) EndIf EndIf For r.Rectangle = Each Rectangle drawRectangle(r) Next Flip Wend ; Determins if a Rectangle is valid or not. ; A valid Rectangle is one with a width and height ; which is not equal to 0. ; Return true if it is valid, false if not. Function isValidRectangle(r.Rectangle) Return Not (r\width = 0 And r\height = 0) End Function Function newRectangle.Rectangle(x, y) Local r.Rectangle = New Rectangle r\x = x r\y = y r\width = 0 r\height = 0 Return r End Function Function setRectangleWidth(r.Rectangle, x, y) r\width = x-r\x r\height = y-r\y End Function Function drawRectangle(r.Rectangle) If isValidRectangle(r) ;draw inside Color 200, 0, 0 Rect r\x, r\y, r\width, r\height ;draw outline Color 0, 0, 0 Rect r\x, r\y, r\width, r\height, False EndIf End Function --v Also I didn't realise until I wrote the above code. Blitz doesn't do short-circuiting. If you changed the if statement above to: If lastRectangle = Null Or isValidRectangle(lastRectangle) lastRectangle = newRectangle(MouseX(), MouseY()) Else setRectangleWidth(lastRectangle, MouseX(), MouseY()) EndIf --v It no longer works because it runs the 'isValidRectangle' function if it's null, which it shouldn't. I cannot think of another language which doesn't allow short-circuiting.
Mon, 10 Sep 2007, 13:34
Hotshot	Yeah that it (the first one and I going check out the seconds one that u have post it) Diablos devil It is possible to show picture on here of what I am trying to do? what the link for uploading the pic? cheers
Mon, 10 Sep 2007, 13:44
Hotshot	Second one is very good but I try change the colors so I can see line when I drag the mouse down (when become square)....do u know what i mean? Like in Blitz 3D they have curors flashing as u know where is. When I move the mouse then when I want to click the mouse the square line is ready then I want drag it and it should show flashing rect then once I am happy it then I let my mouse button off then I go create another square or rectangle one...
Mon, 10 Sep 2007, 14:07
Forklift_Fred	You can use free image hosts like https://ImageShack.us or https://PaintedOver.com to post your pic here. ImageShack is widely used but can be slow. Both will give you a thumbnail and code to paste here. With ImageShack it is the second code, with PaintedOver it's the first. Wherever you host it, you'll need the code with [img]... rather than [img=...] Here's a random demonstration: [url=https://paintedover.com/uploads/show.php?loc=0735&f=33t_445.jpg][img]https://img0735.paintedover.com/uploads/thumbs/0735/33t_445.jpg[/img][/url] --v gives the following result: Not sure how to do the flashing rectangle in 3D though. -=-=- Come rain or shine...
Mon, 10 Sep 2007, 14:51
Hotshot	img208.imageshack.us/my.php?image=blockun3.png the flashing rect(on when I am draging the mouse on what size I want then once I am happy with it then I let the mouse button off) then create it. Hope that should explain
Wed, 12 Sep 2007, 16:04
Teasy	Version 1: single click twice AppTitle "Mouse Box Create (single click)" Graphics 400,300 , 0,3 HidePointer Const max = 100 Dim x1(max),y1(max) Dim x2(max),y2(max) Local x,y Local resize = False Local count Local which SetBuffer BackBuffer() Repeat x = MouseX() y = MouseY() ; create or resize new box (single click) If MouseHit( 1 ) If Not resize x1(count) = x y1(count) = y resize = True Else x2(count) = x y2(count) = y resize = False count = count + 1 EndIf EndIf ; draw existing boxes For which = 0 To count-1 Color 255,0,0 ; red SpecialRect x1(which),y1(which) , x2(which),y2(which) , False Color 255,255,0 ; yellow Text (x1(which)+x2(which))/2,(y1(which)+y2(which))/2 , which , True,True Next ; show new box to be created If resize Color 255,0,255 ; purple SpecialRect x1(count),y1(count) , x,y , False EndIf ; interface Color 255,255,255 ; white Text 0,0 , "Left mouse button: create/resize new box (single click)" Oval x-2,y-2 , 4,4 , True Flip Cls Until KeyHit( 1 ) End ; draws rect using 2 points, ; also if second point is above/left of first point Function SpecialRect( x1,y1 , x2,y2 , solid=True ) If x2 < x1 ; swap x1 = x1 Xor x2 x2 = x1 Xor x2 x1 = x1 Xor x2 EndIf If y2 < y1 ; swap y1 = y1 Xor y2 y2 = y1 Xor y2 y1 = y1 Xor y2 EndIf Rect x1,y1 , x2-x1,y2-y1 , solid End Function --v Version 2: click & drag AppTitle "Mouse Box Create (drag)" Graphics 400,300 , 0,3 HidePointer Const max = 100 Dim x1(max),y1(max) Dim x2(max),y2(max) Local x,y Local resize = False Local count Local which SetBuffer BackBuffer() Repeat x = MouseX() y = MouseY() ; create or resize new box (drag) If resize If Not MouseDown( 1 ) x2(count) = x y2(count) = y resize = False count = count + 1 EndIf Else If MouseHit( 1 ) x1(count) = x y1(count) = y resize = True EndIf EndIf ; draw existing boxes For which = 0 To count-1 Color 255,0,0 ; red SpecialRect x1(which),y1(which) , x2(which),y2(which) , False Color 255,255,0 ; yellow Text (x1(which)+x2(which))/2,(y1(which)+y2(which))/2 , which , True,True Next ; show new box to be created If resize Color 255,0,255 ; purple SpecialRect x1(count),y1(count) , x,y , False EndIf ; interface Color 255,255,255 ; white Text 0,0 , "Left mouse button: create/resize new box (drag)" Oval x-2,y-2 , 4,4 , True Flip Cls Until KeyHit( 1 ) End ; draws rect using 2 points, ; also if second point is above/left of first point Function SpecialRect( x1,y1 , x2,y2 , solid=True ) If x2 < x1 ; swap x1 = x1 Xor x2 x2 = x1 Xor x2 x1 = x1 Xor x2 EndIf If y2 < y1 ; swap y1 = y1 Xor y2 y2 = y1 Xor y2 y1 = y1 Xor y2 EndIf Rect x1,y1 , x2-x1,y2-y1 , solid End Function --v
Tue, 25 Sep 2007, 06:05
Hotshot	cheers vampire and everyone LOL