NewsForumsCodeLogsGallerySpecsSearch

Blitzcc not working properly

Archives Forums/Blitz3D Bug Reports/Blitzcc not working properly

MathyDude(Posted 2013) [#1]
My blitz compiler isn't working.
The problem started whenever I tried the BlitzMax trial.
I'm guessing it may be the MAXide could have mixed up the blitzcc.exe, but I have no idea what to do.
Can someone please help?


MathyDude(Posted 2013) [#2]
Ps, whenever I run anything, even this:

Print "hi"
waitkey

It just opens a blank window, then immediately closes it.

Also, I did try to restore the blitz3d program,
and I tried using IDEal, and none of that worked...

PLEASE HELP!!!!!
I REALLY BADLY WANT TO PROGRAM MY ROBERT THE ROBOT GAME!!!


Yasha(Posted 2013) [#3]
Did you install the BlitzPlus free version? That might have taken over priority for .bb files and be working differently (it Prints to the command line, and WaitKey crashes if you haven't set a Graphics mode).


_PJ_(Posted 2013) [#4]
If Yasha's suggestions doesn't help
Is this in debug mode or not?
What OS are you running? If Windows Vista, 7 or 8 maybe there are UAC issues in writing to the Temporary location if you are not compiling bb files from a specific folder with user permissions to read/write.
I understand that virtualisation of the Program Files directory may result in the blitz compiler not being able to make use of the local folder


MathyDude(Posted 2013) [#5]
Actually, the program I ran was this:


[bbcode]
HidePointer()

Graphics 800,600,0,2
Text 0,0,"Loading..."
SeedRnd(MilliSecs())


Type Mouse

Field x#,y#,hp#,Image,F,sv1,sv2,sv3,ID$

End Type

Type missile

Field x#,y#,xT#,yT#,xv#,yv#,t#,Target_Id$

End Type




Function FindAngle(x1,y1,x2,y2)
x#=x2-x1 : y#=y2-y1 : z#=(x^2+y^2)^0.5
If y#=0 Then y#=0.1
If z#=0 Then z#=0.1
If x#=0 Then x#=0.1
Axx#=y#/z#
AXL=360-ASin(Axx#)
If x#<=0 Then AXL=180-axl
While axl<0
axl=axl+360
Wend
While axl>360
axl=axl-360
Wend
Return AXL
End Function

Function FindDistance(x1,y1,x2,y2)
x=x2-x1 : y=y2-y1 : axl=(x^2+y^2)^0.5
Return AXL
End Function
Rob_Image=LoadAnimImage("Rob_10_Frames.png",100,100,0,10)


.levelSewer

SetBuffer BackBuffer()

Text 0,0,"Loading..."

Flip
ch=LoadImage("C_h.png")
MidHandle ch
Build=LoadAnimImage("BuildRob_9_Frames_200by300ea.png",200,300,0,9)
Sewer_bg=LoadImage("Sewer_bground.png")
Sewer_fg=LoadImage("Sewer_fg.png")
Sewer_collide=LoadImage("Sewer_C.png")
Enrgy=LoadAnimImage("Energy_10_Frames.png",50,50,0,10)


Energy=700

rx=0
ry=0
x=10
y=230
yv#=0

e.Mouse=New Mouse

e\image=LoadAnimImage("Sewer_rat_4f.png",100,25,0,4)

e\x#=650

e\y#=420

e\hp#=30

e\ID="Ratty Rat: Jack"

e.Mouse=New Mouse

e\image=LoadAnimImage("Sewer_rat2_4f.png",100,25,0,4)

e\x#=1620

e\y#=380

e\hp#=30

e\ID="Ratty Rat: Mack"



While Not f>7
Cls
Delay 130
TileImage Sewer_bg,0,0
f=f+1
DrawImage Build,0,300,f
;If f=9 Then f=8
Flip
Wend

While Not KeyHit(1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Cls
If ry>1 Then y=122 : ry=0
TileImage Sewer_bg,rx/5,0
DrawImage Sewer_fg,rx,ry
Energy_f#=(Energy_f#+0.3) Mod 9
DrawImage enrgy,0,0,Energy_f#
f=2
DXX=DXX+1
If KeyDown(208) Then f=0
If (DXX Mod 40) < 20
If f=0 Then f=1
If f=3 Then f=4
If f=5 Then f=6
EndIf

If energy<700 Then Energy=energy+1

If energy<190 Then Color 255,energy,0
If energy>190 Then Color 190-energy+255,255,0
If energy>445 Then Color 0,255,energy-445



moving=0

If KeyDown(205)-KeyDown(203)=1

If Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*5,y,f,Sewer_collide,rx,ry,0)
moving=True : x=x+5 : y=y-3
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*4,y-1,f,Sewer_collide,rx,ry,0)
moving=True : x=x+4 : y=y-6
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*3,y-2,f,Sewer_collide,rx,ry,0)
moving=True : x=x+3 : y=y-9
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*2,y-3,f,Sewer_collide,rx,ry,0)
moving=True : x=x+2 : y=y-12
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*1,y-4,f,Sewer_collide,rx,ry,0)
moving=True : x=x+1 : y=y-20
Else moving=0
EndIf
If moving And (KeyDown(205)-KeyDown(203))=-1 Then f=5
If moving And (KeyDown(205)-KeyDown(203))=1 Then f=3
EndIf








If KeyDown(205)-KeyDown(203)=-1

If Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*5,y,f,Sewer_collide,rx,ry,0)
moving=True : x=x-5 : y=y-3
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*4,y-1,f,Sewer_collide,rx,ry,0)
moving=True : x=x-4 : y=y-6
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*3,y-2,f,Sewer_collide,rx,ry,0)
moving=True : x=x-3 : y=y-9
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*2,y-3,f,Sewer_collide,rx,ry,0)
moving=True : x=x-2 : y=y-12
ElseIf Not ImagesCollide(Rob_image,x+(KeyDown(205)-KeyDown(203))*1,y-4,f,Sewer_collide,rx,ry,0)
moving=True : x=x-1 : y=y-20
Else moving=0
EndIf
If moving And (KeyDown(205)-KeyDown(203))=-1 Then f=5
If moving And (KeyDown(205)-KeyDown(203))=1 Then f=3
EndIf









If KeyDown(200) And energy>50 Then energy=energy-8 : yv#=yv#-0.5 : f=9
If Not ImagesCollide(Rob_image,x,y,f,Sewer_collide,rx,ry,0) Then yv#=yv#+0.3
If ImagesCollide(Rob_image,x,y,f,Sewer_collide,rx,ry,0) And yv#>0 Then yv#=-yv#+2*yv#/3 : y=y-3
y=y+yv#
Rect 50,50,energy,10

If x<30 And rx>-10 Then rx=5 : x=31
If x<30 And rx<-10
rx=rx+4 : x=x+4
For m.mouse=Each Mouse
m\x=m\x+4
Next
For mi.missile=Each missile
mi\x=mi\x+4
Next



EndIf
If x>GraphicsWidth()-300 And rx<ImageWidth(Sewer_fg)-GraphicsWidth()
rx=rx-4 : x=x-4
For m.mouse=Each Mouse
m\x=m\x-4
Next


For mi.missile=Each missile
mi\x=mi\x-4
Next
EndIf


If y<100
y=y+2 : ry=ry+2
For mi.missile=Each missile
mi\x=mi\y+2
Next


For m.mouse=Each Mouse
m\y=m\y+2
Next
EndIf
If y>300
y=y-2 : ry=ry-2
For mi.missile=Each missile
mi\y=mi\y-2
Next


For m.mouse=Each Mouse
m\y=m\y-2
Next
EndIf
If rx>ImageWidth(Sewer_fg)-GraphicsWidth() Then rx=ImageWidth(Sewer_fg)-GraphicsWidth()

ClosestId$="NULL"
ClosestDist=0

If leftshoot Then leftshoot=leftshoot-1 : f=8
If rightshoot Then rightshoot=rightshoot-1 : f=7


For mi.missile=Each missile
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;miss
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;issi
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ssil
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;sile
mi\t=mi\t-1
For m.mouse=Each Mouse
If m\ID$=mi\Target_ID$ Then mi\xt#=m\x+50 : mi\yt#=m\y+12
If ImagesCollide(enrgy,mi\x#,mi\y#,0,m\image,m\x#,m\y#,m\f) Then m\hp#=m\hp#-3 : mi\t=mi\t-50
Next

DrawImage ch,mi\xt#,mi\yt#

mi\xv#=mi\xv#+0.3
If mi\x#>mi\xT# Then mi\xv#=mi\xv#-0.6
mi\yv#=mi\yv#+0.3
If mi\y#>mi\yT# Then mi\yv#=mi\yv#-0.6

If mi\xv#> FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9 Then mi\xv#= FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9
If mi\yv#> FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9 Then mi\yv#= FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9
If mi\xv#<-FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9 Then mi\xv#=-FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9
If mi\yv#<-FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9 Then mi\yv#=-FindDistance(mi\x#,mi\y#,mi\xt#,mi\yt#)/9

If mi\xv#> 5 Then mi\xv#= 5
If mi\yv#> 5 Then mi\yv#= 5
If mi\xv#<-5 Then mi\xv#=-5
If mi\yv#<-5 Then mi\yv#=-5


mi\x#=mi\x#+mi\xv#

mi\y#=mi\y#+mi\yv#

Rect mi\x#-2,mi\y#-2,4,4


If mi\t<1 Then Delete mi

Next


If MouseHit(1) Or KeyHit(57)

f=8

If MouseX()>x+50 Then f=7

If f=8 Then leftShoot=20
If f=7 Then rightShoot=20

Energy=energy-55

mi.missile=New missile
mi\t=300
mi\x#=x
If f=7 Then mi\x#=mi\x#+100
mi\y#=y+50
mi\xt#=MouseX()
mi\yt#=MouseY()
mi\xv#=Sin(FindAngle(MI\X#,MI\Y#,MI\XT#,MI\YT#))
mi\Yv#=Cos(FindAngle(MI\X#,MI\Y#,MI\XT#,MI\YT#))

Line mi\x#,mi\y#,MouseX(),MouseY()

For m.mouse=Each Mouse
If FindDistance(m\x+50,m\y+10,MouseX(),MouseY())<70 And FindDistance(m\x+50,m\y+10,MouseX(),MouseY())<closestDist Then closestDist=FindDistance(m\x+50,m\y+10,MouseX(),MouseY()) : closestId$=m\ID$
Next

mi\Target_ID$=ClosestID$

EndIf




DrawImage Rob_image,x,y,f

For e.mouse=Each Mouse
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If e\x>-ImageWidth(e\image) And e\x<GraphicsWidth() And e\y>-100 And e\y<GraphicsHeight()
e\f=2
If e\x>x Then e\f=0
If FindDistance(x+50,y+50,e\x,e\y)<220 And e\sv1<1 And sv2<1 And sv3<1 Then e\x=e\x+Sin(FindAngle(e\x,e\y,x,y)+90)*3 : e\y=e\y+Cos(FindAngle(e\x,e\y,x,y)+90)*3 : e\f=e\f+1
If ImagesCollide(e\image,e\x,e\y,1,rob_image,x,y,0)

If f>1 Then energy=energy-2 : DrawImage Enrgy,e\x+50+Rnd(-13,13),e\y+10+Rnd(-3,3),Rnd(8)

If f<2 Then e\x=e\x+Cos(FindAngle(e\x,e\y,x,y)+90)*90 : e\y=e\y+Sin(FindAngle(e\x,e\y,x,y)+90)*30

EndIf
DrawImage e\image,e\x,e\y,e\f
If e\hp<1 Then Delete e
EndIf

Next

If ImageRectCollide(rob_image,x-rx,y-ry,f,3800,650,200,200) And KeyDown(208) Then Goto BeatSewer

If y>700 Or energy<10

For m.mouse=Each Mouse : Delete m : Next


For mi.missile=Each missile : Delete mi : Next

Goto levelSewer
EndIf


If KeyHit(19)



For m.mouse=Each Mouse : Delete m : Next


For mi.missile=Each missile : Delete mi : Next



Delay 520
Color 0,0,0
Rect 0,0,GraphicsWidth(),GraphicsHeight()/3
Text GraphicsWidth()/2,GraphicsHeight()/3+13,"Reseting",True,True
Flip
Delay 520
Rect 0,0,GraphicsWidth(),2*GraphicsHeight()/3
Text GraphicsWidth()/2,2*GraphicsHeight()/3+13,"Reseting",True,True
Flip
Delay 520
Rect 0,0,GraphicsWidth(),GraphicsHeight()
Flip
Goto levelSewer





EndIf





DrawImage ch,MouseX(),MouseY()


Flip

Wend

End

.BeatSewer




While Not KeyHit(57)

For m.mouse=Each Mouse : Delete m : Next


For mi.missile=Each missile : Delete mi : Next

TileImage Sewer_bg,rx/5,0

DrawImage Sewer_fg,rx,ry

Text x,y,"Press Space to go to the next level"

Flip

Wend

End
;~IDEal Editor Parameters:
;~C#Blitz3D
[/bbcode]

Its pretty much spaghetti code, but it worked, and it doesn't now.
(ps no I didn't alter the code.)
Im going to remake all of the programming in this once I get B3D working.


RemiD(Posted 2013) [#6]
Try to install Blitz3d in another directory than C:/Program files (x86)/

For example :
C:/Progs/Blitz3d/

Then give the Blitz3D.exe administrator rights.

Maybe it can help.


MathyDude(Posted 2013) [#7]
Rats, it didn't work...


Floyd(Posted 2013) [#8]
I don't have any trouble, running Blitz3d 1.106 on Windows 7 64-bit.

Blitz is 32-bit so it is installed in "\Program Files (x86)".
I have compatibility set to Windows XP Service Pack 3.
Privilege level is "Run this program as administrator".

If you can't get it going you might try an older version of Blitz3D.
And if it really started as a result of trying BlitzMax you might try System Restore to go back to a time when Blitz3D worked.


MathyDude(Posted 2013) [#9]
I did the system restore, and it didn't work. Could a moderator please give me a different B3D Registration code? I can't get my old account back, because I have a different e-mail address... :[


Floyd(Posted 2013) [#10]
You will have to contact customer support via the Contact link at the top of this page. That will almost certainly be somebody in the UK. It's almost midnight there so don't expect an immediate response.

Are you saying you have forgotten your old username and/or password? You might need some kind of sales info to verify your identity. It depends on how trusting they are.

But in any case customer support is the place to start.


MathyDude(Posted 2013) [#11]
Thanks, ill do that


Abrexxes(Posted 2013) [#12]
HIDEPOINTER you must use AFTER the Graphics mode.
Graphics 800,600,0,2
HidePointer()



MathyDude(Posted 2014) [#13]
I FOUND OUT HOW TO FIX IT
All people with crashed blitzcc
Create a new user account, then download BB!


Canana(Posted 2016) [#14]
haha my old signature. how ironic, i didnt remember my username and nick...now Im canana