[VB]VisualBasic Source

Page 1 of 2

04/28/2010 02:16 �Hyperlink#1

I have been looked at some things for a VB Source, just wanted to show what i have.
Here is some of the scripts i got so far.
Tell me what you think, and you think is possible to create a server out of VB. Cuz im kinda new to all the advanced things at VB.
I have not created any systems yet, but if anybody knows VB and want to help, hook me up at PM.

Scripts

Spoiler

Movement:

Code:

Sub OnScriptedTile(index, Movement) ' Called when char move

Dim X
Dim Y
Dim Map
   
    X = GetCharX(index)
    Y = GetCharY(index)
    Map = GetCharMap(index)
   
    Select Case Map
        Case 1
            If X = 5 And Y = 10 Then
                'Code
            End If
           
        Case 2
            If X = 4 And Y = 1 Then
                If GetCharDir(index) = 0 Then
               
                End If
            End If
   
    End Select

End Sub

Code:

Sub JoinGame(index) ' Called when a char log in

    GAME_WEBSITE = "elitepvpers.com"
    GAME_SERVER = "VisualBasic Server"
   
    Call CharMsg(index, "Welcome to " & GAME_SERVER & " Please visit the offical website at " & GAME_WEBSITE & ".", C_BRIGHTBLUE)
    Call SendMOTD(index)
    Call SendWhosOnline(index)
   
    If GetCharAccess(index) < 1 Then
        Call GlobalMsg(GetCharName(index) & " (" & GetClassName(GetCharClassID(index)) & ") has joined " & GAME_SERVER & "!", C_WHITE)
        Call AdminMsg("IP: " & GetCharIP(index), C_WHITE)
    Else
        Call GlobalMsg(GetCharName(index) & " (" & GetCharAccessName(index) & ") has joined " & GAME_SERVER & "!", C_WHITE)
    End If

End Sub

' GlobalMSG is type 2011
' AdminMSG is type 2000, but send to admins GM's & PM's only

Left game

Code:

Sub LeftGame(index) ' Called when char leave the server

    If GetCharAccess(index) < 1 Then
        Call GlobalMsg(GetCharName(index) & " (" & GetClassName(GetCharClassID(index)) & ") has left " & GetServerName & "!", C_GREY)
    Else
        Call GlobalMsg(GetCharName(index) & " (" & GetCharAccessName(index) & ") has left " & GetServerName & "!", C_GREY)
    End If

End Sub

Stat Points

Code:

Sub UseStatPoint(Index, PointType) ' Called when a char set stat points

    If GetCharPOINTS(Index) > 0 Then
        Select Case PointType
            Case 0
                If GetCharSTR(Index) + 1 > 599 Then
                    Call CharMsg(Index, "You have maxed your strength!", C_RED)
                    Exit Sub
                End If
                Call SetCharSTR(Index, GetCharSTR(Index) + 1)
                Call CharMsg(Index, "You have gained more strength!", C_GREY)
            Case 1
              If GetCharVIT(Index) + 1 > 599 Then
                    Call CharMsg(Index, "You have maxed your VITense!", C_RED)
                    Exit Sub
                End If
                Call SetCharVIT(Index, GetCharVIT(Index) + 1)
                Call CharMsg(Index, "You have gained more VITense!", C_GREY)
            Case 2
                If GetCharSPI(Index) + 1 > 599 Then
                    Call CharMsg(Index, "You have maxed your SPIc!", C_RED)
                    Exit Sub
                End If
                Call SetCharSPI(Index, GetCharSPI(Index) + 1)
                Call CharMsg(Index, "You have gained more SPIc!", C_GREY)
            Case 3
                If GetCharAGI(Index) + 1 > 599 Then
                    Call CharMsg(Index, "You have maxed your AGI!", C_RED)
                    Exit Sub
                End If
                Call SetCharAGI(Index, GetCharAGI(Index) + 1)
                Call CharMsg(Index, "You have gained more AGI!", C_GREY)
        End Select
        Call SetCharPOINTS(Index, GetCharPOINTS(Index) - 1)
    Else
        Call CharMsg(Index, "You have no stat points to train with!", C_GREY)
    End If

End Sub

Well, dats all i have done yet, all that knows VB, hook me up to help me thanks :D

04/28/2010 02:19 ImFlamedCOD#2

Ive worked with Visual Basic before. If ya need help let me know , hit me up on a pm. Good luck tho.

04/28/2010 02:24 �Hyperlink#3

Quote:

Originally Posted by ImFlamedCOD

Ive worked with Visual Basic before. If ya need help let me know , hit me up on a pm. Good luck tho.

Thanks :)
Ill let you know, when I run into a problem.
Right now im just looking into basics things for server.
Like moving, jumping, characters etc.
Then ill come to connections, sockets, database (Ill use ini).
etc.
I might run in problems there, then ill let u know what i need help for :)
Thank you very much, I appriciate that :)

04/28/2010 11:58 herekorvac#4

It is possible..Saint created a while back and its on I think hybrids thread for his extremely bugless source.

04/28/2010 13:41 ChingChong23#5

long time ago when i was into vb6 i wrote a server for another game, yes it is possible.

04/28/2010 15:45 kamote#6

Quote:

Originally Posted by ChingChong23

long time ago when i was into vb6 i wrote a server for another game, yes it is possible.

possible, but not stable... winsock of vb6 are quite buggy to handle...

04/28/2010 16:39 ChingChong23#7

Quote:

Originally Posted by kamote

possible, but not stable... winsock of vb6 are quite buggy to handle...

id put my bets that it can easily become more stable than LOTF or CoEmu

04/28/2010 17:23 Korvacs#8

I hate VB :(

04/29/2010 00:32 ImFlamedCOD#9

My vb6 source is very stable and very reliable. But i have to agree with Korvacs , after i learned C# and c++ , i would never go back to using vb.

04/29/2010 00:35 �Hyperlink#10

i was not after making a server.
Just trying to work with differnet languages :)
thats why i thought i could work out with vb :P

04/29/2010 21:27 herekorvac#11

PHP servers rock :)

04/29/2010 21:58 �Hyperlink#12

Quote:

Originally Posted by herekorvac

PHP servers rock :)

lol,i would like to see you create a socket in php.
;)

04/29/2010 22:38 herekorvac#13

Quote:

Originally Posted by �Hyperlink

lol,i would like to see you create a socket in php.
;)

PHP Code:


			
<?php 
// Set time limit to indefinite execution 
set_time_limit (0); 

// Set the ip and port we will listen on 
$address = '192.168.0.100'; 
$port = 9000; 

// Create a TCP Stream socket 
$sock = socket_create(AF_INET, SOCK_STREAM, 0); 
// Bind the socket to an address/port 
socket_bind($sock, $address, $port) or die('Could not bind to address'); 
// Start listening for connections 
socket_listen($sock); 

/* Accept incoming requests and handle them as child processes */ 
$client = socket_accept($sock); 

// Read the input from the client – 1024 bytes 
$input = socket_read($client, 1024); 

// Strip all white spaces from input 
$output = ereg_replace("[ \t\n\r]","",$input).chr(0); 

// Display output back to client 
socket_write($client, $output); 

// Close the client (child) socket 
socket_close($client); 

// Close the master sockets 
socket_close($sock); 
?>

src [Only registered and activated users can see links. Click Here To Register...]

annnd here more [Only registered and activated users can see links. Click Here To Register...]

04/29/2010 23:42 Basser#14

Only an idiot would make a server in PHP.

04/29/2010 23:50 �Hyperlink#15

Quote:

Originally Posted by herekorvac

PHP Code:

<?php // Set time limit to indefinite execution set_time_limit (0); // Set the ip and port we will listen on $address = '192.168.0.100'; $port = 9000; // Create a TCP Stream socket $sock = socket_create(AF_INET, SOCK_STREAM, 0); // Bind the socket to an address/port socket_bind($sock, $address, $port) or die('Could not bind to address'); // Start listening for connections socket_listen($sock); /* Accept incoming requests and handle them as child processes */ $client = socket_accept($sock); // Read the input from the client � 1024 bytes $input = socket_read($client, 1024); // Strip all white spaces from input $output = ereg_replace("[ \t\n\r]","",$input).chr(0); // Display output back to client socket_write($client, $output); // Close the client (child) socket socket_close($client); // Close the master sockets socket_close($sock); ?>

src [Only registered and activated users can see links. Click Here To Register...]

annnd here more [Only registered and activated users can see links. Click Here To Register...]

LMAO nice :)

@Hepatitis
yea true.

Page 1 of 2