Script Examples

Example “InstantBlockmic”

This example reproduce the Blockmic predefined action on shortcut.

Script:

program InstantBlockmic;
begin
    LastSpeaker:=Speaker;
    SetTarget(Speaker);
    SendRoom('/blockmic '+Speaker,false);
end.

Example “InstantUnblockmic”

This example reproduce the Unblockmic predefined action on shortcut.

Script:

program InstantUnblockmic;
begin
    if (LastSpeaker<>'') then
    begin
        SendRoom('/unblockmic '+LastSpeaker,false);
        LastSpeaker:='';
    end;
end.

Example “BlockUnblockMic”

This example block and unblock the mic of the user speaking on shortcut.

Script:

program BlockUnblockMic;
begin
    if (Speaker<>'') then
    begin
        SendRoom('/blockmic '+Speaker,false);
        SendRoom('/unblockmic '+Speaker,false);
    end;
end.

Example “KickAll”

This example kicks all users except you on shortcut.

Script:

program KickAll;
    var x:integer;
begin
    for x:=0 to RoomUsers.count-1 do
    begin
        if (uppercase(RoomUsers[x]))<>(uppercase(MyUsername)) then
        begin
            SendRoom('/kick '+RoomUsers[x],true);
        end;
    end;
end.

Example “Change caption on startup”

This example change your IceOp main box title on starup event.

“onStartup” script:

program onStartup;
begin
    SetCaption('IceOp rulz!');
end.

Example “Alternate Join/Quit”

This example sends Join/Quit in the room. (deprecated)

“onJoin” script:

program onJoin;
begin
    if (JoinCount>0) then
    begin
        SendRoom('Join: '+TARGET,true);
    end;
end.

“onQuit” script:

program onQuit;
begin
    SendRoom('Quit: '+TARGET,true);
end.