Mirage Source

Free ORPG making software.
It is currently Sat Apr 27, 2024 2:09 pm

All times are UTC




Post new topic Reply to topic  [ 41 posts ]  Go to page 1, 2  Next
Author Message
 Post subject: Loading Up..
PostPosted: Wed Nov 26, 2008 3:33 am 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
Problem: Doesn't load up (or save) individually as a different number

Code:
    DefaultMove(1 To 3) As Byte
   
    LearnMove(1 To 10) As Byte
    LearnLevel(1 To 10) As Byte


Code:
For i = 1 To 3
        Pokemon(n).DefaultMove(i) = Val(Parse(9))
    Next i
   
    For i = 1 To 10
        Pokemon(n).LearnMove(i) = Val(Parse(10))
        Pokemon(n).LearnLevel(i) = Val(Parse(11))
    Next i

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Wed Nov 26, 2008 7:35 pm 
Offline
Community Leader
User avatar

Joined: Mon May 29, 2006 1:00 pm
Posts: 2538
Location: Sweden
Google Talk: johansson_tk@hotmail.com
Where did you put:

Code:
DefaultMove(1 To 3) As Byte
   
    LearnMove(1 To 10) As Byte
    LearnLevel(1 To 10) As Byte

_________________
I'm on Facebook!My Youtube Channel Send me an email
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 12:02 am 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
in my PokémonRec

Is it because I can't send my packets this way?

Quote:
With Pokemon(PokemonNum)
For I = 1 To 3
For n = 1 To 10
Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(.Name) & SEP_CHAR & .Sprite & SEP_CHAR & .spritesheet & SEP_CHAR & .Type1 & SEP_CHAR & .Type2 & SEP_CHAR & .Evolve & SEP_CHAR & .EvolveLevel & SEP_CHAR & .DefaultMove(I) & SEP_CHAR & .LearnMove(n) & SEP_CHAR & .LearnLevel(n) & SEP_CHAR & END_CHAR
Next n
Next I
End With

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 12:44 am 
Offline
Knowledgeable
User avatar

Joined: Fri Sep 12, 2008 11:18 pm
Posts: 176
Location: England.
TonyNooblet wrote:
in my PokémonRec

Is it because I can't send my packets this way?

Quote:
With Pokemon(PokemonNum)
For I = 1 To 3
For n = 1 To 10
Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(.Name) & SEP_CHAR & .Sprite & SEP_CHAR & .spritesheet & SEP_CHAR & .Type1 & SEP_CHAR & .Type2 & SEP_CHAR & .Evolve & SEP_CHAR & .EvolveLevel & SEP_CHAR & .DefaultMove(I) & SEP_CHAR & .LearnMove(n) & SEP_CHAR & .LearnLevel(n) & SEP_CHAR & END_CHAR
Next n
Next I
End With


Code:
& SEP_CHAR & END_CHAR


What?


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 2:29 am 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
What about it?.. <.<"

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 10:17 am 
Offline
Persistant Poster
User avatar

Joined: Thu Aug 17, 2006 5:27 pm
Posts: 866
Location: United Kingdom
What the hell are you doing to that poor packet?!


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 10:42 am 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
Fox wrote:
What the hell are you doing to that poor packet?!


Waah1?!!? So so so I would have to type it out 1 to 10?

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 12:58 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Aug 17, 2006 5:27 pm
Posts: 866
Location: United Kingdom
I can see what you are doing,

If you MUST do it that way at least put the loop outside of the packet event procedure, have the loop where the packet event proc~ is called and just feed the variable into it.


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 3:02 pm 
Offline
Regular
User avatar

Joined: Wed Jul 30, 2008 4:32 pm
Posts: 44
Code:
Dim i As Long
Dim n As Long

   Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(Pokemon(PokemonNum).Name) & SEP_CHAR & Pokemon(PokemonNum).Sprite & SEP_CHAR & Pokemon(PokemonNum).spritesheet & SEP_CHAR & Pokemon(PokemonNum).Type1 & SEP_CHAR & Pokemon(PokemonNum).Type2 & SEP_CHAR & Pokemon(PokemonNum).Evolve & SEP_CHAR & Pokemon(PokemonNum).EvolveLevel & SEP_CHAR

    For I = 1 To 3
       Packet = Packet & Pokemon(PokemonNum).DefaultMove(I) & SEP_CHAR
    Next I
    For n = 1 To 10
       Packet = Packet & Pokemon(PokemonNum).LearnMove(n) & SEP_CHAR & Pokemon(PokemonNum).LearnLevel(n)
    Next n

    Packet = Packet & END_CHAR
    SendData(Packet)

Fixed... I guess.

_________________
Image


Last edited by Kraft on Thu Nov 27, 2008 4:42 pm, edited 1 time in total.

Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 3:47 pm 
Offline
Community Leader
User avatar

Joined: Mon May 29, 2006 1:00 pm
Posts: 2538
Location: Sweden
Google Talk: johansson_tk@hotmail.com
Just put a "sendata packet" below this:

Code:
Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(.Name) & SEP_CHAR & .Sprite & SEP_CHAR & .spritesheet & SEP_CHAR & .Type1 & SEP_CHAR & .Type2 & SEP_CHAR & .Evolve & SEP_CHAR & .EvolveLevel & SEP_CHAR & .DefaultMove(I) & SEP_CHAR & .LearnMove(n) & SEP_CHAR & .LearnLevel(n) & SEP_CHAR & END_CHAR

_________________
I'm on Facebook!My Youtube Channel Send me an email
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 4:42 pm 
Offline
Regular
User avatar

Joined: Wed Jul 30, 2008 4:32 pm
Posts: 44
William wrote:
Just put a "sendata packet" below this
Guess this is not what he needs. He wants to save an edited Pokémon.
Lots of DefaultMove(), LearnMove() and LearnLevel() in only ONE Pokémon (and packet).
The code I posted does it.

Sorry for bad English.

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 4:54 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Mar 29, 2007 10:30 pm
Posts: 1510
Location: Virginia, USA
Google Talk: hpmccloud@gmail.com
Fox wrote:
What the hell are you doing to that poor packet?!


Haha I lol'd.

_________________
Nean wrote:
Yes harold. Give it to me.

Image
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 5:10 pm 
Kraft hit it on the head.


Top
  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 5:17 pm 
Offline
Regular
User avatar

Joined: Wed Jul 30, 2008 4:32 pm
Posts: 44
Perfekt wrote:
Kraft hit it on the head.
Sorry, but what does it means? :P

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 5:26 pm 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
Fox wrote:
I can see what you are doing,

If you MUST do it that way at least put the loop outside of the packet event procedure, have the loop where the packet event proc~ is called and just feed the variable into it.


But wouldn't that be sending amounts of packets?

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 5:35 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Aug 17, 2006 5:27 pm
Posts: 866
Location: United Kingdom
Looked like that was what you were doing until Kraft cleaned it up.


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Nov 27, 2008 5:40 pm 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
Fox wrote:
Looked like that was what you were doing until Kraft cleaned it up.


Didn't understand The "For" command as much as I do right now ">.>

Is this the proper way to receive it

Quote:
For i = 1 To 3
Pokemon(n).DefaultMove(i) = Val(Parse(i + 8))
Next i

For i = 1 To 10
Pokemon(n).LearnMove(i) = Val(Parse(i + 9))
Pokemon(n).LearnLevel(i) = Val(Parse(i + 10))
Next i


edit;
Code:
For i = 1 To 3
        Pokemon(n).DefaultMove(i) = Val(Parse(i + 8))
    Next i
   
    For i = 1 To 10
        Pokemon(n).LearnMove(i) = Val(Parse((i * 2) + 11))
        Pokemon(n).LearnLevel(i) = Val(Parse((i * 2) + 11))
    Next i

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Fri Nov 28, 2008 1:19 am 
Kraft wrote:
Perfekt wrote:
Kraft hit it on the head.
Sorry, but what does it means? :P


Means you hit the nail on the head perfectly. You showed him exactly what was wrong with his code. :D


Top
  
 
 Post subject: Re: Loading Up..
PostPosted: Fri Nov 28, 2008 3:00 am 
Offline
Regular
User avatar

Joined: Wed Jul 30, 2008 4:32 pm
Posts: 44
Perfekt wrote:
Kraft wrote:
Sorry, but what does it means? :P
Means you hit the nail on the head perfectly. You showed him exactly what was wrong with his code. :D

Oh, I see!
Glad it's good stuff. Thank you! :P

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Fri Nov 28, 2008 4:32 am 
Offline
Persistant Poster
User avatar

Joined: Wed Nov 29, 2006 11:25 pm
Posts: 860
Location: Ayer
Me too <.<"

_________________
Image


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Mon Dec 13, 2021 9:34 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 489364
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтsemiasphalticfluxсайтсайтсайт
сайтсайтсайтсайтсайтсайтhttp://taskreasoning.ruсайтсайтсайтинфосайтсайтtuchkasсайтсайт


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Thu Feb 10, 2022 1:14 am 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 489364
Wind115.9PERFBettCaloDonaJackWendRemiAnneMattAtlaTaraPelhJulsRomaTescHomePunkFiskArthiPodDeko
AnneAtlaSkanDekoPuriPlanVenuDELUWillVeroLighAmorPhunTaftRobiPantWellDoctPerfJohnBillGarnHome
BongTrasWhatChegmanaLineBonuarisTerrFranJuanSelaVoguPlanELEGNikiFeliExpeCircClicFestXVIImust
MotiPartPeteDailRobePaulMMIVMiyoVentRomoPUREZoneRobeZoneJuliHappZoneSegaZoneHappHappHohlChet
RobeHairMaurXVIIJeanUnioZoneFrieJeweZoneVIIIFionGregMastHartNicoZoneJeanJohnWillHaroDaviChar
AllaQuijFragBlueFragWritTracBarrBookHayaCharChicBookRetuDuraXVIIGiglSauvARAGBlauJereXVIIJazz
CarlDragTrefMcKiMoxiCrazRockWindwwwcWindMoleBrauChouRiccPlanAndrRemiLoisBeetWindSweeMichpoli
ThisWillCamiXVIIModeRichHowaLeonMotoStopDonaYevgPipeJoseVenuLeavMariMikeJohnMessFranServBern
JoseRobeFranMaryConcJeroDuriFifeSeanDaviBenjAlicMORGSystThusIainmotiMcCaZdenBarrJohaBlueBlue
BlueAlfrArCoTerrBattCradwwwpAndrLoveVIIIAnarMPEGDebituchkasGregJour


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Sat Mar 12, 2022 12:38 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 489364
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтmagnetotelluricfieldсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтtuchkasсайтсайт


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Wed Jun 15, 2022 1:48 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 489364
Fran249.1CHAPCHAPRamaZaraOrigCharDeteCharYvesTescAtlaWindTheoColuJuleTescXVIIJohnZoneIronTesc
AtlaDoorDeadGilbOreaAhavCredMadaChinTintLighBobbStepGammLaicPatrCleaPlanAnatIndiXVIIJaneDail
ColgBlueMediFocuAndrYukoMattKoffSilvblacMacbArtuJeweMaryRobePariHenrMoreNikiDunaELEGHungSubl
QueeWindGiovCosmDuanDeadClegWindDreaPlayEricMornJeweArtsInteLukeBubcWillSwarZoneBodyMyseFuxi
diamArthHappgranChetCurtReevLiliStanCravSympMuruHenrGhinAndrINTEIrisFyodPatrFallHellOrbiRoma
MartWeimVillMPEGcraqThomCataCataThomAngeBookDesiEscaThisMistMistZeniMystBlueHEYNUrbaBasiSmoo
ValiNeotSdKfJessStaxLEGOSainfreeWindWindLEGOViteClikEsseGourPapeOZONAlleSofiNickAgatDeadTake
wwwrofteXVIIMarkMorcXVIIEmilAndrUndeXVIIWaltDaviAlleFreeEasyStraWillJonaKarlWitcTokyPaulAnto
wwwnOZONBodoLangWhenErnsCherElizChriForggoveEmpiAriaRockAnsoGreeGladMichFORECoulForbMPEGMPEG
MPEGAstrJeweGunsMedlAnjoTracLikeinviSiegSpanErinauthtuchkasVihmHect


Top
 Profile  
 
 Post subject: Re: Loading Up..
PostPosted: Sat Sep 10, 2022 7:23 am 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 489364
Thro155.8EyeRBettMEINArdeGeorPaceJustOiseDisnTescKarlClydRingKurtZyliSkypElaiUnithomeOracTesc
TropVeraSambTescCytoGeorHydrSturColdSchiPleaJorgDonaNicoPlanGuccPaleFrikRepoGeorTescReneHerb
NothVoguWertArktSupeSigmRollFELITschConcElisPetePostFallMystthesNikiXVIIsporPrinMuktBusiPush
StanFounFELIPhilCircRomaAllaRondBugaXXVIZoneZoneMaciwwwsBlueASASZoneUnioDickBarbMiloNasoCath
SodoZoneQuesWomaPatrPriediamFreiBrunZoneRuthXVIIZoneIrisGrouZonediamMariOpenZoneZoneZoneZone
MeatChipKobaSonyKronTaizClimknowBookCyBoFirsWindPuhdChicJewePETEWoodProlLanzMystSidethisBlue
ScotSlinJosesmasSmobWarhRollWindWindDennCitiDeLoOrigIntrBoziaudiPipeWindRadiHighPartMEDIMedi
EricPeteHolmForeXVIIEditThisWillAcadBlocRaymCeteCeteSergEnhaWholPedeComeSoulReunZimmPaulwwwa
BurkSimoUshaInteEverCallsemiAssaLarrBrenMoreSaraXvidBonuGeneLandWindTimeMandMPEGEsmeSonySony
SonyCamiOZONJuliBrowSuitwwwiParaCharJohnSimoDianAnthtuchkasSimoBaby


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 41 posts ]  Go to page 1, 2  Next

All times are UTC


Who is online

Users browsing this forum: No registered users and 53 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group