viewing paste Unknown #6942 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
-   script  faqbind -1,{
    OnInit:
        bindatcmd("faq","faqbind::OnAtcommand",0,10);
        end;
    
 
    OnAtcommand:
        set @faq$,.@atcmd_parameters$[0];
        set @faq,@faq$;
 
if(@faq$ == "list") { dispbottom "Usage: @faq #"; 
    dispbottom "0=LGP         1=color name        2=achievement      3=capret      4=icons";
    end;
}
 
if(@faq$ == "0" || @faq$ == "LGP" || @faq$ == "RCX") { open "http://google.ru/",strcharinfo(0); }
if(@faq$ == "1" || @faq$ == "color" || @faq$ == "name" || @faq$ == "color name") { open "http://google.ru/",strcharinfo(0); }
if(@faq$ == "2" || @faq$ == "achievement" || @faq$ == "achieve") { open "http://google.ru/",strcharinfo(0); }
if(@faq$ == "3" || @faq$ == "capret" || @faq$ == "kover") { open "http://google.ru/",strcharinfo(0); }
if(@faq$ == "4" || @faq$ == "icon" || @faq$ == "icons") { open "http://google.ru/",strcharinfo(0); }
else {
    dispbottom "[Server] : To use @faq, enter a number 0 or greater. For a full list of available faqs, type '@faq list'.";
    end;
}}
Viewed 740 times, submitted by Guest.