Jump to content

SlashGeeGee

Members
  • Posts

    573
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by SlashGeeGee

  1. Just this morning ok pa lahat working fine attacks and skills pero ngayun ayaw na umatake ng character ko and ayaw rin mag cast ng skill ? hmm.. another error is pag @killmonster ko killallmonster in map and may error lumalabas sa map server. :D

    here's the screenshot :

    10hjczr.jpg

    i was spamming click on wildrose this time :D

    here's the error for map server when i type @killmonster

    6gv5kx.jpg

    SVN : rAthena r15876

    Client : 2010-07-30aRagexeRE

    SlashGeeGee

    Anyone knows how to fix this problem ?

  2. here's what i added in my script.c

    
    /*==========================================
    * ¸˜BŽ¸”s
    *------------------------------------------*/
    BUILDIN_FUNC(failedrefitem)
    {
    int i=-1,num;
    TBL_PC *sd;
    
    num=script_getnum(st,2);
    sd = script_rid2sd(st);
    if( sd == NULL )
    return 0;
    
    if (num > 0 && num <= ARRAYLENGTH(equip))
    i=pc_checkequip(sd,equip[num-1]);
    if(i >= 0) {
    sd->status.inventory[i].refine = 0;
    pc_unequipitem(sd,i,3);
    // ¸˜BŽ¸”sƒGƒtƒFƒNƒg‚̃pƒPƒbƒg
    clif_refine(sd->fd,1,i,sd->status.inventory[i].refine);
    
    pc_delitem(sd,i,1,0,2,LOG_TYPE_SCRIPT);
    // ‘¼‚Ìl‚É‚àŽ¸”s‚ð’Ê’m
    clif_misceffect(&sd->bl,2);
    }
    
    return 0;
    }
    
    BUILDIN_FUNC(failedrefitemR) // by jakeRed
    {
    int i=-1,num;
    TBL_PC *sd;
    
    num=script_getnum(st,2);
    sd = script_rid2sd(st);
    if( sd == NULL )
    return 0;
    
    if (num > 0 && num <= ARRAYLENGTH(equip))
    i=pc_checkequip(sd,equip[num-1]);
    if(i >= 0) {
    
    //Logs items, got from (N)PC scripts [Lupus]
    if(log_config.enable_logs&0x40)
    log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -1, &sd->status.inventory[i]);
    
    sd->status.inventory[i].refine = sd->status.inventory[i].refine - 3;
    pc_unequipitem(sd,i,2); // status calc will happen in pc_equipitem() below
    
    clif_refine(sd->fd,0,i,sd->status.inventory[i].refine);
    clif_delitem(sd,i,1,2);
    
    if(log_config.enable_logs&0x40)
    log_pick_pc(sd, "N", sd->status.inventory[i].nameid, 1, &sd->status.inventory[i]);
    
    clif_additem(sd,i,1,0);
    clif_misceffect(&sd->bl,2);
    }
    
    return 0;
    }
    

    and this

    
    BUILDIN_DEF(failedrefitem,"i"),
    BUILDIN_DEF(failedrefitemR,"i"), //jakeRed
    

    it's for the +20 Refiner :D

  3. Hello rAthena :D

    I've made so many changes in source like the change max guild capacity , changing client date and +20 refine system, but when compiling i got error's.

    here's the error show :

    
    \rathena\src\map\script.c(7011) : error C2440: 'function' : cannot convert from 'char [2]' to 'e_log_pick_type'
    \rathena\src\map\script.c(7011) : warning C4024: 'log_pick_pc' : different types for formal and actual parameter 2
    \rathena\src\map\script.c(7011) : warning C4047: 'function' : 'item *' differs in levels of indirection from 'int'
    \rathena\src\map\script.c(7011) : warning C4024: 'log_pick_pc' : different types for formal and actual parameter 4
    \rathena\src\map\script.c(7011) : warning C4020: 'log_pick_pc' : too many actual parameters
    \rathena\src\map\script.c(7020) : error C2440: 'function' : cannot convert from 'char [2]' to 'e_log_pick_type'
    \rathena\src\map\script.c(7020) : warning C4024: 'log_pick_pc' : different types for formal and actual parameter 2
    \rathena\src\map\script.c(7020) : warning C4047: 'function' : 'item *' differs in levels of indirection from 'int'
    \rathena\src\map\script.c(7020) : warning C4024: 'log_pick_pc' : different types for formal and actual parameter 4
    \rathena\src\map\script.c(7020) : warning C4020: 'log_pick_pc' : too many actual parameters
    
    

    Thank You For Helping :D

    Anyone know how to fix these errors ?

  4. @ngek202

    i just set it to yes i got error in my map server when using a command :D

    
    
    (23:34:25) SQL: DB error - Table 'log.log/atcommandlog.log' doesn't exist
    (23:34:25) Debug: at rathenasrcmaplog.c:329 - INSERT DELAYED INTO `log/atcommandlog.log` (`atcommand_date`, `account_id`, `char_id`, `char_name`, `map`, `command`) VALUES (NOW(), '2000000', '150000', ?, 'royal_room3', ?)
    (23:34:29) SQL: DB error - Table 'log.log/picklog.log' doesn't exist
    (23:34:29) Debug: at rathenasrcmaplog.c:201 - INSERT DELAYED INTO `log/picklog.log` (`time`, `char_id`, `type`, `nameid`, `amount`, `map`) VALUES (NOW(), '150000', 'A', '7539', '1', 'royal_room3')
    (23:34:42) SQL: DB error - Table 'log.log/picklog.log' doesn't exist
    (23:34:42) Debug: at rathenasrcmaplog.c:210 - INSERT DELAYED INTO `log/picklog.log` (`time`, `char_id`, `type`, `nameid`, `amount`, `refine`, `card0`, `card1`, `card2`, `card3`, `map`) VALUES (NOW(), '150000', 'A', '7539', '-1', '0', '0', '0', '0', '0', 'royal_room3')
    

    i need help :D

  5. Thx Quesoph :D

    Works Fine Now.

    Solved :D

    guys can you help me with another script ?

    here's the error :

    f07r4x.jpg

    script :

    
    /*//----------------------------------------------------------------//
    //----------------Scripted by Spera---------------------------------//
    //------------------FinalStrikeRO-----------------------------------//
    //--------------------Disguise Event NPC v2-------------------------//
    /-------------------------------------------------------------------//*/
    
    
    royal_room3,117,135,3 script Disguise CP 968,{
    
    if (getgmlevel()<50)
    {
    mes "^3399FF[Disguise CP]^000000"; 
    mes "Sorry, you are not a GM!";
    close;
    }
    
    mes "^3399FF[Disguise CP]^000000"; 
    mes "Hello GameMaster!";
    mes "What do you want to do?";
    switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing"))
    {
    case 1: 
    {
    next;
    mes "^3399FF[Disguise CP]^000000";
    mes "Please confirm by typing START."; 
    input .@confirm$;          
    if (.@confirm$ == "START") 
    {
    donpcevent "guessAnnouncer::OnGMStart"; 
    close;
    }
    mes "Confirmation failed";
    close;
    break;
    }
    case 2:
    {
    next;
    mes "^3399FF[Disguise CP]^000000";
    mes "Please confirm by typing STOP."; 
    input .@confirm$;          
    if (.@confirm$ == "STOP") 
    {
    donpcevent "guessAnnouncer::OnGMStop";
    close;
    }
    mes "Confirmation failed";
    close;
    break;
    
    }
    
    case 3:
    {
    next; mes "^3399FF[Disguise CP]^000000";
    mes "Please type in the new number."; 
    input $guessrounds; 
    if ($guessrounds > 30) set $guessrounds, 30;
    else if ($guessrounds < 1) set $guessrounds, 1;
    close;
    }
    
    case 4:
    {
    next; mes "^3399FF[Disguise CP]^000000";
    mes "Please type in the new prize id."; 
    input .@guessprizeid; 
    if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;}
    set $guessprize, .@guessprizeid;
    next; mes "^3399FF[Disguise CP]^000000";
    mes "Please type in the amount."; 
    input .@guessprizeamount;
    if (!.@guessprizeamount) set .@guessprizeamount,1 ;
    set $guessprizecount,.@guessprizeamount; 
    next; mes "^3399FF[Disguise CP]^000000";
    mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000";
    close;
    }
    
    
    case 5:
    {
    next; mes "^3399FF[Disguise CP]^000000";
    mes "Good bye"; 
    close;
    }
    
    }
    
    
    }
    
    
    
    
    
    
    
    
    poring_c01,102,99,4 script Disguise NPC 794,{
    
    if (!$guessbegin)
    {
    mes "^3399FF[Disguise NPC]^000000";
    mes "The event is going to start soon!";
    close;
    }
    end;
    
    OnStart:
    set $guessbegin, 1;
    set .DisguiseWon, 0;
    if (!$DisguiseRound)
    {
    npctalk "Alright. Let's get it over with ~.~ ";
    sleep 4000;
    npctalk "But first I will explain to you how to play the game.";
    sleep 6000;
    npctalk "I am going to disguise into a random monster.";
    sleep 5000;
    npctalk "You have to guess the monster's name and shout it out.";
    sleep 5000;
    npctalk "Don't bother about the use of capital and small initial letters.";
    sleep 8000;
    npctalk "Now get ready.";
    sleep 5000;
    }
    else if ($DisguiseRound < $guessrounds-1)
    {
    npctalk "Get ready for the next round.";
    setnpctimer 0;
    sleep 8000;
    }
    else
    { 
    npctalk "Last round now!";
    sleep 2000;
    npctalk "Get ready.";
    sleep 6000;
    }
    
    do
    {
    set .@guessrepeat, 0;
    set $monster, 1000 + rand(1,950);
    for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1)
    {
    if ($monster == $Forbidden[.@k]) 
    {
    set .@guessrepeat, 1;
    break;
    }
    }
    }
    while (.@guessrepeat);
    setnpctimer 0;
    initnpctimer;
    setnpcdisplay "Disguise NPC",$monster;
    set $MonsterName$, strmobinfo(1,$monster);
    defpattern 1, "([^:]+):.*s"+$MonsterName$+"(.*)", "winround";
    activatepset 1;
    npctalk "What's my name?";
    sleep 3000;
    npcwalkto 102,103;
    sleep 2000;
    npcwalkto 102,99;
    end;
    
    OnTimer10000:
    if (!.DisguiseWon)
    { 
    npctalk "Come on. What monster am I?";
    sleep 3000;
    npcwalkto 102,103;
    sleep 2000;
    npcwalkto 102,99;
    if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    }
    end;
    
    
    OnTimer25000:
    if (!.DisguiseWon) 
    {
    npctalk "Nobody knows that monster?";
    sleep 3000;
    npcwalkto 102,103;
    sleep 2000;
    npcwalkto 102,99;
    }
    end;
    
    OnTimer35000:
    if (!.DisguiseWon) 
    {
    npctalk "You get 10 more seconds to guess my name.";
    sleep 3000;
    npcwalkto 102,103;
    sleep 2000;
    npcwalkto 102,99;
    }
    end;
    
    OnTimer45000:
    if (!.DisguiseWon)
    { 
    npctalk "Round is over.";
    if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    set $DisguiseRound, $DisguiseRound + 1;
    sleep 3000;
    deletepset 1;
    npctalk $MonsterName$ + " would have been the correct answer.";
    sleep 5000;
    if ($DisguiseRound >= $guessrounds)
    {
    set $DisguiseRound, 0;
    sleep 3000;
    npctalk "Event is over now!";
    sleep 3500;
    npctalk "See ya guys";
    sleep 2000;
    emotion 12;
    sleep 1000;
    set $guessactive, 0;
    mapwarp "poring_c01.gat","prontera.gat",138,185;
    setnpcdisplay "Disguise NPC",794;
    disablenpc "Disguise NPC";
    end;
    }
    goto OnStart;
    }
    end;
    
    winround:
    setnpctimer 0;
    deletepset 1;
    set .DisguiseWon, 1;
    set $DisguiseRound, $DisguiseRound + 1;
    npctalk strcharinfo(0) + " got my right name!";
    sleep2 3000;
    npctalk $MonsterName$ + " is the correct answer.";
    sleep2 3000;
    npctalk "Take this as a reward.";
    getitem $guessprize, $guessprizecount;
    if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    if ($DisguiseRound >= $guessrounds)
    {
    set $DisguiseRound, 0;
    set $guessactive, 0;
    sleep 3000;
    npctalk "Event is over now!";
    sleep 3500;
    npctalk "See ya guys";
    sleep 2000;
    emotion 12;
    sleep 1000;
    mapwarp "poring_c01.gat","prontear.gat",138,185;
    setnpcdisplay "Disguise NPC",794;
    disablenpc "Disguise NPC";
    end;
    }
    sleep 5000;
    goto OnStart;
    end;
    
    
    
    }
    
    //-----------------------------------------------------------------------------------
    //-----------------------------------------------------------------------------------
    
    - script guessAnnouncer -1,{
    
    
    OnGMStart:
    if ($guessactive) end;
    set $guessactive, 1;
    announce "A Gamemaster has started the Disguise Event",0;
    set $guessbegin, 0;
    sleep 3000;
    if (!$guessactive) end;
    announce "If you want to join, come to the main town, head downwards and enter the warp portal",0;
    enablenpc "guesswarp";
    enablenpc "Disguise NPC";
    sleep 3000;
    announce "Number of Rounds: "+$guessrounds"";
    sleep 2000;
    announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount;
    sleep 2000;
    if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    announce "The portal is going to close in one minute.";  
    sleep 60000;
    if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    announce "The portal has been closed.";
    disablenpc "guesswarp";
    set $DisguiseRound, 0;
    sleep 5000;
    if (!$guessactive) {disablenpc "Disguise NPC"; end;}
    if(getmapusers("poring_c01") == 0) 
    {
    disablenpc "Disguise NPC";
    set $guessactive, 0;
    end;
    }
    
    donpcevent "Disguise NPC::OnStart";
    end;
    
    OnGMStop:
    if ($guessactive)
    {
    set $guessactive, 0;
    announce "A Gamemaster has stopped the Disguise Event",0;
    set $DisguiseRound, 0;
    mapwarp "poring_c01.gat","prontera.gat",138,185;
    setnpcdisplay "Disguise NPC",794;
    disablenpc "Disguise NPC";
    disablenpc "guesswarp";
    }
    end;
    
    
    OnClock0200:
    OnClock0400:
    OnClock0600:
    OnClock0800:
    OnClock1000:
    OnClock1200:
    OnClock1400:
    OnClock1600:
    OnClock1800:
    OnClock2000:
    OnClock2200:
    OnClock0000:
    if ($guessactive) end;
    set $guessactive, 1;
    announce "The server is starting a Disguise Event now.";
    set $guessbegin, 0;
    sleep 3000;
    if (!$guessactive) end;
    announce "If you want to join, come to the main town, head to Prontera 156 171 and enter the warp portal.";
    enablenpc "guesswarp";
    enablenpc "Disguise NPC";
    sleep 2000;
    announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount;
    sleep 2000;
    if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    announce "The portal is going to close in one minute.";  
    sleep 60000;
    if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
    announce "The portal has been closed.";
    disablenpc "guesswarp";
    sleep 5000;
    if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
    announce "Next Event will start in 2 hours.";
    set $DisguiseRound, 0;
    if(getmapusers("poring_c01") == 0) 
    {
    disablenpc "Disguise NPC";
    set $guessactive, 0;
    end;
    }
    
    donpcevent "Disguise NPC::OnStart";
    end;
    
    OnInit:
    disablenpc "Disguise NPC";
    disablenpc "guesswarp";
    set $guessactive, 0;
    setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1324,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900;
    
    }
    
    //-----------------------------------------------------------------------------------
    //------------------Warp Portal------------------------------------------------------
    prontera,156,171,0 warp guesswarp 2,2,poring_c01,103,95 
    //-----------------------------------------------------------------------------------
    //------------------Map Flags--------------------------------------------------------
    poring_c01 mapflag nowarpto
    poring_c01 mapflag noskill
    poring_c01 mapflag nosave
    poring_c01 mapflag nomemo
    poring_c01 mapflag noteleport
    //-----------------------------------------------------------------------------------
    

    thx /omg

  6. @Matrifox is this the updated one ? http://svn6.assembla.com/svn/ClientSide/Translation_Project/data/msgstringtable.txt

    @Nameless2you i've changed the "announce " part but it's still error when buying

    Here's my script :

    
    case 1: callsub OnBuyItem,7179,50,50,"SZeny",5518,1,0;
    case 2: callsub OnBuyItem,7179,50,50,"SZeny",5374,1,0;
    case 3: callsub OnBuyItem,7179,15,15,"SZeny",5401,1,0;
    case 4: callsub OnBuyItem,7179,15,15,"SZeny",5288,1,0;
    case 5: callsub OnBuyItem,7179,10,10,"SZeny",5377,1,0;
    case 6: callsub OnBuyItem,7179,30,30,"SZeny",5529,1,0;
    case 7: callsub OnBuyItem,7179,30,30,"SZeny",5564,1,0;
    case 8: callsub OnBuyItem,7179,30,30,"SZeny",5423,1,0;
    case 9: callsub OnBuyItem,7179,15,15,"SZeny",5325,1,0;
    

×
×
  • Create New...