ON ENTER

{

offeredAvatar GLOBAL

offerInScript GLOBAL

offerOutScript GLOBAL

{

offeredAvatar GLOBAL prps GLOBAL

{

"$1" GREPSUB prps =

{

"[ " prps & " ] SETPROPS" & offeredAvatar =

"@" WHOCHAT WHOPOS ITOA SWAP ITOA "," & SWAP & &

" Vous offre un prop " & WHOCHAT WHONAME &

". Pour accepter ecrivez \"accept\"." & LOCALMSG

} prps ".* .* .* .* .* .* .* .* .* .*" GREPSTR NOT prps "-$" GREPSTR NOT AND

prps "- " GREPSTR NOT AND prps ">$" GREPSTR NOT AND prps "> " GREPSTR NOT AND

prps "<$" GREPSTR NOT AND prps "< " GREPSTR NOT AND WHOCHAT WHOME <> AND IF

"" CHATSTR =

} CHATSTR "^;avoffer [\[] ([0-9<>A-Fa-f -]+) [\]]" GREPSTR IF

} offerInScript DEF

{

offeredAvatar GLOBAL

{

{

{

0 i = ";avoffer [ "

{

i USERPROP ITOA & " " & i ++

} { i NBRUSERPROPS < } WHILE "]" & WHOTARGET PRIVATEMSG

} NBRUSERPROPS IF

}

{

"Vous devez l'offrir en privée." STATUSMSG

} WHOTARGET IFELSE

"" CHATSTR =

} CHATSTR "offer" == IF

{

"" CHATSTR = offeredAvatar STRTOATOM EXEC

} "accept" CHATSTR == "\"accept\"" CHATSTR == OR offeredAvatar "" <> AND IF

{

"" CHATSTR =

} CHATSTR "^;avoffer" GREPSTR IF

} offerOutScript DEF

}

ON OUTCHAT { offerOutScript GLOBAL offerOutScript EXEC }

ON INCHAT { offerInScript GLOBAL offerInScript EXEC }

---------------------------------------------------------------------------------------------------------------------------

Mettre ce deuxième script dans toute vos salles.(ROOM)

ON OUTCHAT { offerOutScript GLOBAL offerOutScript EXEC }

ON INCHAT { offerInScript GLOBAL offerInScript EXEC }