Mirage Source

Free ORPG making software.
It is currently Sat Dec 13, 2025 9:14 pm

View unanswered posts | View active topics


Board index » Announcements » Archive (2006-2011) » Source Code Development » Mirage Source 4 (Visual Basic 6) » Tutorials

All times are UTC


Forum rules


Make sure your tutorials are kept up to date with the latest MS4 releases.



Post new topic Reply to topic  Page 1 of 57
  [ 1412 posts ]  Go to page 1, 2, 3, 4, 5 ... 57  Next
  Print view Previous topic | Next topic 
Author Message
Nean
PostPosted: Thu Sep 18, 2008 7:26 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
So this is just an edit of DarkC's Kill command. Even still, I find it useful, so I decided to make it for MS4's newest version.

Here goes.

Client Side:

Find
Code:
CGetClasses = 1


And under it add:
Code:
CJailPlayer


Now find:
Code:
' // Mapper Admin Commands //


And above it add:
Code:
' Jail player
                Case "/jail"
                    If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then
                        If UBound(Command) >= 1 Then
                            SendData CJailPlayer & SEP_CHAR & Command(1) & END_CHAR
                        End If
                    End If


Server Side:

Find:
Code:
CGetClasses = 1


Under it add:
Code:
CJailPlayer


Now find:
Code:
' :: Quit game packet ::


Under it add:
Code:
' ::::::::::::::::::::::::
        ' :: Jail Player Packet ::
        ' ::::::::::::::::::::::::
        Case CJailPlayer
        ' Prevent hacking...
        If GetPlayerAccess(Index) < ADMIN_CREATOR Then
            Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If

n = FindPlayer(Parse(1))

    If n <> Index Then
    If n > 0 Then
    'Sends messages out
        Call PlayerMsg(n, "You have been jailed by an admin.", BrightRed)
        Call GlobalMsg(GetPlayerName(n) & " has been jailed by an admin.", BrightRed)
    'Warp to Jail map (Change the coordinates to fit your needs)
        Call PlayerWarp(n, 5, 8, 8)
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
    Else
        Call PlayerMsg(Index, "You cannot jail yourself!", White)
    End If

Exit Sub


And it's done! Tell me how I did, hope you like it.

_________________
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


Last edited by Nean on Mon Sep 22, 2008 6:47 pm, edited 2 times in total.

Top
 Profile  
 
Doomy
PostPosted: Thu Sep 18, 2008 9:48 pm 
Offline
Persistant Poster
User avatar

Joined: Fri Aug 15, 2008 3:11 pm
Posts: 633
nice very nice

_________________
╔╗╔═╦═╦══╦═══╗
║║║║║║║╔╗║╔═╗║
║║║║║║║╚╝║║║║║
║╚╣║║║║╔╗║╚═╝║
╚═╩╩═╩╩╝╚╩═══╝


╔╦═╦╦════╦═══╗
║║║║╠═╗╔═╣╔══╝
║║║║║║║║║║╚═╗
║║║║║║║║║║╔═╝
╚═╩═╝║╚╝║╚╝ ?
Top
 Profile  
 
one
PostPosted: Thu Sep 18, 2008 9:53 pm 
Offline
Regular
User avatar

Joined: Sun Aug 27, 2006 5:36 pm
Posts: 53
ont forget to change
Code:
 'Warp to starting map
        Call PlayerWarp(n, 5, 8, 8)

to where your jail is :D

and better commend it as 'Warp to Jail
Top
 Profile  
 
Nean
PostPosted: Thu Sep 18, 2008 9:55 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
one wrote:
ont forget to change
Code:
 'Warp to starting map
        Call PlayerWarp(n, 5, 8, 8)

to where your jail is :D

and better commend it as 'Warp to Jail


Thanks. I changed the code, to make it easier to understand. Actually just the comment. But like I said, this is just an edit of DarkC's code.

_________________
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  
 
skillzalot
PostPosted: Mon Sep 22, 2008 10:22 am 
Offline
Regular

Joined: Sat Sep 13, 2008 1:41 am
Posts: 97
First off when I just copy and paste the packet it highlights CJailPlayer() and says only comments may be placed after subs and I have it the way you said to. So then I tried turning it into a sub and it worked until If GetPlayerAccess(Index) It highlights index and said variable not defined. And yes I am trying so Robin and others dont freak out I tried to fix it and could not solve it can you give me some insight on this please.

Code:
' ::::::::::::::::::::::
' :: Quit game packet ::
' ::::::::::::::::::::::
Sub HandleQuit(ByVal Index As Long)
    Call CloseSocket(Index)
End Sub

      ' ::::::::::::::::::::::::
        ' :: Jail Player Packet ::
        ' ::::::::::::::::::::::::
       Case CJailPlayer()
        ' Prevent hacking...
        If GetPlayerAccess(Index) < ADMIN_CREATOR Then
            Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If

n = FindPlayer(Parse(1))

    If n <> Index Then
    If n > 0 Then
    'Sends messages out
        Call PlayerMsg(n, "You have been jailed by an admin.", BrightRed)
        Call GlobalMsg(GetPlayerName(n) & " has been jailed by an admin.", BrightRed)
    'Warp to Jail map (Change the coordinates to fit your needs)
        Call PlayerWarp(n, 5, 8, 8)
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
    Else
        Call PlayerMsg(Index, "You cannot jail yourself!", White)
    End If

Exit Sub
Top
 Profile  
 
Kousaten
PostPosted: Mon Sep 22, 2008 2:08 pm 
Offline
Knowledgeable
User avatar

Joined: Wed Jul 26, 2006 11:22 pm
Posts: 143
Location: Virginia, USA
Are you using MS4?... I don't have the source in front of me so I can't confirm, but this was made to work with the latest MS4. MS 3.0.3 was built differently, to a point where copypasta alone won't work with it.
Top
 Profile  
 
Lea
PostPosted: Mon Sep 22, 2008 2:48 pm 
Offline
Community Leader
User avatar

Joined: Sun May 28, 2006 10:29 pm
Posts: 1762
Location: Salt Lake City, UT, USA
Google Talk: [email protected]
this tutorial will not work with the latest MSE4 release. Anyone want to update it?

_________________
I'm on Facebook! Google Plus LinkedIn My Youtube Channel Send me an email Call me with Skype Check me out on Bitbucket Yup, I'm an EVE Online player!
Why not try my app, ColorEye, on your Android devlce?
Do you like social gaming? Fight it out in Battle Juice!

I am a professional software developer in Salt Lake City, UT.
Top
 Profile  
 
Nean
PostPosted: Mon Sep 22, 2008 5:51 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
Lea wrote:
this tutorial will not work with the latest MSE4 release. Anyone want to update it?


It won't work with the newest release? What changed?

_________________
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  
 
Jacob
PostPosted: Mon Sep 22, 2008 5:53 pm 
Offline
Pro
User avatar

Joined: Tue Nov 13, 2007 2:42 pm
Posts: 509
Download the newest version and test it out.

We changed how packets are handled. They are separated into their own subs.
Top
 Profile  
 
Nean
PostPosted: Mon Sep 22, 2008 6:09 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
Dugor wrote:
Download the newest version and test it out.

We changed how packets are handled. They are separated into their own subs.


Hmm... I see. I haven't been using the latest version, because I don't wanna reprogram all that I have added. This is going to be bothersome. I'll see if I can remake it for the newest version. T_T;

_________________
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  
 
Rian
PostPosted: Mon Sep 22, 2008 6:28 pm 
Offline
Persistant Poster
User avatar

Joined: Tue May 30, 2006 2:07 am
Posts: 836
Location: Nashville, Tennessee, USA
Google Talk: [email protected]
You should be using the newest version. It's only gonna get better and better.

_________________
I'm on Facebook! Google Plus My Youtube Channel My Steam Profile

Image
Top
 Profile  
 
Nean
PostPosted: Mon Sep 22, 2008 6:34 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
Sonire wrote:
You should be using the newest version. It's only gonna get better and better.


True, but what about all the programming I put into the other? I know it's not much, but heres my changelog:

Code:
Things I've changed:

(Sep 19th, 2008)

Admin Panel (F1)
Member Of the Month
Who's Online that Have PK's.
Right click set access, server menu.
Kill and Jail commmands.
@ = Auction Chat

(Sep 20th, 2008)

Swear Filter
Draw NPC Names
Fixed Nullbanlist error
Fixed Moniter spelling error, with Monitor.
Made it so names can't go off screen.

(Sep 21st, 2008)

Changed /warpto, to /warp
Added /advancedinfo feature
Toggle Shift for run.
Fixed /setaccess bug
Programmed in /setlevel feature


It'd be a major pain to reprogram that in.... Then again, it'd improve my skills. Learning how to program it in different ways. I don't know... We'll see.

_________________
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  
 
Nean
PostPosted: Mon Sep 22, 2008 6:47 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
Alright, I fixed it so it works with the newest version. All you need to change, is the server side of things. Add this

Code:
            ' ::::::::::::::::::::::::
            ' :: Jail Player Packet ::
            ' ::::::::::::::::::::::::
Sub HandleJailPlayer(ByVal Index As Long, ByRef Parse() As String)
Dim N

            ' Prevent hacking...
            If GetPlayerAccess(Index) < ADMIN_CREATOR Then
                Call HackingAttempt(Index, "Admin Cloning")
            Exit Sub
        End If

    N = FindPlayer(Parse(1))

        If N <> Index Then
        If N > 0 Then
        'Sends messages out
            Call PlayerMsg(N, "You have been jailed by an admin.", BrightRed)
            Call GlobalMsg(GetPlayerName(N) & " has been jailed by an admin.", BrightRed)
        'Warp to Jail map (Change the coordinates to fit your needs)
            Call PlayerWarp(N, 5, 8, 8)
        Else
            Call PlayerMsg(Index, "Player is not online.", White)
        End If
        Else
            Call PlayerMsg(Index, "You cannot jail yourself!", White)
        End If

    End Sub


And find:
Code:
Handlekickplayer index, parse
And under that add:

Code:
Case CJailPlayer
            HandleJailPlayer Index, Parse

_________________
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  
 
Ciao
PostPosted: Tue Aug 11, 2009 6:22 am 
Offline
Newbie
User avatar

Joined: Thu Mar 05, 2009 2:45 am
Posts: 20
Image

Help me please ? :\
Top
 Profile  
 
Nean
PostPosted: Tue Aug 11, 2009 5:03 pm 
Offline
Persistant Poster
User avatar

Joined: Thu Jul 24, 2008 6:42 am
Posts: 703
Google Talk: [email protected]
Doesn't work with the newest version, I might reprogram it though.

_________________
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  
 
Ciao
PostPosted: Tue Aug 11, 2009 8:52 pm 
Offline
Newbie
User avatar

Joined: Thu Mar 05, 2009 2:45 am
Posts: 20
Alright, thanks for the quick reply , and thanks for letting me know man. Im pretty much new and attempting to learn everything at a slow pace so that I can understand things better but im confused with the tutorial section because there's some tutorials that work and some that don't.
Top
 Profile  
 
wanai
PostPosted: Wed Dec 01, 2021 7:34 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинйоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоsemiasphalticflux.ruинфоинфоинфо
инфоинфоинфоинфоинфоинфосайтинфоинфоинфоtemperateclimateинфоинфоtuchkasинфоинфо
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:08 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Vrin
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:09 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
37.6
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:10 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Bett
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:11 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Bett
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:12 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Rael
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:13 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Colu
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:15 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Bana
Top
 Profile  
 
wanai
PostPosted: Sun Dec 26, 2021 6:16 pm 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 559305
Henr
Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 57
  [ 1412 posts ]  Go to page 1, 2, 3, 4, 5 ... 57  Next

Board index » Announcements » Archive (2006-2011) » Source Code Development » Mirage Source 4 (Visual Basic 6) » Tutorials

All times are UTC


Who is online

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