Threaded Mode | Linear Mode

Shidhun · 05-15-2014 01:47 AM

Code:

[itemdef i_skill_ball]

id=023d

Name=Skill Ball

type=t_normal

ON=@CREATE

    color = 0800

ON=@DCLICK

    IF (<CONT> != <SRC.FINDLAYER.layer_pack.UID>)

        src.sysmessageua 0800,0,0,enu The <name> must be in your backpack.

        RETURN 1

    ENDIF

    TRY SRC.DIALOGCLOSE d_Skill_ball

    sdialog d_Skill_ball

RETURN 1

[dialog d_Skill_ball]

50,50

nodispose

noclose

page 0

resizepic 50 50 9200 558 475//grey

resizepic 55 55 9200 545 25//grey

button 568 495 4017 4018 1 1 0

dcroppedtext 230 58 1000 200 0800 Choose ONE skill to improve to 100.0

local.offx=56

local.offy=90

for 1 58

    gumppictiled <dlocal.offx> (<dlocal.offy>+1) 170 20 3004

    dcroppedtext (<dlocal.offx>+4) (<dlocal.offy>+2) 1000 200 0800 <serv.skill.<eval <local._for>-1>.key>

    button (<dlocal.offx>+144) <dlocal.offy> 4023 4025 1 0 <dlocal._for>

    if (<dlocal._for> == 20)

        local.offx = 240

        local.offy = 90

    elif (<dlocal._for> == 39)

        local.offx = 424

        local.offy = 90

    else

        local.offy += 21

    endif

endfor

[DIALOG d_Skill_ball BUTTON]

on=0

RETURN 1

ON=1 58

    src.<serv.skill.<eval <argn1>-1>.key> = 100.0

    src.sysmessageua 0800,0,0,enu The magic of the <name> raises your wisdom.

    remove

Threaded Mode \| Linear Mode [skill ball]
Author	Message