0987496012 發表於 2010-7-29 02:19:07

【徵收腳本GM /宣傳GM】

本帖最後由 【冷落之夜】 於 2010-8-4 11:01 PM 編輯

私服類型：全自立
私服版本：ea
私服名稱：神幻全自立私服
私服帖子：無
誠招哪個GM：專業腳本GM /宣傳GM

應徵腳本G的人
請把自創腳本放上來   一小部分就OK

應徵宣傳的的人
請把過去貼過的網址複製上來   必須

wxyz0214 發表於 2010-8-4 02:11:34

reak;
//商店
case 6:
callshop "heroshop",1;
end;
//商城
case 7:
callshop "herocashshop",1;
end;
//***
CASE 8:
setarray @mer,6036,6046,6056;
mercenary_create @mer,1800000;

noitem:
        mes "***";
        mes "您身上沒有***";
        close;
        end;
}
end;
}
-        shop        heroshop        -1,30003:300000,30018:250000,30019:1200000,30020:2000000
-        cashshop        herocashshop

0987496012 發表於 2010-8-4 06:23:24

回復 2# wxyz0214


    抱歉著種商城難度並不高   我希望你可以寫出 連續任務或新手務的

sb66665112 發表於 2010-8-4 21:16:33

//callfunc "Rankset",排名函數,排名文字字串,要比的分數,要登入的字串,該排名函數的起始值,排名紀錄數字函數;
//callfunc "LookRank",該排名函數的起始值,排名紀錄數字函數,排名文字字串(Special),排名函數;
//Rank Function V 0.4
//By Twps.Com(Tommy)
function        script        Rankset        {
        set .@i,0;
        set .@mst,0;
        if(getarg(0)=="" || getarg(1)=="" || getarg(2)<1 || getarg(3)=="" || getarg(4)<0 || getarg(5)=="")return;
        if(getd(getarg(5))==0)setd ""+getarg(5)+"",getarg(4);
        if(getd(getarg(5))==getarg(4)){
        setd ""+getarg(0)+""+getd(getarg(5))+"",getarg(2);
        setd ""+getarg(1)+""+getd(getarg(5))+"$",getarg(3);
        setd ""+getarg(5)+"",getd(getarg(5))+1;
        return;
        }
                for( set .@i, getarg(4); .@i <= getd(getarg(5)); set .@i, .@i +1)
{
        if(getd(""+getarg(1)+""+.@i+"$")==getarg(3) && getd(""+getarg(0)+""+.@i+"")<getarg(2)){
        setd ""+getarg(1)+""+.@i+"$","";
        setd ""+getarg(0)+""+.@i+"",0;
        }
        if(getd(""+getarg(1)+""+.@i+"$")==getarg(3))set .@mst,.@i;
        if(getarg(2)>getd(""+getarg(0)+""+.@i+"") && getd(".@Ramax"+getarg(0)+""+getarg(2)+"")==0)setd ".@Ramax"+getarg(0)+""+getarg(2)+"",.@i;
        setd ""+getarg(0)+""+.@i+"-dataf2",getd(""+getarg(0)+""+.@i+"");
        setd ""+getarg(1)+""+.@i+"-dataf2$",getd(""+getarg(1)+""+.@i+"$");
}
        if(getd(".@Ramax"+getarg(0)+""+getarg(2)+"")!=0 && .@mst!=0 && getd(".@Ramax"+getarg(0)+""+getarg(2)+"")>.@mst)return;
        set .@i,0;
                for( set .@i, getd(".@Ramax"+getarg(0)+""+getarg(2)+""); .@i <= getd(getarg(5)); set .@i, .@i +1)
{
        if(.@i==getd(".@Ramax"+getarg(0)+""+getarg(2)+"")){
        setd ""+getarg(0)+""+.@i+"",getarg(2);
        setd ""+getarg(1)+""+.@i+"$",getarg(3);
        set .@i,.@i+1;
        }
        setd ""+getarg(0)+""+.@i+"",getd(""+getarg(0)+""+(.@i-1)+"-dataf2");
        setd ""+getarg(1)+""+.@i+"$",getd(""+getarg(1)+""+(.@i-1)+"-dataf2$");
}
        setd ""+getarg(5)+"",getd(getarg(5))+1;
return;
}
function        script        LookRank        {
        set .@i,0;
                for( set .@i, getarg(0); .@i <= getarg(1); set .@i, .@i +1)
{
        if(getd(""+getarg(2)+""+.@i+"$")!="")mes "["+.@i+"]["+getd(""+getarg(2)+""+.@i+"$")+"]["+getd(""+getarg(3)+""+.@i+"")+"]";
}
        return;
}
prontera.gat,157,93,4        script        金錢排行榜        98,{
        menu "登記",a1,"觀看",a2;
a1:
        callfunc "Rankset","$zenycw","$zenycww$",Zeny,strcharinfo(0),1,"$zenyfi";
        close;
a2:
        callfunc "LookRank",1,$zenyfi,"$zenycww$","$zenycw";
        close;
}

芋妹 發表於 2010-8-4 21:18:20

我是來應徵宣傳的 ★
http://www.okayro.com/viewthread.php?tid=168530&page=1&extra=#pid1938918

哆啦ˇ 發表於 2010-8-5 11:19:24

本帖最後由 哆啦ˇ 於 2010-8-5 11:21 AM 編輯


sb66665112 發表於 2010-8-4 09:16 PM http://okayro.com/images/common/back.gif


   :98+:寫那麼長


http://s41.radikal.ru/i091/1008/5d/965e5064380c.jpg


↑↑ 乃有哆拉著作權法 , 請勿擅自轉貼
頁: [1]
查看完整版本: 【徵收腳本GM /宣傳GM】