Есть мнение, что волчанка сыч, которому просто нечем заняться.
Код
function RegHeroData takes nothing returns nothing local unit s = GetSoldUnit() local integer ts = GetUnitTypeId(s) local integer me = -1 // Гнолл Механик if ts == 1429221432 then set me = CreateObject(s) set me:Su:ui=me set me:ip=GetOwningPlayer(s):pId set me:base_attackA = 20 set me:base_attackA = 35 set me:defArmor = 5 set me:MainChar = 1 set me:RegItem = true set me:StatusStr = 0 set me:StatusInt = 0 set me:StatusAgi = 0 set me:rHp = .75 set me:rMp = .25 set me:brMp = true set me:brHp = true call sme(PlayerMbi[me:ip],0,true,true) call smi(PlayerMbi[me:ip],0,"Legion\\Heroes\\GM\\BTNGnollMechanic.blp") endif // Благодетель if ts == 1214345844 then set me = CreateObject(s) set me:Su:ui=me set me:ip=GetOwningPlayer(s):pId set me:base_attackA = 30 set me:base_attackA = 35 set me:defArmor = 3 set me:MainChar = 2 set me:RegItem = true set me:StatusStr = 0 set me:StatusInt = 0 set me:StatusAgi = 0 set me:rHp = .20 set me:rMp = .40 set me:brMp = true set me:brHp = true call sme(PlayerMbi[me:ip],0,true,true) call smi(PlayerMbi[me:ip],0,"ReplaceableTextures\\CommandButtons\\BTNArthas.blp") endif // Белый маг if ts == 1311780929 then set me = CreateObject(s) set me:Su:ui=me set me:ip=GetOwningPlayer(s):pId set me:base_attackA = 25 set me:base_attackA = 40 set me:defArmor = 3 set me:MainChar = 2 set me:RegItem = true set me:StatusStr = 0 set me:StatusInt = 0 set me:StatusAgi = 0 set me:rHp = .20 set me:rMp = .40 set me:brMp = true set me:brHp = true call sme(PlayerMbi[me:ip],0,true,true) call smi(PlayerMbi[me:ip],0,"ReplaceableTextures\\CommandButtons\\BTNBloodElfPeasant.blp") endif // Дух огня if ts == 1160785987 then set me = CreateObject(s) set me:Su:ui=me set me:ip=GetOwningPlayer(s):pId set me:base_attackA = 28 set me:base_attackA = 30 set me:defArmor = 5 set me:MainChar = 1 set me:RegItem = true set me:StatusStr = 0 set me:StatusInt = 0 set me:StatusAgi = 0 set me:rHp = .24 set me:rMp = .16 set me:brMp = true set me:brHp = true call sme(PlayerMbi[me:ip],0,true,true) call smi(PlayerMbi[me:ip],0,"ReplaceableTextures\\CommandButtons\\BTNFireBrewmaster.blp") endif // Царь земли if ts == 1311780932 then set me = CreateObject(s) set me:Su:ui=me set me:ip=GetOwningPlayer(s):pId set me:base_attackA = 30 set me:base_attackA = 40 set me:defArmor = 4 set me:MainChar = 0 set me:RegItem = true set me:StatusStr = 0 set me:StatusInt = 0 set me:StatusAgi = 0 set me:rHp = .40 set me:rMp = .18 set me:brMp = true set me:brHp = true call sme(PlayerMbi[me:ip],0,true,true) call smi(PlayerMbi[me:ip],0,"ReplaceableTextures\\CommandButtons\\BTNEarthBrewmaster.blp" ) endif
// Дух Метели if ts == 1311780933 then set me = CreateObject(s) set me:Su:ui=me set me:ip=GetOwningPlayer(s):pId set me:base_attackA = 14 set me:base_attackA = 24 set me:defArmor = 4 set me:MainChar = 0 set me:RegItem = true set me:StatusStr = 0 set me:StatusInt = 0 set me:StatusAgi = 0 set me:rHp = .25 set me:rMp = .45 set me:brMp = true set me:brHp = true call sme(PlayerMbi[me:ip],0,true,true) call smi(PlayerMbi[me:ip],0,"ReplaceableTextures\\CommandButtons\\BTNGhost.blp" ) endif
if me != -1 then set PLAYER_ID[me:ip]:pd=me if IsPlayerInForce(PLAYER_ID[me:ip], Az ) then call SetUnitPosition( me:Su, AzHrX, AzHrY ) endif if IsPlayerInForce(PLAYER_ID[me:ip], Lg ) then call SetUnitPosition( me:Su, LgHrX, LgHrY ) endif call TriggerRegisterUnitEvent( gg_trg_HeroCasts, me:Su, EVENT_UNIT_SPELL_EFFECT ) call TriggerRegisterUnitEvent( gg_trg_HeroPassive, me:Su, EVENT_UNIT_HERO_SKILL ) call TriggerRegisterUnitEvent( gg_trg_ItemUses, me:Su, EVENT_UNIT_SPELL_EFFECT ) call CloseHero(ts,me) call RegOtherStat(me) call PickHero(me) endif set s = null set ts = 0 set me = 0 endfunction
Ваша теория не верна. Мне есть много чем заняться. Мнение - мне ни ясно.
Тогда почему ты сидишь на форуме и пытаешься добиться НИЧЕГО вместо того чтобы выйти на улицу, найти себя няшу и потерется у нее под хвостиком? Не пытайся обмануть самого себя.
Samedy_, омг. Думаешь, на форумах сидят обязательно все, у кого нет своей тян?) Спешу огорчить. Я, правда, в число этих людей не вхожу.
Не в тян дело, я мог привести любой другой пример. Просто задел больную тему)) Вообще, имелось в виду то, что он тратит время (которое судя по его словам заполнено) на полу-мертвый форум и пытается тут чего-то не понятного добиться. Будь у меня, например, личная жизнь, я б такой херней заниматься точно не стал.
А я то почему лопух? Это вроде не я ради пары постов тут регаться должен и капчу каждый раз вводить
Добавлено (25 Июля 2015, 20:09:15) --------------------------------------------- А бан прописать - 3 клика мышки всего, мне не сложно ради тебя стараться
Антивлад Антибармов А, не ври, даже гугл не может распознать капчу,)
"История нашего народа знает немало светлых страниц. Темных было тоже достаточно. И все с белыми пятнами. От белых пятен истории нужно избавляться, но нельзя же всё мазать черной краской!"(с) Рохан.
Значит я такой перебираю символы в delphi ну по приколу.. В цикле.. Просто сравниваю буквы через цикл, возращая их число. Не суть, хотя почему-то кодировочка кривит или ASCII что-то шалит хз.. Но одно точно ясно, где-то криво.. AnsiLowerCase() даже использовал, хотя срать он фальшифил с буквой "Я", "я".. И из неоткуда брал лишнюю, хотя странновато. мб я что-то сам надмудрил. Но в голове я строил код до мелочей, все обдумывал. Хотя мне мало работы с текстами, но редачить всякие нудные конструкции с овер 10000 геморройными параметрами пока не охотно.
Я вот интересуюсь, сколько всего можно ужать слогов в 1 один символ.. Понятное дело, что все символы понадобяться, видимые больше, чем в стандарном ASCII, но читабельные... Но это не годится. Думаю ужать в 0..R27 число. Так будет забавнее..
Сообщение отредактировал Волчачка - Вторник, 04 Августа 2015, 02:30:16