FreezingFire Admin Team
Joined: 23 Jun 2002 Posts: 3508
|
Posted: Mon Jan 13, 2003 11:15 pm Post subject: [Open Source]: External Message Boxes |
|
|
Here's something based on another script I found... It makes it easy to
do message boxes, but there's a couple of other things like return code
missing. (I hope the next version of VDS allows you to set return codes
without a DLL! )
Code: | REM syntax: $msgbox Title Message Type Icon
REM Type OK = OK Box
REM Type Okcancel = Ok/Cancel
REM Type Yesno = Yes/No
REM Type Yesnocancel = Yes/No/Cancel
REM type RetryCancel = Retry/Cancel
REM Type abortretryignore = Abort / Retry / Ignore
REM
REM Icon None = None
REM Icon NoEntry = No Entry
REM Icon QuestionMark = Question Mark
REM Icon ExclaimationMark = Exclamation Mark
REM Icon Information = Information
:Help Default button s always 1.
if @equal(%4, None)
%a = $00
end
if @equal(%4, NoEntry)
%a = $01
end
if @equal(%4, Question)
%a = $02
end
if @equal(%4, Exclaim)
%a = $03
end
if @equal(%4, Info)
%a = $04
end
if @equal(%3, Ok)
%a = %a0
end
if @equal(%3, OKCan)
%a = %a1
end
if @equal(%3, YesNo)
%a = %a4
end
if @equal(%3, YesNoCan)
%a = %a3
end
if @equal(%3, RetryCan)
%a = %a5
end
if @equal(%3, AbortRetIgn)
%a = %a2
end
%%go = @msgbox(%2,%1,%a) |
_________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|