// кач таминг v2.0 (вродекак все норм) // Обрезанная версия. НЕавтомат (сам НЕберет посох когда предидущ. сломается. в отл. от версиии 2.1 ) //=================== ТО ЧТО НУЖНО ПЕРЕДЕЛАТЬ ПОД СЕБЯ ========== set $KeyNextTarget f7 // кнопка в UO на {Next Target} set $KeyLOwftLT f6 // кнопка в UO на {LastObject;wait for target;LastTarget} set #CriticalTime 30000 // если не затамилось или косяк какойто -> дальше //====================== остальное само пашет ==================== :NextTame say all release send $KeyNextTarget wait 1000 :ReTame say all release send $KeyLOwftLT set timer wait 1000 :Loop if (lastmsg must wait) or (lastmsg name) and ((lastmsg Here) or (lastmsg Good) or (lastmsg always wanted) or (lastmsg won't hurt)) wait 2000 end_if if (lastmsg fail) or timer > #CriticalTime goto ReTame end_if if (lastmsg accept ) or (lastmsg already) or (lastmsg remembers) or (lastmsg не можете) or (lastmsg too far) or (lastmsg cannot) goto NextTame end_if goto loop
|