First of all, proper indentation makes the code a lot easier to read for anybody (yourself included
).
function import()
hide mouse
multiplyimpob = 0
do
camstat()
camerasetup()
text 10,28,"" + str$(screen fps())
a# = get terrain ground height( 1, camera position x(0), camera position z(0) )
`Retain Object's Size
if object exist(obj) = 1
objsz = object size(obj)
endif
`Load Object First On Brushe's Size
if lockeditorfreecamera = 0
if multiplyimpob = 0
load object file$,obj
show object bounds obj,0
set shadow shading on obj,0,55,1
multiplyimpob = 1
ENDIF
ENDIF
if lockeditorfreecamera = 1
if multiplyimpob = 0
load object file$,obj
set shadow shading on obj,0,55,1
objcampos = objcampos + 1
if objcampos = 2
multiplyimpob = 1
ENDIF
ENDIF
ENDIF
if object exist(obj) = 1
oldangleobj = object angle y(obj)
ENDIF
if file exist(file$) = 1
OldPress = NewPress : NewPress = mouseclick() = 1
if multiplyimpob = 1
if NewPress = 0 ANd OldPress = 1
hide object bounds obj
inc obj
load object file$,obj
show object bounds obj,0
set object light obj,1
rotate object obj,0,oldangleobj,0
else
if mouseclick() = 2
multiplyimpob = 0
delete object obj
show mouse
exit
endif
endif
endif
endif
`Scale Object Uniformly
if object exist(obj) = 1
scalescroll = mousez()
if keystate(44) = 1 and keystate(45) = 1
scale object obj,scalescroll,scalescroll,scalescroll
endif
endif
if object exist(obj) = 1
rotobj = object angle y(obj)
if keystate(19) = 1
inc rotobj
rotate object obj,0,rotobj,0
endif
endif
if object exist(obj) = 1
if keystate(29) = 1
rotobj = object angle y(obj)
dec rotobj
rotate object obj,0,rotobj,0
endif
endif
if object exist(obj) = 1
x# = camera position x(0)
y# = a#
z# = camera position z(0)
position object obj,x#,y#,z#
endif
sync
loop
ENDFUNCTION
Second, "I tested it with the pick objects to tell me the object number and it says always 0." doesn't really make any sense to me. Could you go into a little more detail, or provide the code responsible for that?
I don't quite understand what exactly isn't working. Do you get an error message at any point? Or does it just not behave the way it's supposed to?
A few things I noticed in your code:
1. obj isn't initialized, so it may or may not start with the value 0 - this, however, would result in an error message as soon as you check object exist(obj), which seemingly is not the case? Which leads me to the conclusion that obj is possibly a global variable defined somewhere else? If so, bad idea. If not, I don't really know what's going on.
2. This block:
if file exist(file$) = 1
OldPress = NewPress : NewPress = mouseclick() = 1
if multiplyimpob = 1
if NewPress = 0 ANd OldPress = 1
hide object bounds obj
inc obj
load object file$,obj
show object bounds obj,0
set object light obj,1
rotate object obj,0,oldangleobj,0
else
if mouseclick() = 2
multiplyimpob = 0
delete object obj
show mouse
exit
endif
endif
endif
endif
I'm not sure what multiplyimpob does (the name doesn't really tell me much and there are no comments regarding the variable), but it seems as if the else part of the code has a problem - you delete the object on mouseclick() = 2 (not even checking whether it's a new press or the key is being pressed constantly - you did that for the LMB check, but not here), without checking if the object exists, and without resetting the obj variable. Hence, when pressing RMB for more than one frame (i.e. a few miliseconds), the program will probably crash
3. Just as obj, the file$ variable doesn't seem to be initialized anywhere
4. Not a problem, but kind of strange:
if object exist(obj) = 1
scalescroll = mousez()
if keystate(44) = 1 and keystate(45) = 1
scale object obj,scalescroll,scalescroll,scalescroll
endif
endif
if object exist(obj) = 1
rotobj = object angle y(obj)
if keystate(19) = 1
inc rotobj
rotate object obj,0,rotobj,0
endif
endif
if object exist(obj) = 1
if keystate(29) = 1
rotobj = object angle y(obj)
dec rotobj
rotate object obj,0,rotobj,0
endif
endif
if object exist(obj) = 1
x# = camera position x(0)
y# = a#
z# = camera position z(0)
position object obj,x#,y#,z#
endif
Is there a reason why you check the object's existence four times in this piece of code, instead of just once? Kind of peculiar.
Well, so much about that. Sorry if that didn't solve your problem, but I feel that's hardly possible without a few additional details.
IMPORTANT: I just visited your website. As soon as I loaded the Games site, it basically hijacked my browser, telling me something about "POLICE WARNING: YOUR SYSTEM HAS BEEN DEACTIVATED" and it didn't let me close the tab or opera. Had to shut it down using the task manager. Basically this seems to be a not too unusual kind of malware that I stumbled upon a few times throughout the last years - once even from my own webspace. Hence I assume you're just another victim and didn't know this problem exists. Check your site files (without opening the website itself), preferably all index.htm/html/php files and of course the once of your games section. If they have been changed recently without your knowledge, make sure to replace them with the respective files from your hard disk.
