Minulla on tällainen todella typerä ongelma, tiedän... Jostain kumman syystä se pääsi kahteen If:iin vaikka ne ovat elseillä... Pääongelma, nyt ei juuri ollut se, anteeksi tuli pieni moka... siis se on se pääongelma XD, siis yritin, tehdä sellaista että se piirtää neliöitä, vain neljään suuntaan, tämä on niinsanotusti pohjaa tienrakentamiseen...
Code: Select all
Repeat
If MouseHit(1) And build_r = False Then
build_r = True
start_x_ = MouseWX()
start_y_ = MouseWY()
ClearMouse
EndIf
DrawGame
If build_r = True Then
road_angle = GetAngle(start_x_,start_y_,MouseWX(),MouseWY())
road_angle = WrapAngle(road_angle)
DrawToWorld ON
If road_angle < 45 Or road_angle > 315 Then
For x_ = start_x_ To MouseWX() Step 32
Color cbWhite
Box x_,start_y_,32,32,0
Next x_
ElseIf road_angle =< 315 Or road_angle > 225 Then
For y_ = start_y_ To MouseWY() Step -32
Color cbWhite
Box start_x_,y_,32,32,0
Next y_
ElseIf road_angle =< 225 Or road_angle > 135 Then
For x_ = start_x_ To MouseWX() Step -32
Color cbWhite
Box x_,start_y_,32,32,0
Next x_
ElseIf road_angle =< 135 Or road_angle > 45 Then
For y_ = start_y_ To MouseWY() Step 32
Color cbWhite
Box start_x_,y_,32,32,0
Next y_
EndIf
DrawToWorld OFF
EndIf
Text 0,0,road_angle
DrawScreen
Until EscapeKey()
Edit: Siis, se, että nuo neliöt menevät moneen suuntaan, eli ylös\alas että sivuille... vaikka kaiken järjen mukaan niin ei pitäisi käydä kun käyttää ElseIf:iä...