http://heavenswings.ace.st
Would you like to react to this message? Create an account in a few clicks or log in to continue.


http://heavenswings.ace.st Herkez Gelsin Bu Site Kapanacaktır!
 
AnasayfaAnasayfa  Latest imagesLatest images  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

 

 [Guide] Party-Function 4 VB

Aşağa gitmek 
YazarMesaj
carpediem
Admin
carpediem


Mesaj Sayısı : 236
Kayıt tarihi : 18/05/08
Nerden : São Paulo/Brasil

[Guide] Party-Function 4 VB Empty
MesajKonu: [Guide] Party-Function 4 VB   [Guide] Party-Function 4 VB Icon_minitimeSalı Mayıs 20, 2008 9:00 am

[Guide] Party-Function 4 VB
Add this to your "modGameServer.bas":

Code:
Case "76FF" 'Form Party
Handle_Party_Form index, sData

Case "7535" ' Delete Party
Handle_Party_Delete index, sData

Case "73DC" 'Edit Party
Handle_Party_Edit index, sData


and soon:

Code:
Case "7588" 'Show Partylist
Handle_Party_ShowList index, sData



Now the functions:
Player froms party

Code:
Public Function Handle_Party_Form(index As Integer, data As String)

PartyCount = PartyCount + 1 'Increase the PartyNr.
PlayerData(index).PartyNr = WordFromInteger(PartyCount)
PlayerData(index).PartyOwner = True
PartyExist(PartyCount) = True

fData = "FFB6" & "0000"
fData = fData & "01"
fData = fData & WordFromInteger(PartyCount) & "0000"
fData = fData & "00000000"
fData = fData & Mid(data, 17, 2) 'Values for Exp-share/distrib. and "Only-master-invite"
fData = fData & Mid(data, 19, 2) 'PartyType (Hunting, Quest, Thief or Trade)
fData = fData & Mid(data, 21, 2) 'Min lvl
fData = fData & Mid(data, 23, 2) 'Max lvl
fData = fData & Mid(data, 25, 4) 'Len of Party title
fData = fData & Mid(data, 29, Len(data) - 24) 'Party title

pLen = (Len(fData) - Cool / 2
fData = WordFromInteger(pLen) & fData
For i = 1 To UBound(PlayerData)
If PlayerData(i).Ingame = True Then
frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
End If
Next i

End Function



Player deletes Party:

Code:
Public Function Handle_Party_Delete(index As Integer, data As String)

PlayerData(index).PartyOwner = False
PartyExist(IntegerFromWord(Mid(data, 1, 4))) = False

fData = "35B5" & "0000"
fData = fData & "01"
fData = fData & Mid(data, 1, 4) & "0000" 'PartyNr.

pLen = (Len(fData) - Cool / 2
fData = WordFromInteger(pLen) & fData
For i = 1 To UBound(PlayerData)
If PlayerData(i).Ingame = True Then
frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
End If
Next i

End Function



Player changes his partyentry:

Code:
Public Function Handle_Party_Edit(index As Integer, data As String)

fData = "DCB3" & "0000"
fData = fData & "01"
fData = fData & Mid(data, 1, 4) & "0000" 'PartyNr
fData = fData & "00000000"
fData = fData & Mid(data, 17, 2) 'Values for Exp-share/distrib. and "Only-master-invite"
fData = fData & Mid(data, 19, 2) 'PartyType (Hunting, Quest, Thief or Trade)
fData = fData & Mid(data, 21, 2) 'Min lvl
fData = fData & Mid(data, 23, 2) 'Max lvl
fData = fData & Mid(data, 25, 4) 'Len of Party title
fData = fData & Mid(data, 29, Len(data) - 24) 'Party name

pLen = (Len(fData) - Cool / 2
fData = WordFromInteger(pLen) & fData
For i = 1 To UBound(PlayerData)
If PlayerData(i).Ingame = True Then
frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
End If
Next i

End Function
Sayfa başına dön Aşağa gitmek
https://worldhackteam.forumdizini.com
 
[Guide] Party-Function 4 VB
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» [Guide]New Dmg System
» [Guide] GlobalChat-Function 4 VB
» [Guide] Weather-Function 4 VB
» [Guide]Skill upgrade
» [Guide] Exchange-Function 4 VB

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
http://heavenswings.ace.st :: http://heavenswings.ace.st :: http://heavenswings.ace.st-
Buraya geçin: