Author Topic: Commands for Axe  (Read 20090 times)

0 Members and 1 Guest are viewing this topic.

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #90 on: June 17, 2011, 09:56:58 am »
yeah, I was just making it (i made the test in Wabbit then had to make it in 8xp)
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #91 on: June 17, 2011, 10:35:53 am »
I think it would be better to delete everything after the
:For(U,1,N
.......
:End


(but not the pause and the fix)




But why are the circles opened at the right side?
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #92 on: June 17, 2011, 10:37:41 am »
I think it would be better to delete everything after the
:For(U,1,N
.......
:End

(but not the pause and the fix)
If you want, it is your prog, after all.

But why are the circles opened at the right side?
I think it is because of the displayed numbers, they erase the circle
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #93 on: June 17, 2011, 10:44:15 am »
But why?
The Text is not so large.
What can I do against it?
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #94 on: June 17, 2011, 10:53:53 am »
I think this is because of that. You can redraw the circles each time you write the text.
« Last Edit: June 17, 2011, 10:54:02 am by Hayleia »
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #95 on: June 17, 2011, 10:58:01 am »
ok.
i'll do it.
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #96 on: June 17, 2011, 10:59:39 am »
A little precision. You do
:Text(...
:Circle(...
:DispGraph
In this order, not the circle before the text, and not the DispGraph before the circle.
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #97 on: June 17, 2011, 11:00:40 am »
fix
Text
fix
circle
end
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #98 on: June 17, 2011, 11:04:15 am »
ah yeah, but no.
:...
:Fix
:Text
:Fix
:Circle
:DispGraph
:End
« Last Edit: June 17, 2011, 11:04:24 am by Hayleia »
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #99 on: June 17, 2011, 11:19:25 am »
How should I write
:Repeat getKey=105:End
in Axe code?
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #100 on: June 17, 2011, 11:48:00 am »
Got it to work ! See code and gif below !

How should I write
:Repeat getKey=105:End
in Axe code?
You do
:Repeat getkey(9)
:End
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #101 on: June 18, 2011, 05:28:47 am »
Now it's:
Code: [Select]
:.FORCEATT
:Fix 5
:ClrDraw
:Text(57,10,"DEF
:Text(57,75,"OFF
:Text(45,57,"p2
:Circle(15,47,10
:Circle(80,47,10
:Line(25,47,30,52
:Line(70,47,65,52
:Line(30,52,45,52
:Line(65,52,50,52
:Line:45,52,47,54
:Line(50,52,48,54
:Line(30,55,65,55
:Line(30,55,28,62
:Line(65,55,67,62
:Line(5,47,0,52
:Line(90,47,95,52
:DispGraph
:rand^100+1→F
:For(U,1,F
:If U≥0 and (U≤9)
:13→Q
:End
:If U≥10 and (U≤99)
:10→Q
:End
:If U>99
:7→Q
:End
:Fix 1
:Text(Q,44,U▶Dec
:Circle(15,47,10
:Line(25,47,30,52
:DispGraph
:Fix 0
:End
:rand^100+1→N
:For(U,1,N
:If U>99
:72→Q
:End
:If U≥0 and (U≤9)
:78→Q
:End
:If U≥10 and (U≤99)
:75→Q
:End
:Fix 1
:Text(Q,44,U▶Dec
:Circle(80,47,10
:Line(90,47,95,52
:DispGraph
:Fix 0
:End
:DispGraph
:Pause 25000
:Fix 4


German:
Code: [Select]
:.FORCEATT
:Fix 5
:LöscheBild
:Text(57,10,"DEF
:Text(57,75,"OFF
:Text(45,57,"p2
:Kreis(15,47,10
:Kreis(80,47,10
:Strecke(25,47,30,52
:Strecke(70,47,65,52
:Strecke(30,52,45,52
:Strecke(65,52,50,52
:Strecke(45,52,47,54
:Strecke(50,52,48,54
:Strecke(30,55,65,55
:Strecke(30,55,28,62
:Strecke(65,55,67,62
:Strecke(5,47,0,52
:Strecke(90,47,95,52
:Anz. Graf.
:Zufall^100+1→F
:For(U,1,F
:If U≥0 und (U≤9)
:13→Q
:End
:If U≥10 und (U≤99)
:10→Q
:End
:If U>99
:7→Q
:End
:Fix 1
:Text(Q,44,U▶Dez
:Kreis(15,47,10
:Strecke(25,47,30,52
:Anz. Graf.
:Fix 0
:End
:Zufall^100+1→N
:For(U,1,N
:If U>99
:72→Q
:End
:If U≥0 und (U≤9)
:78→Q
:End
:If U≥10 und (U≤99)
:75→Q
:End
:Fix 1
:Text(Q,44,U▶Dez
:Kreis(80,47,10
:Strecke(90,47,95,52
:Anz. Graf.
:Fix 0
:End
:Anz. Graf.
:Pause 25000
:Fix 4

All's perfect.
No bugs in it.
« Last Edit: June 18, 2011, 06:07:26 am by p2 »
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #102 on: June 18, 2011, 06:08:28 am »
Here is my new new code without the lines of the end !
Saves some bytes.
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline p2

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 848
  • Rating: +51/-11
  • I'm back :)
    • View Profile
Re: Commands for Axe
« Reply #103 on: June 18, 2011, 06:14:17 am »
It's looking like the bottom of a real card.  :)

This is an original Force-Attax Card.

« Last Edit: June 18, 2011, 06:31:16 am by p2 »
*insert supercool signature*

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Commands for Axe
« Reply #104 on: June 18, 2011, 06:37:39 am »
No,no,no,no !not 89,89 but 100,100 ! ;)
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s