Jump to content

pr0veitwr0ng

Members
  • Posts

    16
  • Joined

  • Last visited

Posts posted by pr0veitwr0ng

  1.  

    The encrypted Client  can't read Emblems using Latest Version 1.6.5.3.

    30hu1hi.png

     

    Fixed in 1.6.6 (at least from my tests, if the error still eccurs for you, send me your client with the DLL generated). The new DLL will also no longer disable itself if it meets "unexpected conditions".

     

     

    Placing a GRF inside of an RGZ causes odd behavior.

     

    Fixed the conversion and saving issues with the RGZ file format in 1.6.6. GRF Editor didn't allow GRFs to be added to a RGZ file (or any other format actually); its defaut behavior is to open the file instead. This was made on purpose because you shouldn't be packing a GRF inside a RGZ file; it's a double compression and it should be avoided. That being said, I've removed the restriction and you can do it now.

     

    If you're planning to make a Thor patch, I would recommend the following method instead (you will need the version 1.6.6) : 

    • Open your GRF with GRF Editor
    • Go in File > Save as... > Rename it with the .thor extension.
    • Click on the root node (or any other node), and select the "Container options" tab (on the right panel).
    • Use "Merge into GRF" for the patching mode and type in the output GRF name.
    • Save your Thor patch.

     

    Once you patch the file with Thor Patcher, it will either create or merge the GRF for you. Hope this helps!

     

     

    It works like a diamond. :) Thank you sir keep it up and more powers !

  2. Not working. :(

    -	shop	woeshop	-1,501:1000,502:1000,503:1000;
    -	script	woe_shop_ed	-1,{
    OnAgitStart:
    enablenpc "woe shop";
    end;
    OnAgitEnd:
    disablenpc "woe shop";
    end;
    }
    prontera,158,180,4	script	woe shop   123,{
    callshop "woeshop",0;
    end;
    OnInit:
    attachshop "woeshop";
    end;
    }
    

    Not Working. :(

  3. Can anyone fix this script? Because the bidder only get the zeny but the porings won't run. Thanks in advance

    //===== eAthena Script ===============================================
    //= Poring Race System
    //===== By: =========================================================
    //= Zell_ff8
    //=  -Made for Daegaladh, www.Sha-Ro.com Admin
    //=  -and RUNE, http://ro-enhanced.net
    //=
    //= xianz
    //=  -Added more features to it.
    //= Some Rights Reserved
    //=  http://creativecommo...y-nc-sa/2.5/ar/
    //=  
    //= Neko
    //=  Rescripted some things.
    //=  Killed the Evils goto's ?_?
    //= Did the facking tabs, code was all screwed up, now is more readable
    //===== Current Version: ==============================================
    //= 1.00
    //===== Compatible With: =============================================
    //= eAthena SVN 9991+
    //===== Description: =================================================
    //= Poring Race
    //===== Additional Comments: =========================================
    //= Tested, eA SVN Stable r10128 working 100%
    //= Need a lot of clean up... but, WORKS!! WTH xD
    //= 1.00
    //=  Kinda Cleaned up
    //=  Fixed some exploits and bugs.
    //=  Still need to be Converted the array to store the players ID's Maybe
    //= I will do it later.
    //==================================================================
    p_track01 mapflag nobranch
    p_track01 mapflag noicewall
    p_track01 mapflag nomemo
    p_track01 mapflag noreturn
    p_track01 mapflag noteleport
    p_track01 mapflag nowarpto
    p_track01 mapflag nowarp
    p_track01 mapflag pvp off
    p_track01 mapflag nosave
    - script PraceAnnouncer -1,{
    OnMinute45:
    set $accessPrace, 1;
    announce "Poring Race is now open!",0,0xFFAB54;
    end;
    OnPraceEnd:
    set $accessPrace, 0;
    announce "Poring Race is over!",0,0xFFAB54;
    end;
    }
    prontera,139,184,5 script Poring Race::Prace 882,{
    if( $accessPrace == 0) {
     mes "[Poring Race Staff]";
     mes "Poring Race has ended.";
    close;
    }
    mes "[Poring Race Staff]";
    mes "Do you want to participate on Poring Race?";
    menu "Yes",-,"No",L_no;
    if( $accessPrace == 0) {
     mes "[Poring Race Staff]";
     mes "...";
     mes "...";
     mes "Cheater!!~~";
    close;
    }
    close2;
    warp "p_track01",52,41;
    end;
    L_no:
    next;
    mes "[Poring Race Staff]";
    mes "See you again next time!";
    close;
    }
    p_track01,78,42,0 warp p_track002 1,3,prontera,142,170
    //NPC Checker
    - script Checker#prace0 -1,{
    end;
    OnChequeo:
    for(set .@tmp1,0;.@tmp1<(getarraysize($prace_bidders));set .@tmp1,.@tmp1+1) {
     if(attachrid($prace_bidders[.@tmp1])) {
      if( prace_playing != 1) end;
      dispbottom "The winner is "+$prace_winner$+" and you have bet for "+prace_winner$+".";
      if( prace_winner$ == $prace_winner$ && prace_winner$ != "") {
    dispbottom "You have won!";
    mapannounce "p_track01"," Congratulations! "+strcharinfo(0)+" has won!",1,0xFFAB54;
    getitem 7199,2;
    emotion 21,1;
      } else
    dispbottom "You have lost."; emotion 28,1;
      set prace_winner$,"";
      set prace_playing,0;
     } //else { announce .@tmp1+" || "+$prace_bidders[.@tmp1],bc_all; }  //debug
    }
    for( set .@tmp1,0; .@tmp1 < (getarraysize( $prace_bidders )); set .@tmp1,.@tmp1 + 1 ) {
     set $prace_bidders[.@tmp1],0;
    }
    }
    //NPC Principal 765
    p_track01,58,41,3 script Bidder#prace0 877,{
    if($prace_random < 1) callsub OnInit;
    if( prace_playing == 1) {
     mes "[bidder]";
     mes "You have choose ^00bb00"+prace_winner$+"^000000";
     close;
    }
    getmapxy(.@mapname$,.@x1,.@y,1,"Poring#prace1");
    getmapxy(.@mapname$,.@x2,.@y,1,"Angeling#prace2");
    getmapxy(.@mapname$,.@x3,.@y,1,"Metaling#prace3");
    getmapxy(.@mapname$,.@x4,.@y,1,"Deviling#prace4");
    getmapxy(.@mapname$,.@x5,.@y,1,"Santa Poring#prace5");
    getmapxy(.@mapname$,.@x6,.@y,1,"Poporing#prace6");
    if (.@x1 != 58 || .@x2 != 58 || .@x3 != 58 || .@x4 != 58 || .@x5 != 58 || .@x6 != 58) {
     mes "[bidder]";
     mes "There is a race in progress...";
     close;
    }
    set .@prace_zeny,3500;
    mes "[bidder]";
    mes "Choose the poring you want to bet:";
    mes "It will cost "+.@prace_zeny+" Zeny.";
    //next;
    switch( select("Poring","Angeling","Metaling","Deviling","Santa Poring","Poporing","None.") ) {
     case 1: set .@thining$,"Poring"; break;
     case 2: set .@thining$,"Angeling"; break;
     case 3: set .@thining$,"Metaling"; break;
     case 4: set .@thining$,"Deviling"; break;
     case 5: set .@thining$,"Santa Poring"; break;
     case 6: set .@thining$,"Poporing"; break;
     case 7:
      mes "[bidder]";
      mes "Goodbye.";
      close;
    }
    getmapxy(.@mapname$,.@x1,.@y,1,"Poring#prace1");
    getmapxy(.@mapname$,.@x2,.@y,1,"Angeling#prace2");
    getmapxy(.@mapname$,.@x3,.@y,1,"Metaling#prace3");
    getmapxy(.@mapname$,.@x4,.@y,1,"Deviling#prace4");
    getmapxy(.@mapname$,.@x5,.@y,1,"Santa Poring#prace5");
    getmapxy(.@mapname$,.@x6,.@y,1,"Poporing#prace6");
    if (.@x1 != 58 || .@x2 != 58 || .@x3 != 58 || .@x4 != 58 || .@x5 != 58 || .@x6 != 58) {
     mes "[bidder]";
     mes "...";
     mes "...";
     mes "Cheater!!~~";
     close;
    }
    if( Zeny < .@prace_zeny) {
     set prace_winner$,"";
     mes "[bidder]";
     mes "You don't have enough Zeny.";
     close;
    }
    set Zeny,Zeny - .@prace_zeny;
    set prace_winner$,.@thining$;
    set $prace_bets,$prace_bets+1;
    set $prace_bidders[$prace_bets],getcharid(3);
    set prace_playing,1;
    mes "[bidder]";
    mes "I have "+$prace_bets+" bets.";
    setnpctimer 60000;
    startnpctimer;
    npctalk "I got "+strcharinfo(0)+" bet!";
    close;
    Start1:
    setnpctimer 0;
    startnpctimer;
    end;
    StartRace:
    donpcevent "Metaling#prace3::OnRace";
    donpcevent "Poring#prace1::OnRace";
    donpcevent "Poporing#prace6::OnRace";
    donpcevent "Angeling#prace2::OnRace";
    donpcevent "Santa Poring#prace5::OnRace";
    donpcevent "Deviling#prace4::OnRace";
    end;
    onstopRace:
    donpcevent "Poring#prace1::onstop";
    donpcevent "Angeling#prace2::onstop";
    donpcevent "Metaling#prace3::onstop";
    donpcevent "Deviling#prace4::onstop";
    donpcevent "Santa Poring#prace5::onstop";
    donpcevent "Poporing#prace6::onstop";
    if($prace_winner$!="") callsub WinRace;
    end;
    ReturnRace:
    donpcevent "Poring#prace1::OnReturn";
    donpcevent "Angeling#prace2::OnReturn";
    donpcevent "Metaling#prace3::OnReturn";
    donpcevent "Deviling#prace4::OnReturn";
    donpcevent "Santa Poring#prace5::OnReturn";
    donpcevent "Poporing#prace6::OnReturn";
    end;
    WinRace:
    mapannounce "p_track01","The winner is "+$prace_winner$,1,0xFFAB54;
    donpcevent "Checker#prace0::OnChequeo";
    sleep2 10000;
    mapwarp "p_track01","prontera",142,170;
    set $accessPrace, 0;
    setnpctimer 30000;
    startnpctimer;
    donpcevent "PraceAnnouncer::OnPraceEnd";
    end;
    OnInit:
    set $prace_random,70;
    set $prace_random2,600;
    set $prace_winner$,"";
    set $prace_bets,0;
    set $prace_bidders,0;
    end;
    OnTimer500:
    mapannounce "p_track01","Porings, on your marks...",1,0xFFAB54;
    end;
    OnTimer3000:
    mapannounce "p_track01","...3...",1,0xFFAB54;
    end;
    
    OnTimer4000:
    mapannounce "p_track01","...2...",1,0xFFAB54;
    end;
    OnTimer5000:
    mapannounce "p_track01","...1...",1,0xFFAB54;
    callsub StartRace;
    end;
    OnTimer6000:
    stopnpctimer;
    mapannounce "p_track01","Gooo!!!",1,0xFFAB54;
    end;
    OnTimer35000:
    set $prace_winner$,"";
    set $prace_bets,0;
    stopnpctimer;
    callsub ReturnRace;
    end;
    OnTimer90000:
    npctalk "I got "+$prace_bets+" bets. Anyone else?";
    end;
    
    OnTimer110000:
    npctalk "The race will start soon. Last chance.";
    end;
    
    OnTimer120000:
    goto Start1;
    end;
    }
    //-----------------------------------
    // Racer NPC's
    //-----------------------------------
    p_track01,58,38,2 script Poring#prace1 1002,{
    end;
    OnRace:
    initnpctimer;
    startnpctimer;
    end;
    onstop:
    stopnpctimer;
    end;
    OnReturn:
    npcwalkto 58,38;
    end;
    OnTimer1100:
    getmapxy(.@mapname$,.@x,.@y,1,"Poring#prace1");
    if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
    setnpctimer rand($prace_random2);
    startnpctimer;
    if ((.@x-1) == 29) {
     set $prace_winner$,"Poring";
     emotion 29;
     donpcevent "Bidder#prace0::onstopRace";
    }
    end;
    }
    p_track01,58,36,2 script Angeling#prace2 1096,{
    end;
    OnRace:
    initnpctimer;
    startnpctimer;
    end;
    onstop:
    stopnpctimer;
    end;
    OnReturn:
    npcwalkto 58,36;
    end;
    OnTimer1100:
    getmapxy(.@mapname$,.@x,.@y,1,"Angeling#prace2");
    if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
    setnpctimer rand($prace_random2);startnpctimer;
    if ((.@x-1) == 29) {
     set $prace_winner$,"Angeling";
     emotion 29;
     donpcevent "Bidder#prace0::onstopRace";
    }
    end;
    }
    p_track01,58,34,2 script Metaling#prace3 1613,{
    end;
    OnRace:
    initnpctimer;
    startnpctimer;
    end;
    onstop:
    stopnpctimer;
    end;
    OnReturn:
    npcwalkto 58,34;
    end;
    OnTimer1100:
    getmapxy(.@mapname$,.@x,.@y,1,"Metaling#prace3");
    if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
    setnpctimer rand($prace_random2);startnpctimer;
    if ((.@x-1) == 29) {
     set $prace_winner$,"Metaling";
     emotion 29;
     donpcevent "Bidder#prace0::onstopRace";
    }
    end;
    }
    p_track01,58,32,2 script Deviling#prace4 1582,{
    end;
    OnRace:
    initnpctimer;
    startnpctimer;
    end;
    onstop:
    stopnpctimer;
    end;
    OnReturn:
    npcwalkto 58,32;
    end;
    OnTimer1100:
    getmapxy(.@mapname$,.@x,.@y,1,"Deviling#prace4");
    if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
    setnpctimer rand($prace_random2);startnpctimer;
    if ((.@x-1) == 29) {
     set $prace_winner$,"Deviling";
     emotion 29;
     donpcevent "Bidder#prace0::onstopRace";
    }
    end;
    }
    p_track01,58,30,2 script Santa Poring#prace5 1062,{
    end;
    OnRace:
    initnpctimer;
    startnpctimer;
    end;
    onstop:
    stopnpctimer;
    end;
    OnReturn:
    npcwalkto 58,30;
    end;
    OnTimer1100:
    getmapxy( .@mapname$,.@x,.@y,1,"Santa Poring#prace5");
    if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
    setnpctimer rand($prace_random2);startnpctimer;
    if ((.@x-1) == 29) {
     set $prace_winner$,"Santa Poring";
     emotion 29;
     donpcevent "Bidder#prace0::onstopRace";
    }
    end;
    }
    p_track01,58,28,2 script Poporing#prace6 1031,{
    end;
    OnRace:
    initnpctimer;
    startnpctimer;
    end;
    onstop:
    stopnpctimer;
    end;
    OnReturn:
    npcwalkto 58,28;
    end;
    OnTimer1100:
    getmapxy(.@mapname$,.@x,.@y,1,"Poporing#prace6");
    if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
    setnpctimer rand($prace_random2);startnpctimer;
    if ((.@x-1) == 29) {
     set $prace_winner$,"Poporing";
     emotion 29;
     donpcevent "Bidder#prace0::onstopRace";
    }
    end;
    }

×
×
  • Create New...