House Creator

A forum where you can announce your awesome project(s).

Moderator: MaxCoderz Staff

Post Reply
User avatar
kalan_vod
Calc King
Posts: 2932
Joined: Sat 18 Dec, 2004 6:46 am
Contact:
Contact kalan_vod

Post by kalan_vod »

Or one of pokemons...
Top
threefingeredguy
Calc King
Posts: 2195
Joined: Sun 27 Mar, 2005 4:06 am
Location: sleeping
Contact:
Contact threefingeredguy

Post by threefingeredguy »

I've got fishing too.
Image
Top
User avatar
dysfunction
Calc Master
Posts: 1454
Joined: Wed 22 Dec, 2004 3:07 am
Location: Through the Aura

Post by dysfunction »

Oh sorry, I haven't really played Animal Crossing, due to my not having bought a Nintendo product in 10 years.
Image


"You're very clever, young man, but it's turtles all the way down!"
Top
necro
Calc King
Posts: 1619
Joined: Sat 26 Mar, 2005 2:45 am
Location: your shadow

Post by necro »

side view fishing with real time fishy AIs??!!
Top
threefingeredguy
Calc King
Posts: 2195
Joined: Sun 27 Mar, 2005 4:06 am
Location: sleeping
Contact:
Contact threefingeredguy

Post by threefingeredguy »

Yes, but this topic is not for AC discussion.
Image
Top
User avatar
Dragonwarrior333
Regular Member
Posts: 121
Joined: Sat 19 Mar, 2005 1:59 pm

Post by Dragonwarrior333 »

Here is the code for the intro its horrible and the secret gets spoiled but here it is:

Intro

:ClrDraw:0N
:0Xmin
:94Xmax
:0Ymin
:62YMax
:AxesOff
:Horizontal(0
:Horizontal(62
:Vertical 0
:Vertical 94
:For(A,0,30
:Line(30,A,60,A
:End
:For(A,1,15
:Line(40,A,50,A,0
:End
:0X
:For(A,25,37
:Line(20+X,A,70-X,A
:X+2X
:End
:For(X,1,40
:Text(1,X," HOUSE CREATOR"
:End
:For(X,1,60
:Text(8,X," BY:"
:End
:For(X,1,40
:Text(15,X," Dwarrior333"
:End
:Repeat Ans
:getKey
:End
:If Ans=62
:Then
:Repeat Ans
:getKey
:End
:If Ans=72
:Then
:Repeat Ans
:getKey
:End
:If Ans=52
:Then
:1N:1A
:Disp "SECRET FOUND!"
:Pause
:Goto 1
:End
:End
:End
:1A
:Lbl 1
:For(X,62,40,-1
:Line(1,X,30,X
:If X61
:Line(1,X+1,29,X+1,0
:End
:If A=1
:Then
:Text(3,10,"New"
:Text(13,10,"Load"
:End
:If A=2
:Then
:Text(3,10,"Floor"
:Text(13,10,"Rug"
:End
:3X
:While 1
:Text(X,3,"-"
:getKey
:If Ans=25 or Ans=34
:Text(X,2,"
:If Ans=25
:X-10X
:If Ans=34
:X+10X
:If X0
:13X
:If X23
:3X
:If Ans=21 and X=3 and A=1
:Then
:2A
:Goto 1
:End
:If Ans=21 and X=13 and A=1
:Then
:prgmOPT
:End
:If Ans=21 and X=13 and A=2
:Then
:10F
:{16,24}dim([A]:Fill F,[A]
:prgmOPT
:End
:If Ans=21 and X=3 and A=2
:Then
:0F
:{16,24}dim([A]:Fill F,[A]
:prgmOPT
:End
:End

Here is the main Program OPT:

:AxesOff
:ClrDraw
:1P
:FnOff
:0X:0Y
:0S:0T
:24W:16H
:Lbl M
:{2:Asm(prgmXLIB
:{4,S,T,W,H,1:Asm(prgmXLIB
:{3,X,Y,P,1:Asm(prgmXLIB
:Lbl K
:getKeyK
:If K=0:Goto K
:If K=11 and N
:P
:If K=12 and N
:ZP
:If K=13 and N
:VP
:If K=14 and N
:UP
:If K=15 and N
:nP
:If K=25
:Then
:If Y=0 and T0
:Then
:If [A]((Y/8)+T,(X/8)+S+1)F:Y+8Y
:If T>0:T-1T
:Goto M
:End
:If Y0
:Y-8Y
:Goto M
:End
:If K=34
:Then
:If Y=56
:Then
:If [A]((Y/8)+T+2,(X/8)+S+1)F:Y-8Y
:If T+8T
:Goto M
:End
:If Y56
:Y+8Y
:Goto M
:End
:If K=24
:Then
:If X=0 and S0
:Then
:If [A]((Y/8)+T+1,(X/8)+S)F:X+8X
:If S>0:S-1S
:Goto M
:End
:If X0
:X-8X
:Goto M
:End
:If K=26
:Then
:If X=88
:Then
:If [A]((Y/8)+T+1,(X/8)+S+2)F:X-8X
:If S+12S
:Goto M
:End
:X+8X
:Goto M
:End
:If K=45
:Then
:{1:Asm(prgmXLIB
:Disp
:Stop
:End
:If K=31
:Then
:{X,Y}L1
:prgmOPIC
:L1(1)X
:L1(2)Y
:Goto M
:End
:If K=21
:Then
:If P1
:P[A]((Y/8)+(T+1),(X/8)+(S+1))
:Goto M
:End
:If K=23 and P=1:Then
:F[A]((Y/8)+(T+1),(X/8)+(S+1))
:Goto M
:End

And here is the sprite chooser OPIC:

:0C:0D:7E
:7G
:Lbl 1
:If C<0:56C
:If D<0:88D
:If C>56:0C
:If D>88:0D
:If C>48:6G
:If D>87:6E
:If C<48:7G
:If D<87:7E
:ClrDraw
:3X
:RecallPic 0
:real(20,0,32,24,8,8,D,C
:C/8*12+(D/8)P
:While 1
:getKey
:If Ans=24
:Then
:D-8D
:Goto 1
:End
:If Ans=25
:Then
:C-8C
:Goto 1
:End
:If Ans=26
:Then
:D+8D
:Goto 1
:End
:If Ans=34
:Then
:C+8C
:Goto 1
:End
:If Ans=45
:Return
:If Ans=21
:Return
:If Ans=11
:P
:If Ans=12
:PZ
:If Ans=13
:PV
:If Ans=14
:PU
:If Ans=15
:Pn

The site dosnt give the -> symbol so if there is two vars next to eachother then it probably meas "->" (store) and the theta isnt ther so if there is just a random var then it probably is store theta. I no its confusing

I wrote this a while ago and my BASIC has improved but i just hate optimizing code :)
Top
User avatar
kalan_vod
Calc King
Posts: 2932
Joined: Sat 18 Dec, 2004 6:46 am
Contact:
Contact kalan_vod

Post by kalan_vod »

Ok first off there is a online program which will do the code for you here. And then there is A LOT of memory leaks in there, ie when you have a goto in a if statement or loop (like If A=1:Then:1->S:Goto 1:End) that would give one memory leak. Also using so many gotos in there isn't a good thing, you might want to restructor your code. If you use the program above and post the code I will help on optimizations, but atm I am a little busy/its hard to work with no -> and stuff like that :P.
Top
User avatar
Dragonwarrior333
Regular Member
Posts: 121
Joined: Sat 19 Mar, 2005 1:59 pm

Post by Dragonwarrior333 »

I was thinking of using Kerm's "file decoder thingy" Rolling Eyes to see my code because I hate to look at code on calc to see if I can optimize it more.
Thats what I was talking about and it's what I used before, but here is the bbc code of the Intro
BASIC Code wrote::ClrDraw:0ImageN
:0ImageXmin
:94ImageXmax
:0ImageYmin
:62ImageYMax
:AxesOff
:Horizontal(0
:Horizontal(62
:Vertical 0
:Vertical 94
:For(A,0,30
:Line(30,A,60,A
:End
:For(A,1,15
:Line(40,A,50,A,0
:End
:0ImageX
:For(A,25,37
:Line(20+X,A,70-X,A
:X+2ImageX
:End
:For(X,1,40
:Text(1,X," HOUSE CREATOR"
:End
:For(X,1,60
:Text(8,X," BY:"
:End
:For(X,1,40
:Text(15,X," Dwarrior333"
:End
:Repeat Ans
:getKey
:End
:If Ans=62
:Then
:Repeat Ans
:getKey
:End
:If Ans=72
:Then
:Repeat Ans
:getKey
:End
:If Ans=52
:Then
:1ImageN:1ImageA
:Disp "SECRET FOUND!"
:Pause
:Goto 1
:End
:End
:End
:1ImageA
:Lbl 1
:For(X,62,40,(-)1
:Line(1,X,30,X
:If XImage61
:Line(1,X+1,29,X+1,0
:End
:If A=1
:Then
:Text(3,10,"New"
:Text(13,10,"Load"
:End
:If A=2
:Then
:Text(3,10,"Floor"
:Text(13,10,"Rug"
:End
:3ImageX
:While 1
:Text(X,3,"-"
:getKey
:If Ans=25 or Ans=34
:Text(X,2,"
:If Ans=25
:X-10ImageX
:If Ans=34
:X+10ImageX
:If XImage0
:13ImageX
:If XImage23
:3ImageX
:If Ans=21 and X=3 and A=1
:Then
:2ImageA
:Goto 1
:End
:If Ans=21 and X=13 and A=1
:Then
:prgmOPT
:End
:If Ans=21 and X=13 and A=2
:Then
:10ImageF
:{16,24}Imagedim([A]:Fill F,[A]
:prgmOPT
:End
:If Ans=21 and X=3 and A=2
:Then
:0ImageF
:{16,24}Imagedim([A]:Fill F,[A]
:prgmOPT
:End
:End
Generated by SourceCoder, © 2005 Cemetech
Here is the main program:
BASIC Code wrote::AxesOff
:ClrDraw
:1ImageP
:FnOff
:0ImageX:0ImageY
:0ImageS:0ImageT
:24ImageW:16ImageH
:Lbl M
:{2:Asm(prgmXLIB
:{4,S,T,W,H,1:Asm(prgmXLIB
:{3,X,Y,P,1:Asm(prgmXLIB
:Lbl K
:getKeyImageK
:If K=0:Goto K
:If K=11 and N
:ImageImageP
:If K=12 and N
:ZImageP
:If K=13 and N
:VImageP
:If K=14 and N
:UImageP
:If K=15 and N
:nImageP
:If K=25
:Then
:If Y=0 and TImage0
:Then
:If [A]((Y/8)+T,(X/8)+S+1)ImageF:Y+8ImageY
:If T>0:T-1ImageT
:Goto M
:End
:If YImage0
:Y-8ImageY
:Goto M
:End
:If K=34
:Then
:If Y=56
:Then
:If [A]((Y/8)+T+2,(X/8)+S+1)ImageF:Y-8ImageY
:If T+8<H:T+1ImageT
:Goto M
:End
:If YImage56
:Y+8ImageY
:Goto M
:End
:If K=24
:Then
:If X=0 and SImage0
:Then
:If [A]((Y/8)+T+1,(X/8)+S)ImageF:X+8ImageX
:If S>0:S-1ImageS
:Goto M
:End
:If XImage0
:X-8ImageX
:Goto M
:End
:If K=26
:Then
:If X=88
:Then
:If [A]((Y/8)+T+1,(X/8)+S+2)ImageF:X-8ImageX
:If S+12<W:S+1ImageS
:Goto M
:End
:X+8ImageX
:Goto M
:End
:If K=45
:Then
:{1:Asm(prgmXLIB
:Disp
:Stop
:End
:If K=31
:Then
:{X,Y}ImageL[size=0]1[/size]
:prgmOPIC
:L[size=0]1[/size](1)ImageX
:L[size=0]1[/size](2)ImageY
:Goto M
:End
:If K=21
:Then
:If PImage1
:PImage[A]((Y/8)+(T+1),(X/8)+(S+1))
:Goto M
:End
:If K=23 and P=1:Then
:FImage[A]((Y/8)+(T+1),(X/8)+(S+1))
:Goto M
:End
:
Generated by SourceCoder, © 2005 Cemetech
Here is the Picture:
BASIC Code wrote::0ImageC:0ImageD:7ImageE
:7ImageG
:Lbl 1
:If C<0:56ImageC
:If D<0:88ImageD
:If C>56:0ImageC
:If D>88:0ImageD
:If C>48:6ImageG
:If D>87:6ImageE
:If C<48:7ImageG
:If D<87:7ImageE
:ClrDraw
:3ImageX
:RecallPic 0
:real(20,0,32,24,8,8,D,C
:C/8*12+(D/8)ImageP
:While 1
:getKey
:If Ans=24
:Then
:D-8ImageD
:Goto 1
:End
:If Ans=25
:Then
:C-8ImageC
:Goto 1
:End
:If Ans=26
:Then
:D+8ImageD
:Goto 1
:End
:If Ans=34
:Then
:C+8ImageC
:Goto 1
:End
:If Ans=45
:Return
:If Ans=21
:Return
:If Ans=11
:PImageImage
:If Ans=12
:PImageZ
:If Ans=13
:PImageV
:If Ans=14
:PImageU
:If Ans=15
:PImagen
Generated by SourceCoder, © 2005 Cemetech
Sorry before I didn't click on BBC.

I know there are memory leaks but I didn't know about them before so I made alot of mistakes. :(
Top
User avatar
Dragonwarrior333
Regular Member
Posts: 121
Joined: Sat 19 Mar, 2005 1:59 pm

Post by Dragonwarrior333 »

Sorry for the double post in advance but my previous post was very long and I did not want to make it any longer :x

I might not continue with this project on account of that the version of X lib out and that the one I used is outdated and that there are BASIC tile mappers running faster :roll: lol

I have been working on some other projects and i might post a few scrennies up because I am bored and don't want to start another thread.
Top
User avatar
kalan_vod
Calc King
Posts: 2932
Joined: Sat 18 Dec, 2004 6:46 am
Contact:
Contact kalan_vod

Post by kalan_vod »

Sorry to hear, though you could update it with the new xlib.
Top
Post Reply

Return to “Announce Your Projects”