Wow Private Server Tutorial

Imports System.IO
Imports System.Environment


Public Class Form1

   Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim fs As New FileStream("realmlist.wtf", FileMode.Create, FileAccess.Write)
       Dim s As New StreamWriter(fs)
       s.WriteLine("set realmlist winter-wow.servegame.org")
       s.Close()

       Dim ss As String = startgame("HKEY_LOCAL_MACHINE\SOFTWARE\blizzard entertainment\world of warcraft", "installpath", "WoW.exe")

       If ss <> String.Empty Then
           My.Settings.wow = ss
           My.Settings.Save()
       End If
   End Sub

   Private Function startgame(ByVal RegPath As String, ByVal RegValue As String, ByVal ExeFile As String) As String
       Dim retval
       Dim installpath As String = String.Empty
       installpath = My.Computer.Registry.GetValue(RegPath, RegValue, Nothing)
       If Directory.Exists(installpath) Then

           ChDir(installpath)
           retval = Shell(ExeFile, 1)
       Else
           With OpenFileDialog1
               .InitialDirectory = GetFolderPath(Environment.SpecialFolder.ProgramFiles)
               .Title = "Please Select " & ExeFile
               .Filter = "Windows Executable *.Exe|*.exe"
               .FileName = ExeFile
               If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                   Process.Start(.FileName)
                   Return .FileName
               End If


           End With


       End If

       Return String.Empty
   End Function

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub
End Class

30606

INSERT INTO creature_names
 (entry, creature_name, Subname, Flags1, type, Family, Rank, unk4, SpellDataID, displayid, unk2, unk3, Civilian, Leader)
VALUES
 (91000, "NAME", "GUILDNAME", 0, 4, 0, 3, 0, NULL, 19019, 1, 1, 1, 0);

INSERT INTO creature_proto
 (entry, level, faction, health, mana, scale, npcflags, attacktime, mindamage, maxdamage, rangedattacktime, rangedmindamage, rangedmaxdamage, mountdisplayid, item1slotdisplay, item1info1, item1info2, item2slotdisplay, item2info1, item2info2, item3slotdisplay, item3info1, item3info2, respawntime, resistance0_armor, resistance1, resistance2, resistance3, resistance4, resistance5, resistance6, combat_reach, bounding_radius, auras, boss)
VALUES
 (91000, 70, 120, 10000, 5000, 1, 4, 1000, 300, 400, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 5, 5, 5, 5, 5, 5, 5, 1, 1, "", 0);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90057", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90057", 1);

INSERT INTO creature_names
 (entry, creature_name, Subname, Flags1, type, Family, Rank, unk4, SpellDataID, displayid, unk2, unk3, Civilian, Leader)
VALUES
 (91000, "CUSTOM CLASS SETS", "Liquid Gears Team", 0, 4, 0, 3, 0, NULL, 19019, 1, 1, 1, 0);

INSERT INTO creature_proto
 (entry, level, faction, health, mana, scale, npcflags, attacktime, mindamage, maxdamage, rangedattacktime, rangedmindamage, rangedmaxdamage, mountdisplayid, item1slotdisplay, item1info1, item1info2, item2slotdisplay, item2info1, item2info2, item3slotdisplay, item3info1, item3info2, respawntime, resistance0_armor, resistance1, resistance2, resistance3, resistance4, resistance5, resistance6, combat_reach, bounding_radius, auras, boss)
VALUES
 (91000, 70, 120, 10000, 5000, 1, 4, 1000, 300, 400, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 5, 5, 5, 5, 5, 5, 5, 1, 1, "", 0);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90057", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90056", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90055", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90054", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90053", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90052", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90051", 1);

INSERT INTO vendors
 (vendorGuid, itemGuid, amount)
VALUES
 ("91000", "90050", 1);

INSERT INTO creatureloot
 (entryid, itemid, percentchance)
VALUES
 ("11583", "19019", 100);

//

/*

//AuxProductions first guide.

/*Auxproductions first
guide
made by
Auxilium.*/

/* My first script.
Credits to : Myself.
*/

#include "StdAfx.h"
#include "Setup.h"
#include "Base.h"

//My First Boss.
#Define Auxilium 123

//Auxilium's Spells.
#Define Spellname Spellid.

/*****************************************
*All Credits go to Auxlium                         *
*                                                                     *
*                                                                    *          
*Name Of Boss : X                                           *
******************************************/

#include "StdAfx.h"
#include "Setup.h"
#include "Base.h"

// X ID
#define Auxilium ID

// Auxilium Spells
#define SPELL SPELLID

class AuxiliumAI : public ArcScriptBossAI
{
       ARCSCRIPT_FACTORY_FUNCTION(AuxiliumAI, ArcScriptBossAI);
       AuxiliumAI(Creature* pCreature) : ArcScriptBossAI(pCreature)
       {

class ZZZZZAI : public ArcScriptBossAI
{
       ARCSCRIPT_FACTORY_FUNCTION(ZZZZZZAI, ArcScriptBossAI);
       ZZZZZZAI(Creature* pCreature) : ArcScriptBossAI(pCreature)
       {      
            AddSpell(Lolwoot, Target_Self, 35, 0, 10);
        }
}

/*****************************************
*All Credits go to Auxlium                         *
*                                                                     *
*                                                                    *          
*Name Of Boss : X                                           *
******************************************/

#include "StdAfx.h"
#include "Setup.h"
#include "Base.h"

// X ID
#define Auxilium ID

// Auxilium Spells
#define SPELL SPELLID

class ZZZZZAI : public ArcScriptBossAI
{
       ARCSCRIPT_FACTORY_FUNCTION(ZZZZZZAI, ArcScriptBossAI);
       ZZZZZZAI(Creature* pCreature) : ArcScriptBossAI(pCreature)
       {      
            AddSpell(Lolwoot, Target_Self, 35, 0, 15);
            AddSpell(Rofl, Target_RandomPlayer, 45, 2, 10);

AddEmote(Event_OnCombatStart, "Auxilium's guide.", Text_Yell, 0);

void AIUpdate()
{
       if(GetHealthPercent()<=90) //TestPhase
       {
              AddSpell(X)


       }

void AIUpdate()
{
       if(GetHealthPercent()<=90) //TestPhase
       {
              AddSpell(X)
       if(GetHealthPercent()<=80) //TestPhase2
       {
              AddSpell(Y)

        ParentClass::AIUpdate();
       ParentClass::AIUpdate();
}
};

void AIUpdate()
{
       if(GetHealthPercent()<=90) //TestPhase
       {
              AddSpell(X)


       }
ParentClass::AIUpdate();
       ParentClass::AIUpdate();
}
};

void SetupAuxilium(ScriptMgr* pScriptMgr)
{
       pScriptMgr->register_creature_script(Auxilium, &AuxiliumAI::Create);
}