ponydork's stats

/'
FreeBasic License
========================================================================
libffi - Copyright (c) 1996-2011 Anthony Green, Red Hat, Inc and others.
See source files for details.

Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the
``Software''), to deal in the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom the Software is furnished to do so, subject to
the following conditions:

The above copyright notice and this permission notice shall be
included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
========================================================================

AN OPEN LETTER TO HOBBYISTS
===================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================
February 3, 1976
By William Henry Gates III

An Open Letter to Hobbyists
To me, the most critical thing in the hobby market right now is the lack of good software courses, books and software itself. Without good software and an owner who understands programming, a hobby computer is wasted. Will quality software be written for the hobby market?
Almost a year ago, Paul Allen and myself, expecting the hobby market to expand, hired Monte Davidoff and developed Altair BASIC. Though the initial work took only two months, the three of us have spent most of the last year documenting, improving and adding features to BASIC. Now we have 4K, 8K, EXTENDED, ROM and DISK BASIC. The value of the computer time we have used exceeds $40,000.
The feedback we have gotten from the hundreds of people who say they are using BASIC has all been positive. Two surprising things are apparent, however, 1) Most of these "users" never bought BASIC (less thank 10% of all Altair owners have bought BASIC), and 2) The amount of royalties we have received from sales to hobbyists makes the time spent on Altair BASIC worth less than $2 an hour.
Why is this? As the majority of hobbyists must be aware, most of you steal your software. Hardware must be paid for, but software is something to share. Who cares if the people who worked on it get paid?
Is this fair? One thing you don't do by stealing software is get back at MITS for some problem you may have had. MITS doesn't make money selling software. The royalty paid to us, the manual, the tape and the overhead make it a break-even operation. One thing you do do is prevent good software from being written. Who can afford to do professional work for nothing? What hobbyist can put 3-man years into programming, finding all bugs, documenting his product and distribute for free? The fact is, no one besides us has invested a lot of money in hobby software. We have written 6800 BASIC, and are writing 8080 APL and 6800 APL, but there is very little incentive to make this software available to hobbyists. Most directly, the thing you do is theft.
What about the guys who re-sell Altair BASIC, aren't they making money on hobby software? Yes, but those who have been reported to us may lose in the end. They are the ones who give hobbyists a bad name, and should be kicked out of any club meeting they show up at.
I would appreciate letters from any one who wants to pay up, or has a suggestion or comment. Just write to me at 1180 Alvarado SE, #114, Albuquerque, New Mexico, 87108. Nothing would please me more than being able to hire ten programmers and deluge the hobby market with good software.

Bill Gates

General Partner, Micro-Soft
===================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================

Back to the roots are we?
'/

Dim arr() As Integer, i As Integer
Dim GolombLength As Integer
GolombLength = 30
ReDim arr(GolombLength)
arr(0) = 1 

i = 1
For i = 1 To GolombLength
    arr(i) = 1 + arr(i - arr(arr(i-1)-1))
Next

For i = 0 To UBound(arr)
    Print arr(i)
Next

T: ____  _   _  ____
T:(_  _)( )_( )( ___)
T:  )(   ) _ (  )__)  ________ _____ _____ _____ ___________ _      _____
T: (__) (_) (_)(____)  || ___ \  _  /  ___/  ___|_   _| ___ \ |    |  ___|
T:          | | | .  . || |_/ / | | \ `--.\ `--.  | | | |_/ / |    | |__
T:          | | | |\/| ||  __/| | | |`--. \`--. \ | | | ___ \ |    |  __|
T:         _| |_| |  | || |   \ \_/ /\__/ /\__/ /_| |_  ____  |_  _|_|_______
T:         \___/\_|  |_/\_|    \___/\____/\____/ \___/ / __ \/ / / /  _/__  /
T:                                                    / / / / / / // /   / /
T:                                                   / /_/ / /_/ // /   / /__
T:                                                   \___\_\____/___/  /____/
T:
T: PRESS ANY KEY TO CONTINUE
A:
T: 1: HOW MANY HOLES IN A POLO?
T: ----------
T:| A ONE    |
T:| B TWO    |
T:| C THREE  |
T:| D FOUR   |
T: ----------
A:
M:D
NJ:1

T: 2: CAN A MATCH BOX?
T: -----------------------------
T:| A YES                       |
T:| B NO                        |
T:| C NO BUT A TIN CAN          |
T:| D YES ONE BEAT MIKE TYSON   |
T: -----------------------------
A:
M:C
NJ:1

T: 3: SDRAWKCAB NOITSEUQ SIHT REWSNA
T: -----------------------------
T:| A K.O                       |
T:| B WHAT?                     |
T:| C I DON'T UNDERSTAND        |
T:| D TENNIS ELBOW              |
T: -----------------------------
A:
M:A
NJ:1

T: 4: SQRT(ONION)
T: -----------
T:| A 28      |
T:| B CARROTS |
T:| C SHALLOWS|
T:| D PI      |
T: -----------
A:
M:C
NJ:1


T: 5: THE ANSWER IS REALLY BIG
T: -----------------
T:| A ANSWER        |
T:| B REALLY BIG    |
T:| C INFINITY      |
T:| D an elephant   |
T: -----------------
A:
M:D
NJ:1

T: 6: WHAT WAS THE ANSWER TO QUESTION 2?
T: -----------------
T:| A THAT ONE      |
T:| B THIS ONE      |
T:| C THIS ONE      |
T:| D THIS ONE      |
T: -----------------
A:
M:C
NJ:1

T: 7: WHAT FOLLOWS DECEMBER 2ND
T: -------------------
T:| A DECEMBER 3RD    |
T:| B ND              |
T:| C A QUESTION MARK |
T:| D 142 DRAWRVES    |
T: -------------------
A:
M:N
NJ:1

T: 8: WHAT SOUND DOES A BELL MAKE
T: -----------
T:| A WHOOP  |
T:| B F'TAANG|
T:| C FROON  |
T:| D BLIP-BLOP-BLOOP-BANGA-O-LANGA-WOOF,NUBBY-FRRPH120,000
T: -----------
A:
M:B
NJ:1


T: 9: WHAT CAN YOU PUT IN A BUCKET TO MAKE IT LIGHTER?
T: -------------------
T:| A GYPSIES         |
T:| B TORCH           |
T:| C A HOLE          |
T:| D CANNED LAUGHTER |
T: -------------------
A:
M:B
NJ:1

T:                   a@10@a
T:               a@@@@@@@@@@@@a
T:             a@@@@@@by@@@@@@@@a
T:           a@@@@@S@C@E@S@W@@@@@@a
T:           @@@@@@@@@@@@@@@@@@@@@@
T:            `@@@@@@`\\//'@@@@@@'
T:                 ,,  ||  ,, S.C.E.S.W.
T:                /(-\ || /.)m
T:           ,---' /`-'||`-'\ `----,
T:          /( )__))   ||   ((,==( )\\
T:       _ /_//___\\ __|| ___\\ __\\ ____
T:           ``    `` /MM\   ''   ''

A:
M:H
NJ:1
A:
M:O
NJ:1
A:
M:R
NJ:1
A:
M:S
NJ:1
A:
M:E
NJ:1

T: 11: WHAT IS THE 7TH LETTER OF THE ALPHABET
T: -----
T:| G A |
T:| I H |
T:| J I |
T:| K L |
T: -----
A:
M:I
NJ:1

T: 12: 10 - 5 = ?
T: ----------
T:| A 6      |
T:| B 2      |
T:| C WALRUS |
T:| D 16/931 |
T: ----------
A:
M:5
NJ:1

T: 13: BLUE ORANGE GREEN GREEN YELLOW
A:
M:B
NJ:1
A:
M:O
NJ:1
A:
M:G
NJ:1
A:
M:G
NJ:1
A:
M:Y
NJ:1

T: 14: DEAL OR NO DEAL?
T: ------------
T:| A DEAL!    |
T:| B NO DEAL! |
T:| C SEAL!    |
T:| D NO SEAL! |
T: ------------
A:
M:C
NJ:1


T: 15: THE CHOICE IS YOURS
T: ------------
T:| A +1 LIFE  |
T:| B -1 LIFE  |
T:| C ESCAPE!! |
T:| D ASCEND   |
T: ------------
A:
M:D
NJ:1

T: --------------------------------------------
T:| 16 | NOTEPAD                          |X|  |
T: --------------------------------------------
T:| DO YOU WANT TO SAVE CHANGES TO UNTITLED?   |
T:|                                            |
T:|                                            |
T:|                                            |
T:|                                  Y/N/C/B   |
T: --------------------------------------------
A:
M:B
NJ:1

T: 17: HOW DO YOU KILL A WEREWOLF
T: -----------------
T:| A SHOE POLISH   |
T:| B GRAVY GRANULES|
T:| C BLACK PUDDING |
T:| D CILLIT BANG   |
T: -----------------
A:
M:A
NJ:1

T: 18: WHICH OF THESE PLACE NAMES DOESN'T EXIST?
T:   .-------------------
T:  / /      A1337      |
T: / /                  |
T:/ /   B GERMANSWEEK   |
T:\ \   C BITCHFIELD    |
T: \ \  D FUCKTON       |
T:  \ \                 |
T:   .-------------------
T:       ||          ||
T:       ||          ||
T:       ||          ||
A:
M:D
NJ:1

T: I HOPE YOU'VE BEEN PAYING ATTENTION TO THE QUESTION NUMBERS
T: -----------------
T:| A GO TO 16      |
T:| B GO TO 15      |
T:| C GO TO 20      |
T:| D GOTO 19       |
T: -----------------
A:
M:C

T: 20: WHAT FLAVOUR IS CARDBOARD?
T: -------------------
T:| A HONEY           |
T:| B PORK SCRATCHINGS|
T:| C EGG MAYONNAISE  |
T:| D TALC            |
T: -------------------
A:
M:C

T: 21: I WANNA BE YOUR FUCKING
T: -------------------------------------------
T:| A THING THAT GETS ATTACHED TO YOU         |
T:| B DOG                                     |
T:| C PEBBLE THAT GETS STUCK INSIDE YOUR SHOE |
T:| D LAUNDRY                                 |
T: -------------------------------------------
A:
M:B


T: 22: CAN YOU GET THIS QUESTION WRONG?
T: -------------------------
T:| A NO                    |
T:| B NOPE                  |
T:| C NO WAY                |
T:| D OF COURSE NOT         |
T: -------------------------
A:

T: 23: WHAT ARE THE MAIN INGREDIENTS OF SHAMPOO?
T: ---------------------------
T:| A BLENDED CRICKETS        |
T:| B CATS AND WHELKS         |
T:| C POLAND                  |
T:| F GUILT AND WASTE         |
T: ---------------------------
A:
M:F

T: 24: WHAT DO YOU CALL A WINGLESS FLY?
T: ----------
T:| B A FLAP |
T:| A A WALK |
T:| C A PLUM |
T:| D JASON  |
T: ----------
A:
M:A

T: 25: MARY ROSE SAT ON A PIN.
T: -------------------
T:| A OH RLY?         |
T:| G MARY ROSE       |
T:| C BURST HER PILES |
T:| D AHAAHAHAHAHAHA! |
T: -------------------
A:
M:G


T: 26: WHAT DID YOU JUST WRITE OUT?
T: ----------
T:| A MYSELF |
T:| B MYSELF |
T:| C MYSELF |
T:| D MYSELF |
T: ----------
A:

YJ:2
*
T:                       ________________________________,
T: "===-----...__  __,-""  ]____[ _.----------,__________|
T: |             ""   /___________)||||||||||||(_(
T: |                ,-")) [Krogg98 '----------`
T: |  ___...--,_  ,`    ""
T: ""'          '`
T: YOU DIED
J:2
*
T:                                  ___________
T:                             .---'::'        `---.
T:                            (::::::'              )
T:                            |`-----._______.-----'|
T:                            |              :::::::|
T:                           .|               ::::::!-.
T:                           \|               :::::/|/
T:                            |               ::::::|
T:                            | Special Flonk Award:|
T:                            |    for Silliness::::|
T:                            |               ::::::|
T:                            |              .::::::|
T:                            J              :::::::F
T:                             \            :::::::/
T:                              `.        .:::::::'
T:                                `-._  .::::::-'
T:____________________________________|  ""'|"_________________________________________
T:                                    |  :::|
T:                                    F   ::J
T:                                   /     ::\
T:                              __.-'      :::`-.__
T:                             (_           ::::::_)
T:                               `""'---------""''
*

let movesStack = []

let interval = setInterval(() => {
    if (movesStack.length == 0){
        let player = { x: 0, y: 0 };
        let food = { x: 0, y: 0 };
        let spike = { x: 1000, y: 1000 };
    
        let canvas = document.getElementById("screen").innerHTML;
        let lines = canvas.split("<br>");
    
        let text = document.getElementById("score-counter").textContent;
        let score = +text.replace("score: ", "");
        
        if (score != 2025){
            for (let i = 0; i < lines.length; i++) {
                let currentLine = lines[i];
                for (let j = 0; j < currentLine.length; j++) {
                    let currentSymbol = currentLine[j];
                    if (currentSymbol == "@") {
                        player.x = j;
                        player.y = i;
                    }
                    if (currentSymbol == "+") {
                        food.x = j;
                        food.y = i;
                    }
                    if (currentSymbol == "*") {
                        spike.x = j;
                        spike.y = i;
                    }
                }
            }
    
            if (player.y == food.y) {
                if (player.x > food.x) {
                    if(spike.x == player.x-1 && spike.y == player.y){
                        if(player.y != 4){
                            movesStack = ["down","left","left","up"]
                        }else{
                            movesStack = ["up","left","left","down"]
                        }
                    } else {
                        move("left")
                    }
                } else {
                    if(spike.x == player.x+1 && spike.y == player.y){
                        if(player.y != 4){
                            movesStack = ["down","right","right","up"]
                        } else {
                            movesStack = ["up","right","right","down"]
                        }
                    } else {
                        move("right")
                    }
                }
            }
            else
            {
                if (player.y < food.y) { 
                    if(spike.y == (player.y)+1 && spike.x == player.x){
                        if(food.x > player.x){
                            movesStack = ["right","down"]
                        } else {
                            movesStack = ["left","down"]
                        }
                    } else {
                        movesStack = ["down"]
                    }
                } else {
                    if(spike.y == (player.y)-1 && spike.x == player.x){
                        if(food.x > player.x){
                            movesStack = ["right","up"]
                        } else {
                            movesStack = ["left","up"]
                        }
                    } else {
                        movesStack = ["up"]
                    }
                }
            }
        }
    }else{
        move(movesStack.shift()); 
    }
}, 220);

function move(input){
    let text = document.getElementById("score-counter").textContent;
    let score = +text.replace("score: ", "");
    if (score != 2025){
        document.getElementById(input).click();
    }
}

function findFactors(target) {
    const factors = [];
    for (let i = 1; i <= Math.sqrt(target); i++) {
        if (target % i === 0) {
            factors.push([i, target / i]);
        }
    }
    return factors;
}

console.log("Ƹ\\૮₍ ˶ᵔ ᵕ ᵔ˶ ₎ა/Ʒ -> Hiya! I'm Warhammer Butterscotch");

while (true) {
    let thing = +prompt("Enter your number, and I'll sprinkle some magic on it!: ");
    const original = thing;
    let equation = [];
    let last = "";

    console.log("*ੈ✩‧₊˚༺☆༻*ੈ✩‧₊˚");
    console.log(`   /)__/)
Ƹ\\( ˶• ༝ •˶)/Ʒ
o(   ⊃━☆*⛥*ﾟ・。*.₊˚❀༉‧₊˚.`,thing);
    console.log("*ੈ✩‧₊˚༺☆༻*ੈ✩‧₊˚");

    for (let x = 0; x < 100; x++) {
        let choice = Math.floor(Math.random() * 10);

        switch (choice) {
            case 1:
                let value = thing - Math.floor(Math.random() * (thing - 0.1));
                if (value !== 0) {
                    equation.push(value, "+");
                    thing -= value;
                }
                break;
            case 2:
                if (equation.length > 1) {
                    let location = Math.floor(Math.random() * equation.length);
                    if (isNaN(equation[location])) location--;
                    
                    let factors = findFactors(equation[location]);
                    if (factors.length > 1) {
                        let [a, b] = factors[Math.floor(Math.random() * (factors.length - 1)) + 1];
                        equation.splice(location, 1, "(", a, "*", b, ")");
                    }
                }
                break;
        }

        let currentEquation = equation.join("") + thing + "=" + original;
        if (currentEquation !== last) {
            console.log("Ƹ\\૮₍ ˶ᵔ ᵕ ᵔ˶ ₎ა/Ʒ 。*.₊ " + currentEquation);
        }
        last = currentEquation;
    }

    console.log("*ੈ✩‧₊˚༺☆༻*ੈ✩‧₊˚");
    console.log("Hiya, your equation is done! Ƹ\\૮₍ ˃ ⤙ ˂ ₎ა/Ʒ Hope you like it!");
    console.log(equation.join("") + thing + "=" + original);
    console.log("Go again? Ƹ\\૮₍´˶• . • ⑅ ₎ა/Ʒ");

    let retry = prompt("(Y/N) => ").toLowerCase();
    if (retry === "n" || retry === "no") break;
}

let z = String.fromCharCode(49).split(''), f = +prompt(":3c nums of its: ")
while(f--){
    Array.isArray(z) ? alert(z.join('')) : alert(z)
    let f = z[0], k= 0, p = "", i=0
    while (i<z.length) {
        f != z[i] ? p += k+f : k
        f == z[i] ? k+= 1 : k= 1;
        f = z[i], i+=+1
    }
    z = p += k+ f
}