【徵收腳本GM /宣傳GM】

0987496012

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

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

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

wxyz0214

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

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

0987496012

回復 2# wxyz0214


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

sb66665112

1. //callfunc "Rankset",排名函數,排名文字字串,要比的分數,要登入的字串,該排名函數的起始值,排名紀錄數字函數;
   
2. //callfunc "LookRank",該排名函數的起始值,排名紀錄數字函數,排名文字字串(Special),排名函數;
   
3. //Rank Function V 0.4
   
4. //By Twps.Com(Tommy)
   
5. function        script        Rankset        {
   
6.         set .@i,0;
   
7.         set .@mst,0;
   
8.         if(getarg(0)=="" || getarg(1)=="" || getarg(2)<1 || getarg(3)=="" || getarg(4)<0 || getarg(5)=="")return;
   
9.         if(getd(getarg(5))==0)setd ""+getarg(5)+"",getarg(4);
   
10.         if(getd(getarg(5))==getarg(4)){
    
11.         setd ""+getarg(0)+""+getd(getarg(5))+"",getarg(2);
    
12.         setd ""+getarg(1)+""+getd(getarg(5))+"$",getarg(3);
    
13.         setd ""+getarg(5)+"",getd(getarg(5))+1;
    
14.         return;
    
15.         }
    
16.                 for( set .@i, getarg(4); .@i <= getd(getarg(5)); set .@i, .@i +1)
    
17. {
    
18.         if(getd(""+getarg(1)+""+.@i+"$")==getarg(3) && getd(""+getarg(0)+""+.@i+"")<getarg(2)){
    
19.         setd ""+getarg(1)+""+.@i+"$","";
    
20.         setd ""+getarg(0)+""+.@i+"",0;
    
21.         }
    
22.         if(getd(""+getarg(1)+""+.@i+"$")==getarg(3))set .@mst,.@i;
    
23.         if(getarg(2)>getd(""+getarg(0)+""+.@i+"") && getd(".@Ramax"+getarg(0)+""+getarg(2)+"")==0)setd ".@Ramax"+getarg(0)+""+getarg(2)+"",.@i;
    
24.         setd ""+getarg(0)+""+.@i+"-dataf2",getd(""+getarg(0)+""+.@i+"");
    
25.         setd ""+getarg(1)+""+.@i+"-dataf2$",getd(""+getarg(1)+""+.@i+"$");
    
26. }
    
27.         if(getd(".@Ramax"+getarg(0)+""+getarg(2)+"")!=0 && .@mst!=0 && getd(".@Ramax"+getarg(0)+""+getarg(2)+"")>.@mst)return;
    
28.         set .@i,0;
    
29.                 for( set .@i, getd(".@Ramax"+getarg(0)+""+getarg(2)+""); .@i <= getd(getarg(5)); set .@i, .@i +1)
    
30. {
    
31.         if(.@i==getd(".@Ramax"+getarg(0)+""+getarg(2)+"")){
    
32.         setd ""+getarg(0)+""+.@i+"",getarg(2);
    
33.         setd ""+getarg(1)+""+.@i+"$",getarg(3);
    
34.         set .@i,.@i+1;
    
35.         }
    
36.         setd ""+getarg(0)+""+.@i+"",getd(""+getarg(0)+""+(.@i-1)+"-dataf2");
    
37.         setd ""+getarg(1)+""+.@i+"$",getd(""+getarg(1)+""+(.@i-1)+"-dataf2$");
    
38. }
    
39.         setd ""+getarg(5)+"",getd(getarg(5))+1;
    
40. return;
    
41. }
    
42. function        script        LookRank        {
    
43.         set .@i,0;
    
44.                 for( set .@i, getarg(0); .@i <= getarg(1); set .@i, .@i +1)
    
45. {
    
46.         if(getd(""+getarg(2)+""+.@i+"$")!="")mes "["+.@i+"]["+getd(""+getarg(2)+""+.@i+"$")+"]["+getd(""+getarg(3)+""+.@i+"")+"]";
    
47. }
    
48.         return;
    
49. }
    
50. prontera.gat,157,93,4        script        金錢排行榜        98,{
    
51.         menu "登記",a1,"觀看",a2;
    
52. a1:
    
53.         callfunc "Rankset","$zenycw","$zenycww$",Zeny,strcharinfo(0),1,"$zenyfi";
    
54.         close;
    
55. a2:
    
56.         callfunc "LookRank",1,$zenyfi,"$zenycww$","$zenycw";
    
57.         close;
    
58. }

複製代碼

芋妹

我是來應徵宣傳的 ★
http://www.okayro.com/viewthread ... p;extra=#pid1938918

哆啦ˇ

sb66665112 發表於 2010-8-4 09:16 PM

   :98+:寫那麼長





↑↑ 乃有哆拉著作權法 , 請勿擅自轉貼