Jump to content

Amidamaru

Members
  • Posts

    21
  • Joined

  • Last visited

Profile Information

  • Gender
    Male
  • Location
    Trier

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Amidamaru's Achievements

Poring

Poring (1/15)

2

Reputation

1

Community Answers

  1. //===== Hourly Points Script ========================================= //===== By: ========================================================== //= GorthexTiger modified by Nibi //===== Current Version: ============================================= //= 1.4.1 //===== Compatible With: ============================================= //= Any eAthena Version //===== Description: ================================================= //= Get Points every successful hours of gameplay, you cannot get //= the points even if you miss a second or a minute. A player will //= get a very big bonus if they played 3 hours consecutively //= or without logging out of the game. If the player is vending //= the script will then stop. //===== Additional Comments: ========================================= //= You can modify the script to your liking. //= The default points is Free Points change it anyway if you like. //= 1.1 = Check Chatting too //= 1.2 = 5 Minute Idle Check & @at/@autotrade check. //= 1.3 = Corrected the current balance line on 12 Hours Consecutive //= 1.4 = Added command to check remaining time and updated idle check. (Skorm) //= 1.4.1 = Modified the msgs to display according to .timer. (Skorm) //==================================================================== - script hourlypoints3 -1,{ OnPointGet: //Check for idle. while(checkvending() >= 1 || checkchatting() == 1 || checkidle() >= .idle) { if( .@mes$ == "" ) { dispbottom set( .@mes$, "The hourly points event stopped because you were vending, chatting, or idle!" ); set @hourly_points_timer, 0; } sleep2 .delay; } @consecutive_timer++; .@time_string$ = Time2Str( @consecutive_timer * ( .timer / 1000 ) ); dispbottom "You received "+.points+" Free Point(s) by staying ingame for 1 hour."; #KAFRAPOINTS = #KAFRAPOINTS + .points; dispbottom "Current Balance = "+#KAFRAPOINTS+" Free Point(s)"; @consecutive_bonus++; //Check for consecutive timer. if(@consecutive_bonus == .cdelay) { @consecutive_bonus = 0; #KAFRAPOINTS = #KAFRAPOINTS + .cpoints; dispbottom "You receive a bonus "+.cpoints+" Free Point(s) by playing for minimum 3 hours consecutively!!!"; dispbottom "Current Balance = "+#KAFRAPOINTS+" Free Point(s)"; } OnPCLoginEvent: addtimer .timer,"hourlypoints3::OnPointGet"; @hourly_points_timer = gettimetick(2) + ( .timer / 1000 ); end; OnCheck: message strcharinfo(0),@hourly_points_timer ? Time2Str( @hourly_points_timer )+" Remaining.":"Something went wrong relog!"; end; OnInit: bindatcmd "check","hourlypoints3::OnCheck"; //@check to view time till next point. .timer = 1000*60*60; //Timer in milliseconds. ( Default: 1000*60*60 [ = 1 Hour ] ) .cdelay = 3; //Delay before receiving the consecutive bonus. ( Default: 3 [ { ~ 3 Hours } *Using default timer ] ) .cpoints = 10; //Points gained for consecutive time online. ( Default: 10 ) .points = 1; //Normal points gained. ( Default: 1 ) .delay = 1000; //Delay for idle re-check check. ( Default: 1000 [ = 1 Second ] ) .idle = 60*5; //Player is idle after not moving for this many seconds. ( Default: 60*5 [ = 5 Minutes ] ) } Here, you may use this hourlypoints script. i've tested and it's functioning in my server each hour (except idle or vending) you get 1 #KAFRAPOINTS or Freepoint you can change into getitem instead of #KAFRAPOINTS CMIIW
  2. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ * * ~~~~~~~~ Euphy's MVP Ladder v1.3 ~~~~~~~~ * * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ prontera,144,197,3 script MVP Ladder 891,{ mes "[Rank MVP]"; mes "Hello."; mes "What are you doing here"; next; switch(select("Check Ranking.","My points.",( getgmlevel() >= 99 ) ? "RESET":"" ,"Nothing...")) { case 1: mes "[Rank MVP]"; query_sql("SELECT char_id, CAST(`value` AS SIGNED) FROM `char_reg_num` WHERE `key` = 'MVP_Rank' ORDER BY CAST(`value` AS SIGNED) DESC LIMIT 20",.@cid,.@value); for(set .@i,0; .@i<getarraysize(.@cid); set .@i,.@i+1) { query_sql("SELECT `name` FROM `char` WHERE char_id = "+.@cid[.@i]+";",.@j$); set .@name$[.@i], .@j$; } if (!getarraysize(.@cid)) mes "The rankings are empty."; else for(set .@i,0; .@i<getarraysize(.@cid); set .@i,.@i+1) mes "["+(.@i+1)+"] "+.@name$[.@i]+" ~ "+.@value[.@i]+" kills"; close; case 2: mes "[Rank MVP]"; mes "You killed "+((MVP_Rank)?"^0055FF"+MVP_Rank:"no")+"^000000 MVP"+((MVP_Rank == 1)?".":"s."); close; case 3: if ( select( "Confirm","Cancel" ) == 1 ) { query_sql("UPDATE `char_reg_num` SET `value` = '0' WHERE `key` ='MVP_Rank'"); close2; addrid(0); MVP_Rank = 0; end; } close; default: close; } OnNPCKillEvent: if (getmonsterinfo(killedrid,22)) { set MVP_Rank, MVP_Rank+1; if (MVP_Rank == 1) query_sql("INSERT INTO `char_reg_num` (`char_id`,`key`,`index`,`value`) VALUES ("+getcharid(0)+",'MVP_Rank','0',1)"); else query_sql("UPDATE `char_reg_num` SET `value` = '"+MVP_Rank+"' WHERE char_id = "+getcharid(0)+" AND `key` ='MVP_Rank'"); dispbottom "~ You killed "+MVP_Rank+" MVP"+((MVP_Rank == 1)?"":"s")+". ~"; dispbottom " ~ Reward: Cash + 1 ~ "; set #CASHPOINTS, #CASHPOINTS + 1; specialeffect2 313; } end; OnInit: waitingroom "MVP LADDER!",0; } Here, I've edited @Euphy MvP Ladder that @Emistry edited. (wrong bracket in switch-case) Sorry for editing without permission and thank you for sharing the script
  3. Hello Guys, I need help to modify a normal healer NPC, where it cost money for each heal and the higher their level is, the more it costs. can someone please help me? Thank you!
  4. Hello Guys, I really need your help / support for these scripts. So here's the chronology, First i am using this hourly points script The @hourly command is working but until 1 hour. The Cash Point won't add. So, i tried using another script provided like this: It loads but when i try using @ctr command to check the time remaining. the "Map Server" is reporting an error: [Error]: npc_event: event not found [hourlypoints::OnCmdHour] Sorry for the long post. Please help and thank you for helping.
  5. alright, it's been fixed. thank you. It was 4 Spaces instead of 1 Tab
  6. Hello everyone, i need help with this script. It is written in my Map Server: [Error]: npc_parsefile: Unknown syntax in file 'path file' Line '1' Stopping... and btw i am using this script - script hourly_point_main -1,{ OnInit: .max_hour = 5; .duration = 90; .npc_name$ = strnpcinfo(3); bindatcmd "hourly", .npc_name$ + "::OnCheck"; end; OnClock0000: query_sql( "DELETE FROM acc_reg_num` WHERE `key` = '#daily_hour_count' AND `account_id` IN ( SELECT `account_id` FROM `char` WHERE `login` = 0 GROUP BY `account_id` ) " ); addrid(0); #daily_hour_count = -1; OnUpdate: deltimer .npc_name$+"::OnUpdate"; #daily_hour_count++; switch ( #daily_hour_count ) { case 1: #CASHPOINT += 1; getitem 512,1; break; case 2: #CASHPOINT += 2; getitem 512,2; break; case 3: #CASHPOINT += 3; getitem 512,3; break; case 4: #CASHPOINT += 4; getitem 512,4; break; case 5: #CASHPOINT += 5; getitem 512,6; break; default: break; } OnPCLoginEvent: if ( #daily_hour_count < .max_hour ) { @timer = gettimetick(2) + .duration; addtimer ( .duration * 1000 ), .npc_name$+"::OnUpdate"; } if ( #daily_hour_count ) dispbottom "[ Hourly Rewards ] " + #daily_hour_count + "/" + .max_hour + " hour" + ((#daily_hour_count > 1)?"s":"") + " played!",0x9ae2d7; end; OnCheck: .@min = (@timer - gettimetick(2))/60; .@sec = (@timer - gettimetick(2))%60; dispbottom "[ Hourly Rewards ] Your next reward will be achieved in " + ((.@min)? "[ " + .@min + " ] minute" + ((.@min > 1)?"s":""):"") + ((.@min && .@sec)? " and ":"") + ((.@sec)? "[ " + .@sec + " ] second" + ((.@sec > 1)?"s":""):"") + "!",0x9ae2d7; end; } The code souce is from: @Haziel i tried to copy and reloadnpc it came out like this Really appreciate for the help and sorry for the long post.
  7. I haven't tested it yet, but the video in the linked script shows exactly what I wanted it to do. Thanks!
  8. I tested just now. No costume sprite shows up, but the original headgear's sprite sadly disappears. Seems like this is impossible to resolve. Still, thanks to those who answered.
  9. No. What I mean is how can one make a costume headgear that does not mask the original appearance of a character. For example, if someone has a Poring Hat worn on his normal equipment and this "blank" headgear on the corresponding costume slot, then that someone retains the appearance of his/her Poring Hat even though this "blank" headgear should overwrite that appearance. It's basically a costume not acting like a costume, but occupying the costume slot nonetheless because it may have certain effects to it.
  10. The issue is somewhat trivial, but I'm slightly annoyed at the lack of spacing before the "- X obtained." message and after the "Beloved" tag on named pets. Which files and parts thereof do I have to edit for adjusting the spaces?
  11. By "blank" costume headgear, I mean a headgear that can be equipped on the costume slot while retaining the original appearance of the character. For example, when a player is wearing both a Poring Hat and this specific costume, the Poring Hat sprite becomes visible instead. Any effects that this costume headgear is intended to have still apply, however. Ideally, I am hoping one of its type for each costume slot (except the armor slot, which already works like this). Is it possible to implement a costume headgear that has these specifications? If so, how?
  12. Hello, I want to request a script that enable player to afk with "@afk" command. and it's enabled while vending. Please help. Thank you.
  13. Hello.. i want to ask does anyone has this "Keyboard Event Script" ? Thank you
  14. Hello @Emistry i want to ask, may i use your keyboard warrior event script for my server? thank you for your reply
  15. Hello, i want to ask or request, do anyone has a Stylist NPC script that have a vast (huge) variation or Hair Style, Hair Color, Cloth Color. i played a pserver before, and this server uses this stylist NPC with around 500+ colors and around 200+ Style Thank you so much for the reply.
×
×
  • Create New...