Записи участника (H_A_PK) - Форум - Rewar.me — Фансайт Warcraft 3 Reforged (ex Ternox.com)

Результаты поиска

H_A_PK

#661 | Тема: Досчитаем до 1 000 000 000

3094

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#662 | Тема: [Статья]Jass поляризация

Quote (Omni174)

некоторые функции..

ты про это ?

Code

globals
     array lightning udg_l
     array real udg_x
     array real udg_y
     array real udg_z
     real udg_an
     string udg_s
endglobals

function act takes nothing returns nothing

     local integer i = 0
     local real a = 275
     local real r = 0
     local integer an = 0
     local integer an2 = 0
     local real atan = 0
     local real znull = (a/Sin(45*.0174532))-a
     local real xc = 0
     local real yc = 0
     local real zc = a + znull

     if udg_s == "ball" then

       loop
       exitwhen an == 360
       set an2 = 0
        loop
        exitwhen an2 == 360
         set udg_x[i] = xc + (a*Cos(.0174532*an))*Cos(.0174532*an2)
         set udg_y[i] = yc + (a*Cos(.0174532*an))*Sin(.0174532*an2)
         set udg_z[i] = zc + a * Sin(.0174532*an)

         set atan = bj_RADTODEG * Atan2(udg_y[i]-yc, udg_z[i]-zc)
         set r = SquareRoot(((a*a)-Pow(SquareRoot((xc-udg_x[i])*(xc-udg_x[i])),2)))
         set udg_y[i] = yc + r * Cos(.0174532 * (udg_an+atan))
         set udg_z[i] = zc + r * Sin(.0174532 * (udg_an+atan))

         set i = i + 1
         set an2 = an2 + 36
        endloop
        set an = an + 36
       endloop

set i = 0

loop
exitwhen i==110

           call MoveLightningEx(udg_l[i],true,udg_x[i],udg_y[i],udg_z[i],udg_x[i+1],udg_y[i+1],udg_z[i+1])
           call MoveLightningEx(udg_l[i+1],true,udg_x[i+1],udg_y[i+1],udg_z[i+1],udg_x[i+2],udg_y[i+2],udg_z[i+2])
           call MoveLightningEx(udg_l[i+2],true,udg_x[i+2],udg_y[i+2],udg_z[i+2],udg_x[i+3],udg_y[i+3],udg_z[i+3])
           call MoveLightningEx(udg_l[i+3],true,udg_x[i+3],udg_y[i+3],udg_z[i+3],udg_x[i+4],udg_y[i+4],udg_z[i+4])
           call MoveLightningEx(udg_l[i+4],true,udg_x[i+4],udg_y[i+4],udg_z[i+4],udg_x[i+5],udg_y[i+5],udg_z[i+5])
           call MoveLightningEx(udg_l[i+5],true,udg_x[i+5],udg_y[i+5],udg_z[i+5],udg_x[i+6],udg_y[i+6],udg_z[i+6])
           call MoveLightningEx(udg_l[i+6],true,udg_x[i+6],udg_y[i+6],udg_z[i+6],udg_x[i+7],udg_y[i+7],udg_z[i+7])
           call MoveLightningEx(udg_l[i+7],true,udg_x[i+7],udg_y[i+7],udg_z[i+7],udg_x[i+8],udg_y[i+8],udg_z[i+8])
           call MoveLightningEx(udg_l[i+8],true,udg_x[i+8],udg_y[i+8],udg_z[i+8],udg_x[i+9],udg_y[i+9],udg_z[i+9])
           call MoveLightningEx(udg_l[i+9],true,udg_x[i+9],udg_y[i+9],udg_z[i+9],udg_x[i],udg_y[i],udg_z[i])

set i = i + 10
endloop

set i = 0
loop
exitwhen i >= 90
           call MoveLightningEx(udg_l[i+100],true,udg_x[i],udg_y[i],udg_z[i],udg_x[i+10],udg_y[i+10],udg_z[i+10])
set i = i + 1
endloop

endif

if udg_s == "Cube" then

     set udg_x[0] = xc + a
     set udg_y[0] = yc + a
     set udg_z[0] = znull

     set udg_x[1] = xc + a
     set udg_y[1] = yc - a
     set udg_z[1] = znull

     set udg_x[2] = xc - a
     set udg_y[2] = yc - a
     set udg_z[2] = znull

     set udg_x[3] = xc - a
     set udg_y[3] = yc + a
     set udg_z[3] = znull

     set udg_x[4] = xc + a
     set udg_y[4] = yc + a
     set udg_z[4] = znull+(a*2)

     set udg_x[5] = xc + a
     set udg_y[5] = yc - a
     set udg_z[5] = znull+(a*2)

     set udg_x[6] = xc - a
     set udg_y[6] = yc - a
     set udg_z[6] = znull+(a*2)

     set udg_x[7] = xc - a
     set udg_y[7] = yc + a
     set udg_z[7] = znull+(a*2)

     set i = 0

     loop
         set atan = bj_RADTODEG * Atan2(udg_x[i]-xc, udg_y[i]-yc)
         set udg_x[i] = xc + a * Cos(.0174532 * (udg_an+atan))
         set udg_y[i] = yc + a * Sin(.0174532 * (udg_an+atan))
      set i = i + 1
     exitwhen i == 8
     endloop

     set i = 0

     loop
     exitwhen i >= 7
           call MoveLightningEx(udg_l[i],true,udg_x[i],udg_y[i],udg_z[i],udg_x[i+1],udg_y[i+1],udg_z[i+1])
           call MoveLightningEx(udg_l[i+1],true,udg_x[i+1],udg_y[i+1],udg_z[i+1],udg_x[i+2],udg_y[i+2],udg_z[i+2])
           call MoveLightningEx(udg_l[i+2],true,udg_x[i+2],udg_y[i+2],udg_z[i+2],udg_x[i+3],udg_y[i+3],udg_z[i+3])
           call MoveLightningEx(udg_l[i+3],true,udg_x[i+3],udg_y[i+3],udg_z[i+3],udg_x[i],udg_y[i],udg_z[i])
     set i = i + 4
     endloop

set i = 0
      loop
      exitwhen i >= 4
           call MoveLightningEx(udg_l[i+8],true,udg_x[i],udg_y[i],udg_z[i],udg_x[i+4],udg_y[i+4],udg_z[i+4])
      set i = i + 1
      endloop

endif

if udg_s == "Tripp" then

     set udg_x[0] = xc + a
     set udg_y[0] = yc + a
     set udg_z[0] = znull

     set udg_x[1] = xc - a
     set udg_y[1] = yc + a
     set udg_z[1] = znull

     set udg_x[2] = xc
     set udg_y[2] = yc - a
     set udg_z[2] = znull

     set udg_x[3] = xc
     set udg_y[3] = yc
     set udg_z[3] = zc + a/2

set i = 0
     loop
         set atan = bj_RADTODEG * Atan2(udg_x[i]-xc, udg_z[i]-zc)
         set udg_x[i] = xc + a * Cos(.0174532 * (udg_an+atan))
         set udg_z[i] = zc + a * Sin(.0174532 * (udg_an+atan))
      set i = i + 1
     exitwhen i == 4
     endloop

           call MoveLightningEx(udg_l[0],true,udg_x[0],udg_y[0],udg_z[0],udg_x[1],udg_y[1],udg_z[1])
           call MoveLightningEx(udg_l[1],true,udg_x[1],udg_y[1],udg_z[1],udg_x[2],udg_y[2],udg_z[2])
           call MoveLightningEx(udg_l[2],true,udg_x[2],udg_y[2],udg_z[2],udg_x[0],udg_y[0],udg_z[0])

           call MoveLightningEx(udg_l[3],true,udg_x[0],udg_y[0],udg_z[0],udg_x[3],udg_y[3],udg_z[3])
           call MoveLightningEx(udg_l[4],true,udg_x[1],udg_y[1],udg_z[1],udg_x[3],udg_y[3],udg_z[3])
           call MoveLightningEx(udg_l[5],true,udg_x[2],udg_y[2],udg_z[2],udg_x[3],udg_y[3],udg_z[3])


endif
     set udg_an = udg_an + 3

endfunction

function InitTrig_g2 takes nothing returns nothing

        local trigger t = CreateTrigger()
        local integer i = 0

        call TriggerRegisterTimerEventPeriodic(t, 0.025)
        call TriggerAddAction(t, function act )

        call FogEnableOff()
        call FogMaskEnableOff()
        set udg_s = "ball"

      loop
         call AddLightningLoc( "LEAS", GetRectCenter(GetPlayableMapRect()), GetRectCenter(GetPlayableMapRect()) )
        set udg_l[i] = GetLastCreatedLightningBJ()
       set i = i + 1
      exitwhen i == 191
      endloop

endfunction

Это вставь просто себе в карту =) желательно чтобы у тебя был JNGP и cJass, иначе

Quote (H_A_PK)

globals
array lightning udg_l
array real udg_x
array real udg_y
array real udg_z
real udg_an
string udg_s
endglobals

придёться объявлять в ручную в редакторе переменных
array - массив
real - реальная
string - строка
lightning - молния

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#663 | Тема: Ваши вопросы по Jass'y

Quote (Omni174)

А можно как-нибудь сделать(не на гуи -_-) чтобы:
Каждые 5 сек.
Все юниты типа Рыцарь нападали на тип пехотинец?

Code

function Trig_order_Actions takes nothing returns nothing

  local group g = CreateGroup()
  local unit u = null

  local group g2 = CreateGroup()
  local unit u2 = null

  call GroupEnumUnitsInRect(g,<Облость карты>,null)
  call GroupEnumUnitsInRect(g2,<Облость карты>,null)
  set u = FirstOfGroup(g)
  set u2 = FirstOfGroup(g2)

    loop
     set u = FirstOfGroup(g)

             loop
                set u2 = FirstOfGroup(g2)

                       if  GetUnitTypeId(u2) == <равкод рыцаря> and GetUnitTypeId(u) == <равкод пехотинца> then
                        call IssueTargetOrder(u,"attack",u2)
                       endif

                call        GroupRemoveUnit(g2,u2)
                exitwhen u2==null
             endloop

     call        GroupRemoveUnit(g,u)
     exitwhen u==null
    endloop

    call DestroyGroup(g)
    call DestroyGroup(g2)
    set g = null
    set g2 = null

endfunction

function InitTrig_NewTrigger takes nothing returns nothing

     local trigger t = CreateTrigger()

     call TriggerRegisterTimerEvent (t, 5, true)
     call TriggerAddAction(t, function Trig_order_Actions)

endfunction

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#664 | Тема: [Статья]Jass поляризация

Quote (Omni174)

Окей,а как использовать JNGP/cJass чтобы код написанный в нем шел в WE?

Да лучше скачай сборку Драгона (Спирита) JNGP, в настройках включи Adic Helper , вообщем там в настройках можно включить cJass

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#665 | Тема: Досчитаем до 1 000 000 000

3097

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#666 | Тема: Досчитаем до 1 000 000 000

3099

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#667 | Тема: Досчитаем до 1 000 000 000

3100

Прикрепления: 1153238.jpg (14.2 Kb)

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#668 | Тема: Карты на продажу

В общем тема для Купли/продажи карт (как понял тема острая для сайтов)

Здесь вы предлагаете свою карту для продажи или же покупаете карту предлагаете свою цену в Т-поинтах

Форма заявки:

Code

[b]Название карты:[/b]
[b]Общий вес:[/b]
[b]Имя автора:[/b]
[b]О карте:[/b]
[b]Предполагаемая цена:[/b]
[b]Скриншоты:[/b]

Скриншоты желательно прятать под спойлер

Мапа №1

Название карты:Потерянный край
Общий вес:267 КБ
Имя автора:M@}{
О карте:Карта создана мной для галереи но позже была доработана и добавленно четыре лагеря для четырёх рас(эльфы,люди,нежить,троли)
Предполагаемая цена: около 100 T-points
Скриншоты:

Мапа №2

Название карты:Lotr:Эпоха Войны
Общий вес:6.3 Мб
Имя автора:Nikikin(Ланд,Модели) Mapwar (РО)
О карте:Карта предоставляет из себя ландшафт размером 1
Предполагаемая цена: от 200 T-points
Скриншоты:

Мапа №3

Название карты: Black ORPG
Общий вес: ~3Mb
Имя автора: GraF251996
О карте: тут
Предполагаемая цена: 500 т-поинтов
Скриншоты:тут

Мапа №4
Название карты: Battle in the Jungle(Битва в Джунглях)
Общий вес: 2006кб
Имя автора: SunCreep
О карте: Тема карты
Предполагаемая цена: Не знаю, торг уместен.
Скриншоты: Настолько противно сейчас заходить в редактор, что скринов я не предоставлю. Впрочем, они есть в теме карты.

Мапа №5
Название кампании: Падение вождя
Общий вес: 5,57 МБ
Имя автора: GiFun aka CoRVu$
О карте: Мы играем за охотника орды из клана Клана Смеющегося Черепа (да, знаю, что там огры). Брат ГГ хочет свергнуть вождя клана и занять его место. Мы это пронюхали и брат посадил ГГ в тюрьму...
Предполагаемая цена: от 200 T-points и более (аукцион)
Видео по проекту : (немного лагет - прошу прощения)

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#669 | Тема: Карты на продажу

CoRVu$, Отдашь за 150 ? smile

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#670 | Тема: Карты на продажу

Quote (CoRVu$)

хватит флудить.

Это торга

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#671 | Тема: Карты на продажу

обновил первый пост

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#672 | Тема: Отчеты Модераторов Закрепленных За Подфорумами

Название раздела: Библиотека, Тиггеры и jass
Созданые мною темы: Рас,два,три,Четыре,Пять,Шесть,Семь
с 3 по 7, темы Omni174
Хотел порадовать людей форума этим постом. Не получилось. Обновил тему карты на продажу.
Закрыл эту,эту и эту тему. Помог нашим юзерам с вопросами по Jass. Скинул маленький пак спелов для примера. Забанил двух мультов.
Кстате, в связи с полным инактивом в моих разделах и отсутствием Графа, прошу дать модерские права в его разделах smile

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#673 | Тема: [ВАЖНО] Покупка warcraft3info

У вас недостаточно прав для просмотра данного сообщения.

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#674 | Тема: Caapp!!

Quote (Murador)

так нахватало в Public1

не хватало ?

Quote (Murador)

Вы-захватчик. Ваша задача набрать максимальное количество очков. Каждый шестигранник приносит вам +1 очко в n-ый период времени.

Как-то всё просто:0

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D

H_A_PK

#675 | Тема: CoRVu$`a в модераторы!

У вас недостаточно прав для просмотра данного сообщения.

Ползут 2 пирожка.
Первый: Я тебя щас трахну.
Второй: Почему?
Первый: Потому что я с яйцами :D