Post a screenshot of what you are doing (modding related).
#61
(31 Mar 11, 01:17AM)BarricadeX75 Wrote: I've take a look at the video, and it's AMAZING. Where can I download the scripts ? =D

I spent little time on this, that's why it has so many glitches and lack of proper Tetris-oid functioning. The $bottomlimit was my way of sneaking out of having to actually code bottom limits for shapes. My brain burnt out as I started trying to think of how to get each shape to rotate, let alone give the script the ability to dissolve lines (or treat textures like solid objects). I'm sure this'll all be easier with idents that test what texture a given square is.
So, here it is. Don't laugh. XD
alias tetris [
bottomlimit = 55
newshape (at [T L1 L2 Z1 Z2 I O] (rnd 7))
conveyshape]

alias conveyshape [
if (>= (at $curshapec2 1) $bottomlimit) [
newshape (at [T L1 L2 Z1 Z2 I O] (rnd 7))
-= bottomlimit 1
] [moveshapedown]
sleep 1000 [conveyshape]]

alias editshape [
select (at $curshapec1 0) (at $curshapec1 1) (at $curshapec1 2) (at $curshapec1 3)
if $editing [] [edittoggle]
edittex 0 -1
select (at $curshapec2 0) (at $curshapec2 1) (at $curshapec2 2) (at $curshapec2 3)
edittex 0 -1
if $editing [edittoggle] []]

alias clearfield [
if $editing [] [edittoggle]
select 24 31 16 (- $bottomlimit 31)
edittex 0 -1
edittex 0 -1
edittex 0 1
if $editing [edittoggle] []]

alias moveshapedown [
curshapec1 = (concat (at $curshapec1 0) (+ (at $curshapec1 1) 1) (at $curshapec1 2) (at $curshapec1 3))
curshapec2 = (concat (at $curshapec2 0) (+ (at $curshapec2 1) 1) (at $curshapec1 2) (at $curshapec1 3))
clearfield
editshape]

alias shiftleft [
curshapec1 = (concat (- (at $curshapec1 0) 1) (at $curshapec1 1) (at $curshapec1 2) (at $curshapec1 3))
curshapec2 = (concat (- (at $curshapec2 0) 1) (at $curshapec2 1) (at $curshapec1 2) (at $curshapec1 3))
clearfield
editshape]

alias shiftright [
curshapec1 = (concat (+ (at $curshapec1 0) 1) (at $curshapec1 1) (at $curshapec1 2) (at $curshapec1 3))
curshapec2 = (concat (+ (at $curshapec2 0) 1) (at $curshapec2 1) (at $curshapec1 2) (at $curshapec1 3))
clearfield
editshape]

alias setshapec [
curshapec1 = (concat $arg1 $arg2 $arg3 $arg4)
curshapec2 = (concat $arg5 $arg6 $arg7 $arg8)
]

alias newshape [
if (strcmp $arg1 T) [setshapec 31 31 3 1 32 32 1 1] [
if (strcmp $arg1 L1) [setshapec 33 31 1 1 31 32 3 1] [
  if (strcmp $arg1 L2) [setshapec 31 31 1 1 31 32 3 1] [
   if (strcmp $arg1 Z1) [setshapec 31 31 2 1 32 32 2 1] [
    if (strcmp $arg1 Z2) [setshapec 32 31 2 1 31 32 2 1] [
     if (strcmp $arg1 I) [setshapec 30 31 2 1 32 31 2 1] [
      if (strcmp $arg1 O) [setshapec 31 31 2 1 31 32 2 1] []]]]]]]
]
bind LEFT [shiftleft]
bind RIGHT [shiftright]
bind DOWN [moveshapedown]
Just realized, you'll need a couple non-script things to get this to work:
1) store a texture (floor) by scrolling to your favorite one, then select a different square. (Like floppyspam, this is due to the dynamic nature of edittex.)
2) ac_tetris.cgz
Thanks given by:


Messages In This Thread
RE: Post a screenshot of what you are doing (modding related). - by V-Man - 31 Mar 11, 07:52AM