Zopto

this is my frst tutorial ok lets start… in frmMenu go to picCharacter then make 2 lbl 1.name: lblSpriteLeft 2.name:lblSpriteRight click two times on lblSpriteLeft and add inside: ``` Private Sub lblSpriteLeft_Click() Dim spritecount As Long If optMale.Value Then spritecount = UBound(Class(cmbClass.ListIndex + 1).MaleSprite) Else spritecount = UBound(Class(cmbClass.ListIndex + 1).FemaleSprite) End If If newCharSprite = spritecount Then newCharSprite = 0 Else newCharSprite = newCharSprite + 1 End If NewCharacterBltSprite End Sub ``` **now go to server/data/classes.ini** and chage MaleSprite and FemaleSprite >! [CLASS2] >! Name=Mage >! **MaleSprite=34,35,128 (chage to any other number of sprite you have) >! FemaleSprite=30,39,40** >! Strength=3 >! Endurance=4 >! Intelligence=10 >! Agility=6 >! Willpower=7 >! StartItemCount=2 >! StartItem1=1 >! StartValue1=100 >! StartItem2=257 >! StartValue2=1 >! StartSpellCount=1 >! StartSpell1=6 i hope i be good for my frst tutorial and sry for bed englesh…. :embarrassed: it need to look like this :[](http://www.uploadhouse.com/viewfile.php?id=14948431&showlnk=0)

16

and i went to set example to:caracter 1-evolue in sprite 3 caracter 2-evolue in sprite 2 caracter 3 evolue in sprite 1 how that???

ok tyy and now how to set if he need to evolue in lvl 15 ???

how you set it to sprites go in god way ???

i try this and it set spirits in XXXX but in wrong way.:SSS XXXX XXXX

Sub HandleRequestLevelUp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) SetPlayerExp Index, GetPlayerNextLevel(Index) CheckPlayerLevelUp Index End Sub ok i found what now??

Public Sub SendRequestLevelUp() Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CRequestLevelUp SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "SendRequestLevelUp", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub here???

tyyyy

example player got lvl 10 and he need to go on some place and there to evolue(pokemon) that somting???how to set evolution???i using EO

niceeeee ty

i found on torrent Visual Basic 6 Portable :DD

ty man !!!!!

and sry all for my bed englesh

ok i try leter to set all codes and i hope to now work ty Lightning and adr990 you two are best :DDDD

tyyy

@Lightning: > Read what I just posted. >:( O.o ok ok but google translate dont translate good ugh

we hawe same problem

i set all codes good and i server side i finis al codes and that show error i all day try to fix it and noting ugh :SSS

ugh xD :confused: :confused:

ok i know to i am anoying Lightning but may any 1 say me what is problem here http://imageshack.us/photo/my-images/21/errorlk.png/ For i = 1 To PetMapCache(MapNum).UpperBound on that code say to is error

ty man !!!!!!!!

ok i know that but whay that code not working all work that no ugh

ugh it never work i go serch for other pet system :(

try to reinstal :SS