Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Darl181

Pages: 1 ... 76 77 [78] 79 80 ... 253
1156
Axe / Re: Axe Q&A
« on: November 14, 2011, 02:53:10 pm »
[/pyramid] :P
Yes.

Returnr basically is an Emergency Exit, not quitting properly but suddenly, not doing cleanup or anything.  Think of it as a "last resort" or whatever.  Usually it's better to just use Return :)

EDIT: Iirc, for "Nested calls" think "subroutines".

1157
Other Calculators / Re: LogoMagic
« on: November 14, 2011, 10:46:28 am »
Quote from: jimbauwens on November 14, 2011, 12:56:26 am
@Darl, Michael
Why not give me the logo code, I'll try it on my calculator :D
Sure, why not.
In programming class we had a unit in MSWLogo, see if I can find the drive that I have the stuff saved on.
A few q's:
- Does it have the "Commander" (text I/O thing)
- Can it run the subroutines, or does it run the whole file?

I think this is the majority of the stuff I made, I'll need to find the old flash drive tho :P
Spoiler For WFRNG, diamonds, house, more random stuffs:
to boxes
repeat 5[
make "this repcount
repeat 4[
fd :this*10+20 rt 90
]]
end

to bush :size
repeat 12[squ :size rt 30]
end

to cent_square
pu fd 50 rt 90 pd fd 50
repeat 3[
rt 90 fd 100
]
rt 90 fd 50 rt 90 pu fd 50 rt 180 pd
end

to circle
repeat 180[fd 1 rt 2]
end

to corners
cs
repeat 4[
repeat 4[fd 10 lt 90]
fd 100 rt 90
]
end

to cus_square :size
repeat 4[fd :size rt 90]
end

to diamondR
make "position pos
repeat 2[fd 60 rt 60 fd 60 rt 120]
pu fd 10 rt 60 fd 10 lt 60 pd
repeat 2[fd 40 rt 60 fd 40 rt 120]
pu fd 10 rt 60 fd 10 lt 60 pd
repeat 2[fd 20 rt 60 fd 20 rt 120]
pu setpos :position pd
end

to flag
fd 60 rt 90
squ 20
rt 90 fd 60 rt 180
end

to flags
cs st
lt 45
flag
fd 20
lt 90
fd 20
rt 180
flag
end

to flower
repeat 3[
lt 30
repeat 3[
cent_square
]
]
lt 90
repeat 12[
fd 49 rt 180 fd 49 rt 210
]
fd 100 rt 60 tri 20 rt 180 tri 20 rt 120 fd 50
ht wait 60 st
end

to hello
cs rt 90
make "string [Hello world!]
label :string
end

to house
cs pd
rect 100 200
fd 100 lt 90 fd 20 rt 180
tri 240
lt 60 fd 40 lt 30 fd 100
lt 90 fd 5 rt 180
repeat 2[fd 40 lt 90 fd 10 lt 90]
fd 35 rt 90 fd 50
pu home ;#### outline is finished, start windows
fd 30 rt 90 fd 25 lt 90 pd windoww pu rt 90 fd 110 lt 90 pd windoww pu home ;bottom windows
fd 100 rt 90 fd 40 lt 90 pu fd 20
repeat 2[pd windoww fd 40 lt 90 fd 5 rt 180 tri 50 fd 5 rt 90 fd 40 lt 90 pu fd 80 lt 90]
pu home pd rt 90
;#### start bushes and door
fd 70 lt 90 fd 10
bush 10
rt 180 fd 10 lt 90 fd 5
lt 90
rect 75 50
rt 90 fd 55
lt 90 fd 10 bush 10 pu home pd
;#### house is finished
rt 90 fd 9001 home rt 180 pu fd 200 lt 90 pd fd 9001 pu home
pd rt 90 fd 75 rt 102 fd 205 pu home pd
rt 90 fd 125 rt 78 fd 205 pu home pd
;#### start tree
lt 90 fd 175 rt 90 fd 50 rt 25 fd 30 lt 90 pu fd 5 pd
lt 90 fd 30 rt 90 fd 20 seth 0 fd 20
pu lt 90 fd 5 lt 90 pd fd 23 lt 65 fd 20 seth 180 fd 49
rt 180 pu fd 85 pd rt 60
repeat 6[bush 20 fd 40 lt 60]
lt 60
fd 40
bush 40
ht
end

to kitty
cs rt 30
repeat 6[
tri 100 rt 60
]
tri 50 lt 120 tri 50
rt 60 fd 100 rt 30
rt 30
repeat 2[
fd 50 rt 120 fd 50 lt 120
]
end

to polygon :size :number
make "angle 360/:number
repeat :number[fd :size rt :angle]
end

to prisms
lt 30
repeat 3[
repeat 3[
tri 100
fd 100
]
rt 120
]
end

to rect :side1 :side2
repeat 2[fd :side1 rt 90 fd :side2 rt 90]
end

to rps ;rock paper scissors
cs
make "ai random 3
;w00t for finally counting from zero :P
seth 0 ht pu lt 90 fd 200 seth 90
label [0 is rock, 1 is paper, 2 is scissors]
wait 120
make "pc rw ;pc==player's choice
seth 180 fd 30 seth 90
if :pc=:ai [label [Same!] stop]
ifelse (or (and :pc=0 :ai=1) (and :pc=1 :ai=2) (and :pc=2 :ai=0)) [label [You lost (eht emag)!]] [label [You won!!!!!!1111!!!!!!!!!! 0.o]]
end

to signals
cs
repeat 2[
fd 30
rt 90
square
rt 90
fd 30
]
end

to squ :size
repeat 4[fd :size rt 90]
end

to square
repeat 4[fd 100 rt 90]
end

to star
setpensize [5 5]
setPC [150 150 0]
setFC [255 255 0]
pd cs
SETH 18
repeat 5[fd 50 rt 144 fd 50 lt 72]
pu rt 90 fd 20 fill
ht
end

to steps
cs
repeat 2[
repeat 4[
squ 20
fd 10 lt 90 fd 20 rt 90
]
repeat 4[
squ 20
rt 90 fd 20 lt 90 fd 10
]
fd 20 rt 90 fd 20 rt 90
]
end

to strings
repeat 30[
tri 150 tri 100 tri 50 rt 12
]
end

to tri :size
repeat 3[fd :size lt 120]
end

to triangle
repeat 3[fd 100 rt 120]
end

to WFRNG ;wacky fun random numbar generator
show [Nick Disabato's]
show [/<-3R33+ Number]
show [Guessing Program]
show []
show [Yes I'm really doing this for practice]
show [The Game]
show []
show [Choose a number]
show [1-30]
show [A=?]
make "numbar (random 1)+1
make "guess rw
If :guess>30 [print[Out of range!]]
If :guess<1 [print[Out of range!]]
Ifelse :guess=:numbar [print[Yes! Nick's]] [print[That's not it!]]
If :guess=:numbar [print[ticalc.org]]
If :guess=:numbar [print[password is]]
If :guess=:numbar [print[**********]]
End

to whee
pd
repeat 360[repeat 4[fd 10 rt 90]pu fd 20 rt 1 pd wait 1]
end

to windmill
cs
repeat 10[
flag
rt 36
]
end

to windoww
squ 40
rt 90 fd 20 pu lt 90 fd 20 pd
repeat 4[squ 15 rt 90]
pu bk 20 lt 90 fd 20 rt 90 pd
end

1158
Other Calculators / Re: LogoMagic
« on: November 13, 2011, 11:48:27 pm »
Logo can be fun, it gave me the idea for my old..um..logo :P (If I'm thinking about the right Logo that is)
Spoiler For img:

1159
Axe / Re: Axe Q&A
« on: November 13, 2011, 07:50:47 pm »
Quote from: Hayleia on November 13, 2011, 01:25:30 pm
Wait, I saw somewhere that we could quit the program with Returnr but it crashes when I try ???. I thought it might be because of CrabCake, but I don't know. Could it be ?
Quote from: Axe Docs
Returnr|Emergency exits the program from within any number of nested calls.
;)

Quote from: epic7 on November 13, 2011, 02:18:28 pm
What is the maximum program size? I'm at 7000 bytes now.
It's 8150-something if you're compiling for 'No Shell', 8811 otherwise.

1160
Other Calc-Related Projects and Ideas / Re: BBify your Z80, TI-BASIC, Axe, and Lua
« on: November 12, 2011, 05:37:35 pm »
Nvm, it was set as "Plain Text" :P

1161
Other Calc-Related Projects and Ideas / Re: BBify your Z80, TI-BASIC, Axe, and Lua
« on: November 12, 2011, 11:14:15 am »
...and now it's putting slashes between every token again x.x

1162
TI Z80 / Re: help with my mario shotgun game!
« on: November 11, 2011, 10:09:17 pm »
Hm, are you modifying B at any other part of the program?
In the code you posted, I'm not seeing anything that would add to B (making it move down) so there's something else methinks...

1163
Other / Re: What is your keyboard layout?
« on: November 11, 2011, 09:58:41 pm »
US layout, on steroids :P
Spoiler For Spoiler:

1164
TI Z80 / Re: Game Programming On Steroids
« on: November 11, 2011, 09:35:26 pm »
That was caused by wabbitemu failing while exporting files iirc.
Unless he's using a year-old version :P

I've been considering using Zedd for Essence, might make the enemies easier to manage (possibly among a new idea or two)..hmm.

1165
Humour and Jokes / Re: How We Help Non-Computer People
« on: November 11, 2011, 06:17:08 pm »
For some reason my mom is convinced that Omni is a "chat-line" or something...maybe I should start calling her sewing websites that XD

Also I just realized, in the comic there's no reference to F1 (it might be windows-exclusive but still)

1166
TI Z80 / Re: Swords
« on: November 11, 2011, 06:11:26 pm »
Quote from: parser padwan on November 11, 2011, 04:31:40 pm
somehow my src got corrupted, and it filled the entire source with Linereg(ax+b)
I thought that stopped happening...it hasn't happened to me since may or something 0.o

1167
Axe / Re: Axe Q&A
« on: November 11, 2011, 12:03:48 pm »
Do you have a tile that isn't anything (or is, say, floor)?
Say it's zero, and the map is 12*8 (typical 8*8-tile map) and stored row-by-row...
Spoiler For code:
.if you have number for tile instead of X,Y
.say number is N
N/12→Y
N-(Y*12)→X
.X and Y are # tiles counting from zero from the left/top edges respectively
.assuming it's 1 byte/tile
0→{Y*12+X+GDB#}
Ofc variables can be changed so they don't overwrite X and Y :P

1168
Miscellaneous / Re: What is your avatar?
« on: November 11, 2011, 11:19:06 am »

Hm it looks like it's just pixel art, would it be hard to just re-make?
EDIT: found this on a wiki http://images2.wikia.nocookie.net/__cb20110218162751/maplestory/images/7/7e/Balanced_Fury_Stars.png

1169
TI Z80 / Re: YAMGT
« on: November 11, 2011, 11:07:57 am »
Quote from: HOMER-16 on November 11, 2011, 09:48:31 am
It'd be cool if the bullets hit each other and deflected each other sort've like in Devil May Cry XD
I played around with that a bit while making Maxwell's Demon, it's quite the slowdown x.x

1170
Humour and Jokes / Re: Lost: The Game
« on: November 11, 2011, 12:53:17 am »
I played the "Game of Life" a few times, both the board game and the cellular automata :P

Pages: 1 ... 76 77 [78] 79 80 ... 253