teh jimpie

hm ye, I forget to rename a packet - thanks works fine now

I did, still the same.. :(

hey why if im playing the game, and clicking anywere on the map, it tells me: "You have not been invited to a party!" ? because its pretty stupid if you just click somewere it says that

ugh, waiting almost 2 weeks.. can anybody help?

could you transelate this code: Server > Client ``` Call SendDataTo(Index, "trainopt" & END_CHAR) ``` to eo code? ``` buffer.writelong frm ??? ``` Because I'm still not understanding 100%. I can't figure out what's sending the data in the code below: > Public Sub GlobalMsg(ByVal Msg As String, ByVal color As Byte) > Dim Buffer As clsBuffer > Set Buffer = New clsBuffer > > Buffer.WriteLong SGlobalMsg > Buffer.WriteString Msg > Buffer.WriteLong color > SendDataToAll Buffer.ToArray '? > > Set Buffer = Nothing > End Sub then a 2th thing, where client side to it receive the data? Modhandle data? I see nowere case's? :icon_surprised: I see only a long list of initMessages; Public Sub InitMessages() I'm trying to make a player profile what will pop-up if you rightclick the player. ``` ' Change target TempPlayer(index).Target = i TempPlayer(index).TargetType = TARGET_TYPE_PLAYER Call PlayerMsg(index, "Your target is now " & GetPlayerName(i) & ".", Yellow) If ButtonID = 2 Then 'buffer. End If ```

hey how do I send in EO data from client to server and from server to the client? something like this (in ES) Call SendDataTo(Index, "traineropt" & END_CHAR) but it doesnt work the only thing I can find is this: SendData Buffer.ToArray() but its not sending something specifik like in ES

@Vålöñシ: > When I use the bank in Eclipse Stable and try to deposit a stackable item it doesn't show up how many you want to deposit in the bank and it also doesn't let you put it in at all all it does is say "you must deposit more than 0" > > However it works with non-stackable items > > Does anyone know how to fix this? I guess it's a source edit. You could try it here http://www.touchofdeathforums.com/smf/index.php/topic,60786.20.html XD

hello, I'm looking for a fancy pokemon trainer card, if someone could make it me it could be nice. what should be on it: - a cool place for the name - how many pokemon's the trainer have seen - how many pokemon's the trainer have caught - a place where you can put the current pokemon team of the player - how many badges the player have + a place for the badge icon - how many money the trainer got - a place where you can put something about win/losses/draw/total matches - how long the player is playing - a special place for the player class if you know anything else what could be cool on the trainer card, please post it, maybe it can be usefull!

I think you'll get errors if you open the profile and the player didnt died before, the file doesnt exists then

hmm thanks, but I already have that :/ I'll re-make te whole code and see then what will happen

hello when I use this packet in the client, it will say it can't find the picture. it says: Run-time error '53': File not found: \C:\Users\???\Desktop\Pokemon\GUI\Custom\Battle3\.bmp' so far as I can see its looking for ".bmp", but it did forget the " & Pokemon1 & " I guess I'm doing something wrong, but what? ``` Public Sub Packet_SetPokemonPicture(Pokemon1, Pokemon2, Pokemon3, Pokemon4, Pokemon5, Pokemon6) 'Call Packet_PokemonPicture(Parse(1), Parse(2), Parse(3), Parse(4), Parse(5), Parse(6)) frmStable.picPokemon1.Picture = LoadPicture(App.Path & "\GUI\CUSTOM\Battle3\" & Pokemon1 & ".bmp") End Sub ```

@Ballie: > Just copy the code from the SaveNPC sub or something. All you have to change is some variable names and such. Here's a quick and easy way to do what you want with just about any feature in Eclipse: > > -Copy and paste a sub similar to what you're trying to do. > -Replace specific parts with variables that pertain to your new system. This means just renaming things. For instance, change SaveNPC to SavePokemon, and instead of NPCNum, call it PokemonNum, etc. > -Run the code. When you receive an error for a particular variable, find its counterpart. For instance, if you change NPC(index).Name to Pokemon(index).Name and get a "function not defined" error, you'll seek out the original NPC() bit. > -Find where that variable is set and copy it. For instance, Dim NPC(1 to MAX_NPCS) as NpcRec would become Dim Pokemon(1 to MAX_POKEMON) as PokemonRec. > -Continue comparing and copying until you have copied the whole system over for saving, loading, and editing. > -When all is done, write the specific logic for the actual feature. Okay, I'll look what I can do. But I think I'll use EO then because its "cleaner". If I have any questions, I'll ask :)

thanks ballie :) You mean like the maps, npcs etc. with .dat files? I've already looked up for a tut of it, but I couldnt find it :/

compile error: variable not set; "speed = GetVar … " ``` Public Sub Packet_WhatPokemonEdit(ByVal Index As Long, ByVal PokemonNum As String) 'Packet - Name, Type1, Type2, Hp, Att, SpAtt, Def, SpDef, Speed, MaxHp, MaxAtt, MaxSpAtt, MaxDef, MaxSpDef, MaxSpeed, Evolve, Lvl, To, %Male, %Catch(full), %Catch(half), %Catch(low), %Happy, Exp Dim PokeName As String Dim Type1 As String Dim type2 As String Dim hp As String Dim attack As String Dim spattack As String Dim defence As String Dim spdefence As String Dim speed As String Dim maxhp As String Dim maxattack As String Dim maxspattack As String Dim maxdefence As String Dim maxspdefence As String Dim speed As String Dim evolve As String Dim lvl As String Dim et As String Dim male As String Dim catchfull As String Dim catchhalf As String Dim catchlow As String Dim happiness As String Dim exp As String PokeName = GetVar("Pokemons\" & PokemonNum & ".ini", "POKEMON", "Name") Type1 = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "type1") type2 = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "type2") hp = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "hp") attack = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "attack") spattack = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "spattack") defence = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "defence") spdefence = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "spdefence") speed = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "speed") maxhp = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "max_hp") maxattack = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "max_attack") maxspattack = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "max_spattack") maxdefence = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "max_defence") maxspdefence = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "max_spdefence") maxspeed = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "max_speed") evolve = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "evolve") lvl = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "evolve_lvl") et = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "evolve_to") male = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "male") catchfull = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "catch_full") catchhalf = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "catch_half") catchlow = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "catch_low") happiness = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "happiness") exp = GetVar("Pokemons/" & PokemonNum & ".ini", "POKEMON", "exp") Call SendData("editpokemon" & SEP_CHAR & PokeName & SEP_CHAR & Name & SEP_CHAR & Type1 & SEP_CHAR & type2 & SEP_CHAR & scrollHP & SEP_CHAR & attack & SEP_CHAR & spattack & SEP_CHAR & defence & SEP_CHAR & spdefence & SEP_CHAR & speed & SEP_CHAR & maxhp & SEP_CHAR & maxattack & SEP_CHAR & maxspattack & SEP_CHAR & maxdefence & SEP_CHAR & maxspdefence & SEP_CHAR & maxspeed & SEP_CHAR & evolve & SEP_CHAR & lvl & SEP_CHAR & et & SEP_CHAR & male & SEP_CHAR & Full & SEP_CHAR & catchhalf & SEP_CHAR & catchlow & SEP_CHAR & happiness & SEP_CHAR & exp & END_CHAR) End Sub ``` I'm not sure what I'm doing wrong.. Maybe "As String"? Can anybody help? thanks

Hey ballie, **something short about me:** Im 15 years old, My name is jim and I live in holland. I'm still on school. **the project** do you want to join my in my pokemon project? It'll be turn based with source/scripting. more inforemation in the PM I send now to you ;)

thanks :)

I want to make it so that you can't use anything else then something what is in the list, because when you press backspace you can type your own text. But now I have runtime-error 13, "mismatch"

> If Not cmbType1.Text Or cmbType2.Text = cmbType1.List Or cmbType2.List Then > Call MsgBox("Please enter a valid type!") > Exit Sub > End If "Compile error: argument not optional" whats wrong?

- fixed.

> hat are MY graphics, if you dont ducking change that, im gonna release a ducking storm on your arse… Yep :) sorry, I just needded a start to put the labels, ofcourse I'll use other graphics before releasing it ;) oh, edit, a 2th question, with what program did you made that graphics? they're really nice anyway edit 2 XD > or you learn what the guys above say, or you get a png ocx for vb6. I think I've already got an easier idea, a 0% source edit :P

@Robin: > No. How'll you make a good gui for the pokemon game then? If you always have a black/white background on the image?

@Robin: > @teh: > > > takes it long to make it? Because it's pretty fail now. > > For you, a _very_ long time. You can't learn DD7 overnight. hmm.. okay thanks. is it possible in vb6 to make a transeperant picturebox? > Yes how? > No shet

takes it long to make it? Because it's pretty fail now.

download this: http://www.clickteam.com/eng/installcreator.php

hello, is it possible to remove the "black" background on the custom menu picture? (maybe a source edit) ? How? (Yes, I know, bad GUI, but that'll come later, first my scripts) [](http://img121.imageshack.us/i/naamloosvmx.jpg/) Uploaded with [ImageShack.us](http://imageshack.us)