• 🏆 Texturing Contest #33 is OPEN! Contestants must re-texture a SD unit model found in-game (Warcraft 3 Classic), recreating the unit into a peaceful NPC version. 🔗Click here to enter!
  • It's time for the first HD Modeling Contest of 2024. Join the theme discussion for Hive's HD Modeling Contest #6! Click here to post your idea!

Summon Roflcopter v0.3

A lulzy spell i made. The Roflcopter is made of floating text as well as the bombs he drops.

Summon Roflcopter
Call for the aid of a Roflcopter. The Rolfcopter will fly in a line and throw bombs beneath it.
Level 1 - 50 damage per bomb.
Level 2 - 100 damage per bomb.
Level 3 - 150 damage per bomb.
Requires:
-SpellEffectEvent (by Bribe) (Also the libraries that are required by this one: Table and RegisterPlayerUnitEvent)
-TimerUtils (Any, i used Vexorian's though)

JASS:
library Roflcopter initializer Init requires TimerUtils, II, SpellEffectEvent, Z

    //Configurables and whatnot
    globals
        private constant integer SPELL_RAW         = 'A000'
        private constant string EXPLOSION_EFFECT   = "Abilities\\Weapons\\CannonTowerMissile\\CannonTowerMissile.mdl"
        private constant real HEIGHT               = 350.0 //Roflcopter height
        private constant real SPIN_PERIOD          = 0.16 //Period between each propeller change
        private constant attacktype ATTACK_TYPE    = ATTACK_TYPE_NORMAL
        private constant damagetype DAMAGE_TYPE    = DAMAGE_TYPE_NORMAL
        private constant weapontype WEAPON_TYPE    = WEAPON_TYPE_WHOKNOWS
    endglobals
    
    private constant function DAMAGE takes unit caster,integer lvl returns real
        return lvl * 50. //Damage dependency of level.
        //You can also make damage depend on caster's stats by refering to unit variable 'caster'
    endfunction
    
    private constant function TRAVEL_LENGTH takes integer lvl returns real
        return 1400. //How long does roflcopter fly
    endfunction
    
    private constant function BOMB_PERIOD takes integer lvl returns real
        return 0.5 //How often will roflcopter throw bombs
    endfunction
    
    private constant function BOMB_AOE takes integer lvl returns real
        return 200. //Area of effect for bomb explosion
    endfunction
    
    private constant function ROFLCOPTER_SPEED takes integer lvl returns real
        return 7. //Movement speed or roflcopter
    endfunction
    
    private constant function BOMB_SPEED takes integer lvl returns real
        return 7. //Fall speed of bombs
    endfunction
    
    private function FILTER takes unit caster,unit target,integer lvl returns boolean
        //Filters which units will be damaged on explosion
        return IsPlayerEnemy(GetOwningPlayer(caster),GetOwningPlayer(target)) /*
        */ and IsUnitType(target,UNIT_TYPE_GROUND) /*
        */ and not IsUnitType(target,UNIT_TYPE_DEAD)
    endfunction
    
    private function EFFECTS takes unit caster,unit target,real x,real y,real z,integer lvl returns nothing
        //You can add here anything you want to happen on explosion given the above arguments
        //For example, you can set damaged targets on fire with a spell casted by dummy or something
    endfunction
    
    //Don't change stuff below
    //===================================================================
    globals
        private constant string R1 = "ROFL:ROFL:LOL\n                      ^\n             ---------------\\           L\n           / [   ]            =====   O\n         /                  /             L\n        [_________/\n           I            I\n       \\-----------------"
        private constant string R2 = "                   LOL:ROFL:ROFL\n                      ^\n             ---------------\\\n           / [   ]            ===== LOL\n         /                  /\n        [_________/\n           I            I\n       \\-----------------"
        private constant string R3 = "   ROFL:ROFL:LOL\n                        ^\n               /---------------\nLOL =====             [   ] \\\n                  \\                  \\\n                    \\_________]\n                        I            I\n                    -----------------/"
        private constant string R4 = "                      LOL:ROFL:ROFL\n                        ^\n   L          /---------------\n  O   =====             [   ] \\\n   L             \\                  \\\n                    \\_________]\n                        I            I\n                    -----------------/"
        private constant real DEVIATION = 100.0
    endglobals
    
    private keyword roflcopter
    
    private struct instance
        integer n
        unit u
        real bs
        real rs
        real d
        real a
        integer lv
    
        method add takes nothing returns nothing
            set .n = .n + 1
        endmethod
        
        method sub takes nothing returns nothing
            set .n = .n - 1
            if .n == 0 then
                call .destroy()
            endif
        endmethod
    
        static method create takes unit u,real x,real y returns thistype
            local thistype this = thistype.allocate()
            local integer l = GetUnitAbilityLevel(u,SPELL_RAW)
            set .u = u
            set .bs = BOMB_SPEED(l)
            set .rs = ROFLCOPTER_SPEED(l)
            set .d = DAMAGE(u,l)
            set .a = BOMB_AOE(l)
            set .lv = l
            call roflcopter.create(this,x,y,TRAVEL_LENGTH(l),BOMB_PERIOD(l))
            return this
        endmethod
    
    endstruct
    
    private keyword bomb
    
    private struct roflcopter
        texttag t = CreateTextTag()
        instance i
        real x
        real y
        real l
        real a
        timer bp
        timer sp
        integer p
        
        method execute takes nothing returns nothing
            set .x = .x + .i.rs * Cos(.a)
            set .y = .y + .i.rs * Sin(.a)
            call SetTextTagPos(.t,.x - DEVIATION,.y,HEIGHT)
            set .l = .l - .i.rs
            if .l <= 0 then
                call .destroy()
            endif
        endmethod
    
        implement II
        
        static method bombdrop takes nothing returns nothing
            local thistype this = thistype(GetTimerData(GetExpiredTimer()))
            call bomb.create(.i,.x,.y,HEIGHT)
        endmethod
        
        static method spin takes nothing returns nothing
            local thistype this = thistype(GetTimerData(GetExpiredTimer()))
            if .p == 1 then
                call SetTextTagText(.t,R2,0.023)
                set .p = 2
            elseif .p == 2 then
                call SetTextTagText(.t,R1,0.023)
                set .p = 1
            elseif .p == 3 then
                call SetTextTagText(.t,R4,0.023)
                set .p = 4
            else
                call SetTextTagText(.t,R3,0.023)
                set .p = 3
            endif
        endmethod
    
        static method create takes instance i,real x,real y,real l,real p returns thistype
            local thistype this = thistype.allocate()
            local real a = Atan2(y - GetUnitY(i.u),x - GetUnitX(i.u))
            if a < 0 then
                set a = 2 * bj_PI + a
            endif
            set .i = i
            set .l = l
            set .a = a + bj_PI / 2
            set .bp = NewTimer()
            call TimerStart(.bp,p,true,function thistype.bombdrop)
            call SetTimerData(.bp,this)
            set .sp = NewTimer()
            call TimerStart(.sp,SPIN_PERIOD,true,function thistype.spin)
            call SetTimerData(.sp,this)
            call SetTextTagPermanent(.t,false)
            call SetTextTagVisibility(.t,true)
            set .x = x + l / 2 * Cos(a - bj_PI / 2) - DEVIATION
            set .y = y + TRAVEL_LENGTH(i) / 2 * Sin(a - bj_PI / 2)
            call SetTextTagPos(.t,.x,.y,HEIGHT)
            if a < bj_PI then
                set .p = 1
                call SetTextTagText(.t,R1,0.023)
            else
                set .p = 3
                call SetTextTagText(.t,R3,0.023)
            endif
            call .start()
            call .i.add()
            return this
        endmethod
        
        method destroy takes nothing returns nothing
            call DestroyTextTag(.t)
            call ReleaseTimer(.bp)
            call ReleaseTimer(.sp)
            call .end()
            call .i.sub()
            call .deallocate()
        endmethod
    
    endstruct
    
    private struct bomb
        static thistype This
        static group g = CreateGroup()
        texttag t = CreateTextTag()
        instance i
        real x
        real y
        real h
        
        method execute takes nothing returns nothing
            set .h = .h - .i.bs
            call SetTextTagPos(.t,.x,.y,.h)
            if .h <= 3.00 then
                call .destroy()
            endif
        endmethod
        
        implement II
        
        static method create takes instance i,real x,real y,real h returns thistype
            local thistype this = thistype.allocate()
            set .i = i
            set .x = x
            set .y = y
            set .h = h
            call SetTextTagPermanent(.t,false)
            call SetTextTagVisibility(.t,true)
            call SetTextTagPos(.t,x,y,h)
            call SetTextTagText(.t,"*",0.04)
            call .start()
            call .i.add()
            return this
        endmethod
        
        static method explosion takes nothing returns boolean
            local thistype this = .This
            local unit u = GetFilterUnit()
            local real x
            local real y
            local real z
            local real z2
            if FILTER(.i.u,u,.i.lv) then
                set x = GetUnitX(u) - .x
                set y = GetUnitY(u) - .y
                set z2 = GetZ(.x,.y) + .h
                set z = GetUnitZ(u) - z2
                if x*x+y*y+z*z <= .i.a*.i.a then
                    call UnitDamageTarget(.i.u,u,.i.d,false,false,ATTACK_TYPE,DAMAGE_TYPE,WEAPON_TYPE)
                    call EFFECTS(.i.u,u,.x,.y,z2,.i.lv)
                endif
            endif
            set u = null
            return false
        endmethod
        
        method destroy takes nothing returns nothing
            call DestroyTextTag(.t)
            call DestroyEffect(AddSpecialEffect(EXPLOSION_EFFECT,.x,.y))
            set .This = this
            call GroupEnumUnitsInRange(.g,.x,.y,.i.a,Filter(function thistype.explosion))
            call .end()
            call .i.sub()
            call .deallocate()
        endmethod
        
    endstruct
    
    private function Cast takes nothing returns nothing
        call instance.create(GetTriggerUnit(),GetSpellTargetX(),GetSpellTargetY())
    endfunction
    
    private function Init takes nothing returns nothing
        call RegisterSpellEffectEvent(SPELL_RAW, function Cast)
    endfunction

endlibrary
-Copy the triggers from Roflcopter trigger category or the whole category itself
-Copy the spell from object editor
-Configure the spell to your needs with Roflcopter trigger's constants

Note: the roflcopter text gets messed up if you test the spell with JNGP, but it does display properly if you test it by normally starting the game even if the spell is saved under JNGP. It also displays properly if you test it from vanilla WE.

Keywords:
Roflcopter, gyrocopter, flying, machine, copter, bombs, explosion, lmao, rofl, lol, lolz, lulz, funny, derp, obvious, win, awesome, Bob Marley
Contents

Summon Roflcopter (Map)

Reviews
15 Oct 2015 08:41 Bribe: No longer a director's cut resource as this is literally a joke. Bribe: Leakless Very MUI Absolutely no lag Highly entertaining Very creative Looks just about flawless Highly Recommended, I'll ask...

Moderator

M

Moderator

15 Oct 2015
08:41 Bribe: No longer a director's cut resource as this is literally a joke.

Bribe:

Leakless
Very MUI
Absolutely no lag
Highly entertaining
Very creative
Looks just about flawless

Highly Recommended, I'll ask The_Reborn_Devil to give this Director's Cut. Nice work!

The_Reborn_Devil: Director's Cut has been given :D
Derp derp.
 
I'm gonna be down to earth on this one I'm afraid, as novel as as it being a 'roflcopter' which drops bombs, this is simply just another one of the bombing spells that we already have a tonne of, and in perfect honesty, it's just a line of explosions with sfx around it, not much actual functionallity in there apart from manipulation of this Text, which sole purpose is for people to find funny. Yes I can see uses for it but I don't see why this is anything special in comparison to the other various bombing spells we have. it just deals damage in little circles, I'm afraid without more functionallity I have to give this a 3/5. mostly due to the humour factor, other than this it's incredably simple and could be made in 5-10 minutes with the right know-how, try adding rockets, machine guns and what not, I'll add a point for each new weapon (if thats what you're gonna do, or just give the bombs a bit more functionallity other than damage)

I once considered doing this, but abandoned the idea due to beleiving that it'd be a simple spell that in my eyes would be nothing special. I was tempted to give 2/5 but I'm too kind for that >__>
 
Level 12
Joined
Feb 22, 2010
Messages
1,115
This is one of the most creative and funny spells I ever seen :grin: 4.99 (because it is not that useful, also you can improve code maybe)
 
Level 12
Joined
Feb 22, 2010
Messages
1,115
JASS:
set t = CreateTrigger()
call TriggerRegisterTimerEvent(t,0.02,true)
call TriggerAddCondition(t,Condition(function Roflcopter_Loop_Init))


call TimerStart(CreateTimer(), 0.03, true, function Roflcopter_Loop_Init))

//Also you can save handle id in a integer variable instead of lots of GetHandleId call.

Anyway, that is a great spell :D
 
Level 20
Joined
Jul 6, 2009
Messages
1,885
JASS:
set t = CreateTrigger()
call TriggerRegisterTimerEvent(t,0.02,true)
call TriggerAddCondition(t,Condition(function Roflcopter_Loop_Init))


call TimerStart(CreateTimer(), 0.03, true, function Roflcopter_Loop_Init))

//Also you can save handle id in a integer variable instead of lots of GetHandleId call.

Anyway, that is a great spell :D

Thanks for the tips. Will do.
 
Level 13
Joined
Sep 13, 2010
Messages
550
Bomb example:


attachment.php
JASS:
function Bomb_Loop takes nothing returns nothing
globals
string A = "|CFFAAAAAAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII|r |n|CFFAAAAAA  II|CFF000000IIIIIIIIIIIIIII|CFFAAAAAAII|CFF000000IIIIIIIIIIIIIII|cFFAAAAAAII|r |n|CFFAAAAAA    II|CFF000000IIIIIIIIIIIII|CFFAAAAAAII|CFF000000IIIIIIIIIIIII|cFFAAAAAAII|r |n|CFFAAAAAA      II|CFF000000IIIIIIIIIII|CFFAAAAAAII|CFF000000IIIIIIIIIII|cFFAAAAAAII|r |n|CFFAAAAAA        II|CFF000000IIIIIIIII|CFFAAAAAAII|CFF000000IIIIIIIII|cFFAAAAAAII|r |n|CFFAAAAAA          II|CFF000000IIIIIII|CFFAAAAAAII|CFF000000IIIIIII|cFFAAAAAAII|r |n|CFFAAAAAA            II|CFF000000IIIII|CFFAAAAAAII|CFF000000IIIII|cFFAAAAAAII|r |n|CFFAAAAAA              II|CFF000000III|CFFAAAAAAII|CFF000000III|cFFAAAAAAII|r |n|CFFAAAAAA                II|CFF000000I|CFFAAAAAAII|CFF000000I|cFFAAAAAAII|r |n          |CFFAAAAAAIIIIIIIIIIIIIIIIIIII|r |n"
string B = "          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAAII|CFF000000IIIIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAA II|CFF000000IIIIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAA  II|CFF000000IIIIIIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAA    II|CFF000000IIIIIIII|CFFAAAAAAII|r |n          |CFFAAAAAA      II|CFF000000IIII|CFFAAAAAAII|r |n          |CFFAAAAAA        IIII|r |n"
endglobals
    local unit u = GetEnumUnit()
    if LoadBoolean(udg_RoflHash,GetHandleId(u),6) == false then
        set bj_lastCreatedTextTag = CreateTextTag()
        call SetTextTagPermanent(bj_lastCreatedTextTag,false)
        call SetTextTagPos(bj_lastCreatedTextTag,GetUnitX(u),GetUnitY(u),350.0)
        call SetTextTagVisibility(bj_lastCreatedTextTag,true)
        call SetTextTagText(bj_lastCreatedTextTag, A + B ,0.005)
        call SaveInteger(udg_RoflHash,GetHandleId(u),7,LoadInteger(udg_RoflHash,GetHandleId(u),7) + 1)
        call SaveTextTagHandle(udg_RoflHash,GetHandleId(u),4 + LoadInteger(udg_RoflHash,GetHandleId(u),7) * 4,bj_lastCreatedTextTag)
        call SaveReal(udg_RoflHash,GetHandleId(u),5 + LoadInteger(udg_RoflHash,GetHandleId(u),7) * 4,GetUnitX(u))
        call SaveReal(udg_RoflHash,GetHandleId(u),6 + LoadInteger(udg_RoflHash,GetHandleId(u),7) * 4,GetUnitY(u))
        call SaveReal(udg_RoflHash,GetHandleId(u),7 + LoadInteger(udg_RoflHash,GetHandleId(u),7) * 4,350.0)
    endif
    set u = null
endfunction


But it's awesome anyway.
 

Attachments

  • Roflcopterbomb.JPG
    Roflcopterbomb.JPG
    142.2 KB · Views: 546
Top