Mirage Source

Free ORPG making software.
It is currently Thu Mar 28, 2024 7:19 pm

All times are UTC




Post new topic Reply to topic  [ 8 posts ] 
Author Message
 Post subject: lol @ my old code
PostPosted: Fri Jul 03, 2009 11:10 pm 
Offline
Knowledgeable

Joined: Sat Jul 08, 2006 8:24 am
Posts: 339
Code:
Public Function SendFunction(ByVal RemoteFunction As String, Optional ByVal Data1 As Variant = vbNullString, Optional ByVal Data2 As Variant = vbNullString, Optional ByVal Data3 As Variant = vbNullString, Optional ByVal Data4 As Variant = vbNullString, Optional ByVal Data5 As Variant = vbNullString, Optional ByVal Data6 As Variant = vbNullString, Optional ByVal Data7 As Variant = vbNullString, Optional ByVal Data8 As Variant = vbNullString, Optional ByVal Data9 As Variant = vbNullString, Optional ByVal Data10 As Variant = vbNullString _
, Optional ByVal Data11 As Variant = vbNullString, Optional ByVal Data12 As Variant = vbNullString, Optional ByVal Data13 As Variant = vbNullString, Optional ByVal Data14 As Variant = vbNullString, Optional ByVal Data15 As Variant = vbNullString, Optional ByVal Data16 As Variant = vbNullString, Optional ByVal Data17 As Variant = vbNullString, Optional ByVal Data18 As Variant = vbNullString, Optional ByVal Data19 As Variant = vbNullString, Optional ByVal Data20 As Variant = vbNullString)
Dim AmountOfByvals As Integer
Dim data As String


AmountOfByvals = 0

If Data1 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data2 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data3 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data4 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data5 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data6 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data7 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data8 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data9 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data10 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data11 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data12 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data13 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data14 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data15 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data16 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data17 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data18 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data19 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1
If Data20 <> vbNullString Then AmountOfByvals = AmountOfByvals + 1

Select Case AmountOfByvals

Case 0
    data = RemoteFunction & "()" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 1
    data = RemoteFunction & "(" & Data1 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 2
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 3
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 4
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 5
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 6
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 7
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 8
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 9
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 10
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 11
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 12
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 13
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 14
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 15
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & SEP_CHAR2 & Data15 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 16
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & SEP_CHAR2 & Data15 & SEP_CHAR2 & Data16 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 17
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & SEP_CHAR2 & Data15 & SEP_CHAR2 & Data16 & SEP_CHAR2 & Data17 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 18
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & SEP_CHAR2 & Data15 & SEP_CHAR2 & Data16 & SEP_CHAR2 & Data17 & SEP_CHAR2 & Data18 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 19
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & SEP_CHAR2 & Data15 & SEP_CHAR2 & Data16 & SEP_CHAR2 & Data17 & SEP_CHAR2 & Data18 & SEP_CHAR2 & Data19 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
Case 20
    data = RemoteFunction & "(" & Data1 & SEP_CHAR2 & Data2 & SEP_CHAR2 & Data3 & SEP_CHAR2 & Data4 & SEP_CHAR2 & Data5 & SEP_CHAR2 & Data6 & SEP_CHAR2 & Data7 & SEP_CHAR2 & Data8 & SEP_CHAR2 & Data9 & SEP_CHAR2 & Data10 & SEP_CHAR2 & Data11 & SEP_CHAR2 & Data12 & SEP_CHAR2 & Data13 & SEP_CHAR2 & Data14 & SEP_CHAR2 & Data15 & SEP_CHAR2 & Data16 & SEP_CHAR2 & Data17 & SEP_CHAR2 & Data18 & SEP_CHAR2 & Data19 & SEP_CHAR2 & Data20 & ")" & SEP_CHAR2 & END_CHAR
    Call SendData(data)
End Select


End Function




Code:
Sub HandleData(ByVal Index As Integer, data As String)
Dim NoStuff As Boolean
NoStuff = True

AmountOfByvals = 0
Arguments = Split(data, "(")
'Arguments(0) is the function, and Arguments(1) are the byvals
TheFunction = Arguments(0)
AllByvals = Arguments(1)

Label1.Caption = data

AllByvals = Left(AllByvals, Len(AllByvals) - 2)
Byvals = Split(AllByvals, SEP_CHAR2)
'If InStr(AllByvals, SEP_CHAR2) Then
 '   NoStuff = False
  '  Byvals = Split(AllByvals, SEP_CHAR2)
   '
    'For i = 0 To UBound(Byvals)
     '   If Byvals(i) <> vbNullString Then
      '      AmountOfByvals = AmountOfByvals + 1
       ' End If
'    Next i
'Else
 '   If AllByvals <> "" Then
  '      AmountOfByvals = 1
   ' Else
    '    AmountOfByvals = 0
   ' End If
'End If
   
   
If Left(TheFunction, 1) = SEP_CHAR2 Then TheFunction = Right(TheFunction, Len(TheFunction) - 1)

Select Case UBound(Byvals) + 1

Case 0
    Call CallByName(Me, TheFunction, VbMethod, Index)
    Exit Sub

Case 1
    Call CallByName(Me, TheFunction, VbMethod, AllByvals, Index)
    Exit Sub

Case 2
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Index)
    Exit Sub

Case 3
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Index)
    Exit Sub
   
Case 4
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Index)
    Exit Sub
   
Case 5
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Byvals(4), Index)
    Exit Sub
   
Case 6
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Byvals(4), Byvals(5), Index)
    Exit Sub
   
Case 7
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Byvals(4), Byvals(5), Byvals(6), Index)
    Exit Sub
   
Case 8
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Byvals(4), Byvals(5), Byvals(6), Byvals(7), Index)
    Exit Sub
   
Case 9
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Byvals(4), Byvals(5), Byvals(6), Byvals(7), Byvals(8), Index)
    Exit Sub
   
Case 10
    Call CallByName(Me, TheFunction, VbMethod, Byvals(0), Byvals(1), Byvals(2), Byvals(3), Byvals(4), Byvals(5), Byvals(6), Byvals(7), Byvals(8), Byvals(9), Index)
    Exit Sub
   
End Select


End Sub

Hehehe, me being a lazy fuck and just using Call CallFunction(FunctionName, Byval1, Byval2, etc) Horrible code ;p. Did this several years ago, when I was working with Leonardo (Valec was his name I believe)


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Fri Jul 03, 2009 11:12 pm 
Offline
Knowledgeable

Joined: Sat Jul 08, 2006 8:24 am
Posts: 339
Hehe, creating boxes and checking if user clicked the box when clicking on screen. Again, pretty lousy lol

creating box
Code:
With UsernameboxRECT
    .top = 275
    .Left = 274
    .Right = 530
    .Bottom = 293
End With

Code:
Function InRECT(ByRef RECT As RECT, MouseX As Integer, MouseY As Integer) As Boolean
InRECT = False
    If RECT.top < MouseY And RECT.Bottom > MouseY And MouseX > RECT.Left And MouseX < RECT.Right Then
        InRECT = True
    End If
End Function


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Tue Jul 07, 2009 10:00 pm 
Offline
Knowledgeable

Joined: Sat Jul 08, 2006 8:24 am
Posts: 339
Don't be afraid to lol at my old code, even if it's still better than yours!


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Tue Jul 07, 2009 10:02 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: infectiousbyte@gmail.com
Yeah this is probably better than I can do.

lol regardless.

_________________
Image
GIAKEN wrote:
Since I'm into men, not women

GIAKEN wrote:
I can't take these huge penises anymore! All that's left is shame! And blood


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Tue Jul 07, 2009 10:12 pm 
Offline
Knowledgeable

Joined: Sun Jan 13, 2008 5:59 pm
Posts: 107
I probably dont even understand most of it :D.

lol anyways


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Wed Jul 08, 2009 12:18 am 
Offline
Knowledgeable

Joined: Sat Jul 08, 2006 8:24 am
Posts: 339
It was really me being lazy. I coded it so I could just use CallFunction(Login, User, PW) in client, then just add a sub Named Login with 2 byvals, and the code would automaticly read the packet and call the login Sub with the right byvalls. So it really felt like there was no client/server relation, as you could call a sub/function with one line of code. It's slow as hell though ;p.

(as far as I know, I was the first to use this code with winsock, if I wanted, I could probably make a .dll or something to make it REALLY easy for people to send and retrieve packets, but it'd be slooow)


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Wed Jul 08, 2009 8:43 am 
Offline
Pro

Joined: Sat Jun 03, 2006 8:32 pm
Posts: 415
Easy is nice but not at the cost of speed

_________________
OREH
http://www.flawsin.com/oreh
Image


Top
 Profile  
 
 Post subject: Re: lol @ my old code
PostPosted: Fri Jul 10, 2009 8:58 am 
Offline
Knowledgeable

Joined: Sat Jul 08, 2006 8:24 am
Posts: 339
Agreed. I bragged so much about this code though lol. Claiming the first to ever use external-packet-calling or whatever I called it. Hey, I was young and no one else knew how to program!


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 8 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 7 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