|
|
Outline ·
[ Standard ] ·
Linear+
Added Features On your TitleBar, OpenKore 1.9 Tested
| maztahv00d00 |
Apr 23 2006, 11:11 AM
|

Chaos BlackSmith
    
Race: Zombies
Posts: 245
Spawned: 8 Apr 06
From: pRO Chaos
Spawn ID: 4,133

|
Ever wanted to see how many zeny you have and how many times you died w/out typing "exp" or "s" in your console? Follow this instruction as is: 1. Make a backup of your /src/functions.pl 2. Use Wordpad or Notepad, open the functions.pl 3. Look/find the string "# Set interface title" w/out the quotes 4. This is the original code:#============================= # Set interface title my $charName = $chars[$config{'char'}]{'name'}; $charName .= ': ' if defined $charName; if ($conState == 5) { my ($title, $basePercent, $jobPercent, $weight, $pos);
$basePercent = sprintf("%.2f", $chars[$config{'char'}]{'exp'} / $chars[$config{'char'}]{'exp_max'} * 100) if $chars[$config{'char'}]{'exp_max'}; $jobPercent = sprintf("%.2f", $chars[$config{'char'}]{'exp_job'} /$ chars[$config{'char'}]{'exp_job_max'} * 100) if $chars[$config{'char'}]{'exp_job_max'}; $weight = int($chars[$config{'char'}]{'weight'} / $chars[$config{'char'}]{'weight_max'} * 100) . "%" if $chars[$config{'char'}]{'weight_max'}; $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} $field{'name'}" if ($char->{pos_to} && $field{'name'});
$title = "${charName} B$chars[$config{'char'}]{'lv'} ($basePercent%), J$chars[$config{'char'}]{'lv_job'}($jobPercent%) : w$weight${pos} - $Settings::NAME"; $interface->title($title);
} elsif ($conState == 1) { $interface->title("${charName}Not connected - $Settings::NAME"); } else { $interface->title("${charName}Connecting - $Settings::NAME"); }#============================= 5. Replace it with this:#============================= # Set interface title my $charName = $chars[$config{'char'}]{'name'}; $charName .= ': ' if defined $charName; if ($conState == 5) { my ($title, $basePercent, $jobPercent, $weight, $pos, $myzeny, $mydeath);
$basePercent = sprintf("%.2f", $chars[$config{'char'}]{'exp'} / $chars[$config{'char'}]{'exp_max'} * 100) if $chars[$config{'char'}]{'exp_max'}; $jobPercent = sprintf("%.2f", $chars[$config{'char'}]{'exp_job'} /$ chars[$config{'char'}]{'exp_job_max'} * 100) if $chars[$config{'char'}]{'exp_job_max'}; $weight = int($chars[$config{'char'}]{'weight'} / $chars[$config{'char'}]{'weight_max'} * 100) . "%" if $chars[$config{'char'}]{'weight_max'}; $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} $field{'name'}" if ($char->{pos_to} && $field{'name'}); $myzeny = int($char->{'zenny'}); $mydeath = int($char->{'deathCount'}); $title = "${charName} B$chars[$config{'char'}]{'lv'} ($basePercent%), J$chars[$config{'char'}]{'lv_job'}($jobPercent%) (Zennies: $myzeny) (Death: $mydeath) : w$weight${pos} - modified by maztahv00d00"; $interface->title($title);
} elsif ($conState == 1) { $interface->title("${charName}Not connected - $Settings::NAME"); } else { $interface->title("${charName}Connecting - $Settings::NAME"); }#============================= Of course, you will change the name ... hehehe .... This has been tested with Openkore 1.9 This post has been edited by maztahv00d00: Apr 23 2006, 11:16 AM
--------------------
"There is no greater HONOR than to protect your GUILD and COUNTRY."REMEMBER: - Be patient enough to wait for the answers, there's always the manual to refer if you're so eager /gg- Stop buzzing me while I'm working, I can still read your messages though, again patience.Can't catch up? READ THE MANUAL.
|
|
|
|
|
| blueknight |
Apr 24 2006, 04:46 PM
|

Simpleng Botter
         
Race: Super Moderators
Posts: 2,016
Spawned: 22 Nov 04
Spawn ID: 9

|
Lets get some feedback with the some people... wala kasi akong time para matest yan e... for the mean time i-pin natin to... This post has been edited by blueknight: Apr 24 2006, 04:47 PM
--------------------
|
|
|
|
|
| blueknight |
Apr 25 2006, 02:58 AM
|

Simpleng Botter
         
Race: Super Moderators
Posts: 2,016
Spawned: 22 Nov 04
Spawn ID: 9

|
sure! why not.... mas maganda sana kung pati HP and SP pede i-display yung kagaya sa xvkore
--------------------
|
|
|
|
|
| maztahv00d00 |
Apr 25 2006, 02:52 PM
|

Chaos BlackSmith
    
Race: Zombies
Posts: 245
Spawned: 8 Apr 06
From: pRO Chaos
Spawn ID: 4,133

|
This is the modified titlebar for Openkore, tested on either WXSTART.EXE and START.EXE.... As per requested: Instructions: 1. Make a backup of your /src/functions.pl 2. Use Wordpad or Notepad, open the functions.pl 3. Look/find the string "# Set interface title" w/out the quotes 4. This is the original code: #============================= # Set interface title my $charName = $chars[$config{'char'}]{'name'}; $charName .= ': ' if defined $charName; if ($conState == 5) { my ($title, $basePercent, $jobPercent, $weight, $pos);
$basePercent = sprintf("%.2f", $chars[$config{'char'}]{'exp'} / $chars[$config{'char'}]{'exp_max'} * 100) if $chars[$config{'char'}]{'exp_max'}; $jobPercent = sprintf("%.2f", $chars[$config{'char'}]{'exp_job'} /$ chars[$config{'char'}]{'exp_job_max'} * 100) if $chars[$config{'char'}]{'exp_job_max'}; $weight = int($chars[$config{'char'}]{'weight'} / $chars[$config{'char'}]{'weight_max'} * 100) . "%" if $chars[$config{'char'}]{'weight_max'}; $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} $field{'name'}" if ($char->{pos_to} && $field{'name'});
$title = "${charName} B$chars[$config{'char'}]{'lv'} ($basePercent%), J$chars[$config{'char'}]{'lv_job'}($jobPercent%) : w$weight${pos} - $Settings::NAME"; $interface->title($title);
} elsif ($conState == 1) { $interface->title("${charName}Not connected - $Settings::NAME"); } else { $interface->title("${charName}Connecting - $Settings::NAME"); }#============================= 5. Modified code: #============================= # Set interface title my $charName = $chars[$config{'char'}]{'name'}; $charName .= ': ' if defined $charName; if ($conState == 5) { my ($title, $basePercent, $jobPercent, $weight, $pos, $myzeny, $mydeath, $myHP, $mySP); $basePercent = sprintf("%.2f", $chars[$config{'char'}]{'exp'} / $chars[$config{'char'}]{'exp_max'} * 100) if $chars[$config{'char'}]{'exp_max'}; $jobPercent = sprintf("%.2f", $chars[$config{'char'}]{'exp_job'} /$ chars[$config{'char'}]{'exp_job_max'} * 100) if $chars[$config{'char'}]{'exp_job_max'}; $weight = int($chars[$config{'char'}]{'weight'} / $chars[$config{'char'}]{'weight_max'} * 100) . "%" if $chars[$config{'char'}]{'weight_max'}; $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} $field{'name'}" if ($char->{pos_to} && $field{'name'}); $myHP = sprintf("%.2f", percent_hp($char)); $mySP = sprintf("%.2f", percent_sp($char)); $myzeny = formatNumber($char->{'zenny'}); $mydeath = int($char->{'deathCount'}); $title = "${charName} B$chars[$config{'char'}]{'lv'} ($basePercent%), J$chars[$config{'char'}]{'lv_job'}($jobPercent%)(HP: $myHP)(SP: $mySP)(Zenny: $myzeny)(Death: $mydeath) : w$weight${pos} - maztahv00d00 titlebar ver 1.0"; $interface->title($title); } elsif ($conState == 1) { $interface->title("${charName}Not connected - maztahv00d00 titlebar ver 1.0"); } else { $interface->title("${charName}Connecting - maztahv00d00 titlebar ver 1.0"); } #============================= COOL!!!!
--------------------
"There is no greater HONOR than to protect your GUILD and COUNTRY."REMEMBER: - Be patient enough to wait for the answers, there's always the manual to refer if you're so eager /gg- Stop buzzing me while I'm working, I can still read your messages though, again patience.Can't catch up? READ THE MANUAL.
|
|
|
|
|
| blueknight |
Apr 25 2006, 03:25 PM
|

Simpleng Botter
         
Race: Super Moderators
Posts: 2,016
Spawned: 22 Nov 04
Spawn ID: 9

|
Nice.... Here is the output...

--------------------
|
|
|
|
|
| Chrisha |
Apr 29 2006, 11:11 AM
|

Advanced Member
   
Race: Zombies
Posts: 145
Spawned: 12 May 05
From: OZ Island
Spawn ID: 1,366

|
thanks for this added feature on title bar... i also used to edit my functions.pl and works fine here's my screeny: (newbie account  )  CODE: (tested on both WXSTART.EXE and START.EXE) # Set interface title my $charName = $chars[$config{'char'}]{'name'}; $charName .= ': ' if defined $charName; if ($conState == 5) { my ($title, $basePercent, $jobPercent, $weight, $pos, $myzeny, $mydeath, $myHP, $mySP, $signZ, $signDeath, $signHP, $signSP);
$basePercent = sprintf("%.2f", $chars[$config{'char'}]{'exp'} / $chars[$config{'char'}]{'exp_max'} * 100) if $chars[$config{'char'}]{'exp_max'}; $jobPercent = sprintf("%.2f", $chars[$config{'char'}]{'exp_job'} /$ chars[$config{'char'}]{'exp_job_max'} * 100) if $chars[$config{'char'}]{'exp_job_max'}; $weight = int($chars[$config{'char'}]{'weight'} / $chars[$config{'char'}]{'weight_max'} * 100) . "%" if $chars[$config{'char'}]{'weight_max'}; $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} $field{'name'}" if ($char->{pos_to} && $field{'name'}); $myHP = sprintf("%.2d", percent_hp($char)); $mySP = sprintf("%.2d", percent_sp($char)); $myzeny = formatNumber($char->{'zenny'}); $signZ = sprintf("z"); $signDeath = sprintf("death"); $signHP = sprintf("HP"); $signSP = sprintf("SP"); $mydeath = int($char->{'deathCount'}); $title = "${charName} B$chars[$config{'char'}]{'lv'}($basePercent%)/J$chars[$config{'char'}]{'lv_job'}($jobPercent%) |$myHP%$signHP/$mySP%$signSP| $myzeny$signZ $mydeath$signDeath | w$weight${pos} - by Chrisha"; $interface->title($title);
} elsif ($conState == 1) { $interface->title("${charName}Non-Aggressive Mode - CTB ver 1.0"); } else { $interface->title("${charName}Aggressive Mode - CTB ver 1.0"); }
--------------------

|
|
|
|
|
| bulokako |
Jun 12 2006, 03:41 AM
|

Spammer
    
Race: Zombies
Posts: 213
Spawned: 6 Jan 06
Spawn ID: 3,343

|
wala bang pang 1.6.x? kasi wala na ata yung 1.9 sa openkore site eh  well kung meron man hindi ko siya makita wala na siya dun sa downloads section tsaka medyo tumingin tingin ako sa dun sa forums
--------------------
Please Don't  I'm not always correct, so if you think I'm wrong, please correct me kung meron kang gustong hanapin, USE THE SEARCH FUNCTION!!!!!!!!!!!!!
|
|
|
|
|
| blueknight |
Jun 12 2006, 01:28 PM
|

Simpleng Botter
         
Race: Super Moderators
Posts: 2,016
Spawned: 22 Nov 04
Spawn ID: 9

|
I've just checked it right now... andun pa rin naman sya sa download section
--------------------
|
|
|
|
|
| maximus |
Jun 12 2006, 03:48 PM
|

Advanced Member
   
Race: Zombies
Posts: 113
Spawned: 21 Oct 05
Spawn ID: 2,326

|
|
|
|
|
|
| borlet |
Jul 8 2006, 03:24 AM
|
Newbie

Race: Humans
Posts: 3
Spawned: 6 Jul 06
Spawn ID: 4,768

|
QUOTE(maximus @ Jun 12 2006, 03:48 PM) wat do u mean?pkiliwanagan lng poh... title bar is great!galing!!sna pde rin ma modify "ks" sa openkore ehehe
|
|
|
|
|
| RenzLuigi |
Jul 9 2006, 01:16 PM
|

Nuclear Kuneho
       
Race: Vampires
Posts: 654
Spawned: 22 Mar 05
From: 127.0.0.1
Spawn ID: 497

|
ModifiedTitlebar: Not working in OpenKore SVN
hehe.. la lang.. ayaw gumana eh.. or mali lang ginawa ko.. pki-tngin nga kung anong iba ng functions.pl ko.. e2 po:CODE my $charName = $chars[$config{'char'}]{'name'}; my $title; $charName .= ': ' if defined $charName; if ($conState == 5) { my ($basePercent, $jobPercent, $weight, $pos);
$basePercent = sprintf("%.2f", $chars[$config{'char'}]{'exp'} / $chars[$config{'char'}]{'exp_max'} * 100) if $chars[$config{'char'}]{'exp_max'}; $jobPercent = sprintf("%.2f", $chars[$config{'char'}]{'exp_job'} / $chars[$config{'char'}]{'exp_job_max'} * 100) if $chars[$config{'char'}]{'exp_job_max'}; $weight = int($chars[$config{'char'}]{'weight'} / $chars[$config{'char'}]{'weight_max'} * 100) . "%" if $chars[$config{'char'}]{'weight_max'}; $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} $field{'name'}" if ($char->{pos_to} && $field{'name'});
# Translation Comment: Interface Title with character status $title = TF("%s B%s (%s), J%s (%s) : w%s%s - %s", ${charName}, $chars[$config{'char'}]{'lv'}, $basePercent.'%', $chars[$config{'char'}]{'lv_job'}, $jobPercent.'%', $weight, ${pos}, $Settings::NAME);
} elsif ($conState == 1) { # Translation Comment: Interface Title $title = TF("%sNot connected - %s", ${charName}, $Settings::NAME); } else { # Translation Comment: Interface Title $title = TF("%sConnecting - %s", ${charName}, $Settings::NAME); } my %args = (return => $title); Plugins::callHook('mainLoop::setTitle',\%args); $interface->title($args{return});
Benchmark::end("mainLoop_part3") if DEBUG;
Plugins::callHook('mainLoop_post'); Benchmark::end("mainLoop") if DEBUG; ang hirap i-edit.. d ko alam kung anong mali ko..
--------------------
|
|
|
|
|
| maztahv00d00 |
Aug 11 2007, 07:07 AM
|

Chaos BlackSmith
    
Race: Zombies
Posts: 245
Spawned: 8 Apr 06
From: pRO Chaos
Spawn ID: 4,133

|
MODIFIED TITLE BAR FOR OPENKORE 2.0.2 - WXSTART.EXEReplace the code in functions.pl: ==================== # Set interface title my $charName; my $title; $charName = "$char->{name}: " if ($char); if ($net->getState() == Network::IN_GAME) { my ($basePercent, $jobPercent, $weight, $pos, $myzenny, $myHP, $mySP);
assert(defined $char); $basePercent = sprintf("%.2f", $char->{exp} / $char->{exp_max} * 100) if ($char->{exp_max}); $jobPercent = sprintf("%.2f", $char->{exp_job} / $char->{exp_job_max} * 100) if ($char->{exp_job_max}); $weight = int($char->{weight} / $char->{weight_max} * 100) . "%" if ($char->{weight_max}); $pos = " : $char->{pos_to}{x},$char->{pos_to}{y} " . $field->name() if ($char->{pos_to} && $field); $myzenny = formatNumber($char->{'zenny'}); $myHP = sprintf("%.2f", percent_hp($char)); $mySP = sprintf("%.2f", percent_sp($char));
# Translation Comment: Interface Title with character status $title = TF("%s[B:%s(%s) J:%s(%s)][HP:%s SP:%s][Zenny:%s][W:%s][Pos%s] - modified by maztahv00d00", $charName, $char->{lv}, $basePercent . '%', $char->{lv_job}, $jobPercent . '%', $myHP . '%', $mySP . '%', $myzenny, $weight, $pos); #$weight, $pos, $Settings::NAME);
} elsif ($net->getState() == Network::NOT_CONNECTED) { # Translation Comment: Interface Title $title = TF("%sNot connected - modified by maztahv00d00", $charName); } else { # Translation Comment: Interface Title $title = TF("%sConnecting - modified by maztahv00d00", $charName); }====================
--------------------
"There is no greater HONOR than to protect your GUILD and COUNTRY."REMEMBER: - Be patient enough to wait for the answers, there's always the manual to refer if you're so eager /gg- Stop buzzing me while I'm working, I can still read your messages though, again patience.Can't catch up? READ THE MANUAL.
|
|
|
|
|
2 User(s) are reading this topic (2 Guests and 0 Anonymous Users)
0 Members:
Track this topic
Receive email notification when a reply has been made to this topic and you are not active on the board.
Subscribe to this forum
Receive email notification when a new topic is posted in this forum and you are not active on the board.
Download / Print this Topic
Download this topic in different formats or view a printer friendly version.
|
|
|
|
|
|
|