Board Logo
« Eternal Quest 2.80 - Graphics RPG game »

Welcome Guest. Please Login or Register.
Jan 16th, 2018, 3:37pm


Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Please use the forums Search feature before asking.
Please post code using the code box described in Format Your Messages.
This will keep indentation, separate it better form the message and prevent gibberish.
If the code is too long for one post or additional files are needed, upload a ZIP archive to the Just BASIC Files Archive Site.

« Previous Topic | Next Topic »
Pages: 1 2 3 4 5  Notify Send Topic Print
 veryhotthread  Author  Topic: Eternal Quest 2.80 - Graphics RPG game  (Read 7663 times)
Rod
Administrator
ImageImageImageImageImage


member is offline

Avatar

Graphics = Goosebumps!


PM

Gender: Male
Posts: 3151
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.72a
« Reply #30 on: Jan 29th, 2014, 2:53pm »

Also a follow me style of mouse tracking might work well for the game.

Code:
    nomainwin
    WindowWidth = 800
    WindowHeight = 600
    UpperLeftX = int((DisplayWidth-WindowWidth)/2)
    UpperLeftY = int((DisplayHeight-WindowHeight)/2)
    Open "Follow Me" For Graphics_nsb_nf As #g
    #g "trapclose [quit]"
    #g "down"
    pi = 4*atn(1)
    x = int(rnd(0)*WindowWidth)
    y = int(rnd(0)*WindowHeight)
    v = .3


    #g "when mouseMove [follow]"
    timer 25,[follow]
    wait



    [follow]
    vectorX = (MouseX - x)
    vectorY = (MouseY - y)
    if abs(vectorX)<3 and abs(vectorY)<3 then
        timer 0
        #g "when mouseMove"
        notice "Got to you"
        timer 25,[follow]
        #g "when mouseMove [follow]"
    end if
    alfa = atn(vectorY/vectorX)
    if vectorX < 0 then alfa = alfa + pi
    x = x + v*(cos(alfa))
    y = y + v*(sin(alfa))
    #g "color black; set "; x; " "; y
    wait


    [quit]
    timer 0
    close #g
    end
 
User IP Logged

atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.72a
« Reply #31 on: Jan 29th, 2014, 4:54pm »

hi !
thx guy, i had removed starting time to 30sc>15sc . Its shorter ^^.

For mouse command im working on since a long time. I need again a lot of time ^^ (its not realy easy on a big program....).
But you can be sure that it will be add wink !

I working and fix a lot of new bugs, i will upload the next version this weekend i think.

wink !
« Last Edit: Jan 29th, 2014, 4:55pm by atomose » User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
9/11
Junior Member
ImageImageImage


member is offline

Avatar

Because I'm Batman!!


PM

Gender: Male
Posts: 88
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.72a
« Reply #32 on: Jan 30th, 2014, 6:48pm »

Woah! This is amazing! I got it, and have only played for a little bit, but I think it's awesome! shocked Only problem is that it's not all the way translated, and I'm having trouble understanding some of it. The help section is still in French, after I clicked the English setting for the languages. undecided It's still an amazing game, though!! cool Did you do it all by yourself?
User IP Logged

Thank you for taking the time to read this signature. This signature loves you.
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.72a
« Reply #33 on: Jan 31st, 2014, 03:29am »

Hi, thx !! ^^

Its a long project, and every thing is from me (some pictures are not mine).

Im translating the help menu. Its the last part no translated but dont worry about it, next version will fixe it.

User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
tanger32au
Full Member
ImageImageImageImage


member is offline

Avatar



YIM YIM
Homepage PM

Gender: Male
Posts: 135
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.72a
« Reply #34 on: Jan 31st, 2014, 5:38pm »

I have just had a look at this, wow you have put a heap of work in to this, well done smiley
User IP Logged

http://launcestonanalyticalradioscanning.blogspot.com.au/

atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.72a
« Reply #35 on: Feb 8th, 2014, 7:12pm »

hi everyone !!

this is a big upgrade with a lot of bugs fixed, translation error fixed, translation add, game play improved, quest message add (when you lose or win the fight).
game stability improved to. hope you enjoy. (help menu isnt totaly translate for now).

Tell me what are you thinking about this new version wink !

link to dowload it : HERE
User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.80a
« Reply #36 on: Feb 11th, 2014, 09:47am »

Again a other upgrade with a lot of bugs found and fixed, and a lot of translation game improved.

link : HERE
« Last Edit: Feb 11th, 2014, 10:03am by atomose » User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.83a
« Reply #37 on: Feb 16th, 2014, 07:03am »

Hello everyone,

valentine obliges me I had to leave for a few moments .... ^ ^ After had show my girlfriend my code, it returned to some points that were not corrected and a lot of  bugs O_O! (yes my girlfriend knows programming and enjoys watching my codes: P).

It is 1 125 658 457 542 spelling mistakes that have been corrected (a 1 or 2 million near ... XD) and a good dozen HUGE bugs that I'm surprised not to have found much before! : (


I'll put the link to download the latest version just below smiley.

CLICK HERE

ps: I'll start small to make animations! with characters and monsters for xp on the maps wink!
User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
9/11
Junior Member
ImageImageImage


member is offline

Avatar

Because I'm Batman!!


PM

Gender: Male
Posts: 88
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.83a
« Reply #38 on: Feb 17th, 2014, 09:47am »

Woah! Amazing! shocked I think by far, this is the best game I have seen from just basic! I am very impressed with all the work you have put into this! How long have you been using just basic?

-9/11
User IP Logged

Thank you for taking the time to read this signature. This signature loves you.
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.83a
« Reply #39 on: Feb 17th, 2014, 10:31am »

thx ^^ !

its on the game introduction (2011-2014).
im working on JB since 2-3 years. Its my first and most advancing game smiley.
User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.87a
« Reply #40 on: Feb 20th, 2014, 3:14pm »

Hi, 2.68.87 finish !

its not realy a important upgrade for adds but this version fix a lot of bug and is stable.
i fixed sound bugs
improv setting menu
improve english translation
improve global stability.

hope you will be happy wink : CLICK HERE
User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.87a
« Reply #41 on: Feb 25th, 2014, 4:52pm »

Hello everyone!

I currently work on the section of artificial intelligence to be able to have fights interesting and talented opponents!
It's pretty hard to tell the truth to create this type of opponent ^ ^. Nevertheless, I inches and it starts to take shape smiley.
I do not know if the combat tested the version currently available for download but it just boils down to a single event:
On attack, the fight takes place, then it makes up one of the two opponents is no life ...
I found it quite boring. I wanted something more dynamic!

So I made ​​sure that we can control the character! In addition, the adversary no longer wait for you to attack but he will attack as soon as he can and will block your attacks when he can! so, you actually beat them against your opponent and it is no longer the characteristics of returning characters only account but the ability to fight you will: D!

Of course, the version I'm posting below is without images, without any textures. I would add later when I would have put this piece of code in the main code smiley.

I'm still working on the complexity of artificial intelligence, so that it reacts differently, unpredictable and what can surprise us! So this is the first version of AI that I post herewink!

The action keys are the following:
- z and s to attack
- q and to defend
otherwise you can also use the arrows on your keyboard
- up and down to attack
- right and left to defend

These buttons will change over time and each will be distinct and serve for a specific action (or other spells).

code to the next post:

« Last Edit: Feb 25th, 2014, 6:26pm by atomose » User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.87a
« Reply #42 on: Feb 25th, 2014, 4:52pm »

Code:
nomainwin
    WindowWidth = 450 :WindowHeight = 600
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    atk = 0
    def = 0
    atkACTION = 0
    defACTION = 0
    atkPOWER = 0
    defPOWER = 0
    block = 0
    blockENEMI = 0
    attaque = 8
    defense = 3
    dmgENEMI = 7
    armENEMI = 4
    vieE = 60
    vieEtotal = 60
    vie = 85
    regen = 0.2
    regenE = 0.3
    healTotal = 85
    mana = 15
    manaTotal = 15
    manaE = 8
    manaEtotal = 8
    Spell1$ = "Fire ball"
    Sp1Dmg = 25
    Spell1cost = 6
    manaReg = 0.5
    manaRegE = 1

    graphicbox #main.map, 0, 0, 450, 630
    open "IA" for window_nf as #main

    #main, "trapclose [quit]"
    #main.map,"setfocus; when characterInput [control_touchea]"
    #main.map, "down"
    print #main.map, "flush"
    print #main.map, "font Times New Roman 10; color black"
    print #main.map, "backcolor white ; place 150 515 ;\"; "Attack"
    print #main.map, "backcolor white ; place 230 515 ;\"; "Defense"
    print #main.map, "backcolor white ; place 170 500 ;\"; atk
    print #main.map, "backcolor white ; place 250 500 ;\"; def
    print #main.map, "backcolor white ; place 150 30 ;\"; "Attack"
    print #main.map, "backcolor white ; place 230 30 ;\"; "Defense"
    print #main.map, "backcolor white ; place 170 50 ;\"; atkE
    print #main.map, "backcolor white ; place 250 50 ;\"; defE
    print #main.map, "backcolor white ; place 350 50 ;\"; vieE; " / "; vieEtotal
    print #main.map, "backcolor white ; place 350 70 ;\"; manaE; " / "; manaEtotal
    print #main.map, "backcolor white ; place 350 500 ;\"; vie; " / "; healTotal
    timer 100, [fight]
    wait

    [control_touchea]
    gosub[case]
    [fightSecure]
    if atk = 1 then gosub [atk]
    if Spell1Eaction = 4 then gosub [spellENEMI]
    if atkENEMI = 1 then gosub [atkENEMI]
    print #main.map, "backcolor white ; place 170 500 ;\"; atk
    print #main.map, "backcolor white ; place 250 500 ;\"; def
    print #main.map, "backcolor white ; place 170 50 ;\"; atkENEMI
    print #main.map, "backcolor white ; place 250 50 ;\"; defE
    print #main.map, "backcolor white ; place 340 50 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 350 50 ;\"; vieE; " / "; vieEtotal
    print #main.map, "backcolor white ; place 340 70 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 350 70 ;\"; manaE; " / "; manaEtotal
    print #main.map, "backcolor white ; place 340 500 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 350 500 ;\"; vie; " / "; healTotal

    if vie <= 0 then
        timer 0
        notice "vous avez Perdu !"
    wait
    end if
    if vieE <= 0 then
        timer 0
        notice "vous avez gagné !"
    wait
    end if
    timer 100, [fight]
    wait

    [fight]
    timer 0
    atkACTION = atkACTION +1
    atkENEMIaction = atkENEMIaction +1
    defENEMIaction = defENEMIaction +1
    manaEaction = manaEaction +1
    regenAction = regenAction +1

    if atkACTION >= 15 then
        atkPOWER = 1
        atkACTION = 0
    end if
    defACTION = defACTION +1
    if defACTION >= 50 then
        defACTION = 0
        block = block + 1
    end if

    if atkENEMIaction >= 20 then
        atkENEMIaction = 0
        atkENEMIpower = 1
    end if

    if regenAction > 10 then
        regenAction = 0
        vie = vie +regen
        vieE = vieE +regenE
        if vie > healTotal then vie = healTotal
        if vieE > vieEtotal then vieE = vieEtotal
    end if

    if manaEaction > 20 then
        manaE = manaE + manaReg
        if manaE > manaEtotal then manaE = manaEtotal
        manaEaction = 0
        if manaE >= Spell1cost or Spell1Eaction>0 then Spell1Eaction = Spell1Eaction +1
    end if

    if defENEMIaction >= 40 then
        defENEMIaction = 0
        defENEMIpower = 1
        blockENEMI = blockENEMI + 1
    end if

    if atkENEMIpower = 1 then
        atkENEMI = 1
        atkENEMIpower = 0
    end if
    if defENEMIpower = 1 then
        defENEMI = 1
        defENEMIpower = 0
    end if

    if block > 3 then block = 3
    if blockENEMI > 3 then blockENEMI = 3
    if block >0 then def =1
    if blockENEMI >0 then defE = 1
    if Spell1Eaction = 3 or Spell1Eaction = 4 then atakENEMI = 0
    goto [fightSecure]


    [case]
    select case
    case asc(right$(Inkey$,1))= _VK_UP : atkTOUCH = 1
    case asc(right$(Inkey$,1))= _VK_DOWN : atkTOUCH = 1
    case asc(right$(Inkey$,1))= _VK_LEFT : defTOUCH = 1 : goto [defpower]
    case asc(right$(Inkey$,1))= _VK_RIGHT : defTOUCH= 1 : goto [defpower]
    case Inkey$ = "z" or Inkey$ = "Z" : atkTOUCH = 1
    case Inkey$ = "s" or Inkey$ = "S" : atkTOUCH = 1
    case Inkey$ = "q" or Inkey$ = "Q" : defTOUCH = 1 : goto [defpower]
    case Inkey$ = "d" or Inkey$ = "D" : defTOUCH = 1 : goto [defpower]
    end select

    [fixe]
    if atkPOWER = 1 and atkTOUCH = 1 then
        atk = 1
        atkPOWER = 0
    end if
    if block = 0 then def = 0
    if blockENEMI = 0 then defE = 0
    return

    [defpower]
    if block >= 1 and defTOUCH = 1 then
        Bcontrataque = 1
        Scontrataque = 1
        block = block - 1
        defBlock = 1
    end if
    if defBlock = 1 then
        defBlock = 0
        defTOUCH = 0
        print #main.map, "backcolor white ; place 100 80 ;\";"                                                                                                            "
        wait
    end if
    goto [fixe]



    [atk]
    timer 0
    atk = 0
    damages = int((rnd(attaque)*attaque+1)- armENNEMI)
    if blockENEMI > 0 then
        damages = 0
        blockENEMI = blockENEMI -1
    end if

if damages <= 0 then
    print #main.map, "backcolor white ; place 100 80 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 130 80 ;\";"The enemies dodge your attacks!"
    vieE = vieE
else
    print #main.map, "backcolor white ; place 100 80 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 200 80 ;\";"- ";damages
    vieE = vieE - damages
end if
if vieE < 0 then vieE = 0
return


    [atkENEMI]
    timer 0
    atkENEMI = 0
    contrataque = int((rnd(dmgENEMI)*dmgENEMI+1)-defense/2)
    if Bcontrataque =1 then
        contrataque = 0
        Bcontrataque = 0
    end if
if contrataque <= 0 then
    print #main.map, "backcolor white ; place 100 440 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 100 460 ;\";"                                                                                                            "
    print #main.map, "backcolor white ; place 145 460 ;\";"You dodge the attack!"
    vie = vie
    else
        print #main.map, "backcolor white ; place 100 460 ;\";"                                                                                                            "
        print #main.map, "backcolor white ; place 100 440 ;\";"                                                                                                            "
        print #main.map, "backcolor white ; place 150 460 ;\";"Sharp blow : - ";contrataque; " hp"
        vie = vie - contrataque
end if

    if Spell1Eaction = 1 then
        print #main.map, "backcolor white ; place 100 440 ;\";"                                                                                                        "
        print #main.map, "backcolor white ; place 115 440 ;\";"Preparation of enemy magic spell!"
        manaE = manaE - Spell1cost
    end if
    if Spell1Eaction < 3 then Scontrataque = 0
    goto [NOspell]

    [spellENEMI]
    if Spell1Eaction = 4 and Scontrataque = 0 then
        vie = vie - Sp1Dmg
        Spell1Eaction = 0
        print #main.map, "backcolor white ; place 100 440 ;\";"                                                                                                            "
        print #main.map, "backcolor white ; place 100 460 ;\";"                                                                                                            "
        print #main.map, "backcolor white ; place 130 440 ;\";"Enemy's fire ball : "; "- "; Sp1Dmg; " hp!"
    end if
    if Spell1Eaction = 4 and Scontrataque =1 then
        Spell1Eaction = 0
        Scontrataque = 0
        print #main.map, "backcolor white ; place 100 440 ;\";"                                                                                                            "
        print #main.map, "backcolor white ; place 100 460 ;\";"                                                                                                            "
        print #main.map, "backcolor white ; place 145 440 ;\";"Your counterspell !"
    end if
    [NOspell]
    if vie > healTotal then vie = healTotal
    if vie < 0 then vie = 0
return



    [quit]
    close #main
    end

    [I2]
    wait 

« Last Edit: Feb 25th, 2014, 4:53pm by atomose » User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.87a
« Reply #43 on: Mar 3rd, 2014, 4:54pm »

« Last Edit: May 12th, 2015, 1:13pm by atomose » User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
atomose
Full Member
ImageImageImageImage


member is offline

Avatar




Homepage PM


Posts: 198
wink Re: RPG GAME 2D/3D ! Eternal Quest 2.68.88a
« Reply #44 on: Mar 19th, 2014, 11:09am »

« Last Edit: May 12th, 2015, 1:13pm by atomose » User IP Logged

- Atomose -
Jb 1.01 - LB 4.50

Win10 64bit, 12GB RAM, Gt730 2Go DDR3, 1To 7200t/m, Athlon 5350 4x2.3GHz (laptop)
Win10 64bit, 16 GB RAM, Nvidia 840M 2Go, SSD Samsung EVO 250Go, Intel i7 4510U @2.0-3.1 GHz (netbook)
Pages: 1 2 3 4 5  Notify Send Topic Print
« Previous Topic | Next Topic »

Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls