魔兽争霸地图编辑器.AI制作.doc

AI?jass AIjass AIjassAIjass.AIDOTA AIAI.AIF12(ModulesImport manager)Import managerFile -Import file ( - )*.ai.Modify file properties().ai?AI+ Shingo Jass Highlighter 0.41globals/ endglobalsfunction blabla takes blabla returns blabla/ endfunctionfunction main takes nothing returns nothing/Endfunction TAI, (),1RPG,AI,AI,1AI,(,),AI.AI1,2,3.4,ORC3CAI,ORC,: : : 800 ( TRUE) ( ) ( FLASE) ( TRUE) ( ) LOOP AI, ( ),DOTAT11 LV4 MP 185 LV4 MP 160 LV2 350 3700,T1_: 70% : : A= /(T) 800 ( TRUE) ( ) ( FLASE) ( TRUE) ( ) LOOP B= /(T) B _ A 242_:0.2: A 200 ( LV2 TRUE) ( ) ( FLASE) ( TRUE) LOOP A3_: LV2: 24_:0.2: B 600 ( TRUE) ( ) ( FLASE) ( TRUE) LOOP B _ A5_: : : 46_: : : B _ A B AT,TAIAI RPGAI().RPGAIBlade.dk?onlyxuyangJASS-JASSJASSTTTJASSBUGJASSJASSBUG- AI- - AIAIWE1-1()JASS0-11AI(.?).(Channel)OrderString(game cache) udg_GameCache SetupSkills.AIInitTrigExecuteFuncjass: Copy codeSetupSkillsfunction SetupSkills takes nothing returns nothinglocal string h / Create a local string variable/ Paladin / Here well initialise the Paladins skills, repeat this for all other heroesset h = UnitId2String(Hpal) / Store the returned value of UnitId2String(Hpal) in the localcall StoreInteger(udg_GameCache, h, BaseSkill1, AHhb) / One of his base skills is Holy Light, store it as BaseSkill1call StoreInteger(udg_GameCache, h, BaseSkill2, AHds) / Store Divine Shield as BaseSkill2call StoreInteger(udg_GameCache, h, BaseSkill3, AHad) / Store Devotion Aura as BaseSkill3call StoreInteger(udg_GameCache, h, UltimateSkill, AHre) / Store Resurrection as his UltimateSkill / Repeat for each Hero.endfunctionAIInitTrigfunction InitTrig_AI takes nothing returns nothinglocal integer i = 0set gg_trg_AI = CreateTrigger( )loopexitwhen i 11call TriggerRegisterPlayerEventLeave( gg_trg_AI, Player(i) )set i = i + 1endloopcall TriggerAddAction( gg_trg_AI, function PlayerLeaves )call ExecuteFunc(SetupSkills)endfunctionAIAI(timer).StartAI:()AILoopStartAI(functionendfunctionWE) :jass: Copy codefunction AILoop takes nothing returns nothingendfunctionfunction StartAI takes unit hero returns nothinglocal timer m = CreateTimer()call AttachObject(m, hero, hero)call TimerStart(m, 0, false, function AILoop)set m = nullendfunctionStartAIperiodicfalse().AIjass: Copy codefunction PlayerLeaves takes nothing returns nothinglocal player p = GetTriggerPlayer()call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, GetPlayerName(p)+ has left the game.)if udg_HeroGetPlayerId(p) != null thencall StartAI(udg_HeroGetPlayerId(p)endifset p = nullendfunctionAIAI, , e5jass: Copy code:function AILoop takes nothing returns nothinglocal string a = GetAttachmentTable(GetExpiredTimer()local unit h = GetTableUnit(a, hero)local rect ilocal location rlocal real x = GetUnitX(h)local real y = GetUnitY(h)local group glocal boolexpr blocal boolexpr belocal unit flocal string o = OrderId2String(GetUnitCurrentOrder(h)local real l = GetUnitState(h, UNIT_STATE_LIFE)local real e = 5e1.5(5,).l0e1.5.if l = 0 thenset e = 1.5endif20%.e3.20%,if l 0 and IsPlayerEnemy(GetOwningPlayer(GetFilterUnit(), GetOwningPlayer(GetAttachedUnit(GetExpiredTimer(), hero)endfunctionelseif (o = smart) or (o = attack) or (o = patrol) or (o = move) or (o = stop) or (o = hold) or (o = null) thenset g = CreateGroup()set b = Condition(function AIFilterEnemyConditions)call GroupEnumUnitsInRange(g, x, y, 500, b)set f = FirstOfGroup(g)if f = null thenelsecall IssueTargetOrder(h, attack, f)endifcall DestroyGroup(g)call DestroyBoolExpr(b)endif,.,.,.jass: Copy codefunction AISetItem takes nothing returns nothingset bj_lastRemovedItem=GetEnumItem()endfunctionfunction AIItemFilter takes nothing returns booleanreturn IsItemVisible(GetFilterItem() and GetWidgetLife(GetFilterItem() 0endfunctionfunction AIHasEmptyInventorySlot takes unit u returns booleanreturn UnitItemInSlot(u, 0) = null or UnitItemInSlot(u, 1) = null or UnitItemInSlot(u, 2) = null or UnitItemInSlot(u, 3) = null or UnitItemInSlot(u, 4) = null or UnitItemInSlot(u, 5) = nullendfunctionif f = null thenset i = Rect(x-800, y-800, x+800, y+800)set be = Condition(function AIItemFilter)set bj_lastRemovedItem=nullcall EnumItemsInRect(i, be, function AISetItem)if bj_lastRemovedItem != null and (GetItemType(bj_lastRemovedItem) = ITEM_TYPE_POWERUP or AIHasEmptyInventorySlot(h) thencall IssueTargetOrder(h, smart, bj_lastRemovedItem)elseendifcall RemoveRect(i)call DestroyBoolExpr(be),.elseset r = GetRandomLocInRect(bj_mapInitialPlayableArea)call IssuePointOrderLoc(h, patrol, r)call RemoveLocation(r) linzefei linzefei (zi 174)108 2 50383 120 3947 2012-9-11UID101045 6181 EXP5 1445 141 1 4 1156 2007-3-14 2008-11-16 05:45 | - - PVE,RPG(/).,.,:jass: Copy codefunction AILearnSkill takes unit h, string a returns nothinglocal integer i = GetTableInt(a, LearnSkillOrder)+1if i = 1 or i = 4 or i = 8 thencall SelectHeroSkill(h, GetStoredInteger(udg_GameCache, UnitId2String(GetUnitTypeId(h), BaseSkill1)elseif i = 2 or i = 5 or i = 9 thencall SelectHeroSkill(h, GetStoredInteger(udg_GameCache, UnitId2String(GetUnitTypeId(h), BaseSkill2)elseif i = 3 or i = 7 or i = 10 thencall SelectHeroSkill(h, GetStoredInteger(udg_GameCache, UnitId2String(GetUnitTypeId(h), BaseSkill3)elseif i = 6 thencall SelectHeroSkill(h, GetStoredInteger(udg_GameCache, UnitId2String(GetUnitTypeId(h), UltimateSkill)endifcall SetTableInt(a, LearnSkillOrder, i)endfunctionif GetHeroSkillPoints(h) 0 and l 0 thencall AILearnSkill(h, a)endife:call TimerStart(GetExpiredTimer(), e, true, function AILoop):set h = nullset i = nullset r = nullset g = nullset b = nullset f = nullset be = nullAI,.,.AI,:-.-AI.-,.-AI(AI)TOPlinzefei linzefei (zi 174)108 2 50383 120 3947 2012-9-11UID101045 6181 EXP5 1445 141 1 4 1156 2007-3-14 2008-11-16 18:59 | - -2)(Threads)(AI, , AIJASS, AI EDITOR. , AI, .)AI(AI JASS), (Trigger Jass). , AI, comman.j:+ Shingo Jass Highlighter 0.41native StartThread takes code func returns nothing call StartThread(function myfunc) myfunc.6, . 6, StartThread(). , 5, ., . , .(). , ., a) (opcode), 1 b) Sleep(n), n , ., a) call StartThread(null), b) , .(StartThread().)c) , . , .d) , e) .: AIcommon.j, AI, :a) (string), I2S(), SubString()b) code, trigger, boolexpr , , (ForGroup, ): AIBlizzard.j, common.ai, AIcommon.j(, AI, )common.aicommon.jAI, AI, 2.3) (Inter-Script Communication), Jass. , , AI. . , AIAI.AI. . (integer): (command value)(data value).+ Shingo Jass Highlighter 0.41AI, common.j:native CommandAI takes player num,integer command, integer data returns nothing:player num /integer command /integer data /AIcommon.j, : AI, ,