Ce Script nous aides a éditer un avatar/prop afin de corriger les points dans notre avatar/prop
en changent les couleurs de fonds.
Installer ce Script dans votre Pserver.pat .
Télécharger les images de ce script ici------------------------------------------------------------------------------------------
ROOM
ID 2221
NAME "Edit Prop"
PICT "black1.gif"
PICTURE ID 1 NAME "sbprpedbl.gif" ENDPICTURE
PICTURE ID 2 NAME "sbprpedgy.gif" ENDPICTURE
PICTURE ID 3 NAME "sbprpedbu.gif" ENDPICTURE
PICTURE ID 4 NAME "sbprpedgn.gif" ENDPICTURE
PICTURE ID 5 NAME "sbprpedyl.gif" ENDPICTURE
PICTURE ID 6 NAME "sbprpedbr.gif" ENDPICTURE
PICTURE ID 7 NAME "sbprpedpc.gif" ENDPICTURE
PICTURE ID 8 NAME "sbprpedpk.gif" ENDPICTURE
PICTURE ID 9 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
PICTURE ID 10 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
SPOT
ID 1
OUTLINE 210,67 252,67 252,96 210,96
LOC 258,93
PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 ENDPICTS
SCRIPT
ON ENTER { 0 ME SETSPOTSTATELOCAL }
ENDSCRIPT
ENDSPOT
SPOT
ID 2
NAME "Next"
DONTMOVEHERE
SHOWNAME
SHOWFRAME
OUTLINE 304,216 343,216 343,240 304,240
LOC 324,221
SCRIPT
ON ENTER { pics GLOBAL
8 pics = ;pics is number of pics in your slideshow, change to fit
}
ON SELECT { pics GLOBAL
1 GETSPOTSTATE cs =
cs 1 + DUP pics / pics * - 1 SETSPOTSTATELOCAL
10 ME SETALARM
}
ON ALARM {
;this array contains the title for each picture, change to fit
[ "Black"
"Grey"
"Blue"
"Olive"
"Yellow"
"Brown"
"Peach"
"Pink"
] 1 GETSPOTSTATE GET STATUSMSG
}
ENDSCRIPT
ENDSPOT
SPOT
ID 3
NAME "Previous"
DONTMOVEHERE
SHOWNAME
SHOWFRAME
OUTLINE 146,215 208,215 208,241 146,241
LOC 177,221
SCRIPT
ON SELECT { pics GLOBAL
1 GETSPOTSTATE 1 - cs =
cs cs -1 == PICS * + 1 SETSPOTSTATELOCAL
10 2 SETALARM
}
ENDSCRIPT
ENDSPOT
SPOT
ID 4
NAME "Reset"
DONTMOVEHERE
SHOWNAME
SHOWFRAME
OUTLINE 232,216 279,216 279,241 232,241
LOC 256,222
SCRIPT
ON SELECT { 0 1 SETSPOTSTATELOCAL 10 2 SETALARM }
ENDSCRIPT
ENDSPOT
DOOR
ID 5
DONTMOVEHERE
DEST 116
OUTLINE 3,357 59,357 59,380 3,380
LOC 28,368
PICTS 9,0,0 ENDPICTS
ENDDOOR
DOOR
ID 6
DONTMOVEHERE
DEST 123
OUTLINE 453,360 508,360 508,379 453,379
LOC 482,369
PICTS 10,0,0 ENDPICTS
SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
ENDSCRIPT
ENDDOOR
ENDROOM