Page 1 of 2 12 LastLast
Results 1 to 25 of 38

Thread: Downkart!

  1. #1
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default Downkart!

    Downkart is a game everyone should have at his/her TI-83/84. The game is really simple: just don't hit the walls!
    Because I was bored, I ported this awesome game (including it's aweful bugs + some others -.-) to SCAR!
    It's 118 lines of pure fun (original version is 92), and the gameplay is exactly the same as at the calc: use left/right arrow keys, and it saves the highscore
    Parts of the original source are in the comments
    Have fun!
    Markus

    SCAR Code:
    program TIDOwnKart;
    function putstuffinstring(pos : integer; soi, insert : string) : string;  //Function to mimic 'Output', not exactly the same oh well it works :)
    begin
      pos := max(0, pos);
      result := copy(soi, 1,pos-1)+insert+copy(soi, length(insert)+pos, length(soi)-length(insert)-pos);
    end;
    procedure output(y,x : integer; s : string);
    begin               dec(y);
      replacedebugline(y, putstuffinstring(x, getdebugline(y), s));
    end;
    var c, b, d, a, l, n, r, v, k, o, p,x,s,hiscore : integer;
    begin
    ClearDebug; //ClrHome
    writeln('RACE'); writeln('+-+'); writeln('! !'); writeln('! !'); writeln('! !'); writeln('+-+');//Disp "RACE","+-+","! !","! !","! !","+-+"
    wait(300);//For(Á,1,100
    //End
    ReplaceDebugLine(2, putstuffinstring(2, getdebugline(3), '*! READY')); //Output(3,2,"*! READY"
    wait(300);{ForÁ,1,100
    End}

    ReplaceDebugLine(3, putstuffinstring(2, getdebugline(4), '*! SET')); //Output(4,2,"*! SET"
    wait(300);//For(Á,1,100
    //End
    hiscore := StrToIntDef(loadsetting('downkart', 'hiscore'), 0);
    ReplaceDebugLine(4, putstuffinstring(2, getdebugline(3), '*! GO')); //Output(5,2,"ô! GO"
    c := 5; //5->C
    B := 5; //5->B
    A := 5; //5->A
    L := 0; //0->L
    N := 0; //0->N
    R := 5; //5->R
    V := 8; //8->V
    K := 8; //8->K
    O := 7; //7->O
    P := 1; //1->P
    writeln('                '); writeln('                '); //This is to mimic the 8 lines the TI has
    While true do
    begin //While 1
    wait(100);
      R := R + RandomRange(-1, 2); //R+randInt(-1,1)->R
      If r=2 then//If R=2
        r := 3;//3->R
      If 3 = 9 then//If R=9
        r := 8; //8->R
      writeln('                '); DeleteDebugLine(0);//Disp ""
      ReplaceDebugLine(7, putstuffinstring(R, getdebugline(7), ']'));//Output(8,R,"]"
      ReplaceDebugLine(7, putstuffinstring(R+O, getdebugline(7), '['));//Output(8,R+O,"["
      //getKey->Y
      if  IsArrowDown(3) then //If Y=24
        v := V-1; //V-1->V
      if isarrowdown(1) then //If Y=26
      V := V+1; //V+1->V
      //If Y=21 //Fckn gaypause duh
      //Pause
      Output(4,K,' ');
      Output(5,V,'v');
      K := V; //V->K
      If (V<=C) or (V>=C+O) then //If V=<C or V>=C+O
        break;//Goto C
      D := C;  //C->D
      C := B;  //B->C
      B := A;  //A->B
      A := R;  //R->A
      N := N+1;//N+1->N
      If N>= 40 then//If N>=40
      begin //Then
      O := O-P;//  O-P->O
      N := 0;  //0->N
      L := L+4; //L+4->L
      end; //End
      If O <= 2 then //If O=<2
      //0->P
      P := 0;
    End;
    //KO: //Lbl C
    //0->X
    while (x<=2) do //While X=<2
    begin
    //writeln('UR DEAD');
    //break;
    //end;
    Output(5-X,V-X,'*');
    Output(5+X,V+X,'*');
    Output(5-X,V+X,'*');
    Output(5+X,V-X,'*');
    Output(5-X,V,'*');
    Output(5+X,V,'*');
    Output(5,V-X,'*');
    wait(75);
    //Output(5,V+X,"*"
    X := X+1;//X+1->X
    end;//End
    x := 0;//0->X
    while x <= 2 do
    begin //While X=<2
    Output(5-X,V-X,' ');
    Output(5+X,V+X,' ');
    Output(5-X,V+X,' ');
    Output(5+X,V-X,' ');
    Output(5-X,V,' ');
    Output(5+X,V,' ');
    Output(5,V-X,' ');
    Output(5,V+X,' ');
    wait(50);
    X := X + 1;//X+1->X
    end; //End
    Output(1,1,'SCORE: ');
    Output(2,1,'HIGH:     ');
    S := L*130+N; //L*130+N->S
    If S>hiscore
    Then begin
    hiscore := s;
    SaveSetting('downkart', 'hiscore', inttostr(s)); //S->ZTmax
    Output(3,1,'NEW HIGH SCORE!');
    End;
    Output(1,7,inttostr(S));
    Output(2,6,inttostr(hiscore));
    //Pause
    end.
    Last edited by Markus; 06-16-2009 at 09:37 PM.

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  3. #3
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Dear lord, this is an old game. And yet still so addictive.

  4. #4
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  5. #5
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    darn i cant get any better :/
    HIGH:1042

    ~shut
    I beat you by 9 points :P

  6. #6
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First try: HIGH:1041

    Nice Markus I've played this on my calc a couple times.

    Wow it get's challenging at around 1040

    HIGH:1051

  7. #7
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    HIGH:1067
    Sometimes the road completely closes


  8. #8
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ^^ Yeah that happened to me a couple times, on the right side.

  9. #9
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Congrats, you encountered one of the original bugs :P

  10. #10
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCORE:1066 ]
    HIGH:1066 ]
    NEW HIGH SCORE!
    ]
    ]
    ]
    ] [
    ] [
    Successfully executed
    .

  11. #11
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Nofair, my v crashed into a ]
    :<

  12. #12
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Score:1075
    high:1075
    new high score!
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  13. #13
    Join Date
    May 2008
    Location
    127.0.0.1
    Posts
    705
    Mentioned
    1 Post(s)
    Quoted
    6 Post(s)

    Default

    Score:36
    high:36
    new high score!

    quite often it completely closed
    <Wizzup> And he's a Christian
    <Wizzup> So he MUST be trusted
    ___________________________________________
    <Wizzup> she sounds like a dumb bitch

  14. #14
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No Rubix, you just suck lol.

  15. #15
    Join Date
    Dec 2008
    Location
    Québec
    Posts
    419
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahah owned
    SCORE:1077
    HIGH:1077
    NEW HIGH SCORE!




    ] [
    Successfully executed
    Formerly known as FrancisHelie

  16. #16
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by francishelie View Post
    ahah owned
    SCORE:1077
    HIGH:1077
    NEW HIGH SCORE!




    ] [
    Successfully executed
    Nooo! By two points!

    Edit: Beat this!
    Look at the attached pic
    Last edited by noidea; 06-16-2009 at 09:40 AM.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  17. #17
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    SCORE:1070]
    HIGH:1070
    NEW HIGH SCORE!

    Thats the best i got. Funly game though.

    After playing for a while though, it doesnt look like a road any more, they just kind fo randomly get placed.

    EDIT: when it closes up all the way, you can go on the right side wall and not die.

    SCORE:1566
    HIGH:1566
    !
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  18. #18
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    SCORE:1072
    HIGH:1072
    ]
    ]
    ]
    ]
    ] [
    ] [
    Successfully executed
    Wow nice game, just gets too thin passage at times.

    Edit : will you make this more illustrated and fix glitches ?

  19. #19
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    ASCII fun, huzzah!
    Oh, posting high scores here is fail since everyone knows that everyone else cheat.
    (I got 2 points more than the current highest score posted by people, including those after my post but not including my own so as not to encounter an infinite loop).
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  20. #20
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I did not cheat Mixster :<.

  21. #21
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    You guys can't beat my score

    Anyways, editted the first post with the script (I originally posted it from my PSP, as I had just 2 secs to pastebin the code ).

  22. #22
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Markus markus markus....
    I had such high thoughts of you

    Naice game, got a bit caught up in it last night..

  23. #23
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    SCORE:1575
    HIGH:1575
    NEW HIGH SCORE!
    Couldn't get any higher. >.>
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  24. #24
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    best i could do:

    SCAR Code:
    SCORE:1079
    HIGH:1079
    NEW HIGH SCORE!
    “Ignorance, the root and the stem of every evil.”

  25. #25
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Score:1560
    high:1560
    new high score!
    ~Hermen

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •