-----------------------------------

tjmoore1993

Sun Jun 28, 2009 8:23 pm


[SOURCE] Fantastic Story

-----------------------------------

I don't mind if people work on it, just if you do please involve my name somewhere and thanks for your comments.

[Snip]

For 1210 lines of code, I'd say it's pretty efficient... Honestly though, the code can become even shorter. I have examined the code closely and seen a bunch of inefficient programming. Fix it up if you'd like and enjoy ^^


LEAVE CREDITS IF YOUR DISTRIBUTING

Mod edit:  Code is a few posts down.


-----------------------------------

tjmoore1993

Sun Jun 28, 2009 8:25 pm


RE:[SOURCE] Fantastic Story

-----------------------------------

Sorry, I haven't gotten around to commenting as I should.. It's good practice but I have been really busy and haven't felt like continuing this project. The variables are well defined as I given a keyword for each and everyone of them...


-----------------------------------

rdrake

Sun Jun 28, 2009 8:34 pm


RE:[SOURCE] Fantastic Story

-----------------------------------

It might be a good idea to zip up all of the resources your program requires as well and post it in your original post.


-----------------------------------

Euphoracle

Sun Jun 28, 2009 9:16 pm


RE:[SOURCE] Fantastic Story

-----------------------------------

I fail to see the efficiency of this program by any stretch of the imagination.  Where exactly does this lie?  (yes that was a cute pun, wasn't it?)


-----------------------------------

Zren

Sun Jun 28, 2009 10:37 pm


Re: [SOURCE] Fantastic Story

-----------------------------------

procedure GearCheck
    var outfit : array 1 .. 7 of int := init (0, 30, 50, 60, 70, 80, 100)
    for decreasing i : 7 .. 1
        if Level >= outfit (i) then
            CurrentSet := i
            cGear (1) := Outfit (i, 1)
            cGear (2) := Outfit (i, 2)
            cGear (3) := Outfit (i, 3)
            cGear (4) := Outfit (i, 4)
            exit
        end if
    end for
    Parsing ("CharacterXY")
end GearCheck

That's one function I looked at that could be reworked. 46 -> 15. Optimizing meens looking for patterns. However, optimizing complicates things when you try to go back to the code later on.


-----------------------------------

tjmoore1993

Mon Jun 29, 2009 7:15 am


Re: [SOURCE] Fantastic Story

-----------------------------------

procedure GearCheck
    var outfit : array 1 .. 7 of int := init (0, 30, 50, 60, 70, 80, 100)
    for decreasing i : 7 .. 1
        if Level >= outfit (i) then
            CurrentSet := i
            cGear (1) := Outfit (i, 1)
            cGear (2) := Outfit (i, 2)
            cGear (3) := Outfit (i, 3)
            cGear (4) := Outfit (i, 4)
            exit
        end if
    end for
    Parsing ("CharacterXY")
end GearCheck

That's one function I looked at that could be reworked. 46 -> 15. Optimizing meens looking for patterns. However, optimizing complicates things when you try to go back to the code later on.

I could point out a lot of efficiency problems but like I may of mentioned, I am getting bored of the project. I have brought the program from 2,000 lines of code to merely 1,000. =]


-----------------------------------

tjmoore1993

Mon Jun 29, 2009 7:19 am


Re: [SOURCE] Fantastic Story

-----------------------------------

SOURCE ADDED