JASS tags bug

GhostWolf · Feb 3, 2008

When ever I type something in JASS tags and then edit my post (or even get into the edit and then going back) it deletes all my code except the first line.

Help !! :sad:

Marcelo Hossomi · Feb 5, 2008

Try goiing advanced and editing it, I've just experienced that and worked don't know why xD

GhostWolf · Feb 5, 2008

Worked, its still kinda annoying but it works ^^

Thanks Hossomi :thumbs_up:

redmarine · Feb 5, 2008

But still the administrators could kill the bug.

Wolverabid · Feb 6, 2008

GhostWolf said:
Worked, its still kinda annoying but it works ^^

Indeed: an advanced edit always does the trick. I'll remind Ralle of this minor glitch (it's come up in the past).

PurplePoot · Feb 6, 2008

JASS:

test
test
test
test

EDIT: It works fine for me. Try disabling full WYSIWYG editing.

Dr Super Good · Feb 6, 2008

Whats wrong is that appon updating it looks messed up (all code is on 1 line).

To fix, simply refresh the web page.

Earth-Fury · Feb 6, 2008

JASS:

These
 
lines
 
should
 
be
 
double
 
spaced
 
but
 
are
 
not.

fix plx and thx.

Dr Super Good · Feb 6, 2008

I still think the ones on WC3search were superior to these.

They used to auto indent and colourise the JASS as well as supporting unilamted spaces between functions and even in functions.

Earth-Fury · Feb 7, 2008

JASS:

struct extends interface needs library requires scope defaults uses static method
:< no vJASS for THW :<

    <-- that is a tab, but not 4 spaces wide. (Conversion to 4 spaces plox)
    debug function <-- come on! thats not even vJASS!

again

with

the

line

spacing

issue

:<

Really, I must say, the

JASS:

 tags here truly do fall short in so many ways. Lets hope Ralle can adress all my concerns with the [code=jass] tags! :3

Dr Super Good · Feb 7, 2008

The tab thing can not be classed as a bug, as normally you can not input tabs into your browser as it is by default the skip button that goes to another object that you can interact with.

The lack of support for blank lines is a bug however that should eventually be fixed, I have knowen about this for ages but at the time development of the tags stopped so it never was corrected.

vJASS support is not really required since although it would be nice, 90% or more of all inputted code is normal JASS and so it may not be worth the extra work.

I also say the ability for auto indent that the tags at WC3search had would be nice in them. However as configurable option so as to enable people to choose weather they want auto indent or not.

HINDYhat · Feb 8, 2008

Please add vJass support. Here's the list of syntax you'd need to cover:

JASS:

struct endstruct
interface endinterface
debug
library endlibrary
requires
needs
uses
scope endscope
method endmethod
defaults
private
public
static
operator
keyword
readonly
initializer

All of the above would be bold styled.

JASS:

//! This is a preprocessor comment

The above line should be bold and grey.

Please add this if possible! :<

Ralle · Feb 8, 2008

I don't see any indenting bugs. Can you record it and send over?

HINDYhat · Feb 8, 2008

Yay for Ralle! Thanks for adding all of that vJass syntax! The only thing left is the bold grey preprocessor comment ( //! ) but that's not really important.
+Rep

PurplePoot · Feb 9, 2008

There is also library_once.

Silvenon · Feb 10, 2008

And maybe onDestroy? But that's probably stupid.....

PurplePoot · Feb 11, 2008

No, that's just a function (well, method), not an identifier or whatever you call them...

Silvenon · Feb 11, 2008

I'm just used to having that bolded also, because TESH bolds it.

Dr Super Good · Feb 11, 2008

TESH is over ratted, it does crap all. Well that is atleast what I have seen it do.

wd40bomber7 · Feb 14, 2008

Dr Super Good said:
TESH is over ratted, it does crap all. Well that is atleast what I have seen it do.

I'm sorry, I don't quite get your meaning there. TESH isn't really overrated. It works great. If your using an external skin it may not work correctly. It actually has more features then Jasscraft and its in WE, what more could you want. (Besides vJASS!)

Dr Super Good · Feb 14, 2008

It fails to do anything. WE still looks the same as normal WE and there is no syntax highlighting at all.

wd40bomber7 · Feb 14, 2008

Wierd. It works absolutely fine for me. I don't know why it wouldn't work for you.

HINDYhat · Feb 14, 2008

Wayyy back, when I was running on french wc3, it didn't work. That might be DSG's issue, or maybe he's just really stubborn.

Dr Super Good · Feb 15, 2008

Well I am running english TFT on a swiss XP computer. But still I did everything it says and it does not work.

Even when I run it outside JNGP it comes up with some error saying a .dll can not be found and even if its right next to the file or anywhere else it can possiably look for it. I say bad programming of the utility that I can not locate vital components some times.

HINDYhat · Feb 15, 2008

You cannot run it outside JNGP... JNGP packs all of these wonderful utilities into one mega editor.

Need_O2 · Feb 15, 2008

One more thing with Jass Tags
When I copy

JASS:

LoL
LoL

it coppies as LoL LoL
make it copy
LoL
LoL

(I know I can copy from Quote but SHOULD BE FIXED)

HINDYhat · Feb 15, 2008

That works when using Internet Explorer. There's probably something in Firefox's options that you can change to make that work, but I dunno... whenever I want to copy Jass like that, I just open IE.

Need_O2 · Feb 15, 2008

its ok on wc3c
(own3d)

Ralle · Feb 15, 2008

Need_O2 said:
its ok on wc3c
(own3d)

Please stop going off-topic.

I will see what I can do to this problem

Dr Super Good · Feb 16, 2008

Works fine when copying in IE 7.

I think it is caused by firefox's slightly less developed graphics engine and so the makers may eventually fix the problem.

Ralle · Mar 10, 2008

I have done some serious debugging today. Please try the tag again and do everything you can to screw it up!

DesKaladA · Mar 10, 2008

I accept your chanenge
TASTE COMON J

JASS:

//===========================================================================

// 

// Just another Warcraft III map

// 

//   Warcraft III map script

//   Generated by the Warcraft III World Editor

//   Date: Sat Nov 17 17:36:47 2007

//   Map Author: Unknown

// 

//===========================================================================



//***************************************************************************

//*

//*  Global Variables

//*

//***************************************************************************



globals

    // Generated

    trigger                 gg_trg_Instructions        = null

    trigger                 gg_trg_DragDropCombine     = null

    trigger                 gg_trg_Weapons             = null

    trigger                 gg_trg_Initialization      = null

endglobals



function InitGlobals takes nothing returns nothing

endfunction



//***************************************************************************

//*

//*  Items

//*

//***************************************************************************



function CreateAllItems takes nothing returns nothing

    local integer itemID



    call CreateItem( 'FC0A', 129.3, 235.8 )

    call CreateItem( 'FC0A', 222.8, 169.3 )

    call CreateItem( 'FC0B', 225.2, -81.9 )

    call CreateItem( 'FC0B', 217.4, 54.8 )

    call CreateItem( 'PL00', 267.5, 239.3 )

    call CreateItem( 'PL00', -49.2, 302.2 )

    call CreateItem( 'PL10', 62.4, 306.6 )

    call CreateItem( 'PL20', 193.5, 304.6 )

endfunction



//***************************************************************************

//*

//*  Unit Creation

//*

//***************************************************************************



//===========================================================================

function CreateUnitsForPlayer0 takes nothing returns nothing

    local player p = Player(0)

    local unit u

    local integer unitID

    local trigger t

    local real life



    set u = CreateUnit( p, 'Hblm', 7.9, 5.3, 30.851 )

endfunction



//===========================================================================

function CreatePlayerBuildings takes nothing returns nothing

endfunction



//===========================================================================

function CreatePlayerUnits takes nothing returns nothing

    call CreateUnitsForPlayer0(  )

endfunction



//===========================================================================

function CreateAllUnits takes nothing returns nothing

    call CreatePlayerBuildings(  )

    call CreatePlayerUnits(  )

endfunction



//***************************************************************************

//*

//*  Custom Script Code

//*

//***************************************************************************

//TESH.scrollpos=0

//TESH.alwaysfold=0



//***************************************************************************

//*

//*  Triggers

//*

//***************************************************************************



//===========================================================================

// Trigger: DragDropCombine

//===========================================================================

//TESH.scrollpos=36

//TESH.alwaysfold=0

library DragDropCombine initializer Init

    globals

        private trigger t

        private gamecache g

    endglobals



    //===============================================================================================

    function SetDragDropCombo takes integer itemid, integer gem, integer result returns nothing

        call StoreInteger(g,I2S(gem),I2S(itemid),result)

    endfunction



    //===============================================================================================

    function SetDragDropComboDouble takes integer i1, integer i2, integer result returns nothing

     local string k1=I2S(i1)

     local string k2=I2S(i2)

        call StoreInteger(g,k1,k2,result)

        call StoreInteger(g,k2,k1,result)

     set g=null

    endfunction



    //===============================================================================================

    function SetDragDropSound takes integer itemid, string soundpath returns nothing

        call StoreString(g,"sounds",I2S(itemid),soundpath)

    endfunction



    //===============================================================================================

    private function Trig_DragDropCombine_Conditions takes nothing returns boolean

     local integer i=GetIssuedOrderId()

        return (i>=852002) and (i<=852007)

    endfunction



    //===============================================================================================

    private function Trig_DragDropCombine_Actions takes nothing returns nothing

     local integer i=GetIssuedOrderId()-852002

     local unit u=GetTriggerUnit()

     local item it=GetOrderTargetItem()

     local item ot=UnitItemInSlot(u,i)

     local string k1=I2S(GetItemTypeId(it))

     local string k2

     local sound snd

        if HaveStoredString(g,"sounds",k1) then

            set snd=CreateSound(GetStoredString(g,"sounds",k1), false, false, true, 12700, 12700, "")

            if GetLocalPlayer()==GetOwningPlayer(u) then

                call StartSound(snd)

            endif

            call KillSoundWhenDone(snd)

           set snd=null

        endif

        if (ot!=null) then

            set k2=I2S(GetItemTypeId(ot))

            if HaveStoredInteger(g,k1,k2) then

                call RemoveItem(it)

                call RemoveItem(ot)

                call UnitAddItemToSlotById(u,GetStoredInteger(g,k1,k2), i)

            endif

        endif

     set u=null

     set it=null

     set ot=null

     set g=null

    endfunction



    private function Init takes nothing returns nothing

     set t = CreateTrigger(  )

     set g = InitGameCache("dragdropcombo.vx")

        call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )

        call TriggerAddCondition(t, Condition( function Trig_DragDropCombine_Conditions ) )

        call TriggerAddAction(t, function Trig_DragDropCombine_Actions )

    endfunction

endlibrary//===========================================================================

// Trigger: Weapons

//===========================================================================

//TESH.scrollpos=0

//TESH.alwaysfold=0

library Weapons initializer Init requires DragDropCombine

    globals

    

    endglobals

    

    private function Init takes nothing returns nothing

        call SetDragDropCombo('PL00','FC0A','PL0A')

        call SetDragDropCombo('PL00','FC0B','PL0B')

    endfunction

endlibrary//===========================================================================

// Trigger: Initialization

//

// Default melee game initialization for all players

//===========================================================================

function Trig_Initialization_Actions takes nothing returns nothing

endfunction



//===========================================================================

function InitTrig_Initialization takes nothing returns nothing

    set gg_trg_Initialization = CreateTrigger(  )

    call TriggerAddAction( gg_trg_Initialization, function Trig_Initialization_Actions )

endfunction



//===========================================================================

function InitCustomTriggers takes nothing returns nothing

    call InitTrig_DragDropCombine(  )

    call InitTrig_Weapons(  )

    call InitTrig_Initialization(  )

endfunction



//===========================================================================

function RunInitializationTriggers takes nothing returns nothing

    call ConditionalTriggerExecute( gg_trg_Initialization )

endfunction



//***************************************************************************

//*

//*  Players

//*

//***************************************************************************



function InitCustomPlayerSlots takes nothing returns nothing



    // Player 0

    call SetPlayerStartLocation( Player(0), 0 )

    call SetPlayerColor( Player(0), ConvertPlayerColor(0) )

    call SetPlayerRacePreference( Player(0), RACE_PREF_HUMAN )

    call SetPlayerRaceSelectable( Player(0), true )

    call SetPlayerController( Player(0), MAP_CONTROL_USER )



endfunction



function InitCustomTeams takes nothing returns nothing

    // Force: TRIGSTR_006

    call SetPlayerTeam( Player(0), 0 )



endfunction



//***************************************************************************

//*

//*  Main Initialization

//*

//***************************************************************************



//===========================================================================

function main takes nothing returns nothing

    call SetCameraBounds( -3328.0 + GetCameraMargin(CAMERA_MARGIN_LEFT), -3584.0 + GetCameraMargin(CAMERA_MARGIN_BOTTOM), 3328.0 - GetCameraMargin(CAMERA_MARGIN_RIGHT), 3072.0 - GetCameraMargin(CAMERA_MARGIN_TOP), -3328.0 + GetCameraMargin(CAMERA_MARGIN_LEFT), 3072.0 - GetCameraMargin(CAMERA_MARGIN_TOP), 3328.0 - GetCameraMargin(CAMERA_MARGIN_RIGHT), -3584.0 + GetCameraMargin(CAMERA_MARGIN_BOTTOM) )

    call SetDayNightModels( "Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl", "Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl" )

    call NewSoundEnvironment( "Default" )

    call SetAmbientDaySound( "VillageDay" )

    call SetAmbientNightSound( "VillageNight" )

    call SetMapMusic( "Music", true, 0 )

    call CreateAllItems(  )

    call CreateAllUnits(  )

    call InitBlizzard(  )

    call InitGlobals(  )

    call InitCustomTriggers(  )

    call RunInitializationTriggers(  )



endfunction



//***************************************************************************

//*

//*  Map Configuration

//*

//***************************************************************************



function config takes nothing returns nothing

    call SetMapName( "TRIGSTR_001" )

    call SetMapDescription( "TRIGSTR_003" )

    call SetPlayers( 1 )

    call SetTeams( 1 )

    call SetGamePlacement( MAP_PLACEMENT_USE_MAP_SETTINGS )



    call DefineStartLocation( 0, 0.0, 0.0 )



    // Player setup

    call InitCustomPlayerSlots(  )

    call SetPlayerSlotAvailable( Player(0), MAP_CONTROL_USER )

    call InitGenericPlayerSlots(  )

endfunction

JASS:

//===========================================================================

// 

// Just another Warcraft III map

// 

//   Warcraft III map script

//   Generated by the Warcraft III World Editor

//   Date: Sat Nov 17 17:36:47 2007

//   Map Author: Unknown

// 

//===========================================================================



//***************************************************************************

//*

//*  Global Variables

//*

//***************************************************************************



globals

    // Generated

    trigger                 gg_trg_Instructions        = null

    trigger                 gg_trg_DragDropCombine     = null

    trigger                 gg_trg_Weapons             = null

    trigger                 gg_trg_Initialization      = null

endglobals



function InitGlobals takes nothing returns nothing

endfunction



//***************************************************************************

//*

//*  Items

//*

//***************************************************************************



function CreateAllItems takes nothing returns nothing

    local integer itemID



    call CreateItem( 'FC0A', 129.3, 235.8 )

    call CreateItem( 'FC0A', 222.8, 169.3 )

    call CreateItem( 'FC0B', 225.2, -81.9 )

    call CreateItem( 'FC0B', 217.4, 54.8 )

    call CreateItem( 'PL00', 267.5, 239.3 )

    call CreateItem( 'PL00', -49.2, 302.2 )

    call CreateItem( 'PL10', 62.4, 306.6 )

    call CreateItem( 'PL20', 193.5, 304.6 )

endfunction



//***************************************************************************

//*

//*  Unit Creation

//*

//***************************************************************************



//===========================================================================

function CreateUnitsForPlayer0 takes nothing returns nothing

    local player p = Player(0)

    local unit u

    local integer unitID

    local trigger t

    local real life



    set u = CreateUnit( p, 'Hblm', 7.9, 5.3, 30.851 )

endfunction



//===========================================================================

function CreatePlayerBuildings takes nothing returns nothing

endfunction



//===========================================================================

function CreatePlayerUnits takes nothing returns nothing

    call CreateUnitsForPlayer0(  )

endfunction



//===========================================================================

function CreateAllUnits takes nothing returns nothing

    call CreatePlayerBuildings(  )

    call CreatePlayerUnits(  )

endfunction



//***************************************************************************

//*

//*  Custom Script Code

//*

//***************************************************************************

//TESH.scrollpos=0

//TESH.alwaysfold=0



//***************************************************************************

//*

//*  Triggers

//*

//***************************************************************************



//===========================================================================

// Trigger: DragDropCombine

//===========================================================================

//TESH.scrollpos=36

//TESH.alwaysfold=0

library DragDropCombine initializer Init

    globals

        private trigger t

        private gamecache g

    endglobals



    //===============================================================================================

    function SetDragDropCombo takes integer itemid, integer gem, integer result returns nothing

        call StoreInteger(g,I2S(gem),I2S(itemid),result)

    endfunction



    //===============================================================================================

    function SetDragDropComboDouble takes integer i1, integer i2, integer result returns nothing

     local string k1=I2S(i1)

     local string k2=I2S(i2)

        call StoreInteger(g,k1,k2,result)

        call StoreInteger(g,k2,k1,result)

     set g=null

    endfunction



    //===============================================================================================

    function SetDragDropSound takes integer itemid, string soundpath returns nothing

        call StoreString(g,"sounds",I2S(itemid),soundpath)

    endfunction



    //===============================================================================================

    private function Trig_DragDropCombine_Conditions takes nothing returns boolean

     local integer i=GetIssuedOrderId()

        return (i>=852002) and (i<=852007)

    endfunction



    //===============================================================================================

    private function Trig_DragDropCombine_Actions takes nothing returns nothing

     local integer i=GetIssuedOrderId()-852002

     local unit u=GetTriggerUnit()

     local item it=GetOrderTargetItem()

     local item ot=UnitItemInSlot(u,i)

     local string k1=I2S(GetItemTypeId(it))

     local string k2

     local sound snd

        if HaveStoredString(g,"sounds",k1) then

            set snd=CreateSound(GetStoredString(g,"sounds",k1), false, false, true, 12700, 12700, "")

            if GetLocalPlayer()==GetOwningPlayer(u) then

                call StartSound(snd)

            endif

            call KillSoundWhenDone(snd)

           set snd=null

        endif

        if (ot!=null) then

            set k2=I2S(GetItemTypeId(ot))

            if HaveStoredInteger(g,k1,k2) then

                call RemoveItem(it)

                call RemoveItem(ot)

                call UnitAddItemToSlotById(u,GetStoredInteger(g,k1,k2), i)

            endif

        endif

     set u=null

     set it=null

     set ot=null

     set g=null

    endfunction



    private function Init takes nothing returns nothing

     set t = CreateTrigger(  )

     set g = InitGameCache("dragdropcombo.vx")

        call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )

        call TriggerAddCondition(t, Condition( function Trig_DragDropCombine_Conditions ) )

        call TriggerAddAction(t, function Trig_DragDropCombine_Actions )

    endfunction

endlibrary//===========================================================================

// Trigger: Weapons

//===========================================================================

//TESH.scrollpos=0

//TESH.alwaysfold=0

library Weapons initializer Init requires DragDropCombine

    globals

    

    endglobals

    

    private function Init takes nothing returns nothing

        call SetDragDropCombo('PL00','FC0A','PL0A')

        call SetDragDropCombo('PL00','FC0B','PL0B')

    endfunction

endlibrary//===========================================================================

// Trigger: Initialization

//

// Default melee game initialization for all players

//===========================================================================

function Trig_Initialization_Actions takes nothing returns nothing

endfunction



//===========================================================================

function InitTrig_Initialization takes nothing returns nothing

    set gg_trg_Initialization = CreateTrigger(  )

    call TriggerAddAction( gg_trg_Initialization, function Trig_Initialization_Actions )

endfunction



//===========================================================================

function InitCustomTriggers takes nothing returns nothing

    call InitTrig_DragDropCombine(  )

    call InitTrig_Weapons(  )

    call InitTrig_Initialization(  )

endfunction



//===========================================================================

function RunInitializationTriggers takes nothing returns nothing

    call ConditionalTriggerExecute( gg_trg_Initialization )

endfunction



//***************************************************************************

//*

//*  Players

//*

//***************************************************************************



function InitCustomPlayerSlots takes nothing returns nothing



    // Player 0

    call SetPlayerStartLocation( Player(0), 0 )

    call SetPlayerColor( Player(0), ConvertPlayerColor(0) )

    call SetPlayerRacePreference( Player(0), RACE_PREF_HUMAN )

    call SetPlayerRaceSelectable( Player(0), true )

    call SetPlayerController( Player(0), MAP_CONTROL_USER )



endfunction



function InitCustomTeams takes nothing returns nothing

    // Force: TRIGSTR_006

    call SetPlayerTeam( Player(0), 0 )



endfunction



//***************************************************************************

//*

//*  Main Initialization

//*

//***************************************************************************



//===========================================================================

function main takes nothing returns nothing

    call SetCameraBounds( -3328.0 + GetCameraMargin(CAMERA_MARGIN_LEFT), -3584.0 + GetCameraMargin(CAMERA_MARGIN_BOTTOM), 3328.0 - GetCameraMargin(CAMERA_MARGIN_RIGHT), 3072.0 - GetCameraMargin(CAMERA_MARGIN_TOP), -3328.0 + GetCameraMargin(CAMERA_MARGIN_LEFT), 3072.0 - GetCameraMargin(CAMERA_MARGIN_TOP), 3328.0 - GetCameraMargin(CAMERA_MARGIN_RIGHT), -3584.0 + GetCameraMargin(CAMERA_MARGIN_BOTTOM) )

    call SetDayNightModels( "Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl", "Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl" )

    call NewSoundEnvironment( "Default" )

    call SetAmbientDaySound( "VillageDay" )

    call SetAmbientNightSound( "VillageNight" )

    call SetMapMusic( "Music", true, 0 )

    call CreateAllItems(  )

    call CreateAllUnits(  )

    call InitBlizzard(  )

    call InitGlobals(  )

    call InitCustomTriggers(  )

    call RunInitializationTriggers(  )



endfunction



//***************************************************************************

//*

//*  Map Configuration

//*

//***************************************************************************



function config takes nothing returns nothing

    call SetMapName( "TRIGSTR_001" )

    call SetMapDescription( "TRIGSTR_003" )

    call SetPlayers( 1 )

    call SetTeams( 1 )

    call SetGamePlacement( MAP_PLACEMENT_USE_MAP_SETTINGS )



    call DefineStartLocation( 0, 0.0, 0.0 )



    // Player setup

    call InitCustomPlayerSlots(  )

    call SetPlayerSlotAvailable( Player(0), MAP_CONTROL_USER )

    call InitGenericPlayerSlots(  )

endfunction

Ralle · Mar 10, 2008

Are the double line-breaks on purpose?

Wolverabid · Mar 10, 2008

Outstanding bug extermination Chieftain!

JASS:

//===================================
//Spell: Cluster Bombs
//Author: paskovich
//
//If you want to import this spell,
//make sure you copy the dummy units
//from the object editor,
//and set the raw codes below!
//
//For damage values, copy and edit
//the 'Cluster Damage' ability.
//
//It uses the Handle Vars and 
//     REQUIRES vJASS!!
//
//Thanks to Shadow1500 for the
//parabola function!
//
//
//Don't forget to give a credit!
//===================================

//=============RAW CODES=============
//Make sure you set the proper raw codes!

constant function ClusterBombs_SpellId takes nothing returns integer
    return 'A000' //The main ability's raw code
endfunction

constant function ClusterBombs_DummyId takes nothing returns integer
    return 'e000' //The generic dummy's raw code
endfunction

constant function ClusterBombs_AoEDamageAbility takes nothing returns integer
    return 'A001' //The AoE damage ability's raw code (it's called "Cluster Damage" in the object editor)
endfunction


//===========SPELL OPTIONS===========

constant function ClusterBombs_NumberOfBombs takes integer level returns integer
    return 1 + level //This defines the number of bombs falling from the sky.
endfunction

constant function ClusterBombs_NumberOfClusters takes nothing returns integer
    return 3 //The number of clusters that a bomb falls apart to.
endfunction

constant function ClusterBombs_AoE takes nothing returns real
    return 500.0 //The radius of the AoE. (Set this the same that you set in the object editor for the hero ability.)
endfunction

constant function ClusterBombs_Delay takes nothing returns real
    return 0.9 //The delay time between falling bombs.
endfunction

//=======================================
//============CLUSTER BOMBS==============
//=======================================
struct ClusterBombData
    unit c
    unit p
    real tx
    real ty
    real ang
    real dist
    real mdist
endstruct

function Trig_ClusterBomb_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == ClusterBombs_SpellId()
endfunction

function Timer_ClusterBombSplinter takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local ClusterBombData dat3 = ClusterBombData(GetHandleInt(t,"data3"))
    local unit s = dat3.p
    local real a = dat3.ang
    local real h = GetParabolaHeight(dat3.dist, dat3.mdist, 1)
    local real offset = ClusterBombs_AoE() / 28
    call SetUnitX(s, GetUnitX(s)+offset*Cos(a*bj_DEGTORAD))
    call SetUnitY(s, GetUnitY(s)+offset*Sin(a*bj_DEGTORAD))
    call SetUnitFlyHeight(s,h,0)
    set dat3.dist = dat3.dist + offset
    if dat3.dist >= dat3.mdist then
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",GetUnitX(s),GetUnitY(s)))
        call KillUnit(s)
        call PauseTimer(t)
        call FlushHandleLocals(t)
        call DestroyTimer(t)
        call ClusterBombData.destroy(dat3)
    endif
    set t = null
    set s = null
endfunction

function Timer_ClusterBombFall takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local ClusterBombData dat2 = ClusterBombData(GetHandleInt(t,"data2"))
    local ClusterBombData dat3
    local unit b = null
    local real a = 0
    local timer tt = null
    local unit s = null
    local real offset = ClusterBombs_AoE() / 25
    if dat2.dist >= dat2.mdist then
        set b = dat2.p
        set a = dat2.ang
        call ShowUnit(b,true)
        call SetUnitX(b, GetUnitX(b) + offset * Cos(a*bj_DEGTORAD))
        call SetUnitY(b, GetUnitY(b) + offset * Sin(a*bj_DEGTORAD))
        call SetUnitFlyHeight(b, GetUnitFlyHeight(b) - 60, 0)
        if GetUnitFlyHeight(b) <= 40 then
            call PauseTimer(t)
            call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\LordofFlameMissile\\LordofFlameMissile.mdl",GetUnitX(b),GetUnitY(b)))
            set a = 0
            loop
                set a = a + 1
                exitwhen a > ClusterBombs_NumberOfClusters()
                set s = CreateUnit(GetOwningPlayer(b),ClusterBombs_DummyId(),GetUnitX(b),GetUnitY(b),0)
                call AddSpecialEffectTarget("abilities\\weapons\\DemolisherMissile\\DemolisherMissile.mdl",s,"origin")
                call UnitAddAbility(s, ClusterBombs_AoEDamageAbility())
                call SetUnitScale(s, 0.5, 0.5, 0.5)
                set tt = CreateTimer()
                set dat3 = ClusterBombData.create()
                set dat3.p = s
                set dat3.ang = GetRandomReal(1,360)
                set dat3.dist = 0
                set dat3.mdist = GetRandomReal(ClusterBombs_AoE()/8,ClusterBombs_AoE()/1.8)
                call SetHandleInt(tt,"data3",dat3)
                call TimerStart(tt, 0.04, true, function Timer_ClusterBombSplinter)
                set tt = null
            endloop
            call RemoveUnit(b)
            call FlushHandleLocals(t)
            call DestroyTimer(t)
            call ClusterBombData.destroy(dat2)
        endif
    else
        set dat2.dist = dat2.dist + 0.04
    endif
    set t = null
    set b = null
endfunction

function Timer_ClusterBombFlash takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local ClusterBombData dat = ClusterBombData(GetHandleInt(t,"data"))
    local ClusterBombData dat2
    local unit u = dat.c
    local unit p = dat.p
    local real a = dat.ang
    local real h = GetParabolaHeight(dat.dist, dat.mdist, 2)
    local timer tt = null
    local integer c = 0
    local real tx = 0
    local real ty = 0
    local real offset = 4 * ClusterBombs_AoE() / 57
    call SetUnitX(p, GetUnitX(p)+offset*Cos(a*bj_DEGTORAD))
    call SetUnitY(p, GetUnitY(p)+offset*Sin(a*bj_DEGTORAD))
    call SetUnitFlyHeight(p, h, 0)
    set dat.dist = dat.dist + offset
    if dat.dist >= dat.mdist then
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Flare\\FlareCaster.mdl",GetUnitX(p),GetUnitY(p)))
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Flare\\FlareTarget.mdl",GetUnitX(p),GetUnitY(p)))
        call KillUnit(p)
        loop
            set c = c + 1
            exitwhen c > ClusterBombs_NumberOfBombs(GetUnitAbilityLevel(u,ClusterBombs_SpellId()))
            set a = GetRandomReal(1,360)
            set h = GetRandomReal(ClusterBombs_AoE()/1.3,ClusterBombs_AoE()/0.66)
            set tx = dat.tx + h * Cos(a*bj_DEGTORAD)
            set ty = dat.ty + h * Sin(a*bj_DEGTORAD)
            set p = CreateUnit(GetOwningPlayer(u),ClusterBombs_DummyId(),tx,ty,a)
            call AddSpecialEffectTarget("Abilities\\Weapons\\Mortar\\MortarMissile.mdl", p, "origin")
            call SetUnitFlyHeight(p,1700,0)
            call ShowUnit(p,false)
            set tt = CreateTimer()
            set dat2 = ClusterBombData.create()
            set dat2.p = p
            set dat2.ang = a+180
            set dat2.dist = 0
            set dat2.mdist = c * ClusterBombs_Delay()
            call SetHandleInt(tt,"data2",dat2)
            call TimerStart(tt, 0.04, true, function Timer_ClusterBombFall)
            set tt = null
        endloop
        call PauseTimer(t)
        call FlushHandleLocals(t)
        call DestroyTimer(t)
        call ClusterBombData.destroy(dat)
    endif
    set t = null
    set u = null
    set p = null
endfunction

function Trig_ClusterBomb_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local location l = GetSpellTargetLoc()
    local real tx = GetLocationX(l)
    local real ty = GetLocationY(l)
    local timer t = CreateTimer()
    local unit p = CreateUnit(GetOwningPlayer(u),ClusterBombs_DummyId(),GetUnitX(u),GetUnitY(u),0)
    local ClusterBombData dat = ClusterBombData.create()
    call RemoveLocation(l)
    set l = null
    call SetUnitFlyHeight(u,20,0)
    call AddSpecialEffectTarget("Abilities\\Weapons\\BloodElfMissile\\BloodElfMissile.mdl",p,"origin")
    set dat.c = u
    set dat.p = p
    set dat.tx = tx
    set dat.ty = ty
    set dat.ang = AngleBetweenPointsXY(GetUnitX(u),GetUnitY(u),tx,ty)
    set dat.dist = 0
    set dat.mdist = DistanceBetweenPointsXY(GetUnitX(u),GetUnitY(u),tx,ty)
    call SetHandleInt(t,"data",dat)
    call TimerStart(t, 0.04, true, function Timer_ClusterBombFlash)
    set u = null
    set t = null
    set p = null
endfunction

//===========================================================================
function InitTrig_ClusterBomb takes nothing returns nothing
    set gg_trg_ClusterBomb = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_ClusterBomb, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(gg_trg_ClusterBomb, Condition( function Trig_ClusterBomb_Conditions))
    call TriggerAddAction(gg_trg_ClusterBomb, function Trig_ClusterBomb_Actions)
    call RemoveUnit(CreateUnit(Player(15),ClusterBombs_DummyId(),0,0,0))
    call Preload("Abilities\\Weapons\\BloodElfMissile\\BloodElfMissile.mdl")
    call Preload("Abilities\\Weapons\\Mortar\\MortarMissile.mdl")
    call Preload("Abilities\\Spells\\Human\\Flare\\FlareCaster.mdl")
    call Preload("Abilities\\Spells\\Human\\Flare\\FlareTarget.mdl")
    call Preload("abilities\\weapons\\DemolisherMissile\\DemolisherMissile.mdl")
    call Preload("Abilities\\Weapons\\LordofFlameMissile\\LordofFlameMissile.mdl")
    call Preload("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl")
endfunction

» REP DUMP «

Silvenon · Mar 10, 2008

Whoa.......? You fixed the CnP thing too?? Nice job!

I think I'm gonna take a look at that Wolverabid's rep dump link....

Need_O2 · Mar 11, 2008

Nice...
no no NICE!!!
I love you

DesKaladA · Mar 11, 2008

Ralle said:
Are the double line-breaks on purpose?

yep

its a formating ting

Earth-Fury · Mar 13, 2008

Problem 1

JASS:

    call Preload("Abilities\\Weapons\\LordofFlameMissile\\LordofFlameMissile.mdl")
    call Preload("Abilities\\Weapons\\LordofFlameMissile\\LordofFlameMissile.mdlmorecraptoillustrait")

Long lines wrap to two lines at a space, but scroll off the end properly without one. This also seems to happen in the edit box now. Its more annoying than a lack of proper spacing

Problem 2

[jass=Copied from Wolves post from quoting it] set dat2.mdist = c * ClusterBombs_Delay()
call SetHandleInt(tt,"data2",dat2)
call TimerStart(tt, 0.04, true, function Timer_ClusterBombFall)
set tt = null
endloop[/code]

[jass=Copied from Wolves post from within the compiled JASS tag] set dat2.mdist = c * ClusterBombs_Delay()
call SetHandleInt(tt,"data2",dat2)
call TimerStart(tt, 0.04, true, function Timer_ClusterBombFall)
set tt = null
endloop[/code]

the line set tt = null displays and copys without the spaces.

Problem 3

JASS:

	if true then
		loop
			if true then
				exitwhen true
			endif
		endloop
	endif

Tabs are now completely collapsed and do not display, it seems.

Problem 4

JASS:

library endlibrary
library_once endlibrary

JASS Helper Manual said:
The library_once keyword works exactly like library but you can declare the same library name twice, it would just ignore the second declaration and avoid to add its contents instead of showing a syntax error, it is useful in combination with textmacros.

Feature Request 1

JASS:

//! textmacro
//! endtextmacro

Preprocessor comments highlighted differently than normal comments plox.

Feature Request 2

JASS:

//code
//code

[code=jass]
//code
//code
[/code]

JASS:

//code
//code

[code=jass]//code
//code[/code]

Would be nice if both compiled to the same thing. The first example displays with an additional line at the top.

Misc.

Firefox version 2.0.0.12 with Noscript (hiveworkshop.com is whitelisted.)
Safari (Some shitty windows version)
Opera (Too lazy to check version)

All 3 display the same.

IE 7

Displays a vertical scroll bar in the first example, cuts off the right border of the quote box, and does not center the horizontal rules. (hr) I could check 6, 5.55, 5.01, and 4 too if you care

Ralle · Mar 13, 2008

Check out the jass tag now!

Pyritie · Mar 13, 2008

It'd be nice if the jass boxes had a wider width, or at least one that stretched.

Because I'm on a huge resolution and the jass box only takes up a third of the screen. Which is annoying having to fiddle with the scrollbar all the time.

PurgeandFire · Mar 14, 2008

Pyritie, you can always just do this. Use ljass tags. And type whatever. Then it will stretch the page like so. But I don't think other people use the ljass tags. xP

So yeah, I guess the width should definitely be increased at least a bit.

JASS:

//! textmacro

Textmacro tags are usually gray but whatever xD I like them red anyway.

Looks awesome Ralle! +rep

Ralle · Mar 14, 2008

I can make the //! comments gray if you guys want it. I just needed it to be different

HINDYhat · Mar 15, 2008

Yeah, usually they are grey and bolded (?)

Other than that, GREAT work Ralle!

busterkomo · Mar 15, 2008

HINDYhat said:
bolded (?)

Na, they aren't bolded.

Silvenon · Mar 15, 2008

hvo-busterkomo said:
Na, they aren't bolded.

Yes they are. Check out Wc3Campaign's jass tags for example.

EDIT: Btw, why are hvo's diamonds smaller and....err....changing colors and stuff? It's not that I'm jealous, just curious.

Pyritie · Mar 15, 2008

Silvenon said:
Yes they are. Check out Wc3Campaign's jass tags for example.

EDIT: Btw, why are hvo's diamonds smaller and....err....changing colors and stuff? It's not that I'm jealous, just curious.

Read the Reputation FAQ sticky in the Site Discussion forum.

Ralle · Mar 15, 2008

Wc3c is not the template of how things are done. How does the mainstream syntax highlighters highlight it?

Silvenon · Mar 15, 2008

Sorry, I didn't mean it like that. Other than wc3campaigns, there is also TESH highlighting (that's gray and bold). I don't know any other references, put any style you wish Ralle, just not pink.

Ralle · Mar 15, 2008

I'll make it pink. Thanks!

Any other highlighters? Is TESH mainstream? How does Vexorian's vim extension highlight it?

DesKaladA · Mar 15, 2008

Ralle TESH is mainsteream for vjass because whoever made it also adds tesh to vjass

JASS tags bug

Similar threads