diff --git a/CREATELANG/Default.lng b/CREATELANG/Default.lng index eb3ed07..aacd75f 100644 --- a/CREATELANG/Default.lng +++ b/CREATELANG/Default.lng @@ -306,6 +306,7 @@ TEXT155=AreaTrigger TEXT156=LootCondition TEXT157=The error has accured while loading Creature EventAI: TEXT158=Please specify a source type! +TEXT159=The error has accured while loading Creature Template Movement [MAIN] Caption=Truice @@ -910,7 +911,7 @@ btScriptNPCgossip=Show NPC gossip script gbNPCText=NPC text btShowNPCtextScript=Show NPC text script edcxID=ID -tsCreatureMovement=Creature Movement +tsCreatureTemplateMovement=Creature Movement lbHintCreatureMovement=First, select creature from Creature Location tab! lbcmemote=emote btShowCreatureMovementScript=Show Creature Movement Script diff --git a/CREATELANG/zzaCustom.lng b/CREATELANG/zzaCustom.lng index e7247a5..f767071 100644 --- a/CREATELANG/zzaCustom.lng +++ b/CREATELANG/zzaCustom.lng @@ -157,4 +157,5 @@ TEXT155=AreaTrigger TEXT156=LootCondition TEXT157=The error has accured while loading Creature EventAI: TEXT158=Please specify a source type! +TEXT159=The error has accured while loading Creature Template Movement: diff --git a/CREATELANG/zzzMainForm.lng b/CREATELANG/zzzMainForm.lng index c708799..2ac09e9 100644 --- a/CREATELANG/zzzMainForm.lng +++ b/CREATELANG/zzzMainForm.lng @@ -601,7 +601,7 @@ btScriptNPCgossip=Show NPC gossip script gbNPCText=NPC text btShowNPCtextScript=Show NPC text script edcxID=ID -tsCreatureMovement=Creature Movement +tsCreatureTemplateMovement=Creature Movement lbHintCreatureMovement=First, select creature from Creature Location tab! lbcmemote=emote btShowCreatureMovementScript=Show Creature Movement Script diff --git a/LANG/Czech.lng b/LANG/Czech.lng index 1c89b51..f8ab475 100644 --- a/LANG/Czech.lng +++ b/LANG/Czech.lng @@ -871,7 +871,7 @@ btScriptNPCgossip=Uk gbNPCText=NPC text btShowNPCtextScript=Ukázat NPC text script edcxID=ID -tsCreatureMovement=Creature Movement +tsCreatureTemplateMovement=Creature Movement lbHintCreatureMovement=First, select creature from Creature Location tab! lbcmemote=emote btShowCreatureMovementScript=Ukázat Creature Movement Script diff --git a/LANG/Default.lng b/LANG/Default.lng index 5331576..5f81ad3 100644 --- a/LANG/Default.lng +++ b/LANG/Default.lng @@ -910,7 +910,7 @@ btScriptNPCgossip=Show NPC gossip script gbNPCText=NPC text btShowNPCtextScript=Show NPC text script edcxID=ID -tsCreatureMovement=Creature Movement +tsCreatureTemplateMovement=Creature Movement lbHintCreatureMovement=First, select creature from Creature Location tab! lbcmemote=emote btShowCreatureMovementScript=Show Creature Movement Script diff --git a/MainUnit.dfm b/MainUnit.dfm index 5321f45..4265a98 100644 --- a/MainUnit.dfm +++ b/MainUnit.dfm @@ -11701,309 +11701,16 @@ object MainForm: TMainForm Text = '0' end end - object tsCreatureMovement: TTabSheet - Caption = 'Creature Movement' + object tsCreatureTemplateMovement: TTabSheet + Caption = 'Creature Template Movement' ImageIndex = 12 - DesignSize = ( - 964 - 609) - object lbHintCreatureMovement: TLabel - Left = 8 - Top = 8 - Width = 226 - Height = 13 - Caption = 'First, select creature from Creature Location tab!' - Color = clInfoBk - ParentColor = False - end - object btCreatureMvmntAdd: TSpeedButton - Left = 787 - Top = 492 - Width = 23 - Height = 22 - Glyph.Data = { - 36050000424D3605000000000000360400002800000010000000100000000100 - 080000000000000100000000000000000000000100000000000000000000FFFF - FF003DD36D000985120091F7AB0026AD330067E58C0027872A0053DB7C0032C2 - 5B007AF09B0015971E00289A300059E8860046DD770039CB64000F8D1A002292 - 290089F4A5002181240068EE910021A62E005CE0840053E4810060EA8B0045D7 - 71002A9230007FF39F004EE17D000F84150058DF7F00238A260060E487003ACF - 69000B8A1500268228004ADF7A0034C55F0040D670008DF6A80064ED8E00289F - 3100258C2A0036C862002B96320076F099005BE4860044DA740023962A00138E - 1A0023A9300056E684002386260064E48A0056E282004ADC7800258F2B000B87 - 15005EE1860041D8720039CD67008BF5A6000E8E1800118F1900228325002489 - 2800299C310025AB320051DA7B0026842900248C28005EEA8A0022942A005AE8 - 880024AB30002A9430003BCD67000A8413000A8814000C8916004BDD7900299E - 320047DE780046D872003FD56F003ED46E0033C45E002384250027862900258B - 2900258D290054E4820023952B002B95310021A72D0049DC7700289C300022A9 - 2F0044DB750025AD320041D7710037C861007EF39F00258F2A004AE07A00299D - 310045D8720039CB6500C0C0C000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000006C6C6C6C6C6C - 6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C1F3E224E03236C6C6C6C6C6C6C6C6C6C46 - 44213C09456C6C6C6C6C6C6C6C6C6C5A16550225586C6C6C6C6C6C6C6C6C6C67 - 35645465076C6C6C6C6C6C305C48113F362F3B0F1D345740136C6C5E2050375F - 680E62264C6B2B564D6C6C612D474933171C52623B54023C396C6C4A66142818 - 0D5B1C0E2F6455214F6C6C6304273D120A0D17242E063A08106C6C2969600C0B - 1218336A31382A59416C6C6C6C6C6C0C3D2849191A6C6C6C6C6C6C6C6C6C6C42 - 271447534B6C6C6C6C6C6C6C6C6C6C42041B2D1E5D6C6C6C6C6C6C6C6C6C6C51 - 054332152C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C} - OnClick = btCreatureMvmntAddClick - end - object btCreatureMvmntUpd: TSpeedButton - Left = 819 - Top = 492 - Width = 23 - Height = 22 - Enabled = False - Glyph.Data = { - 36060000424D3606000000000000360000002800000020000000100000000100 - 18000000000000060000C40E0000C40E00000000000000000000C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0B0723CC86B1ACB6B15B5672BAD8265C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C076767671 - 7171707070707070898989C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0CE7622FFAE4FFFAD48FFA73DFF972AEA7E18B6784CC0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0787878A7A7A7A3 - A3A39E9E9E949494818181818181C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CE7F31 - D08A41C0C0C0CA7421FFB763FFB259D47721B67D4FB28D76B17D5AB3530FB28B - 71C0C0C0C0C0C0C0C0C0C0C0C07F7F7F888888C0C0C0757575B1B1B1ACACAC7A - 7A7A828282949494858585616161919191C0C0C0C0C0C0C0C0C0C0C0C0D18638 - FDC285BF6D0DFFC98EFFBE74D67E26C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B67F - 5BC0C0C0C0C0C0C0C0C0C0C0C0848484C1C1C1666666C6C6C6B9B9B97E7E7EC0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0888888C0C0C0C0C0C0C0C0C0C0C0C0C7843B - FFE0BDFFCF9EFFCC96ECA660BA8D62C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0818181DEDEDECECECECACACAA6A6A68E8E8EC0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BE823B - FFE9D1FFD2A4FFCF9FCF822AB6885EC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C07C7C7CE8E8E8D1D1D1CFCFCF7C7C7C8A8A8AC0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B8834B - FFF3E5FFE2C5FFDCB7FFD4A1FFC37EBB864BC0C0C0BD7B45C3763CCA7C3FC383 - 46C3783EAC8A76C0C0C0C0C0C0818181F2F2F2E2E2E2DBDBDBD0D0D0BEBEBE83 - 8383C0C0C08181817F7F7F848484848484808080919191C0C0C0C0C0C0B59574 - DD9D47DDA04FE0983ED78D3AC98539C0C0C0B27A49FFD9A0FFE5BCFFE4C0FFE2 - BCFFE4BAA3694DC0C0C0C0C0C09494949292929696968F8F8F888888818181C0 - C0C07D7D7DCFCFCFDDDDDDDFDFDFDDDDDDDCDCDC787878C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0AB7A5BCB7D38FFD3A0FFD1 - A2FFE0B1A86439C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0838383818181CFCFCFD0D0D0D8D8D8707070C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B48460F8B776FFCC94FFCF - 98FFDFB0B46A35C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C08A8A8AB7B7B7C9C9C9CBCBCBD7D7D7747474C0C0C0C0C0C0C0C0C0 - C0C0C0C1874CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0DE8731FFBE75FFCA88AB52 - 0BFECC9BC37232C0C0C0C0C0C0C0C0C0C0C0C0868686C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0878787BABABAC3C3C35B5B5BCCCCCC7A7A7AC0C0C0C0C0C0C0C0C0 - C0C0C0BB966ED27F11C3965DC0C0C0C18B51E18728FFB057FFC179CB7426C0C0 - C0C4793FC77237C0C0C0C0C0C0C0C0C0C0C0C0949494717171909090C0C0C089 - 8989848484ABABABBCBCBC787878C0C0C08181817F7F7FC0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0CC9048F68E1AFC952AFFA13AFFA743FFBF75D07622B38C6BC0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08A8A8A8888889393939C - 9C9CA1A1A1BABABA7979798F8F8FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0BA9063CE8832D47E20CE7C26B77533C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08E8E8E8080807A - 7A7A7A7A7A757575C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0} - NumGlyphs = 2 - OnClick = btCreatureMvmntUpdClick - end - object btCreatureMvmntDel: TSpeedButton - Left = 851 - Top = 492 - Width = 23 - Height = 22 - Enabled = False - Glyph.Data = { - 36060000424D3606000000000000360000002800000020000000100000000100 - 18000000000000060000C40E0000C40E00000000000000000000C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - 2427AE161CAC5A5AA9C0C0C0C0C0C0C0C0C0C0C0C0C0C0C05353A94F4FA2C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0696969616161818181C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C07E7E7E787878C0C0C0C0C0C0C0C0C0C0C0C0C0C0C04E4EAB - 1844F6194DF81031D22021AAC0C0C0C0C0C0C0C0C04A4AAF0928D7092ED70313 - B34D4DADC0C0C0C0C0C0C0C0C07C7C7C878787888888717171656565C0C0C0C0 - C0C0C0C0C07C7C7C7070707070705B5B5B7D7D7DC0C0C0C0C0C0C0C0C02022B1 - 2451F91F52FF1D4FFF1744E81017AFC0C0C04747AC0D2EDD1142F90D3DF50B3B - F0041ABC6F6FAAC0C0C0C0C0C06868688E8E8E8F8F8F8E8E8E7F7F7F5F5F5FC0 - C0C07979797575758585858181817D7D7D6060608C8C8CC0C0C0C0C0C0C0C0C0 - 1832DB285BFF2456FF2253FF1B4BF1060EAF0F30DD164AFE1344F91041F60E3E - F60A3CF02C2CA2C0C0C0C0C0C0C0C0C07979799393939191919090908686865A - 5A5A7676768A8A8A8686868383838282827D7D7D676767C0C0C0C0C0C07777B3 - 1F37DD3A6FFF2C5EFF295AFF2657FF2052FC1C4FFF194AFD1646FA1445FA0F3D - F21119AFC0C0C0C0C0C0C0C0C09595957E7E7E9C9C9C9595959494949292928E - 8E8E8D8D8D8B8B8B888888878787808080606060C0C0C0C0C0C0C0C0C0C0C0C0 - 6969B81A25C53D6AFB3567FF2C5DFF2859FF2253FF1D4EFF1A4DFF123DED2324 - ABC0C0C0C0C0C0C0C0C0C0C0C0C0C0C09090906F6F6F9C9C9C9A9A9A95959593 - 93939090908E8E8E8C8C8C7F7F7F676767C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C02F2FB32E4EE73668FF2E5EFF2859FF2254FF163DEA2C2CA8C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07171718A8A8A9A9A9A96 - 96969393939090908080806A6A6AC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0253FDF3B6DFF3464FF2E5EFF2759FF1B46EA2121ACC0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08282829D9D9D99 - 9999969696939393828282666666C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C02B2CC04B7CFF4170FF3B6BFF396CFF2D5EFF2558FF1336D74A4A - B2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0757575A5A5A5A0A0A09D - 9D9D9C9C9C9696969292927575757E7E7EC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0253BD95080FF4575FF3662FA0C13C13C6DFF2A5BFF2053FD0B1D - C2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07F7F7FA7A7A7A2A2A298 - 98986666669D9D9D9494948E8E8E666666C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C04F4FBD527CFA5081FF4B7DFF181FC5C0C0C01B22C4386AFF2456FF1A4A - F21419B1C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0868686A6A6A6A7A7A7A5A5A56E - 6E6EC0C0C06F6F6F9B9B9B919191868686626262C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0252DD66A9CFF5788FF2B46E77070B9C0C0C0C0C0C01621C73065FF1F51 - FF1439DD4444AFC0C0C0C0C0C0C0C0C0C0C0C07D7D7DB4B4B4ABABAB89898994 - 9494C0C0C0C0C0C06E6E6E9797978F8F8F787878797979C0C0C0C0C0C0C0C0C0 - C0C0C04B4BC83951E25782FB2929C6C0C0C0C0C0C0C0C0C0C0C0C01628D3265A - FF0F2EE32123B5C0C0C0C0C0C0C0C0C0C0C0C08989898D8D8DA9A9A9777777C0 - C0C0C0C0C0C0C0C0C0C0C07474749292927979796B6B6BC0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C03E3EB9C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06B6BB62E2E - B5C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07B7B7BC0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0909090717171C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 - C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0} - NumGlyphs = 2 - OnClick = btCreatureMvmntDelClick - end - object lbcmemote: TLabel - Left = 16 - Top = 477 - Width = 29 - Height = 13 - Caption = 'emote' - end - object lvcmMovement: TJvListView - Left = 8 - Top = 32 - Width = 918 - Height = 345 - Anchors = [akLeft, akTop, akRight] - Columns = < - item - Width = 48 - end - item - Width = 25 - end - item - Width = 60 - end - item - Width = 60 - end - item - Width = 60 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end - item - Width = 48 - end> - HideSelection = False - ReadOnly = True - RowSelect = True - TabOrder = 0 - ViewStyle = vsReport - OnChange = lvcmMovementChange - OnSelectItem = lvcmMovementSelectItem - ColumnsOrder = - '0=48,1=25,2=60,3=60,4=60,5=48,6=48,7=48,8=48,9=48,10=48,11=48,12' + - '=48,13=48,14=48,15=48,16=48' - ExtendedColumns = < - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end - item - end> - end object btShowCreatureMovementScript: TButton Left = 16 Top = 540 Width = 169 Height = 25 Caption = 'Show Creature Movement Script' - TabOrder = 18 + TabOrder = 0 OnClick = btScriptCreatureClick end object btFullCreatureMovementScript: TButton @@ -12012,207 +11719,59 @@ object MainForm: TMainForm Width = 209 Height = 25 Caption = 'Show FULL Creature Movement Script' - TabOrder = 19 + TabOrder = 6 OnClick = btFullCreatureMovementScriptClick end - object edcmid: TLabeledEdit + object edcmcreatureid: TLabeledEdit Left = 16 Top = 409 Width = 121 Height = 21 - EditLabel.Width = 34 + EditLabel.Width = 49 EditLabel.Height = 13 - EditLabel.Caption = 'edcmid' + EditLabel.Caption = 'CreatureId' TabOrder = 1 end - object edcmpoint: TLabeledEdit + object edcmground: TLabeledEdit Left = 143 Top = 408 Width = 121 Height = 21 - EditLabel.Width = 49 + EditLabel.Width = 35 EditLabel.Height = 13 - EditLabel.Caption = 'edcmpoint' + EditLabel.Caption = 'Ground' TabOrder = 2 end - object edcmposition_x: TLabeledEdit + object edcmswim: TLabeledEdit Left = 270 Top = 409 Width = 121 Height = 21 - EditLabel.Width = 73 + EditLabel.Width = 25 EditLabel.Height = 13 - EditLabel.Caption = 'edcmposition_x' + EditLabel.Caption = 'Swim' TabOrder = 3 end - object edcmposition_y: TLabeledEdit + object edcmflight: TLabeledEdit Left = 397 Top = 409 Width = 121 Height = 21 - EditLabel.Width = 73 + EditLabel.Width = 25 EditLabel.Height = 13 - EditLabel.Caption = 'edcmposition_y' + EditLabel.Caption = 'Flight' TabOrder = 4 end - object edcmposition_z: TLabeledEdit + object edcmrooted: TLabeledEdit Left = 524 Top = 408 Width = 121 Height = 21 - EditLabel.Width = 73 + EditLabel.Width = 35 EditLabel.Height = 13 - EditLabel.Caption = 'edcmposition_z' + EditLabel.Caption = 'Rooted' TabOrder = 5 end - object edcmwaittime: TLabeledEdit - Left = 651 - Top = 408 - Width = 121 - Height = 21 - EditLabel.Width = 64 - EditLabel.Height = 13 - EditLabel.Caption = 'edcmwaittime' - TabOrder = 6 - end - object edcmtextid1: TLabeledEdit - Left = 16 - Top = 452 - Width = 121 - Height = 21 - EditLabel.Width = 31 - EditLabel.Height = 13 - EditLabel.Caption = 'textid1' - TabOrder = 7 - end - object edcmtextid2: TLabeledEdit - Left = 143 - Top = 452 - Width = 121 - Height = 21 - EditLabel.Width = 31 - EditLabel.Height = 13 - EditLabel.Caption = 'textid2' - TabOrder = 8 - end - object edcmtextid3: TLabeledEdit - Left = 270 - Top = 452 - Width = 121 - Height = 21 - EditLabel.Width = 31 - EditLabel.Height = 13 - EditLabel.Caption = 'textid3' - TabOrder = 9 - end - object edcmtextid4: TLabeledEdit - Left = 397 - Top = 449 - Width = 121 - Height = 21 - EditLabel.Width = 31 - EditLabel.Height = 13 - EditLabel.Caption = 'textid4' - TabOrder = 10 - end - object edcmtextid5: TLabeledEdit - Left = 524 - Top = 452 - Width = 121 - Height = 21 - EditLabel.Width = 31 - EditLabel.Height = 13 - EditLabel.Caption = 'textid5' - TabOrder = 11 - end - object edcmemote: TJvComboEdit - Left = 16 - Top = 493 - Width = 121 - Height = 21 - ButtonWidth = 22 - ClickKey = 13 - Glyph.Data = { - 36030000424D3603000000000000360000002800000010000000100000000100 - 18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD79C64 - DB9E63FFFFFFFFFFFFFFFFFFFFFFFFDA9E63D89D65FFFFFFFFFFFFFFFFFFFFFF - FFD79C64DB9E63FFFFFFC2773FEBB36FEDB570D19059FFFFFFFFFFFFC57D44ED - B571EBB26ECC9164FFFFFFFFFFFFC27840EBB36FECB470D1915AC48355D5955B - D89960CA8C5FFFFFFFFFFFFFC68457D8995FD6965BCE9974FFFFFFFFFFFFC380 - 52D6975DD99A61CB8D5FFFFFFFC68A65C17F54FFFFFFFFFFFFFFFFFFFFFFFFC2 - 8157C58963FFFFFFFFFFFFFFFFFFFFFFFFC68B65C17F54FFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} - TabOrder = 12 - Text = '' - OnButtonClick = GetEmote - end - object edcmspell: TLabeledEdit - Left = 143 - Top = 492 - Width = 121 - Height = 21 - EditLabel.Width = 47 - EditLabel.Height = 13 - EditLabel.Caption = 'edcmspell' - TabOrder = 13 - end - object edcmwpguid: TLabeledEdit - Left = 270 - Top = 492 - Width = 121 - Height = 21 - EditLabel.Width = 60 - EditLabel.Height = 13 - EditLabel.Caption = 'edcmwpguid' - TabOrder = 14 - end - object edcmmodel1: TLabeledEdit - Left = 524 - Top = 492 - Width = 121 - Height = 21 - EditLabel.Width = 60 - EditLabel.Height = 13 - EditLabel.Caption = 'edcmmodel1' - TabOrder = 16 - end - object edcmorientation: TLabeledEdit - Left = 397 - Top = 492 - Width = 121 - Height = 21 - EditLabel.Width = 75 - EditLabel.Height = 13 - EditLabel.Caption = 'edcmorientation' - TabOrder = 15 - end - object edcmmodel2: TLabeledEdit - Left = 651 - Top = 492 - Width = 121 - Height = 21 - EditLabel.Width = 60 - EditLabel.Height = 13 - EditLabel.Caption = 'edcmmodel2' - TabOrder = 17 - end end object tsCreatureOnKillReputation: TTabSheet Caption = 'On Kill Reputation' diff --git a/MainUnit.pas b/MainUnit.pas index a8afcd0..74846c9 100644 --- a/MainUnit.pas +++ b/MainUnit.pas @@ -44,7 +44,7 @@ interface PFX_CREATURE_TEMPLATE_ADDON = 'cd'; PFX_CREATURE_EQUIP_TEMPLATE = 'ce'; PFX_CREATURE_MODEL_INFO = 'ci'; - PFX_CREATURE_MOVEMENT = 'cm'; + PFX_CREATURE_TEMPLATE_MOVEMENT = 'cm'; PFX_CREATURE_LOOT_TEMPLATE = 'co'; PFX_CREATURE_SMARTAI = 'cy'; PFX_CONDITIONS = 'c'; @@ -1079,31 +1079,14 @@ TMainForm = class(TForm) tsItemRewardFrom: TTabSheet; lvItemProvidedFor: TJvListView; lvItemRewardFrom: TJvListView; - tsCreatureMovement: TTabSheet; - lvcmMovement: TJvListView; - lbHintCreatureMovement: TLabel; + tsCreatureTemplateMovement: TTabSheet; btShowCreatureMovementScript: TButton; btFullCreatureMovementScript: TButton; - btCreatureMvmntAdd: TSpeedButton; - btCreatureMvmntUpd: TSpeedButton; - btCreatureMvmntDel: TSpeedButton; - edcmid: TLabeledEdit; - edcmpoint: TLabeledEdit; - edcmposition_x: TLabeledEdit; - edcmposition_y: TLabeledEdit; - edcmposition_z: TLabeledEdit; - edcmwaittime: TLabeledEdit; - edcmtextid1: TLabeledEdit; - edcmtextid2: TLabeledEdit; - edcmtextid3: TLabeledEdit; - edcmtextid4: TLabeledEdit; - edcmtextid5: TLabeledEdit; - edcmemote: TJvComboEdit; - edcmspell: TLabeledEdit; - edcmwpguid: TLabeledEdit; - edcmmodel1: TLabeledEdit; - edcmorientation: TLabeledEdit; - edcmmodel2: TLabeledEdit; + edcmcreatureid: TLabeledEdit; + edcmground: TLabeledEdit; + edcmswim: TLabeledEdit; + edcmflight: TLabeledEdit; + edcmrooted: TLabeledEdit; lbqtDetailsEmote1: TLabel; lbqtDetailsEmote2: TLabel; lbqtDetailsEmote3: TLabel; @@ -1115,7 +1098,6 @@ TMainForm = class(TForm) lbqtOfferRewardEmote3: TLabel; lbqtOfferRewardEmote4: TLabel; lbcaemote: TLabel; - lbcmemote: TLabel; edclequipment_id: TLabeledEdit; edclmodelid: TLabeledEdit; tsCreatureModelInfo: TTabSheet; @@ -1898,11 +1880,6 @@ TMainForm = class(TForm) procedure tsGOInvolvedInShow(Sender: TObject); procedure tsItemInvolvedInShow(Sender: TObject); procedure lvcoCreatureLootDblClick(Sender: TObject); - procedure lvcmMovementChange(Sender: TObject; Item: TListItem; Change: TItemChange); - procedure btCreatureMvmntAddClick(Sender: TObject); - procedure btCreatureMvmntUpdClick(Sender: TObject); - procedure btCreatureMvmntDelClick(Sender: TObject); - procedure lvcmMovementSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); procedure btFullCreatureMovementScriptClick(Sender: TObject); procedure tsCreatureEquipTemplateShow(Sender: TObject); procedure tsCreatureModelInfoShow(Sender: TObject); @@ -2075,6 +2052,7 @@ TMainForm = class(TForm) procedure LoadCreature(Entry: integer); procedure LoadCreatureTemplateAddon(entry: integer); + procedure LoadCreatureTemplateMovement(creatureid: integer); procedure LoadCreatureAddon(GUID: integer); procedure LoadCreatureEquip(entry: integer); procedure LoadCreatureOnKillReputation(id: string); @@ -2093,7 +2071,7 @@ TMainForm = class(TForm) procedure CompleteNPCVendorScript; procedure CompleteCreatureTemplateAddonScript; procedure CompleteCreatureAddonScript; - procedure CompleteCreatureMovementScript; + procedure CompleteCreatureTemplateMovementScript; procedure CompleteCreatureOnKillReputationScript; {gameobjects} @@ -2128,12 +2106,6 @@ TMainForm = class(TForm) procedure SetLootEditFields(pfx: string; lvList: TJvListView); procedure ShowFullLootScript(TableName: string; lvList: TJvListView; Memo: TMemo; entry: string); - {movement} - procedure MvmntAdd(pfx: string; lvList: TJvListView); - procedure MvmntUpd(pfx: string; lvList: TJvListView); - procedure MvmntDel(lvList: TJvListView); - procedure SetMvmntEditFields(pfx: string; lvList: TJvListView); - procedure EnchAdd(pfx: string; lvList: TJvListView); procedure EnchDel(lvList: TJvListView); procedure EnchUpd(pfx: string; lvList: TJvListView); @@ -2509,7 +2481,7 @@ procedure TMainForm.FormCreate(Sender: TObject); tsNPCVendor.TabVisible := false; tsNPCTrainer.TabVisible := false; - tsCreatureMovement.TabVisible := false; //deactivate creature_movement tab + tsCreatureTemplateMovement.TabVisible := true; ItemColors[0] := $9D9D9D; ItemColors[1] := $000000; @@ -4406,6 +4378,7 @@ procedure TMainForm.LoadCreature(Entry: integer); tsNPCVendor.TabVisible := isvendor; tsNPCTrainer.TabVisible := istrainer; LoadCreatureTemplateAddon(Entry); + LoadCreatureTemplateMovement(Entry); edclid.Text := IntToStr(Entry); edcoEntry.Text := edctlootid.Text; edcpEntry.Text := edctpickpocketloot.Text; @@ -4649,7 +4622,7 @@ procedure TMainForm.tsCreatureScriptShow(Sender: TObject); 9: CompleteNPCTrainerScript; 10: CompleteCreatureTemplateAddonScript; 11: CompleteCreatureAddonScript; - 13: CompleteCreatureMovementScript; + 13: CompleteCreatureTemplateMovementScript; 14: CompleteCreatureOnKillReputationScript; 15: {involved in tab - do nothing}; end; @@ -5420,19 +5393,6 @@ procedure TMainForm.lvclCreatureLocationSelectItem(Sender: TObject; end; end; -procedure TMainForm.lvcmMovementChange(Sender: TObject; Item: TListItem; Change: TItemChange); -begin - btCreatureMvmntUpd.Enabled := Assigned(TJvListView(Sender).Selected); - btCreatureMvmntDel.Enabled := Assigned(TJvListView(Sender).Selected); -end; - -procedure TMainForm.lvcmMovementSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); -begin - if Selected then - SetMvmntEditFields('edcm', lvcmMovement); -end; - - procedure TMainForm.lvcySmartAISelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if Selected then @@ -5553,6 +5513,20 @@ procedure TMainForm.LoadCreatureTemplateAddon(entry: integer); end; end; +procedure TMainForm.LoadCreatureTemplateMovement(creatureid: integer); +begin + if creatureid<1 then Exit; + MyQuery.SQL.Text := Format('SELECT * FROM `creature_template_movement` WHERE (`CreatureId`=%d)',[creatureid]); + MyQuery.Open; + try + FillFields(MyQuery, PFX_CREATURE_TEMPLATE_MOVEMENT); + MyQuery.Close; + except + on E: Exception do + raise Exception.Create(dmMain.Text[159]+#10#13+E.Message); + end; +end; + procedure TMainForm.LoadCreatureAddon(GUID: integer); begin if GUID<1 then Exit; @@ -5698,20 +5672,16 @@ procedure TMainForm.CompleteCreatureModelInfoScript; 'INSERT INTO `creature_model_info` (%s) VALUES (%s);'#13#10,[caguid, Fields, Values]); end; -procedure TMainForm.CompleteCreatureMovementScript; -{ +procedure TMainForm.CompleteCreatureTemplateMovementScript; var - caguid,cmpoint, Fields, Values: string; -} + creatureid, Fields, Values: string; begin - {mectLog.Clear; - caguid := trim( edcmid.Text ); - cmpoint := trim( edcmpoint.Text ); - if (caguid='') or (cmpoint='') then exit; - SetFieldsAndValues(Fields, Values, 'creature_movement', PFX_CREATURE_MOVEMENT, mectLog); - mectScript.Text := Format('DELETE FROM `creature_movement` WHERE (`id`=%s) AND (`point`=%s);'#13#10+ - 'INSERT INTO `creature_movement` (%s) VALUES (%s);'#13#10,[caguid, cmpoint, Fields, Values]); } - //disable creature_movement + mectLog.Clear; + creatureid := trim(edcmcreatureid.Text); + if creatureid='' then exit; + SetFieldsAndValues(Fields, Values, 'creature_template_movement', PFX_CREATURE_TEMPLATE_MOVEMENT, mectLog); + mectScript.Text := Format('DELETE FROM `creature_template_movement` WHERE (`creatureid`=%s);'#13#10+ + 'INSERT INTO `creature_template_movement` (%s) VALUES (%s);'#13#10,[creatureid, Fields, Values]); end; procedure TMainForm.CompleteCreatureOnKillReputationScript; @@ -7122,36 +7092,6 @@ function TMainForm.MakeUpdateLocales(tn: string; pfx: string; KeyName: string; K MyTempQuery.Close; end; - -procedure TMainForm.MvmntAdd(pfx: string; lvList: TJvListView); -begin - with lvList.Items.Add do - begin - Caption := TCustomEdit(FindComponent(pfx + 'id')).Text; - SubItems.Add(TCustomEdit(FindComponent(pfx + 'point')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'position_x')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'position_y')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'position_z')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'waittime')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'text1')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'text2')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'text3')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'text4')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'text5')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'emote')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'spell')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'wpguid')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'orientation')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'model1')).Text); - SubItems.Add(TCustomEdit(FindComponent(pfx + 'model2')).Text); - end; -end; - -procedure TMainForm.MvmntDel(lvList: TJvListView); -begin - LootDel(lvList); -end; - procedure TMainForm.SmartAIDel(lvList: TJvListView); begin LootDel(lvList); @@ -7162,33 +7102,6 @@ procedure TMainForm.ConditionsDel(lvList: TJvListView); LootDel(lvList); end; -procedure TMainForm.MvmntUpd(pfx: string; lvList: TJvListView); -begin - if Assigned(lvList.Selected) then - begin - with lvList.Selected do - begin - Caption := TCustomEdit(FindComponent(pfx + 'id')).Text; - SubItems[0] := TCustomEdit(FindComponent(pfx + 'point')).Text; - SubItems[1] := TCustomEdit(FindComponent(pfx + 'position_x')).Text; - SubItems[2] := TCustomEdit(FindComponent(pfx + 'position_y')).Text; - SubItems[3] := TCustomEdit(FindComponent(pfx + 'position_z')).Text; - SubItems[4] := TCustomEdit(FindComponent(pfx + 'waittime')).Text; - SubItems[5] := TCustomEdit(FindComponent(pfx + 'text1')).Text; - SubItems[6] := TCustomEdit(FindComponent(pfx + 'text2')).Text; - SubItems[7] := TCustomEdit(FindComponent(pfx + 'text3')).Text; - SubItems[8] := TCustomEdit(FindComponent(pfx + 'text4')).Text; - SubItems[9] := TCustomEdit(FindComponent(pfx + 'text5')).Text; - SubItems[10] := TCustomEdit(FindComponent(pfx + 'emote')).Text; - SubItems[11] := TCustomEdit(FindComponent(pfx + 'spell')).Text; - SubItems[12] := TCustomEdit(FindComponent(pfx + 'wpguid')).Text; - SubItems[13] := TCustomEdit(FindComponent(pfx + 'orientation')).Text; - SubItems[14] := TCustomEdit(FindComponent(pfx + 'model1')).Text; - SubItems[15] := TCustomEdit(FindComponent(pfx + 'model2')).Text; - end; - end; -end; - procedure TMainForm.SmartAIUpd(pfx: string; lvList: TJvListView); begin if Assigned(lvList.Selected) then @@ -7273,21 +7186,6 @@ procedure TMainForm.btCreatureModelSearchClick(Sender: TObject); end; end; -procedure TMainForm.btCreatureMvmntAddClick(Sender: TObject); -begin - MvmntAdd('edcm', lvcmMovement); -end; - -procedure TMainForm.btCreatureMvmntDelClick(Sender: TObject); -begin - MvmntDel(lvcmMovement); -end; - -procedure TMainForm.btCreatureMvmntUpdClick(Sender: TObject); -begin - MvmntUpd('edcm', lvcmMovement); -end; - procedure TMainForm.btCreatureLootDelClick(Sender: TObject); begin LootDel(lvcoCreatureLoot); @@ -7414,33 +7312,6 @@ procedure TMainForm.SetLootEditFields(pfx: string; end; end; -procedure TMainForm.SetMvmntEditFields(pfx: string; lvList: TJvListView); -begin - if Assigned(lvList.Selected) then - begin - with lvList.Selected do - begin - TCustomEdit(FindComponent(pfx + 'id')).Text := Caption; - TCustomEdit(FindComponent(pfx + 'point')).Text := SubItems[0]; - TCustomEdit(FindComponent(pfx + 'position_x')).Text := SubItems[1]; - TCustomEdit(FindComponent(pfx + 'position_y')).Text := SubItems[2]; - TCustomEdit(FindComponent(pfx + 'position_z')).Text := SubItems[3]; - TCustomEdit(FindComponent(pfx + 'waittime')).Text := SubItems[4]; - TCustomEdit(FindComponent(pfx + 'textid1')).Text := SubItems[5]; - TCustomEdit(FindComponent(pfx + 'textid2')).Text := SubItems[6]; - TCustomEdit(FindComponent(pfx + 'textid3')).Text := SubItems[7]; - TCustomEdit(FindComponent(pfx + 'textid4')).Text := SubItems[8]; - TCustomEdit(FindComponent(pfx + 'textid5')).Text := SubItems[9]; - TCustomEdit(FindComponent(pfx + 'emote')).Text := SubItems[10]; - TCustomEdit(FindComponent(pfx + 'spell')).Text := SubItems[11]; - TCustomEdit(FindComponent(pfx + 'wpguid')).Text := SubItems[12]; - TCustomEdit(FindComponent(pfx + 'orientation')).Text := SubItems[13]; - TCustomEdit(FindComponent(pfx + 'model1')).Text := SubItems[14]; - TCustomEdit(FindComponent(pfx + 'model2')).Text := SubItems[15]; - end; - end; -end; - procedure TMainForm.SetSmartAIEditFields(pfx: string; lvList: TJvListView); begin if Assigned(lvList.Selected) then @@ -7896,14 +7767,12 @@ procedure TMainForm.btShowCharacterScriptClick(Sender: TObject); procedure TMainForm.btShowFULLCharacterInventoryScriptClick(Sender: TObject); begin PageControl8.ActivePageIndex := SCRIPT_TAB_NO_CHARACTER; -// ShowFullLootScript('item_loot_template', lvitItemLoot, meitScript, editentry.Text); end; procedure TMainForm.btFullCreatureMovementScriptClick(Sender: TObject); begin PageControl3.ActivePageIndex := SCRIPT_TAB_NO_CREATURE; - //mectScript.Text := FullScript('creature_movement', 'id', edclguid.Text); //disable creature_movement - //ShowFullMvmntScript('creature_movement', lvcmMovement, mectScript, edclguid.Text); + mectScript.Text := FullScript('creature_template_movement', 'CreatureId', edcmcreatureid.Text); end; procedure TMainForm.btFullScriptGOLocationClick(Sender: TObject); diff --git a/MyDataModule.pas b/MyDataModule.pas index c6446fc..29ffae4 100644 --- a/MyDataModule.pas +++ b/MyDataModule.pas @@ -360,6 +360,7 @@ procedure TdmMain.Init; Text[156]:='LootMode'; Text[157]:='The error has accured while loading Creature EventAI:'; Text[158]:='Please specify a source type!'; + Text[159]:='The error has accured while loading Creature Template Movement:'; end; procedure TdmMain.SetLanguage(const Value: string);