Threaded Mode | Linear Mode

Staff_Stanic · 05-22-2013 02:36 AM

Hey! Just more tips Big Grin

(Just a PS.: I don't test! Please, check before Big Grin

)

After:

PHP Code:

////////////////////////////////////////////
[FUNCTION RDOOR]
FORITEMS 9999 
    IF (<TYPE> == t_door) 
        REMOVE
    ENDIF
ENDFOR
////////////////////////////////////////////
[FUNCTION RSIGN]
FORITEMS 9999
    IF (<TYPE> == t_sign_gump)
        REMOVE
    ENDIF
ENDFOR
////////////////////////////////////////////
[FUNCTION RMOONGATE]//THX TO STAFF STANIC!
FORINSTANCES i_moongate_blue
 REMOVE
ENDFOR 
////////////////////////////////////////////
[FUNCTION F_APOCALYPSE_FINAL]
FORITEMS 9999
        REMOVE
    UPDATE
ENDFOR
////////////////////////////////////////////
[function F_APOCALYPSE]
tag.pos = <src.p>
src.invis
SRC.GO 1 1 0
F_APOCALYPSE_FINAL
SRC.SYSMESSAGE MAPPLANE 0 Done.
SRC.GO 1 1 0 1
F_APOCALYPSE_FINAL
SRC.SYSMESSAGE MAPPLANE 1 Done.
SRC.GO 1 1 0 2
F_APOCALYPSE_FINAL
SRC.SYSMESSAGE MAPPLANE 2 Done.
SRC.GO 1 1 0 3
F_APOCALYPSE_FINAL
SRC.SYSMESSAGE MAPPLANE 3 Done.
SRC.GO 1 1 0 4
F_APOCALYPSE_FINAL
SRC.SYSMESSAGE MAPPLANE 4 Done.
SRC.GO 1 1 0 5
F_APOCALYPSE_FINAL
SRC.SYSMESSAGE MAPPLANE 5 Done.
src.go <tag.pos>
src.invis
Tag.pos=
////////////////////////////////////////////
[DIALOG d_apocalypse]
100,100
resizepic 10 10 9200 300 100
dtext 110 20 1947 ARE YOU SURE?
dtext 90 80 1947 Go Back.
dtext 25 50 026 [ATTENTION ALL ITEMS WILL BE DELETED!]
button 50 80 4014 4016 1 0 1
button 210 80 249 248 1 0 2

[DIALOG d_apocalypse BUTTON]
ON=0 2
IF (<ARGN> < 2)
 ARGS="Apocalypse Canceled!"
ELSE
F_APOCALYPSE
 ARGS="Apocalypse Completed!"
ENDIF
SYSMESSAGE @0800 <ARGS>
SDIALOG d_spawner 

Before:

PHP Code:

////////////////////////////////////////////
[FUNCTION RemoveWorldItems]
SERV.NEWITEM i_gold
FOR 0 5
 NEW.P=1,1,1,<dLOCAL._FOR>
 NEW.<ARGS>
ENDFOR
NEW.REMOVE

////////////////////////////////////////////
[FUNCTION RDoor]
RemoveWorldItems f_RDoor

[FUNCTION f_RDoor]
FORITEMS 9999
 IF (<TYPE> == t_door)
  REMOVE
 ENDIF
ENDFOR

////////////////////////////////////////////
[FUNCTION RSign]
RemoveWorldItems f_RSign

[FUNCTION f_RSign]
FORITEMS 9999
 IF (<TYPE> == t_sign_gump)
  REMOVE
 ENDIF
ENDFOR

////////////////////////////////////////////
[FUNCTION RMoonGate]
FORINSTANCES i_moongate_blue
 REMOVE
ENDFOR 

////////////////////////////////////////////
[FUNCTION Apocalypse]
RemoveWorldItems f_Apocalypse

[FUNCTION f_Apocalypse]
FORITEMS 9999
 REMOVE
ENDFOR

////////////////////////////////////////////
[DIALOG d_apocalypse]
100,100
resizepic 10 10 9200 300 100
dtext 110 20 1947 ARE YOU SURE?
dtext 90 80 1947 Go Back.
dtext 25 50 026 [ATTENTION ALL ITEMS WILL BE DELETED!]
button 50 80 4014 4016 1 0 1
button 210 80 249 248 1 0 2

[DIALOG d_apocalypse BUTTON]
ON=0 2
IF (<ARGN> < 2)
 ARGS="Apocalypse Canceled!"
ELSE
 SERV.Apocalypse
 ARGS="Apocalypse Completed!"
ENDIF
SYSMESSAGE @0800 <ARGS>
SDIALOG d_spawner 

Threaded Mode \| Linear Mode [UPDATE]Amon Vangrell - World Decorator [OSI LIKE]
Author	Message