kp3
07-30-2007, 12:42 AM
Kp3's crappy antrix portal creator
v1.0
I was playing around with cynet 4.91... My friend asked me if i could make a portal. First i searched for antrix portal creator, but then i noticed it didnt exist. Annyways, i made my portal. But after that, i decided to make this little n00b tool in autoit. It lets u create an custom portal with all the important settings changable and then it exports and sql file.
Download:
Download from filebeam.com (http://filebeam.com/97b604b6da2909569eb0de6f152dd1b5)
Download from rapidshare.com (http://rapidshare.com/files/45838144/antrixportalcreator.exe.html)
What it does:
U fill out all the required info.
Then it exports it into an .sql file.
The sql files name is portal.sql.
If u are making a new portal, be shure to delete the old portal.sql file.
Ikarus and esafe from virus total detects a a potential trojan. But this is not true. The source code of the program is right under this text. I just release the exe for ppl who dont got autoit.
Btw i know the code is a little big... But its cuz of the koda form maker and i just didnt bother to generate on event code myself.
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Robert Nilsson\Mina dokument\form1.kfx.kxf
$Form1 = GUICreate("Portal creator", 694, 250, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1Restore")
$kp3 = GUICtrlCreateLabel("Kp3's antrix portal creator", 8, 8, 370, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "kp3Click")
$Spell = GUICtrlCreateGroup("Spell", 8, 64, 329, 121)
$SpellID = GUICtrlCreateInput("Spell ID", 16, 80, 65, 21)
GUICtrlSetOnEvent(-1, "SpellIDChange")
$mapid = GUICtrlCreateInput("Map ID", 88, 80, 49, 21)
GUICtrlSetOnEvent(-1, "mapidChange")
$X = GUICtrlCreateInput("X", 16, 104, 313, 21)
GUICtrlSetOnEvent(-1, "XChange")
$Y = GUICtrlCreateInput("Y", 16, 128, 313, 21)
GUICtrlSetOnEvent(-1, "YChange")
$Z = GUICtrlCreateInput("Z", 16, 152, 313, 21)
GUICtrlSetOnEvent(-1, "ZChange")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Portal = GUICtrlCreateGroup("Portal", 8, 192, 241, 49)
$portalid = GUICtrlCreateInput("Portal ID", 16, 208, 65, 21)
GUICtrlSetOnEvent(-1, "portalidChange")
$Model = GUICtrlCreateInput("Display ID", 88, 208, 73, 21)
GUICtrlSetOnEvent(-1, "ModelChange")
$Name = GUICtrlCreateInput("Name", 168, 208, 73, 21)
GUICtrlSetOnEvent(-1, "NameChange")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Edit1 = GUICtrlCreateEdit("", 344, 72, 345, 113, $ES_WANTRETURN)
GUICtrlSetData(-1, StringFormat("For spell id pick a high \r\nnumber that doesnt exist in the DB.\r\n\r\nFill out the other information\r\n(Map id, x, y, z) with the\r\ninfo u got from the .gps command."))
GUICtrlSetOnEvent(-1, "AEdit1Change")
$Edit2 = GUICtrlCreateEdit("", 256, 192, 433, 49, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETU RN))
GUICtrlSetData(-1, StringFormat("Display ids for common portals:\r\nDarnassus Stormwind Exodar Ironforge Orgrimmar Silvermoon Thunder Bluff Undercity\r\n4393 4396 6955 4394 4395 6956 4397 4398"))
GUICtrlSetOnEvent(-1, "AEdit2Change")
$create = GUICtrlCreateButton("Create .sql file", 392, 8, 289, 49, 0)
GUICtrlSetFont(-1, 16, 400, 0, "MS Serif")
GUICtrlSetOnEvent(-1, "createClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func AEdit1Change()
EndFunc
Func AEdit2Change()
EndFunc
Func AForm1Close()
exit
EndFunc
Func AForm1Maximize()
EndFunc
Func AForm1Minimize()
EndFunc
Func AForm1Restore()
EndFunc
Func createClick()
$idd = guictrlread($portalid)
$did = guictrlread($Model)
$namn = guictrlread($Name)
$spel = guictrlread($spellid)
$mapp = guictrlread($mapid)
$xx = guictrlread($x)
$yy = guictrlread($y)
$zz = guictrlread($z)
filewrite("portal.sql","insert into `teleport_coords` (`id`, `name`, `mapId`, `x`, `y`, `z`, `totrigger`) values('")
filewrite("portal.sql",$spel)
filewrite("portal.sql","','Custom Portal','")
filewrite("portal.sql",$mapp)
filewrite("portal.sql","','")
filewrite("portal.sql",$xx)
filewrite("portal.sql","','")
filewrite("portal.sql",$yy)
filewrite("portal.sql","','")
filewrite("portal.sql",$zz)
filewrite("portal.sql","','0');" & @CRLF)
filewrite("portal.sql","insert into `gameobject_names` (`entry`, `Type`, `DisplayID`, `Name`, `spellfocus`, `sound1`, `sound2`, `sound3`, `sound4`, `sound5`, `sound6`, `sound7`, `sound8`, `sound9`, `unknown1`, `unknown2`, `unknown3`, `unknown4`, `unknown5`, `unknown6`, `unknown7`, `unknown8`, `unknown9`, `unknown10`, `unknown11`, `unknown12`, `unknown13`, `unknown14`)")
filewrite("portal.sql","values('")
filewrite("portal.sql",$idd)
filewrite("portal.sql","','22','")
filewrite("portal.sql",$did)
filewrite("portal.sql","','")
filewrite("portal.sql",$namn)
filewrite("portal.sql","','")
filewrite("portal.sql",$spel)
filewrite("portal.sql","','0','0','0','0','0','0','0','0','0','0','0','0', '0','0','0','0','0','0','0','0','0','0','0');")
EndFunc
Func kp3Click()
EndFunc
Func mapidChange()
EndFunc
Func ModelChange()
EndFunc
Func NameChange()
EndFunc
Func portalidChange()
EndFunc
Func SpellIDChange()
EndFunc
Func XChange()
EndFunc
Func YChange()
EndFunc
Func ZChange()
EndFunc
Edit and publish my code in annyway u want. I dont care. This is probably the most simples script ever.
v1.0
I was playing around with cynet 4.91... My friend asked me if i could make a portal. First i searched for antrix portal creator, but then i noticed it didnt exist. Annyways, i made my portal. But after that, i decided to make this little n00b tool in autoit. It lets u create an custom portal with all the important settings changable and then it exports and sql file.
Download:
Download from filebeam.com (http://filebeam.com/97b604b6da2909569eb0de6f152dd1b5)
Download from rapidshare.com (http://rapidshare.com/files/45838144/antrixportalcreator.exe.html)
What it does:
U fill out all the required info.
Then it exports it into an .sql file.
The sql files name is portal.sql.
If u are making a new portal, be shure to delete the old portal.sql file.
Ikarus and esafe from virus total detects a a potential trojan. But this is not true. The source code of the program is right under this text. I just release the exe for ppl who dont got autoit.
Btw i know the code is a little big... But its cuz of the koda form maker and i just didnt bother to generate on event code myself.
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Robert Nilsson\Mina dokument\form1.kfx.kxf
$Form1 = GUICreate("Portal creator", 694, 250, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1Restore")
$kp3 = GUICtrlCreateLabel("Kp3's antrix portal creator", 8, 8, 370, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "kp3Click")
$Spell = GUICtrlCreateGroup("Spell", 8, 64, 329, 121)
$SpellID = GUICtrlCreateInput("Spell ID", 16, 80, 65, 21)
GUICtrlSetOnEvent(-1, "SpellIDChange")
$mapid = GUICtrlCreateInput("Map ID", 88, 80, 49, 21)
GUICtrlSetOnEvent(-1, "mapidChange")
$X = GUICtrlCreateInput("X", 16, 104, 313, 21)
GUICtrlSetOnEvent(-1, "XChange")
$Y = GUICtrlCreateInput("Y", 16, 128, 313, 21)
GUICtrlSetOnEvent(-1, "YChange")
$Z = GUICtrlCreateInput("Z", 16, 152, 313, 21)
GUICtrlSetOnEvent(-1, "ZChange")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Portal = GUICtrlCreateGroup("Portal", 8, 192, 241, 49)
$portalid = GUICtrlCreateInput("Portal ID", 16, 208, 65, 21)
GUICtrlSetOnEvent(-1, "portalidChange")
$Model = GUICtrlCreateInput("Display ID", 88, 208, 73, 21)
GUICtrlSetOnEvent(-1, "ModelChange")
$Name = GUICtrlCreateInput("Name", 168, 208, 73, 21)
GUICtrlSetOnEvent(-1, "NameChange")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Edit1 = GUICtrlCreateEdit("", 344, 72, 345, 113, $ES_WANTRETURN)
GUICtrlSetData(-1, StringFormat("For spell id pick a high \r\nnumber that doesnt exist in the DB.\r\n\r\nFill out the other information\r\n(Map id, x, y, z) with the\r\ninfo u got from the .gps command."))
GUICtrlSetOnEvent(-1, "AEdit1Change")
$Edit2 = GUICtrlCreateEdit("", 256, 192, 433, 49, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETU RN))
GUICtrlSetData(-1, StringFormat("Display ids for common portals:\r\nDarnassus Stormwind Exodar Ironforge Orgrimmar Silvermoon Thunder Bluff Undercity\r\n4393 4396 6955 4394 4395 6956 4397 4398"))
GUICtrlSetOnEvent(-1, "AEdit2Change")
$create = GUICtrlCreateButton("Create .sql file", 392, 8, 289, 49, 0)
GUICtrlSetFont(-1, 16, 400, 0, "MS Serif")
GUICtrlSetOnEvent(-1, "createClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func AEdit1Change()
EndFunc
Func AEdit2Change()
EndFunc
Func AForm1Close()
exit
EndFunc
Func AForm1Maximize()
EndFunc
Func AForm1Minimize()
EndFunc
Func AForm1Restore()
EndFunc
Func createClick()
$idd = guictrlread($portalid)
$did = guictrlread($Model)
$namn = guictrlread($Name)
$spel = guictrlread($spellid)
$mapp = guictrlread($mapid)
$xx = guictrlread($x)
$yy = guictrlread($y)
$zz = guictrlread($z)
filewrite("portal.sql","insert into `teleport_coords` (`id`, `name`, `mapId`, `x`, `y`, `z`, `totrigger`) values('")
filewrite("portal.sql",$spel)
filewrite("portal.sql","','Custom Portal','")
filewrite("portal.sql",$mapp)
filewrite("portal.sql","','")
filewrite("portal.sql",$xx)
filewrite("portal.sql","','")
filewrite("portal.sql",$yy)
filewrite("portal.sql","','")
filewrite("portal.sql",$zz)
filewrite("portal.sql","','0');" & @CRLF)
filewrite("portal.sql","insert into `gameobject_names` (`entry`, `Type`, `DisplayID`, `Name`, `spellfocus`, `sound1`, `sound2`, `sound3`, `sound4`, `sound5`, `sound6`, `sound7`, `sound8`, `sound9`, `unknown1`, `unknown2`, `unknown3`, `unknown4`, `unknown5`, `unknown6`, `unknown7`, `unknown8`, `unknown9`, `unknown10`, `unknown11`, `unknown12`, `unknown13`, `unknown14`)")
filewrite("portal.sql","values('")
filewrite("portal.sql",$idd)
filewrite("portal.sql","','22','")
filewrite("portal.sql",$did)
filewrite("portal.sql","','")
filewrite("portal.sql",$namn)
filewrite("portal.sql","','")
filewrite("portal.sql",$spel)
filewrite("portal.sql","','0','0','0','0','0','0','0','0','0','0','0','0', '0','0','0','0','0','0','0','0','0','0','0');")
EndFunc
Func kp3Click()
EndFunc
Func mapidChange()
EndFunc
Func ModelChange()
EndFunc
Func NameChange()
EndFunc
Func portalidChange()
EndFunc
Func SpellIDChange()
EndFunc
Func XChange()
EndFunc
Func YChange()
EndFunc
Func ZChange()
EndFunc
Edit and publish my code in annyway u want. I dont care. This is probably the most simples script ever.