youtube
-
Posts
171 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Posts posted by youtube
-
-
good day
can i request about cashpoint
details
one party name PARTYLIST 5members
when i kill this mobs 1514 my partymembers got cashpoints20 all members
same like my points and annouce the partyname kill this mobs
and
1609 i kill this mobs i got 50cashpoints and my party members and annouce the party members this party kill this mobs
this details for mobs
1514=20 cashpoints
1511=30 cashpoints
1548= 40 cashpoints
1609 = 60 cashpoints
-
i try master -
i try not work! i got error and when i type @account say no command unknow
-
this script work EA?
-
done replace your code. but
i got problem from script
-
i got error from script im EA
-
all member got 100 cashpoint?
-
nasa item_db po yan official item yan if wala kang sprite update your kRO Renewal or download mo yung Miruku
-
All castle owners after WoE will receive prize
-
item trade to Cashpoint?
-
this is script how to change the reward item
setarray .Rewards[0], 512,1, // Day 1 513,2, // Day 2 514,3, // Day 3 0,1000; // Day 4 end; }
to
Cashpoint
-
you have script all guild member have cashpoint if the guild have castle. auto reward after woe?
-
i mean the player say the bad words automatic mute for 15mins or 30mins
i use Eathena . this script not working to Ea i think . i need someone help me to fix that script master
-
i mean how to make GRF the data folder
-
Guys how to make a installer for RO from step 1 to finish and release the installer ?
-
then?
-
show your script
-
data/manner? client or SVN?
-
error!
-
yea already done .
-
ah ok master i try
-
//===== EinherjarRO Scripts ================================== //= Daily Prize, OnPCLoginEvent //===== By: ================================================== //= Stolao //===== Current Version: ===================================== //= 1.48 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= A reward system for players who play more frequently //===== Comments: ============================================ //= Todo: //= Revamp Exp and Points System, its kinda meh //===== Additional Comments: ================================= //= 1.00 Daily Prize //= 1.01 Fixed Typo //= 1.02 Removed unessisary calculation //= 1.03 Added a sleep2 for delayed reward //= 1.04 Added dispbottom //= 1.05 Made Clearer //= 1.06 Made Disbutton Dynamic //= 1.07 Added .RewardQnt for configable Reward Quantity //= 1.08 Fixed Typo //= 1.09 Seperated .ZMulti into .Mode and .ZMulti //= 1.0A Changed zeny formula for .Mode 0 //= 1.0B Changed Variable Names, More detailed exsplanations //= 1.0C Fixed typo again lol //= 1.0D Added in .PointType$, can now configure zeny into any point types //= 1.0E Added LoginCount //= 1.0F Made LoginCount Customisable //= 1.10 Changed Variable Names, More detailed exsplanations //= 1.11 Added Wipe feature //= 1.12 Fixed bug, changed "close;" to "close2;" //= 1.13 Changed .LogCount to bitwise //= 1.14 Changed .wipe to a whisper event, per Euphys Suggestion //= 1.15 Changed Formatting of config, per Euphys Suggestion //= 1.16 Added Login Reward Countdown, on each login //= 1.17 Added .PointName$ //= 1.18 Fixed Typo //= 1.19 Added Checkweight //= 1.1A Changed query_sql for $LOGINCOUNT to set //= 1.1B Fixed bug with #DRewardCon, arraysize compersison (Thanks AnnieRuru) //= 1.1C Added meathod for characters online for attachrid //= 1.1D Actually Fixed the 1.1B Bug //= 1.1F Changed zeny formula to remove .ZMulti from mode 0 //= 1.20 Changed .Reminder to .Welcome //= 1.21 Fixed missing details in Welcome Message //= 1.22 Changed .Mode to be bitwise //= 1.23 Added Item enable disable to .Mode //= 1.24 Changed whisper to allow for player Whispers //= 1.25 Added "time" Whisper Command for players, Thanks arzzae for suggestion //= 1.26 Made Whisper commands configable //= 1.27 Made GmLvl for wipe Configable //= 1.28 Fixed "Points" bitwise //= 1.29 Added Exp to .Mode //= 1.2A Optimized Rewards Script a little //= 1.2B Bug Fix with Display message on reciving rewards //= 1.2C Optimize a little more //= 1.2D Added server xp rate to config //= 1.2F Re-added checkweight //= 1.30 Move Checkweight up higher in script, makes more since //= 1.31 Removed XP Dispbutton //= 1.32 Added Buffer //= 1.33 Made BUffer Toggle-able //= 1.34 Made Buffer Dynamic //= 1.35 Optimized Buffer a little //= 1.36 Made Buffer More Dynamic //= 1.37 Optimized Buffer a little more //= 1.38 Fixed a typo in "seem" was "see" //= 1.39 removed "typo" bindatcmds //= 1.3A Fixed bug with sc_, didnt support names had to switch to ids //= 1.3B Fixed bug in buff bonus (time and rate) //= 1.3C Revamped buffs to take only 1 variable (now can only be 32 buffs) //= 1.3D Made Day(s) dynamic //= 1.3E Removed "Time" reqirement from players to check there Next Login Bonus //= 1.3F Added an Else after checkweight //= 1.40 Fixed typo in .BuffInfo //= 1.41 Reorganized rewards script //= 1.42 changed .@i -> .@x in Option & 32 (bug report by rakuzas) //= 1.43 Removed Login Count related scripts, as its not really part of rewards system //= 1.44 Made @loginreward do whole script, instead of relogging, //= 1.45 Removed Disable/Enable for whole script (just remove npc) //= 1.46 Changed A few Description, for easier understanding //= 1.47 Move sleep2 up to prevent possible multi rewards bug //= 1.48 Deleted unnecessary line "if( #DRewardCon == 0 ) set #DRewardCon,1;" //===== Contact Ifo: ========================================= //= [Stolao] //= Email: [email protected] //============================================================ - script LOGIN -1,{ OnWhisperGlobal: OnLoginCmnd: OnPCLoginEvent: sleep2 1000+.Rest*60000; set .@i,(gettime(7)*365*24)+(gettime(8)*24)+gettime(3); set .@g,getarraysize(.Rewards); if(.@i >= (#LastDailyReward + .MinWait)){ if(.@i < #LastDailyReward + .MaxWait){ set #DRewardCon,#DRewardCon+1; } else { set #DRewardCon,1; } if(#DRewardCon*2 > .@g-1){ set .@p,.Rewards[.@g-2]; set .@q,.Rewards[.@g-1]; } else { set .@p,.Rewards[#DRewardCon*2-2]; set .@q,.Rewards[#DRewardCon*2-1]; } if(.Mode&1&&.@p){ if(!checkweight(.@p,.@q)){ dispbottom "You seem to be oveweight, put some stuff away and relog to claim prize"; end; } else { getitem .@p,.@q; dispbottom ""+.@q+" "+getitemname(.@p)+""; } } if(.Mode&2) set .@A,#DRewardCon*.ZMulti; if(.Mode&8) set .@A,.@A+.@q; if(.Mode&2||.Mode&8){ setd .PointType$,getd(.PointType$)+.@A; dispbottom ""+.@A+" "+.PointType$+""; } if(.Mode&4){ set .@B,#DRewardCon*.XPMulti[0]; set .@C,#DRewardCon*.XPMulti[1]; } if(.Mode&16){ set .@B,.@B+.@q; set .@C,.@C+.@q; } if(.Mode&4||.Mode&16){ getexp .@B,.@C; } if(.Mode&32){ for(set .@x,0; .@x < getarraysize(.BuffInfo); set .@x,.@x+4){ if(#DRewardCon % .BuffInfo[.@x+1] == 0) sc_start .BuffInfo[.@x], .BuffInfo[.@x+2]*60000, .BuffInfo[.@x+3]; } } dispbottom "You have collected your daily reward, for "+#DRewardCon+" day"+((DRewardCon>1)?"s":"")+" in a row."; set #LastDailyReward,.@i; } else { dispbottom "You have "+(#LastDailyReward + .MinWait-.@i)+" hours till your next reward"; } end; OnInit: // ----------------------------------------------------------- // Daily Reward // ----------------------------------------------------------- //To Enable @ Command '@LoginReward' unslash next lines // * Needs extra commands for typos // bindatcmd("loginreward" ,"LOGIN::OnLoginCmnd",0,99); //Minimum Hours Between Collecting Daily Reward // Day: 22-24 // Week: 168 set .MinWait,22; //Hours Before Lose Consecutive Daily Rewar // Day: 48-50 // Week: 336 set .MaxWait,50; //Number of mins after logging before collecting prize set .Rest,0; //Type of Points/Zeny earned // eg: CASHPOINTS, Zeny, LoginPoints set .PointType$,"Zeny"; //Toggle // 1: Item | 2: "Points" from Multi | 4: Exp from Multi // 8: "Points" from Days with ItemID of 0 |16: Exp from Days with ItemID of 0 // 32: Gain Buffs Every X Consecutive Days logged in // (a bit value, e.g. 3 = Items & Points from Multi) set .Mode,1+2+4+8+16+32; //Consecutive Day Points Multiplier // * If players login longer than the last set day, // they will keep getting a larger Multiplier set .ZMulti,100; //Consecutive Day Exp Multiplier // <Base Exp>,<Job Exp>; // * If players login longer than the last set day, // they will keep getting a larger Multiplier. setarray .XPMulti,10,10; // Consecutive Days Buff // Each buff contains 4 variables (32 Total Max) // <Type>,<Days>,<Duration>,<Rate>, // Buff 1 // <Type>,<Days>,<Duration>,<Rate>, // Buff 2 // ...; // // Example: 188,7,45,3 // -Every 7th consecutive day logged in Player gains +3 Str for 45 mins // // Type is 188, which references which SC_ to use, SC_INCSTR in this example // -For a full list of SC_ visit the db/const.txt // Days is days buff is applied, in this example 7, so every 7th day, 14,21,28.... // Duration is buff duration is Minuits, in this example 45 mins // Rate is buff strength, in this example player gains 3 Str setarray .BuffInfo ,188,7,45,3 // +3 Str for 45 Mins Every 7th Day ,189,7,45,3 // +3 Agi for 45 Mins Every 7th Day ,190,7,45,3 // +3 Vit for 45 Mins Every 7th Day ,191,7,45,3 // +3 Int for 45 Mins Every 7th Day ,192,7,45,3 // +3 Dex for 45 Mins Every 7th Day ,193,7,45,3 // +3 Luk for 45 Mins Every 7th Day ,194,4,45,25 // +25 Hit for 45 Mins Every 4th Day ,196,4,45,25 // +25 Flee for 45 Mins Every 4th Day ,198,10,60,10 // +10% Hp for 60 Mins Every 10th Day ,199,10,60,10 // +10% Sp for 60 Mins Every 10th Day ,200,13,30,10 // +10% Atk for 30 Mins Every 10th Day ,201,13,30,10 // +10% Matk for 30 Mins Every 10th Day ,257,9,120,50 // +50% Exp for 120 Mins Every 9th Day ,258,9,120,50; // +50% Item Drops for 120 Mins Every 9th Day // Daily Prize items (max 64 days): // <itemID>,<amount>, // Day 1 // <itemID>,<amount>, // Day 2 // ...; // * If players login longer than the last set // day, they will keep getting the last prize. setarray .Rewards[0], 512,1, // Day 1 513,2, // Day 2 514,3, // Day 3 0,1000; // Day 4 end; }
how to change the reward to cashpoint + 20
-
//===== eAthena Script ======================================= //= InGame Forum //===== By =================================================== //= llchrisll //===== Version ============================================== //= 1.0 - Script Made //===== Credits ============================================== //- goddameit for allowing me use his World Chat as example // So that I understood it I wrote it by myself so I didn't really "Copy&Paste" it ;O //====== ToDo List =========================================== //= Adding a pool maybe ;I // //===== Compatible/Created/Tested With ====================================== //= eAthena SQL 14434 Trunk //===== Description ========================================== //= This Script handles an InGame Board as you can call it. // GM's can make announces and player's can post their comments to it. // Or creating an pool. Maybe there will be a Chatroom-like Option too. //===== MySQL Entries ======================================= /* DROP TABLE IF EXISTS `igb_anno`; CREATE TABLE `igb_anno` ( `anno_id` int(10) unsigned NOT NULL, `title` varchar(255) DEFAULT 'Creation Fail', `text` varchar(255) NOT NULL, `author` varchar(255) NOT NULL, `date` varchar(255) DEFAULT '0000-00-00 00:00:00', PRIMARY KEY (`anno_id`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1; DROP TABLE IF EXISTS `igb_com`; CREATE TABLE `igb_com` ( `anno_id` int(10) unsigned NOT NULL, `com_id` int(11) unsigned NOT NULL, `com_txt` varchar(255) NOT NULL DEFAULT 'Test Message', `author` varchar(255) NOT NULL DEFAULT 'None', `date` varchar(255) NOT NULL DEFAULT '0000-00-00 00:00:00', `approved` varchar(255) NOT NULL DEFAULT 'No' ) ENGINE=MyISAM DEFAULT CHARSET=latin1; */ //============================================= - script ChatRoom -1,{ end; OnPCLogoutEvent: if(@b_chat) setd("$@igb_ch_"+@b_chat+"_ppl$["+@igb+"]"),""; end; OnWhisperGlobal: if(@b_chat) { set .@mes$,strcharinfo(0); set .@chat_txt$,"[Chat] ["+strcharinfo(0)+"]: "+@whispervar0$; dispbottom .@chat_txt$; for( set .@a,0; .@a < getarraysize(getd("$@igb_ch_"+@b_chat+"_ppl$")); set .@a,.@a + 1) { if(.@mes$ != set(.t$,getd("$@igb_ch_"+@b_chat+"_ppl$["+.@a+"]")) && attachrid(getcharid(3,.t$))) { dispbottom .@chat_txt$; detachrid; } } } else { dispbottom "[Chat] [Manager]: You didn't join an Room yet."; } end; } prontera,100,100,0 script Board Manager 100,{ set .@n$,"[Board Manager]"; set .gm_lvl,60; mes .@n$; mes "Hello "+ strcharinfo(0)+"!"; query_sql "SHOW TABLES LIKE 'igb_anno'",@ch_IGB$; query_sql "SHOW TABLES LIKE 'igb_com'",@ch_IGB2$; if(@ch_IGB$[0] == "" || @ch_IGB2$[0] == "") { mes "I'm sorry, but the Board has not be installed yet."; close; } mes "How can I help you?"; switch(select("- Join Chat Room (Testing first):- Board Access:- Leave")) { case 1: next; mes .@n$; mes "How this works:"; mes "First you'll have to join an Chat Room, afterwards"; mes "you type into your WhisperBox \"NPC:ChatRoom\"."; mes "Then you type your message you want to post."; next; mes .@n$; if(@b_chat) { mes "You'll have to leave the old chat room first."; mes "before you can join a new one."; if(select("- Leave Chat Room:- Nothing") - 1) close; setd("$@igb_ch_"+@b_chat+"_ppl$["+@igb+"]"),""; set @igb,0; set @b_chat,0; next; mes .@n$; } mes "Now choose which Room you want to join:"; mes "The number in the curles = User Quantity."; select("- #1 ("+getarraysize(getd("$@igb_ch_1_ppl$"))+")", "- #2 ("+getarraysize(getd("$@igb_ch_2_ppl$"))+")", "- #3 ("+getarraysize(getd("$@igb_ch_3_ppl$"))+")"); next; mes .@n$; if(getarraysize(getd("$@igb_ch_"+@menu+"_ppl$")) >= 128) { mes "I'm sorry, this room is full already."; close; } set @b_chat,@menu; for( set .s,0; .s < 128; set .s,.s + 1) { if(!@igb && getd("$@igb_ch_"+@b_chat+"_ppl$["+.s+"]") == "") { setd("$@igb_ch_"+@b_chat+"_ppl$["+set(@igb,.s)+"]"),strcharinfo(0); } } mes "You have joined Room #"+@b_chat+" and took the "+@igb+". Position which was the next free one."; close; case 2: next; set @a_id,0; deletearray @a_title$[0],128; deletearray @a_aut$[0],128; deletearray @a_date$[0],128; mes .@n$; query_sql "SELECT `anno_id` , `title` , `text` , `author` , `date` FROM `igb_anno` WHERE `anno_id` > '0'",@a_id,@a_title$,@a_txt$,@a_aut$,@a_date$; mes "There "+( (@a_id != 1)?"are":"is")+" "+@a_id+" Announce(s)."; if(getgmlevel() > .gm_lvl) { mes "Want to create one?"; if(select("Yes:No") == 1) goto F_CT; } if(!@a_id) goto F_Quit; next; mes .@n$; mes "Info/Rules:"; mes "1.) Don't flame in this \"Forum\"."; mes "2.) Comments only related to the thread are allowed."; mes "3.) There is a delay of 5 Minutes till the next comment."; mes "4.) Double-comment will be prevented automatically."; mes "More will be coming..."; next; mes .@n$; set @an_m$,""; mes "Choose from the titles below."; for( set @a,0; @a < getarraysize(@a_id); set @a,@a + 1) { mes @a_id + ". "+@a_title$[@a]; mes "Created by: "+ @a_aut$[@a]; mes "On "+@a_date$[@a]; mes "=================="; set @an_m$,@an_m$ + "- "+(@a + 1)+".:"; } set @an_m$,@an_m$ + "- Cancel"; if((prompt(@an_m$) - getarraysize(@a_id)) > 0) { goto F_Quit; } else { next; set @ap_m$,""; set @cm_id,0; set @ap,0; set @b,@menu - 1; mes .@n$; mes "You have chosen"; mes @a_title$[@b]; mes "Is that correct?"; if(select("- Yes:- No") == 2) goto F_Quit; next; mes .@n$; mes @a_txt$[@b]; mes " "; mes "What now?"; // while(1) { switch(select("- Create Comment:- Read Comments: "+ ( (getgmlevel() > .gm_lvl)?"- Unapproved Comments:- Delete Comments:":"") + "- Leave")) { case 1: next; mes .@n$; if(getgmlevel() < .gm_lvl && (IGB_Delay > gettimetick(2))) { mes "I'm sorry, but the comment delay is still active."; mes "There are "+ (IGB_Delay - gettimetick(2))+" seconds left."; close; } set IGB_Delay,0; query_sql "SELECT `author` FROM `igb_com` WHERE `anno_id` = '"+@a_id[@b]+"'",@cm_aut$; if(@cm_aut$[getarraysize(@cm_aut$) - 1] == strcharinfo(0)) { mes "Double-Posting is not allowed."; mes "Please wait till another player has posted"; mes "an comment."; //continue; goto F_Quit; } mes "Type now the comment please:"; mes "Maximum 200 letters."; if(input(@an_cm$,1,200) != 0) { mes "Invalid Entry."; //continue; goto F_Quit; } next; mes .@n$; mes "Following will be posted:"; mes " "; mes @an_cm$; if(select("- Confirm:- Leave") - 1) goto F_Quit; //if(select("- Confirm:- Leave") - 1) continue; next; query_sql "SELECT `com_id` FROM `igb_com` WHERE `anno_id` = "+@a_id[@b],@cm_n; query_sql "INSERT INTO `igb_com` ( `anno_id` , `com_id` , `com_txt` , `author` , `date` , `approved` ) VALUES ( '"+@a_id[@b]+"' , '"+(@cm_n + 1)+"' , '"+escape_sql(@an_cm$)+"' , '"+escape_sql(strcharinfo(0))+"' , '"+escape_sql(gettimestr("%Y-%m-%d %H:%M:%S",21))+"' , 'No')"; mes .@n$; mes "Your comment has been saved."; set IGB_Delay,gettimetick(2) + 300; close; case 2: next; query_sql "SELECT `com_id` , `com_txt` , `author` , `date` FROM `igb_com` WHERE `anno_id` = '"+@a_id[@b]+"' AND `approved` = 'Yes'",@cm_id,@cm_txt$,@cm_aut$,@cm_date$; mes .@n$; if(@cm_id[0] != 0) { for( set @a,0; @a < getarraysize(@cm_id); set @a,@a + 1) { mes "Post No.: "+@cm_id[@a]; mes "----------------"; mes @cm_txt$[@a]; mes "----------------"; mes "On "+@cm_date$[@a]; mes "By "+@cm_aut$[@a]; mes "=================="; mes " "; } } else { mes "There are no comments to be displayed."; close; } break; case 3: if(getgmlevel() < .gm_lvl) goto F_Quit; next; mes .@n$; query_sql "SELECT `com_id` , `com_txt` , `author` , `date` FROM `igb_com` WHERE `anno_id` = '"+@a_id[@b]+"' AND `approved` = 'No' ORDER BY `com_id`",@cm_id,@cm_txt$,@cm_aut$,@cm_date$; if(@cm_id[0] != 0) { mes "Here is the list of the unapproved comments:"; next; mes .@n$; for( set @a,0; @a < getarraysize(@cm_id); set @a,@a + 1) { mes " "; mes "Post No.: "+@cm_id[@a]; mes "----------------"; mes @cm_txt$[@a]; mes "----------------"; mes "On "+@cm_date$[@a]; mes "By "+ @cm_aut$[@a]; mes "=================="; set @ap_m$,@ap_m$ + "- "+@cm_id[@a]+".:"; } next; select(@ap_m$); set @ap,@menu - 1; mes .@n$; mes "You have chosen Post No. "+@cm_id[@ap]+","; mes "what now?"; next; switch(select("- Approve:- Delete:- Nothing")) { case 1: mes .@n$; mes "The Post No. "+@cm_id[@ap]+" has been succesfully approved."; query_sql "UPDATE `igb_com` SET `approved` = 'Yes' WHERE `com_id` = '"+@cm_id[@ap]+"' AND `anno_id` = '"+@a_id[@b]+"'"; close; case 2: mes .@n$; mes "The Post No. "+@cm_id[@ap]+" has been succesfully deleted."; query_sql "DELETE FROM `igb_com` WHERE `com_id` = '"+@cm_id[@ap]+"' AND `anno_id` = '"+@a_id[@b]+"'"; close; case 3: goto F_Quit; break; } } else { mes "There are no comments to be displayed."; close; } break; case 4: if(getgmlevel() < .gm_lvl) goto F_Quit; next; set @ap_m$,""; mes .@n$; query_sql "SELECT `com_id` , `com_txt` , `author` , `date` FROM `igb_com` WHERE `anno_id` = '"+@a_id[@b]+"' ORDER BY `com_id`",@cm_id,@cm_txt$,@cm_aut$,@cm_date$; if(@cm_id[0] != 0) { mes "Here is the list of the comments:"; next; mes .@n$; for( set @a,0; @a < getarraysize(@cm_id); set @a,@a + 1) { mes " "; mes "Post No.: "+@cm_id[@a]; mes "----------------"; mes @cm_txt$[@a]; mes "----------------"; mes "On "+@cm_date$[@a]; mes "By "+ @cm_aut$[@a]; mes "=================="; set @ap_m$,@ap_m$ + "- "+@cm_id[@a]+".:"; } next; select(@ap_m$); set @ap,@menu - 1; mes .@n$; mes "You have chosen Post No. "+@cm_id[@ap]+","; mes "what now?"; next; switch(select("Delete:- Nothing")) { case 1: mes .@n$; mes "The Post No. "+@cm_id[@ap]+" has been succesfully deleted."; query_sql "DELETE FROM `igb_com` WHERE `com_id` = '"+@cm_id[@ap]+"' AND `anno_id` = '"+@a_id[@b]+"'"; close; case 2: goto F_Quit; break; } } else { mes "There are no comments to be displayed."; close; } break; case 5: goto F_Quit; break; } } case 3: goto F_Quit; break; F_CT: next; set @an_date$,""; set @an_author$,""; set @anno_id,0; set @anno_txt$,""; set @anno_title$,""; mes .@n$; mes "What title should this announce have?"; mes "Note: Maximum 50 letters."; mes "Type 'Cancel' for aborting."; next; if(input(@anno_title$,1,50) != 0 || @anno_title$ == "Cancel") { mes .@n$; mes "Invalid Title,"; mes "Maximum 50 letters."; goto F_Quit; } mes .@n$; mes "Now type the message you want."; mes "Note: Maximum 200 letters."; mes "Type 'Cancel' for aborting."; next; if(input(@anno_txt$,1,200) != 0 || @anno_txt$ == "Cancel") { mes .@n$; mes "Invalid Message,"; mes "Maximum 200 letters."; goto F_Quit; } query_sql "SELECT `anno_id` FROM `igb_anno`",@a_id; mes .@n$; mes "Result:"; mes " "; mes "Post No.: "+set(@anno_id,@a_id + 1); mes "Title: "+@anno_title$; mes "----------------"; mes @anno_txt$; mes "----------------"; mes "On: "+ set(@an_date$,gettimestr("%Y-%m-%d %H:%M:%S",21)); mes "By: "+ set(@an_author$,strcharinfo(0)); mes "=================="; mes "Is that correct?"; if(select("- Yes:- No") - 1) goto F_Quit; next; mes .@n$; mes "Your announce has been saved"; mes "and broadcasted on the server."; close2; query_sql "INSERT INTO `igb_anno` ( `anno_id` , `title` , `text` , `author` , `date`) VALUES ( '"+@anno_id+"' , '"+escape_sql(@anno_title$)+"' , '"+escape_sql(@anno_txt$)+"' , '"+escape_sql(@an_author$)+"' , '"+escape_sql(@an_date$)+"' )"; announce "New Announce added to the Board!!",0; sleep2 2000; announce "Post No.:"+@anno_id+" - Title: "+@anno_title$+" by "+@an_author$,0; end; } F_Quit: next; mes .@n$; mes "See ya again."; close; }please help me
-
//===== eAthena Script ======================================= //= Security System //===== By =================================================== //= llchrisll //===== Version ============================================== //= 1.0 - Script Made //= 1.1 - Fixed SQL Bug (SQL Injection) - Thanks to ToastofDoom //= 2.0 - Shortened a bit and made it more dynamically // - Removed OnWhisperGlobal // - Renamed variables (always temp character variables ....) // - Added prevention to use "ALT+M" shortcuts and dying via // Attacks like Mob or PvP Maps after Login until the security password has been put //===== Compatible With ====================================== //= Every eAthena MySQL Version //===== Description ========================================== //= Security System - Simple //===== Comments ============================================= //= None.... //============================================================ prontera.gat,150,180,4 script Security Manager 109,{ if (getgmlevel() >= 80) { mes .n$; mes "Which Menu?"; menu "- Player Menu",-,"- GM Menu",M_GM; next; } mes .n$; mes "Hello, "+strcharinfo(0)+"."; mes "What do you wanna do?"; next; switch(select("- Add/Change my Password:- Nothing")) { case 1: if($security_pass == 0 && #security_pass == 1) { set #security_pass, 0; mes .n$; mes "The System isn't enabled."; close; } else if($security_pass == 0 && #security_pass == 0) { mes .n$; mes "The System isn't enabled."; close; } else if($security_pass == 1 && #security_pass == 0) { mes .n$; mes "Hello, "+strcharinfo(0)+""; mes "So you want to set your Password?"; next; menu "- Yes, please.",-,"- Naa, not now.",N_now; setit: mes .n$; // In case the database has not been cleaned before the script has been removed, extra check.... query_sql "SELECT `pass` FROM `security_sys` WHERE `account_id` = '"+getcharid(3)+"'",.@sec_pass$; if(.@sec_pass$ != "") { mes "It seems like that the database hasn't been cleared before removing the script."; mes "I will use your password from before, which is "+.@sec_pass$+"."; set #security_pass,1; close; } mes "Okay, type the password you want."; input .@sec_pass$; next; mes .n$; mes "The Password is:"; mes .@sec_pass$; mes "Is that correct?"; next; if(select("- Yes, it is:- No,repeat please") == 1) { set #security_pass, 1; callfunc "SS_PW",$@serv_mode,2,3,.@sec_pass$; mes .n$; mes "Thank you for your time."; mes "Your Password and IP got saved."; mes "Remember it carefully."; close; } else goto setit; N_now: next; mes .n$; mes "Okay, please come back as soon as possible."; close; } else if($security_pass == 1 && #security_pass == 1) { mes .n$; mes "So you want to change"; mes "your Password?"; if(select("- Yes:- No") == 2) { close; } else { next; mes .n$; mes "Please insert the new Password."; mes "^FF2200 Note: Type \"Cancel\" into"; mes "the box to cancel your attempt.^000000"; input .@ch_pass$; next; mes .n$; if(.@ch_pass$ == "Cancel") { close; } else if( callfunc("SS_PW",$@serv_mode,1,1,.@ch_pass$) == 1) { mes "I'm sorry, but the new"; mes "Password matches the old"; mes "one."; close; } mes "The new password is:"; mes .@ch_pass$; next; mes .n$; mes "Is that correct?"; if(select("- Yes, it is correct:- No, I don't want to change it.") == 2) { next; mes .n$; mes "Okay, see you next time."; close; } next; mes .n$; mes "Thank you for your time."; callfunc("SS_PW",$@serv_mode,2,1,.@ch_pass$); close; } } case 2: close; } M_GM: next; if($sec_table_created == 1) { mes .n$; mes "Hello, "+strcharinfo(0)+"!"; mes "What do you want to do?"; next; switch(select("- Disable/Enable the System"+( ($@serv_mode == 1)?":- Delete Table":"")+":- Nothing") ) { case 1: mes .n$; mes "The Security System is " + ( ($security_pass) ? "^00BB22Enabled^000000." : "^FF2200Disabled^000000."); if($security_pass == 0) { mes "Wanna enable it?"; if(select("- Yes,please:- No,Thanks") == 2) { next; mes .n$; mes "The Security System is still disabled."; close; } next; mes .n$; mes "The Security System is enabled now."; announce "The Security Systen has been enabled.",bc_yellow|bc_all; set $security_pass, 1; close; } else if($security_pass == 1) { mes "Wanna disable it?"; if(select("- Yes,please:- No,Thanks") == 2) { next; mes .n$; mes "The Security System is still enabled."; close; } next; mes .n$; mes "The Security system is disabled now."; announce "The Security Systen has been disabled.",bc_yellow|bc_all; set $security_pass, 0; close; } case 2: if($@serv_mode == 0) close; mes .n$; mes "Do you really want to delete the whole table?"; switch(select("- Yes, I want!!:- Noooo, I misclicked ya o_O")) { case 1: next; mes .n$; mes "Okay, it's a 'One-Way Ticket'!!!!"; query_sql "DROP TABLE `security_sys`"; set $sec_table_created,0; set $security_pass,0; close; case 2: next; mes .n$; mes "Okay, No Problem."; close; } case 3: next; mes .n$; mes "Goodbye, see ya next time."; close; } } else { mes .n$; mes "There isn't a table in your database yet."; mes "Want to create?"; next; if(select("- Yes, I want to create one:- No, don't wanna") == 1) { mes .n$; mes "The Table is created now."; query_sql "CREATE TABLE IF NOT EXISTS `security_sys` ( `last_ip` VARCHAR( 100 ) , `account_id` INT( 11 ) , `pass` VARCHAR( 32 ))"; set $sec_table_created, 1; set $security_pass, 1; close; } mes .n$; mes "The table wasn't created."; close; } OnInit: set .n$,"[Security Manager]"; //======= Server Mode ======= //- 0 > TxT //- 1 > SQL set $@serv_mode,0; if($@serv_mode == 0) // If Server Mode is TXT, set this to 1. set $sec_table_created,1; end; } - script SS_PW_Login -1,{ end; OnPCLoginEvent: set .@n$,"[Security Manager]"; // Server Name set .@serv_name$,"<Server Name>"; // Mail Address set .@serv_mail$,"<Server Mail Address>"; // ========== System is offline ======= if($security_pass == 0) { // Either Password has not been set or the system was temporarly down if(#security_pass == 0 || #security_pass == 3) end; // Password is set but system offline else if(#security_pass == 1) { announce "The Security System is momentally offline.",bc_red|bc_self; set #security_pass,3; // System Offline but Jail active } else if(#security_pass == 2) set #security_pass,0; // ============= System is online ============= } else if($security_pass == 1) { // Checking if the Server Mode has been changed: if(#sec_info != $@serv_mode) { announce .@n$+": Seems like the Server Mode has been changed....",bc_red|bc_self; set .@pw$,callfunc("SS_PW",$@serv_mode,1,1,"mode"); if( .@pw$ == "-2") // Checking for available password set #security_pass,0; // I know this is unsecure, but until the I make an Password Recovery function (somewhere in the future q.q), it should be enough else announce .@n$+": It seems like you got an password for this mode already, which is \""+.@pw$+"\".",bc_blue|bc_self; set #sec_info,$@serv_mode; } // No Password set yet if(#security_pass == 0) { mes .@n$; mes "Your Security Password hasn't been set yet."; mes "Please come to me and set it."; close; // Jail..... } else if(#security_pass == 2) goto W_Jail; // System was temporarly offline else if(#security_pass == 3) { announce "The Security System is back online.",bc_red|bc_self; set #security_pass,1; // Password was set } else if(#security_pass == 1) { // Check if Password was set if( callfunc("SS_PW",$@serv_mode,1,2) == 1) goto PW_PASS; // IP Check (SQL Only) sc_start 112,999999,1; //Berserk State, not able to talk/using commands pcblockmove getcharid(3),1; // Preventing from moving atcommand "@battleignore"; // Preventing the player from dying from attacks set @lock,1; mes .@n$; mes "Please insert the Password for your own Security."; next; input .@pass$; if( callfunc("SS_PW",$@serv_mode,1,1,.@pass$) == 1) goto PW_PASS; // Inserted Password Check mes .@n$; mes "The Password you typed is wrong."; mes "You got one more chance to login."; next; input .@pass$; if( callfunc("SS_PW",$@serv_mode,1,1,.@pass$) == 1 ) goto PW_PASS; mes .@n$; mes "You typed the Password wrong twice."; mes "You will be warped to the Jail now."; mes "After Login in, you have to write the password again and if you are write it"; mes "again wrong your account will be blocked."; close2; atcommand "@jail "+strcharinfo(0); set #security_pass,2; sc_end 112; pcblockmove getcharid(3),0; atcommand "@battleignore"; set @lock,0; sleep2 1500; atcommand "@kick "+strcharinfo(0); } } end; // Password Input Passed PW_PASS: mes .@n$; mes "You have successfully logged in. Have Fun on "+.@serv_name$+"."; close2; // Checking if the player has a different IP then before and update it accordingly. if(@ip_n) { callfunc("SS_PW",$@serv_mode,2,2,@ip_new$); set @ip_n,0; set @ip_new$,""; } if(@lock) { sc_end 112; pcblockmove getcharid(3),0; atcommand "@battleignore"; percentheal 100,100; set @lock,0; } end; W_Jail: sc_start 112,999999,1; //Berserk State, not able to talk/using commands pcblockmove getcharid(3),1; // Preventing from moving mes .@n$; mes "Please type the 'correct' Password now or your account will be blocked"; mes "and you have to write an e-mail to \""+.@serv_mail$+"\" with the content of the right Password."; next; mes .@n$; mes "Example:"; mes "Subject: Security System - Account Unblock"; mes "Text: Account Name: *x*"; mes " Password: *x*"; next; mes .@n$; mes "Start please:"; next; input .@pass$; if( callfunc("SS_PW",$@serv_mode,1,1,.@pass$) == 1 ) { set #security_pass,1; sc_end 112; pcblockmove getcharid(3),0; percentheal 100,100; atcommand "@unjail "+strcharinfo(0); goto PW_PASS; } mes .@n$; mes "The Password you typed is wrong."; mes "Your Account will be blocked now."; close2; atcommand "@block "+strcharinfo(0); end; } function script SS_PW { // getarg(0) == Server Mode // getarg(1) == Data Type // - 1= Read // - 2= Write // getarg(2) == Read/Write Type // - 1=PW // - 2=IP (SQL only) // - 3=New Entry // getarg(3) == Data Value switch(getarg(2)) { case 1: if(getarg(0) == 1) { // SQL Mode if(getarg(1) == 1) { // Data Type - Read query_sql "SELECT `pass` FROM `security_sys` WHERE `account_id` = '"+getcharid(3)+"'",.@sec_pass$; if(getarg(3) == .@sec_pass$) return 1; else if(getarg(3) == "mode") if(.@sec_pass$ == "") return -2; else return .@sec_pass$; else return -1; } else if(getarg(1) == 2) // Data Type - Write query_sql "UPDATE `security_sys` SET `pass` = '"+escape_sql(getarg(3))+"' WHERE `account_id` = '"+getcharid(3)+"'"; return; } else if(getarg(0) == 0) { // TXT Mode if(getarg(1) == 1) // Data Type - Read if(getarg(3) == #sec_pass$) return 1; else if(getarg(3) == "mode") if(#sec_pass$ == "") return -2; else return #sec_pass$; else return -1; else if(getarg(1) == 2) // Data Type - Write set #sec_pass$,getarg(3); return; } case 2: // Checking if the server mode is SQL and checks the IP's afterwards if(getarg(0) == 0) return 1; if(getarg(1) == 1) { // Data Type - Read query_sql "SELECT `last_ip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",.@last_ip$; query_sql "SELECT `last_ip` FROM `security_sys` WHERE `account_id` = '"+getcharid(3)+"'",.@last_ip2$; if(.@last_ip$ == .@last_ip2$) return 1; else { set @ip_n,1; // Got new IP > Update after Password Check passed set @ip_new$,.@last_ip$; // IP Itself return -1; } } else if(getarg(1) == 2) // Data Type - Write query_sql "UPDATE `security_sys` SET `last_ip` = '"+getarg(3)+"' WHERE `account_id` = '"+getcharid(3)+"'"; case 3: if(getarg(0) == 1) { // SQL Mode query_sql "SELECT `last_ip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",.@last_ip$; query_sql "INSERT INTO `security_sys` (`last_ip` , `account_id` , `pass`) VALUES ('"+.@last_ip$+"' , '"+getcharid(3)+"' , '"+escape_sql(getarg(3))+"')"; } else if(getarg(0) == 0) // TXT Mode set #sec_pass$,getarg(3); return; } }please help me this
R>Cashpoint in a party
in Scripting Support
Posted
yea same but i think this script is divide to how many party member i want if i kill
1514=20 cashpoints
1511=30 cashpoints
1548= 40 cashpoints
1609 = 60 cashpoints
then my party member same my Cashpoints
LETS SAY I KILL THIS 1609 ID MOB I GOT MY CASHPOINT IS 60 AND MY PARTY MEMBERS GOT 60CASHPOINTS EACH. NOT DIVIDED
SAME THE OTHER ID MOBS 1514 , 1511 ,1548