Author Topic: Map Editor Code  (Read 5510 times)

0 Members and 1 Guest are viewing this topic.

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6233
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Map Editor Code
« Reply #15 on: June 22, 2009, 09:00:17 pm »
go search up a irc app for it, Ti-newb, I would appreciate it if you stayed on topic, if you want to get replies about this on the forum, make another topic
thanks
/e

Offline noahbaby94

  • LV7 Elite (Next: 700)
  • *******
  • Posts: 585
  • Rating: +29/-24
    • View Profile
    • My blog
Re: Map Editor Code
« Reply #16 on: July 13, 2009, 04:06:17 pm »
I'd like to see it. I've tried to make one but I sometimes run into issues.
That's what she said!!!

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6233
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Map Editor Code
« Reply #17 on: July 16, 2009, 01:38:36 pm »
ah, ok, I'll post the code and a new screenshot in a little bit, wait for the edit
EDIT: ok here is the screenshot, I'll get the code soon
EDIT2:ok here is the code
Code: [Select]
:AxesOff
:SetUpEditor
:{X,Y,V,I→L2
:{16,22→dim([A]
:[A]→[B]
:DelVar SDelVar CDelVar DDelVar GDelVar LDelVar MDelVar J
:4→A:6→B
:real(0,0
:Repeat K=15
:real(2,1,C,D,22,16,0,12,0,12,13,0,8,0
:If J and Z and C<L2(1) and D<L2(2
:Then
:identity(5,"FFC3A59999A5C3FF",8(L2(1)-C)-8,8(L2(2)-D)-8,1,8,0,0,0
:End
:If M and dim(L4
:Then
:For(θ,1,dim(L4),4)
:If L4(θ+2)>C and D<L4(θ+3
:real(1,8(L4(θ+2)-C)-8,8(L4(θ+3)-D)-8,1,8,13,L4(θ),8L4(θ+1),0,0,0
:End:End
:real(12,5,8B-9,8A-9,8B,8A,0
:real(12,2,8B-9,8A-9,8B-9,8A-9,0
:real(12,2,8B,8A,8B,8A,0
:real(12,2,8B,8A-9,8B,8A-9,0
:real(12,2,8B-9,8A,8B-9,8A,0
:If L
:Then
:Text(0,0,"(",B+C,",",A+D,")
:Text(6,0,"(",S,"/",[A](A+D,B+C),")
:Text(12,0,"Events:
:Text(18,0,"Enemy:
:If M:Then
:Text(12,24,"on
:Else
:Text(12,24,"off
:End
:If J:Then
:Text(18,24,"on
:Else
:Text(18,24,"off
:End:End
:real(6
:If K=21 or G:Then:[B]→[A]:Else:[A]→[B]:End
:Repeat Ans
:getKey:End
:Ans→K
:If K=45:Then
:Fill 0,[A]
:[A]→[B]
:Else
:If K=23:Then
:0→[A](A+D,B+C
:Else
:If K=83:Then
:0→C:0→D
:Else
:If K=41:Then
:1→X:1→Y
:Repeat K=21 or K=15
:real(3,13,0,0
:Repeat Ans
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:getKey:End:Ans→K
:X+(K=26 and X≠12)-(X and K=24→X
:Y+(K=34 and Y≠8)-(K=25 and Y→Y
:End
:If Y=8 and (X=12 or X=4
:Then
:Input "TEXT:",Str2
:If X=4:Str2→Str8
:If X=12:Str2→Str9
:End
:If K=21:Then
:X-1→L4(1+dim(L4
:Y-1→L4(1+dim(L4
:B+C→L4(1+dim(L4
:A+D→L4(1+dim(L4
:End
:DelVar K
:Else
:If K=44:Then
:0→dim(L4
:Else
:If K=51:Then
:{B+C,A+D→L2
:Input "DIRECTION: ",Z
:Input "HEALTH: ",R
:End:End:End:End:End:End
:J-(K=13 and J)+(K=13 and not(J→J
:M-(K=12 and M)+(K=12 and not(M→M
:G-(K=31 and G)+(K=31 and not(G→G
:L-(K=11 and L)+(K=11 and not(L→L
:A+(K=34 and A≠8)-(25=K and A≠1→A
:B+(B≠12 and K=26)-(K=24 and B≠1→B
:C+(K=84 and C<10)-(K=82 and C→C
:D+(K=93 and D<8)-(K=73 and D→D
:S+(K=95 and S≠100)-(K=85 and S→S
:S→[B](A+D,B+C
:End
:DelVar [B]
:ClrDraw
:"00000000000000000000000000000000000000000000→Str1
:Text(6,0,"TILES CONVERTED...
:getKey
:For(A,1,16)
:For(B,1,22)
:If getKey=15:Then
:16→A
:22→B
:End
:Text(0,0,22A+B,"/",374
:1+[A](A,B→S
:Str1+sub("000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F",2S-1,2→Str1
:End
:End
:Str1→Str2
:det(17,Str1→Str1
:real(0,1
:Str2
:DelVar Str2
:L2(1→X
:L2(2→Y
:ClrHome
« Last Edit: July 16, 2009, 01:45:15 pm by Eeems »
/e

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6233
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Map Editor Code
« Reply #18 on: July 21, 2009, 02:54:20 pm »
ok, I updated the code again, now you don't have to scroll through all the tiles to reach one, you can now just press [trace] and you can then select the right tile like when you are selecting an event.
Code: [Select]
:AxesOff
:SetUpEditor
:rand(3
:If getKey=15:Goto 1
:{X,Y,V,I→L2
:{16,22→dim([A]
:[A]→[B]
:DelVar SDelVar CDelVar DDelVar GDelVar LDelVar MDelVar J
:4→A:6→B
:real(0,0
:Repeat K=15
:real(2,1,C,D,22,16,0,12,0,12,13,0,8,0
:If J and Z and C<L2(1) and D<L2(2
:Then
:identity(5,"FFC3A59999A5C3FF",8(L2(1)-C)-8,8(L2(2)-D)-8,1,8,0,0,0
:End
:If M and dim(L4
:Then
:For(θ,1,dim(L4),4)
:If L4(θ+2)>C and D<L4(θ+3
:real(1,8(L4(θ+2)-C)-8,8(L4(θ+3)-D)-8,1,8,13,L4(θ),8L4(θ+1),0,0,0
:End:End
:real(12,5,8B-9,8A-9,8B,8A,0
:real(12,2,8B-9,8A-9,8B-9,8A-9,0
:real(12,2,8B,8A,8B,8A,0
:real(12,2,8B,8A-9,8B,8A-9,0
:real(12,2,8B-9,8A,8B-9,8A,0
:If L
:Then
:Text(0,0,"(",B+C,",",A+D,")
:Text(6,0,"(",S,"/",[A](A+D,B+C),")
:Text(12,0,"Events:
:Text(18,0,"Enemy:
:If M:Then
:Text(12,24,"on
:Else
:Text(12,24,"off
:End
:If J:Then
:Text(18,24,"on
:Else
:Text(18,24,"off
:End:End
:real(6
:If K=21 or G:Then:[B]→[A]:Else:[A]→[B]:End
:Repeat Ans
:getKey:End
:Ans→K
:If K=45:Then
:Fill 0,[A]
:[A]→[B]
:Else
:If K=23:Then
:0→[A](A+D,B+C
:Else
:If K=83:Then
:0→C:0→D
:Else
:If K=14:Then
:1→X:1→Y
:Repeat 21=K or K=15
:real(3,13,0,0
:Repeat Ans
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:getKey:End:Ans→K
:X+(K=26 and X≠12)-(X and K=24→X
:Y+(K=34 and Y≠8)-(K=25 and Y→Y
:End
:If K=21:Then
:12(Y-1)+X-1→S
:End
:DelVar K
:Else
:If K=41:Then
:1→X:1→Y
:Repeat K=21 or K=15
:real(3,13,0,0
:Repeat Ans
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:getKey:End:Ans→K
:X+(K=26 and X≠12)-(X and K=24→X
:Y+(K=34 and Y≠8)-(K=25 and Y→Y
:End
:If Y=8 and (X=12 or X=4
:Then
:Input "TEXT:",Str2
:If X=4:Str2→Str8
:If X=12:Str2→Str9
:End
:If K=21:Then
:X-1→L4(1+dim(L4
:Y-1→L4(1+dim(L4
:B+C→L4(1+dim(L4
:A+D→L4(1+dim(L4
:End
:DelVar K
:Else
:If K=44:Then
:0→dim(L4
:Else
:If K=51:Then
:{B+C,A+D→L2
:Input "DIRECTION: ",Z
:Input "HEALTH: ",R
:End:End:End:End:End:End:End
:J-(K=13 and J)+(K=13 and not(J→J
:M-(K=12 and M)+(K=12 and not(M→M
:G-(K=31 and G)+(K=31 and not(G→G
:L-(K=11 and L)+(K=11 and not(L→L
:A+(K=34 and A≠8)-(25=K and A≠1→A
:B+(B≠12 and K=26)-(K=24 and B≠1→B
:C+(K=84 and C<10)-(K=82 and C→C
:D+(K=93 and D<8)-(K=73 and D→D
:S+(K=95 and S≠100)-(K=85 and S→S
:S→[B](A+D,B+C
:End
:DelVar [B]
:Lbl 1
:ClrDraw
:"00000000000000000000000000000000000000000000→Str1
:Text(6,0,"TILES CONVERTED...
:getKey
:dim([A])→L3
:For(A,1,L3(1))
:For(B,1,L3(2))
:If getKey=15:Then
:16→A
:22→B
:End
:Text(0,0,L3(2)A+B,"/",L3(1)L3(2)+L3(2
:1+[A](A,B→S
:Str1+sub("000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F20212223242526272829",2S-1,2→Str1
:End
:End
:Str1→Str2
:det(17,Str1→Str1
:real(0,1
:Str2
:DelVar Str2
:L2(1→X
:L2(2→Y
:ClrHome
/e

Offline simplethinker

  • LV7 Elite (Next: 700)
  • *******
  • Posts: 695
  • Rating: +16/-5
  • snjwffl
    • View Profile
Re: Map Editor Code
« Reply #19 on: July 22, 2009, 11:26:34 am »
That looks great ;D  (it puts my old map editor to shame XD)
"We've all heard that a million monkeys banging on a million typewriters will eventually reproduce the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true." -- Professor Robert Silensky



Chip's Challenge: ħ%

Offline Iambian

  • Coder Of Tomorrow
  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 739
  • Rating: +216/-3
  • Cherry Flavoured Nommer of Fishies
    • View Profile
Re: Map Editor Code
« Reply #20 on: July 22, 2009, 12:43:52 pm »
Looking pretty good. Now, if only I had that privilege when I tried to make my own maps. Too bad I didn't have Celtic III when I tried >.<
A Cherry-Flavored Iambian draws near... what do you do? ...

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6233
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Map Editor Code
« Reply #21 on: July 22, 2009, 03:31:19 pm »
lol, Iambian, the creator of Celtic III didn't have it with him
lol. so wait you typed this out and tried it?
/e

Offline DJ Omnimaga

  • Former TI programmer
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55883
  • Rating: +3151/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • DJ Omnimaga Music
Re: Map Editor Code
« Reply #22 on: July 22, 2009, 07:50:59 pm »
something wrong happens when the cursor moves at the top of the screen?

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6233
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Map Editor Code
« Reply #23 on: July 22, 2009, 09:22:48 pm »
yeah just a bug in Celtic III, it doesn't show the main box because it starts off the top of the screen
/e