Author |
Message |
Forum: Resources Topic: Full Name Needed for Commands |
Tutorial Bot |
Posted: Sun Dec 24, 2006 4:50 am
|
|
Replies: 11 Views: 4937
|
Author: Dave Difficulty: 1/5 " This tutorial is supported for only MSE build 1. If you can't handle doing this on your server, no matter what base, you need serious help. This tutorial makes it so you need the entire name of a player to use a command on them. It eliminates confusion between si... |
|
|
Forum: Resources Topic: Transparent Color For Surfaces |
Tutorial Bot |
Posted: Sat Dec 23, 2006 10:01 pm
|
|
Replies: 12 Views: 4773
|
Author: Enigmewave Difficulty: 3/5 :: CLIENT SIDE :: In modDirectX.bas, add: Public Sub SetMaskColorFromPixel(ByRef TheSurface As DirectDrawSurface7, ByVal X As Long, ByVal Y As Long) Dim TmpR As RECT Dim TmpDDSD As DDSURFACEDESC2 Dim TmpColorKey As DDCOLORKEY With TmpR .Left = X .Top = Y .Right = ... |
|
|
Forum: Resources Topic: NPCs Talk When Attacked |
Tutorial Bot |
Posted: Sun Dec 17, 2006 3:34 am
|
|
Replies: 14 Views: 4873
|
Author: Izzy545 Difficulty: 1/5 :: SERVER SIDE :: In sub CanAttackNpc, under " ' Make sure they are on the same map ", in the select case statement, for all directions replace: If Npc(NpcNum).Behavior <> NPC_BEHAVIOR_FRIENDLY And Npc(NpcNum).Behavior <> NPC_BEHAVIOR_SHOPKEEPER Then CanAtt... |
|
|
Forum: Resources Topic: Display MapNum |
Tutorial Bot |
Posted: Sat Dec 09, 2006 4:04 pm
|
|
Replies: 12 Views: 3296
|
Author: Perfekt Difficulty: 1/5 :: CLIENT SIDE :: Find: ' Map Editor If LCase(Mid(MyText, 1, 10)) = "/mapeditor" Then Call SendRequestEditMap MyText = "" Exit Sub End If Beneath that, add: ' MapNum If LCase(Mid(MyText, 1, 4)) = "/map" Then If frmMirage.picMapNum.Visibl... |
|
|
Forum: Resources Topic: Adding Width to the MapEditor |
Tutorial Bot |
Posted: Tue Dec 05, 2006 10:02 pm
|
|
Replies: 12 Views: 3459
|
Author: Leighland Difficulty: 1/5 See Also: http://www.key2heaven.net/ms/forums/viewtopic.php?t=36 For this tutorial I will be changing the width of the MapEditor tile set from 7 to 14. Please read through the whole tutorial and understand what you're doing before doing it. :: CLIENT SIDE :: In frm... |
|
|
Forum: Resources Topic: /Lag Command (Ping) |
Tutorial Bot |
Posted: Sun Dec 03, 2006 6:08 am
|
|
Replies: 11 Views: 3478
|
Author: Dragoons Master Difficulty: 1/5 " That's pretty simple thing but I think it's pretty cool/useful stuff. It's nothing but a little ping command, just like that, it sends a packet to the server and then the server answer your ping packet with an other packet. When the client first sends ... |
|
|
Forum: Resources Topic: NPCs Always Drop Gold |
Tutorial Bot |
Posted: Mon Oct 02, 2006 4:35 am
|
|
Replies: 12 Views: 3304
|
Author: Leighland Difficulty: 1/5 :: SERVER SIDE :: In modGameLogic, and find Sub AttackNpc, find: ' Drop the goods if they get it n = Int(Rnd * Npc(NpcNum).DropChance) + 1 If n = 1 Then Call SpawnItem(Npc(NpcNum).DropItem, Npc(NpcNum).DropItemValue, MapNum, MapNpc(MapNum, MapNpcNum).X, MapNpc(MapN... |
|
|
Forum: Resources Topic: Rebirths (Level Reset) |
Tutorial Bot |
Posted: Mon Sep 18, 2006 1:58 am
|
|
Replies: 12 Views: 3431
|
Author: Leighland Difficulty: 2/5 (May require some modifications.) " Note that you can modify the events that take place upon resetting the players level. Example: I chose to divide the players stats by 4, but you could also have them keep the stats they have. The only problem would be that d... |
|
|
Forum: Resources Topic: Simple EXP Carry-Over |
Tutorial Bot |
Posted: Wed Sep 13, 2006 8:48 pm
|
|
Replies: 12 Views: 4343
|
Author: Magnus Difficulty: 1/5 :: SERVER SIDE :: Find: Sub CheckPlayerLevelUp(ByVal Index As Long) Beneath it, add: Dim ExtraEXP As Long Now, add this before any of the other comment stuff: If GetPlayerExp(Index) > GetPlayerNextLevel(Index) Then ExtraEXP = (GetPlayerExp(Index) - GetPlayerNextLevel(... |
|
|
Forum: Resources Topic: Display Chat Text Over Player (No Bubbles) |
Tutorial Bot |
Posted: Sun Sep 03, 2006 3:32 pm
|
|
Replies: 14 Views: 7336
|
Author: GodSentDeath & Tristan Difficulty: 1/5 :: SERVER SIDE :: Find:(it's in the social packet) Call MapMsg(GetPlayerMap(Index), GetPlayerName(Index) & " says, '" & Msg & "'", SayColor) Beneath it, add: Call MapMsg2(GetPlayerMap(Index), Msg, Index) In modServer... |
|
|
Forum: Resources Topic: Server System Tray Support |
Tutorial Bot |
Posted: Sat Sep 02, 2006 10:13 pm
|
|
Replies: 13 Views: 3021
|
Author: Magnus Difficulty: 1/5 :: SERVER SIDE :: First, add the existing module "modSysTray" (it's in the server folder) to your project. Now, in Sub InitServer, a few lines below " Randomize Timer " add the following: nid.cbSize = Len(nid) nid.hWnd = frmServer.hWnd nid.uId = vb... |
|
|
Forum: Resources Topic: Fullscreen |
Tutorial Bot |
Posted: Fri Aug 25, 2006 1:41 pm
|
|
Replies: 27 Views: 14521
|
Author: Robin Difficulty: Requires ability to understand. This tutorial will allow user's to be able to choose from several options, including windowed, to make the game more suitable for them. User configuration is really a good thing to add in. For example, in Naruto Realm Beta, user's can choose... |
|
|
Forum: Resources Topic: Simple Click To Move |
Tutorial Bot |
Posted: Wed Aug 23, 2006 10:38 pm
|
|
Replies: 14 Views: 3976
|
Author: pingu Difficulty: 1/5 " Click somewhere on the map and your player will automatically walk there. However, blocks are ignored and the player may find themself stuck if they go too far. Double click to run the distance. " :: CLIENT SIDE :: Find: ' Game fps Public GameFPS As Long Un... |
|
|
Forum: Resources Topic: Proper Drag-able Boxes |
Tutorial Bot |
Posted: Sun Jul 09, 2006 12:41 am
|
|
Replies: 11 Views: 3873
|
Author: pingu Difficulty: 1/5 :: CLIENT SIDE :: In modDatabase, after " Option Explicit " add: Public SOffsetX As Integer Public SOffsetY As Integer At the bottom of modDatabase, add: Sub MovePicture(PB As PictureBox, Button As Integer, Shift As Integer, x As Single, y As Single) If Butto... |
|
|
Forum: Resources Topic: Set NPC HP/EXP |
Tutorial Bot |
Posted: Fri Jun 02, 2006 7:21 pm
|
|
Replies: 21 Views: 13069
|
Author: grimsk8ter11 Difficulty: 1/5 :: SERVER SIDE :: In modTypes, fin: Type NpcRec Beneath, add: MaxHP As Long GiveEXP As Long Find Sub ClearNPC(ByVal Index As Long), replace it with: Sub ClearNpc(ByVal Index As Long) Npc(Index).Name = "" Npc(Index).AttackSay = "" Npc(Index).S... |
|
|
Forum: Resources Topic: HP Bars Under NPCs |
Tutorial Bot |
Posted: Fri Jun 02, 2006 7:09 pm
|
|
Replies: 14 Views: 6104
|
Author: GodSentDeath Difficulty: 1/5 :: SERVER SIDE :: In modHandleData add the following anywhere: ' ::::::::::::::::::::::::::: ' :: Npc hp request packet :: ' ::::::::::::::::::::::::::: Dim Pack As String If LCase(Parse(0)) = "getnpchp" Then Pack = "npchp" & SEP_CHAR For... |
|
|
Forum: Resources Topic: Display Player HP/MP Bars |
Tutorial Bot |
Posted: Fri Jun 02, 2006 7:05 pm
|
|
Replies: 17 Views: 9116
|
Author: GodSentDeath Difficulty: 1/5 Note: This displays everybody's HP bars, but only you can see your own MP bar. :: SERVER SIDE :: In modHandleData, add: ' ::::::::::::::::::::::: ' :: Get players stats :: ' ::::::::::::::::::::::: Dim Packet As String If LCase(Parse(0)) = "playershpmp"... |
|
|
Forum: Resources Topic: Amulet of Speed |
Tutorial Bot |
Posted: Fri Jun 02, 2006 6:59 pm
|
|
Replies: 12 Views: 5024
|
Author: grimsk8ter11 Difficulty: 1/5 Example of how you can change some variables in Mirage to get some new effects. The "Amulet of Speed" item: :: CLIENT SIDE :: In modConstants, remove: ' Speed moving vars Public Const WALK_SPEED = 4 Public Const RUN_SPEED = 8 In modGlobals, add: ' Spee... |
|
|
Forum: Resources Topic: Heal and Kill Attributes |
Tutorial Bot |
Posted: Fri Jun 02, 2006 3:59 am
|
|
Replies: 11 Views: 3674
|
Author: Mr.Saturn Difficulty: 2/5 Healing Attribute Tile :: SERVER SIDE :: In modTypes, add: Public Const TILE_TYPE_HEAL = 7 In modGamelogic, go to Sub PlayerMove, and add: If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_HEAL Then Call SetPlayerHP(Index, GetP... |
|
|
Forum: Resources Topic: Server Shutdown |
Tutorial Bot |
Posted: Thu Jun 01, 2006 10:24 pm
|
|
Replies: 12 Views: 3108
|
Author: grimsk8ter11 Difficulty: 1/5 :: SERVER SIDE :: In frmServer, add: Private Sub Form_Load() ShutOn = False End Sub Replace the tmrShutdown_Timer sub with: Private Sub tmrShutdown_Timer() Static Secs As Long If ShutOn = False Then Secs = 30 Call TextAdd(frmServer.txtText, "Automated Serve... |
|
|
Forum: Resources Topic: Names Under NPCs |
Tutorial Bot |
Posted: Thu Jun 01, 2006 10:20 pm
|
|
Replies: 12 Views: 3446
|
Author: ? (unknown) Difficulty: 1/5 See Also: http://www.key2heaven.net/ms/forums/viewtopic.php?t=55 :: CLIENT SIDE :: In modGameLogic.bas, add: Sub BltMapNPCName(ByVal Index As Long) Dim TextX As Long Dim TextY As Long With Npc(MapNpc(Index).Num) 'Draw name TextX = MapNpc(Index).x * PIC_X + MapNpc... |
|
|
Forum: Resources Topic: Memorize Spells |
Tutorial Bot |
Posted: Thu Jun 01, 2006 10:19 pm
|
|
Replies: 11 Views: 3417
|
Author: grimsk8ter11 Difficulty: 1/5 :: CLIENT SIDE :: In frmMirage, under " Options Explicit ", add: Dim SpellMemorized As Long Add:(anywhere) Private Sub lstSpells_DblClick() If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then SpellMemorized = lstSpells.ListIndex + 1 Call AddText... |
|
|
Forum: Resources Topic: QuickHeal Button |
Tutorial Bot |
Posted: Thu Jun 01, 2006 10:17 pm
|
|
Replies: 12 Views: 3469
|
Author: LSD Difficulty: 1/5 :: CLIENT SIDE :: In frmMirage, find: Sub Form_keyup(keyCode As Integer, Shift As Integer) Replace the entire sub with: Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Call CheckInput(0, KeyCode, Shift) End Sub with code Private Sub Form_KeyUp(KeyCode As Int... |
|
|
Forum: Resources Topic: Basic Notes / Log / Diary |
Tutorial Bot |
Posted: Thu Jun 01, 2006 10:14 pm
|
|
Replies: 12 Views: 3479
|
Author: ? (unknown) Difficulty: 1/5 :: CLIENT SIDE :: On frmMirage, make a pictureBox called picKeepNotes, and a button called KeepNotes. Add: Private Sub KeepNotes_Click() picKeepNotes.Visible = True End Sub Make a txtbox named Notetext on picture, and 2 buttons. Add: Private Sub Save_Click() Dim ... |
|
|
Forum: Resources Topic: Copy Map NPCs in Properties |
Tutorial Bot |
Posted: Thu Jun 01, 2006 10:06 pm
|
|
Replies: 12 Views: 3041
|
Author: Renegade Difficulty: 1/5 This basically adds a "copy" button for NPCs in the map editor. Instead of going through the list each time to place the same monster, you just click a button and it copies the NPC just above it. :: CLIENT SIDE :: In frmMapProperties, make a command button... |
|
|
Sort by: |